Code: Select all
Include "C:\Program Files\CoolBasic\SDK\include\cbAPI.cb"
action$=""
script$=""
id=1
chapter=1
name$="eka kenttä"
i=0
script=GetIniString("level"+id+".lvl", "chapter"+chapter, "enemyscript"+i,0 )
If script="0" Or script="" Then MakeError "Error: While reading level: "+name+" You have To set enemy script at chapter"+chapter+" enemy"+i+"!!!!"
Print script
Print "Press anykey To start parsing script!"
Print ""
WaitKey
too=CountWords(script,"|")
//Print too
//WaitKey
t=Timer()
aika=0
For i=1 To too
tmp$=GetWord(script,1,"|")
Print tmp
//tässä on vikaa crashaa tässä jos scriptejä on enemmän kuin 8
script=Replace(script,tmp,"")//poistetaan nykyinen komento vanhoista
script=StrRemove(script,1,1)//poistetaan vielä scriptin vaihto merkki alusta
tmp="" //nollataan tmp
aik=Timer()-t
If script="" Then MakeError "oho scripti loppui"+Chr(10)+Chr(13)+"aikaa kului "+aik+" ms."
Next i
WaitKey
Code: Select all
[chapter1]
enemyscript0=Goto 10,10|Kill|Move 10,10|Turn 10,10|lool|looool|lol|