-

addons/CSScriptAddon/CSScriptAddon.vb

@@ -0,0 +1,35 @@
+Imports System.ComponentModel.Composition
+Imports System.IO
+Imports System.Windows.Forms
+
+Imports mpvnet
+
+Imports CSScriptLibrary
+
+<Export(GetType(IAddon))>
+Public Class CSScriptAddon
+    Implements IAddon
+
+    Sub New()
+        Dim scriptFiles As New List(Of String)
+
+        If Directory.Exists(mp.MpvConfFolder + "scripts") Then
+            scriptFiles.AddRange(Directory.GetFiles(mp.MpvConfFolder + "scripts", "*.cs"))
+        End If
+
+        If Directory.Exists(Application.StartupPath + "\scripts") Then
+            scriptFiles.AddRange(Directory.GetFiles(Application.StartupPath + "\scripts", "*.cs"))
+        End If
+
+        If scriptFiles.Count = 0 Then Return
+        CSScriptLibrary.CSScript.EvaluatorConfig.Engine = EvaluatorEngine.CodeDom
+
+        For Each i In scriptFiles
+            Try
+                CSScriptLibrary.CSScript.Evaluator.LoadCode(File.ReadAllText(i))
+            Catch ex As Exception
+                Sys.Msg.ShowException(ex)
+            End Try
+        Next
+    End Sub
+End Class