Npc, eine Skriptsprache?
Verfasst: 25.01.2007 21:04
Hallo,
[Offtopic]
Erstmal möchte ich mich bei Kaeru Gaman und ZeHa entschuldigen, aber das hatt mich gestern echt zum kochen gebracht. Sorry.
[Offtopic]
Nun mal zum thema ich binn dabei ein RPG zu proggen binn auch schon weit und gerade an den NPC nun hab ich mir gedacht machst ne kleine skriptsprache. Gut sie is wahrscheinlich total langsam und umständlich, is aber nur ein test da ich noch nich weis wie ich das mit den variablen übergeben mach. Nun würd ich gern wissen wie ihr das machen würdet mit ner skriptsprache, alles im Code oder ganz anders?? und kann ich die variablennamen irgendwie übergeben?
hier mein Test Code:
und die txt:
mfg
[Offtopic]
Erstmal möchte ich mich bei Kaeru Gaman und ZeHa entschuldigen, aber das hatt mich gestern echt zum kochen gebracht. Sorry.
[Offtopic]
Nun mal zum thema ich binn dabei ein RPG zu proggen binn auch schon weit und gerade an den NPC nun hab ich mir gedacht machst ne kleine skriptsprache. Gut sie is wahrscheinlich total langsam und umständlich, is aber nur ein test da ich noch nich weis wie ich das mit den variablen übergeben mach. Nun würd ich gern wissen wie ihr das machen würdet mit ner skriptsprache, alles im Code oder ganz anders?? und kann ich die variablennamen irgendwie übergeben?
hier mein Test Code:
Code: Alles auswählen
Global SpeakerName.s
Global Message.s
Procedure PlayScript(File.s)
Protected ScriptString.s
Protected ScriptStringLen.w
If Not ReadFile(0,File.s)
ProcedureReturn #False
EndIf
Repeat
ScriptString = Trim(ReadString(0))
ScriptStringLen = Len(ScriptString)
If Left(ScriptString, 7) = "Speaker"
SpeakerName = Trim(Mid(ScriptString,10,30))
Debug ">>"+SpeakerName
ElseIf Left(ScriptString, 3) = "Say"
Message = Trim(Mid(ScriptString,6,ScriptStringLen-5))
Debug Message
ElseIf Left(ScriptString, 4) = "/End"
CloseFile(0)
ProcedureReturn #True
EndIf
Until Eof(0)
ProcedureReturn #True
EndProcedure
PlayScript("ScriptTest.txt")
Code: Alles auswählen
Speaker-> Helen
Say-> Wer bist du?
Say-> Was willst du?
Speaker-> Talon
Say-> Lass mich!
Say-> Und keine Ahnung!
/End