;ScriptEngine
Graphics 800,100,0,2
Global CommandL$ = CommandLine()

Type Script
   Field LText$
   Field LN
End Type

Type Functions
   Field Name$
   Field ID
End Type

;Funktionen hinzufügen
F.Functions = New Functions
F\Name$ = "//"
F\ID = 0

F.Functions = New Functions
F\Name$ = "INITGAME"
F\ID = 1

F.Functions = New Functions
F\Name$ = "ECHO"
F\ID = 97

F.Functions = New Functions
F\Name$ = "WAITKEY"
F\ID = 98

F.Functions = New Functions
F\Name$ = "END"
F\ID = 99

;Dateien laden
If CommandL$ <> ""
   If LoadScript(CommandL$) = 1
      ParseScript()
   Else
      End
   EndIf
Else
   File$ = Input("File: ")
   Print "Loading " + File$ + "..."
   If LoadScript(File$) = 1
      Print "Loading succesfull. Parsing and Executing..."
      ParseScript()
      Print "Script ended."
   Else
      Print "Loading failed. Press any key."
      WaitKey()
      End
   EndIf
EndIf

Function LoadScript(File$)
   Delete Each Script
   If FileType(File$) = 1
      Stream = OpenFile(File$)
      While Not Eof(Stream)
         LN = LN + 1
         S.Script = New Script
         S\LN = LN
         S\LText$ = Replace(ReadLine(Stream), "   ", "")
      Wend
      CloseFile Stream
      Return 1
   Else
      Return 0
   EndIf
End Function

Function ParseScript()
   For S.Script = Each Script
      FNum = 100
      For F.Functions = Each Functions
         If Upper(Left(S\LText$, Len(F\Name$))) = F\Name$
            FNum = F\ID
            Exit
         EndIf
      Next
      Select FNum
         Case 0   ;Kommentar
            DebugLog Mid(S\LText$, 3, -1)
         Case 1   ;InitGame
            If Instr(S\LText$, ",") <> 0
               W = Mid(S\LText$, 9, Instr(S\LText$, ","))
               H = Mid(S\LText$, Instr(S\LText$, ",")+1, Instr(S\LText$, ",", Instr(S\LText$, ",")))
               D = Mid(S\LText$, Instr(S\LText$, ",",Instr(S\LText$, ",")+1)+1, -1)
               Graphics W,H,D,0
            Else
               Print "Error at Line " + S\LN + ": Missing ',' at " + S\LText$
               WaitKey()
               End
            EndIf
         Case 97   ;Echo
            If Instr(S\LText$, Chr(34)) <> 0
               Txt$ = Mid(S\LText$, Instr(S\LText$, Chr(34))+1, Len(S\LText$)-Instr(S\LText$, Chr(34))-1)
            Else
               Txt$ = Right(S\LText$, Len(S\LText$)-5)
            EndIf
            Print Txt$
         Case 98   ;WaitKey
            WaitKey()
         Case 99   ;End
            End
         Case 100
            If S\LText$ <> ""
               Print "Error at Line " + S\LN + ": "+S\LText$ + " is not a valid command"
               WaitKey()
               End
            EndIf
      End Select
   Next
End Function

InitGame 800,600,16
echo "Nun mit besserer Syntax"
echo Aber auch ohne anführungszeichen möglich

//Script anhalten da ein Fehler vorhanden ist
unknown

WaitKey
End