Skripti kääntäjä kaatuu

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
tuhoojabotti
Advanced Member
Posts: 485
Joined: Tue Aug 28, 2007 3:53 pm
Location: Suomi, Finland
Contact:

Skripti kääntäjä kaatuu

Post by tuhoojabotti »

replacen kohdalla mutta vain jos on yli 8 scripti komentoa :cry:

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 
tässä koodi tiedosto

Code: Select all

[chapter1]
enemyscript0=Goto 10,10|Kill|Move 10,10|Turn 10,10|lool|looool|lol|
Imagedev.tuhoojabotti.com — “Programmer (noun): An organism that turns caffeine into code.”
Post Reply