[bb] In game scripting B3d Bplus by Leon Drake [ 1+ years ago ]

[BlitzBot]

Title : In game scripting B3d Bplus
Author : Leon Drake
Posted : 1+ years ago

Description : well i didnt have too hard of a time converting it over to bb.
works the same though. however print is really the only blitz command available. adding your own isnt too hard. i'll post a tutorial soon on how to do it.

Added a few more features to this source code. Made it so
you can run multiple scripts and you can import
variables as well as functions from other active script
files. Just copy the following code to its appropriate
places and run it.



So make sure to cut and paste the following to txt files
commands.txt

Code Select Expand

0 U&U%%U&U
1 var
2 int
3 string
4 float
5 if
6 and
7 or
8 then
9 else
10 endif
11 end
12 function
13 endfunction
14 print
15 select
16 case
17 default
18 endselect
19 exit
20 return
21 for
22 to
23 next
24 callfunction
25 callvariable


script.txt

Code Select Expand

var string myvar
var int myvar2
var int myvar3
var int forlooper
var function curse
var function test


myvar3 = 100
myvar = 'mwhahahaha you bastage'

myvar2 = 1 + 1

if myvar2 + 1 = 3 and 10 > myvar2 then

curse
curse




select myvar3

case 100
print 'ok this one found 100'

case 200

print 'ok this one found 200'

default
print 'ok this one found what the other cases didnt'

endselect

else
print 'if on the groovy then'
endif

function test
print 'poop'
for forlooper = 0 to 10
print forlooper
next
endfunction


function curse
test
myvar3 = myvar3 + 100

print myvar3

endfunction


script2.txt

Code Select Expand

var string myvar



myvar = callvariable myscript QWERTYUIOP myvar


print myvar
callfunction myscript QWERTYUIOP curse


Code :

Code (blitzbasic) Select Expand

;Rem
;******************************************************************************************
;Ingame Scripting Lib v0120 Blitz+&3d edition
;Written by.Leon Drake aka Landon Ritchie
;
;Free For Commercial Use! Enjoy!!
;
;Few bugs i need To let you know about in the scripting side
;
;Currently Everything is Case sensitive so when writing scripts keep everything lowercase
;I;ll be fixing that soon Also make sure everything is spaced My tokenizer is still just
;a baby so If you put in var3=var1+var2 , it will think that whole block is a value so use
;val3 = val1 + val2
;
;you have To declare all variables And the types Example var Int var1
;you must do the same For any functions you wish To use var Function myfunc
;
;I havent added the ability To cast parameters To functions yet, so dont put a () After
;your Function when calling it use myfunc instead of myfunc()
;
;note on If statements I;m pretty sure i got it To run Right so far If tested it And it
;seems To Return If statements fine however curently you can only use math operators Before
;it compares the If For example
;
;If myval + myval2 = myval3 Then
;
;works, but\
;
;If myval = myval2 + myval3 Then
;
;doesn;t work at the moment probably best To assign that stuff Before you call an If, For
;now anyways You can use And & Or in your If statement And its Not limited on how complex
;that part may be you can also use Else in your If statement so far it works good
;
;
;
;I;ll try To keep updating this as often as i can , which should be often enough since i;m
;using this code For a 2d rpg engine
;
;
;Just added the ability To Write Select statements
;
;works pretty much the same as blitz
;
;usage
;
;Select myval3
;
;Case 100
;
;Case 200
;
;Default
;
;endselect
;
;you can also put Select statements inside other Select statements And it works fine
;
;Select myval3
;
;Case 100
; Select myval4
;
; Case 20
;
; endselect
;
;Default
;
;endselect
;
;added For loops \yet To be upgraded its still very touchy it must be run with a variable
;like so.
;
;For myvar3 = 0 To 100;
;
;Next
;
;you can however Replace the 0 Or the 100 with variables doesnt have To start with 0 Or
;End with 100 i was merely using that as an example
;
;
;Added New Function
;callfunction scriptname functionname
;
;What this does is allows you To call a Function from a different active script meaning you
;have already used runscript on that script which makes the script active And its functions
;available Use call Function from another script To run a Function from a different script
;using the other scripts variables And what Not Also you dont have To worry about 2 scripts
;running using the same variable names i made sure it differentiates them
;
;Added New Function
;callvariable scriptname variablename
;
;Just like callfunction this allows you To access the contents of a variable in another
;active script So far its only usage is For variable assignment you cant use it in If
;statements Or anything Else like that so you;ll have To pre grab the variable contents
;Before hand like this.
;
;myvar = callvariable myscript varname
;
;you can also do this If you want To
;
;myvar = callvariable myscript varname + callvariable myscript varname2
;And that works with all the math operators i;ve added so far
;
;
;******************************************************************************************
;End Rem
;Import "binbtypemx"
;Import "binbvkeymx"
;Global declare.TList = New TList
;Global dtokens.TList = New TList
;Global commands.TList = New TList
;Global arguement.TList = New TList
;Global ifbool.TList = New TList
;Global ftokens.TList = New TList
;Global script.TList = New TList

;token types
Const OPERATORS$ = "*/+-=><"


Type script


Field scriptname$,scripthandle$
End Type

Type ifbool


Field bool,boolexp,parentscrpt.script
End Type

Type arguement


Field arguementtype$,argvalue$,argnextoperator$,expecting$,parentscrpt.script
End Type
 
Type commands

Field commandname$,commandtype
End Type

Type declare


Field dtype$,ddata$,dataarray$[999],dname$,parentscript$,pscript,sindex,parentscrpt.script
End Type

Type dtokens



Field dname$,parentscript$,pscript,index,lline,tokentype,parentfunction.declare,parentscrpt.script
End Type



Type ftokens


Field dname$,parentscript$,pscript,index,lline,tokentype,parentfunction.declare,parentscrpt.script
End Type

loadcommands()

tokenizescript()
tokenizescript("myscript2","ASDFGH","script2.txt")
;processtokens()

runscript()
runscript("myscript2","ASDFGH")

Function runscript.script(scriptname$="myscript",scripthandle$="QWERTYUIOP")
Local tok.dtokens,com.commands,scr.script
scr = getscript.script(scriptname$,scripthandle$)
If scr = Null Then
DebugLog "invalid script name"
Return Null
EndIf
tok = gettoken.dtokens(scr)
Repeat
;For tok.dtokens = each dtokens
DebugLog tokdname$+" object? "

If tok = Null Then Return Null

;If tok2 <> Null And tok = tok2 Continue
;For com.commands = each commands
com = checkcommands.commands(tok okentype)
If com <> Null Then

tok = processcommands(tok.dtokens,com.commands)
;Exit
EndIf

If tok <> Null Then
tok = After tok

EndIf
If tok = Null Then Return Null
Until tok = Null Or tokparentscrpt <> scr

;Next


End Function

Function getscript.script(scriptname$,scripthandle$)
For scr.script = Each script
If scrscriptname$ = scriptname$ And scrscripthandle$ = scripthandle$ Then
Return scr
EndIf
Next
Return Null
End Function




Function gettoken.dtokens(scr.script)


For tok.dtokens = Each dtokens
If tokparentscrpt = scr Then
Return tok
EndIf
Next
Return Null
End Function


Function getarguement.arguement(arg2.arguement)
For arg.arguement = Each arguement
If arg = arg2 Then
Return arg
EndIf
Next
Return Null
End Function


Function getifbool.ifbool(ifo2.ifbool)
For ifo.ifbool = Each ifbool
If ifo = ifo2 Then
Return ifo
EndIf
Next
Return Null
End Function

Function processcommands.dtokens(tok.dtokens,com.commands)

Select comcommandtype

Case 0
dtype$ = checktoken$(tok)
Select dtype$

Case ""
DebugLog "I dunno what that is"
Return Null

;Case "function"
;tok = runfunction(tok)
;Return tok

Default
DebugLog "Let;s assign a var"
tok = assignvar(tok)
Return tok

End Select


Case 1
tok = declarevar(tok)
Return tok


Case 5
tok = runifstate(tok)
Return tok

Case 14
tok = printfunc(tok)
Return tok


Case 15
tok = runselectstate(tok)
Return tok

Case 21
tok = runforloop(tok)
Return tok

Case 24
tok = callfunction(tok)
Return tok

End Select

End Function


Function callvariable$(tok.dtokens)
Local scr.script,oldtok.dtokens,tokdata$,dec.declare,dnameo$
tok = After tok
If tok = Null Then
DebugLog "unexpected End of file"
Return ""
EndIf
dnameo$ = tokdname$
tok = After tok
If tok = Null Then
DebugLog "unexpected End of file"
Return ""
EndIf

scr = getscript.script(dnameo$,tokdname$)
If scr = Null Then
DebugLog "Source Script does not exist"
Return
EndIf
tok = After tok
If tok = Null Then
DebugLog "unexpected End of file"
Return
EndIf
oldtok = tok
tok.dtokens = New dtokens
tokdname$ = oldtokdname$
tokindex = 0
toklline = 0
tokparentscrpt = scr
dec = finddeclaration.declare(tok)
If dec = Null Then
DebugLog "Variable does not exist"
Return ""
EndIf
Delete tok

tok = oldtok
Return decddata$
End Function




Function callfunction.dtokens(tok.dtokens)
Local scr.script,oldtok.dtokens,dnameo$

tok = After tok
If tok = Null Then
DebugLog "unexpected End of file"
Return Null
EndIf
dnameo$ = tokdname$
tok = After tok
If tok = Null Then
DebugLog "unexpected End of file"
Return Null
EndIf

scr = getscript.script(dnameo$,tokdname$)
If scr = Null Then
DebugLog "Source Script does not exist"
Return Null
EndIf
tok = After tok
If tok = Null Then
DebugLog "unexpected End of file"
Return Null
EndIf
DebugLog "CALLING FUNCTION "+tokdname$
oldtok = tok
tok.dtokens = New dtokens
tokdname$ = oldtokdname$
tokindex = 0
toklline = 0
tokparentscrpt = scr

tok = runfunction(tok)
Delete tok

tok = oldtok
Return tok
End Function


Function runforloop.dtokens(tok.dtokens)

Local com.commands,loopvar,valuebegin$,valueend$
Local firstok.dtokens,lastok.dtokens
Local dec.declare,dec2.declare,dec3.declare
tok = After tok
dec = finddeclaration.declare(tok)
If dec = Null
DebugLog "Must be variable in for loop"
Return Null
EndIf
tok = After tok
If tokdname$ <> "=" Then
DebugLog "Expecting = after For (VAR)"
Return Null
EndIf
tok = After tok
dec2 = finddeclaration.declare(tok)
If dec2 = Null Then
DebugLog "not a variable must be a value"
valuebegin$ = tokdname$
Else
valuebegin$ = dec2ddata$
EndIf
tok = After tok
If tokdname$ <> "to" Then
DebugLog "expecting to after (VAR)"
Return Null
EndIf
tok = After tok
dec3 = finddeclaration.declare(tok)
If dec3 = Null Then
DebugLog "not a variable must be a value"
valueend$ = tokdname$
Else
valueend$ = dec3ddata$
EndIf
tok = After tok
firstok = tok
decddata$ = Int(valuebegin$)
Repeat

;For tok.dtokens = each dtokens
DebugLog tokdname$+" object? "

If tok = Null Then Return Null

;If tok2 <> Null And tok = tok2 Continue
;For com.commands = each commands
com = checkcommands.commands(tok okentype)
If com <> Null Then

tok = processcommands(tok.dtokens,com.commands)
;Exit
EndIf
If tok = Null Then Return Null
If tok <> Null Then
tok = After tok
EndIf
If tokdname$ = "next" And Int(decddata$) < Int(valueend$) Then
decddata$ = Int(decddata$) + 1
tok = firstok
EndIf

Until tokdname$ = "next" And Int(decddata$) = Int(valueend$)
Return tok
End Function

Function runselectstate.dtokens(tok.dtokens)
Local valcompare$,valtype$,tempval$,deftok.dtokens,oldtok.dtokens
Local com.commands,selectstates,hasdefaultstate,defaulted=True
tok = After tok
Local dec.declare = finddeclaration.declare(tok)
If dec = Null
DebugLog "Must be variable in select statement"
Return Null
EndIf
valcompare$ = decddata$
valtype$ = decdtype$
tok = After tok


Repeat
DebugLog "select debug current token is. "+tokdname$
If tok = Null Then
DebugLog "unexpected end of file"
Return Null
EndIf
com = checkcommands(tok okentype)
If com = Null Then
DebugLog "expected case statement"
Return Null
EndIf
Select comcommandtype

Case 16
selectstates = 0
tok = After tok
dec.declare = finddeclaration.declare(tok)

If dec = Null Then
DebugLog "Must be just a value"

If Instr(tokdname$,";",1) <> 0 Then
tempval$ = Replace(tokdname$,";","")
Else
tempval$ = tokdname$
EndIf

If valcompare$ = tempval$ Then
defaulted = False
tok = After tok
Repeat
;For tok.dtokens = each dtokens
DebugLog tokdname$+" object? "

If tok = Null Then Return Null

;If tok2 <> Null And tok = tok2 Continue
;For com.commands = each commands
com = checkcommands.commands(tok okentype)
If com <> Null Then

tok = processcommands(tok.dtokens,com.commands)
;Exit
EndIf
If tok = Null Then Return Null
If tok <> Null Then
tok = After tok
EndIf
If tokdname$ = "select" Then selectstates = selectstates + 1
If tokdname$ = "endselect" Then
selectstates = selectstates - 1
If selectstates < 0 Then selectstates = 0
EndIf
DebugLog "INSIDE SELECT NEXT TOKEN IS ."+tokdname$
Until tokdname$ = "case" Or tokdname$ = "exit" Or tokdname$ = "Default" Or tokdname$ = "EndSelect" And selectstates = 0
;If tokdname$ = "else" Then
;tok = getendstatement(tok)
;Return tok
If tokdname$ = "exit" Then
Repeat

tok = After tok

If tok = Null Then
DebugLog "expecting end select"
Return Null
EndIf
DebugLog "INSIDE DEFAULT NEXT TOKEN IS. "+tokdname$
If tokdname$ = "select" Then selectstates = selectstates + 1
If tokdname$ = "endselect" Then
selectstates = selectstates - 1
If selectstates < 0 Then selectstates = 0
EndIf


Until tokdname$ = "endselect" And selectstates = 0


EndIf


Else
;defaulted = True
selectstates = 0
Repeat

tok = After tok
If tok = Null Then
DebugLog "expecting end select"
Return Null
EndIf
If tokdname$ = "select" Then selectstates = selectstates + 1
If tokdname$ = "endselect" Then
selectstates = selectstates - 1
If selectstates < 0 Then selectstates = 0
EndIf


Until tokdname$ = "case" Or tokdname$ = "default" Or tokdname$ = "endselect" And selectstates = 0
EndIf

Else
DebugLog "found variable now compare case"
tempval$ = tokdname$
If valcompare$ = tempval$ Then
defaulted = False
tok = After tok
Repeat
;For tok.dtokens = each dtokens
DebugLog tokdname$+" object? "

If tok = Null Then Return Null

;If tok2 <> Null And tok = tok2 Continue
;For com.commands = each commands
com = checkcommands.commands(tok okentype)
If com <> Null Then

tok = processcommands(tok.dtokens,com.commands)
;Exit
EndIf
If tok = Null Then Return Null
If tok <> Null Then
tok = After tok
EndIf
If tokdname$ = "select" Then selectstates = selectstates + 1
If tokdname$ = "endselect" Then
selectstates = selectstates - 1
If selectstates < 0 Then selectstates = 0
EndIf
DebugLog "INSIDE SELECT NEXT TOKEN IS ."+tokdname$

Until tokdname$ = "case" Or tokdname$ = "exit" Or tokdname$ = "default" Or tokdname$ = "endselect" And selectstates = 0
;If tokdname$ = "else" Then
;tok = getendstatement(tok)
;Return tok
If tokdname$ = "exit" Then
Repeat

tok = After tok

If tok = Null Then
DebugLog "expecting end select"
Return Null
EndIf
DebugLog "INSIDE DEFAULT NEXT TOKEN IS. "+tokdname$
If tokdname$ = "select" Then selectstates = selectstates + 1
If tokdname$ = "endselect" Then
selectstates = selectstates - 1
If selectstates < 0 Then selectstates = 0
EndIf


Until tokdname$ = "endselect" And selectstates = 0


EndIf



Else
;defaulted = True
selectstates = 0
Repeat

tok = After tok
If tok = Null Then
DebugLog "expecting end select"
Return Null
EndIf
If tokdname$ = "select" Then selectstates = selectstates + 1
If tokdname$ = "endselect" Then
selectstates = selectstates - 1
If selectstates < 0 Then selectstates = 0
EndIf


Until tokdname$ = "case" Or tokdname$ = "default" Or tokdname$ = "endselect" And selectstates = 0
EndIf


EndIf

Case 17
DebugLog "found default"
hasdefaultstate = True
deftok = tok
selectstates = 0
Repeat

tok = After tok

If tok = Null Then
DebugLog "expecting end select"
Return Null
EndIf
DebugLog "INSIDE DEFAULT NEXT TOKEN IS. "+tokdname$
If tokdname$ = "select" Then selectstates = selectstates + 1
If tokdname$ = "endselect" Then
selectstates = selectstates - 1
If selectstates < 0 Then selectstates = 0
EndIf


Until tokdname$ = "case" Or tokdname$ = "default" Or tokdname$ = "endselect" And selectstates = 0

If tokdname$ = "default" Then
DebugLog "Select Cannot contain multiple Default Cases"
Return Null
EndIf

Case 18
DebugLog "OK now im checking the default status here . "+defaulted
If hasdefaultstate = True And defaulted = True Then
If deftok = Null Then
DebugLog "unknown error occured in select statement"
Return Null
EndIf
oldtok = tok
tok = deftok
selectstates = 0




tok = After tok
Repeat
;For tok.dtokens = each dtokens
DebugLog tokdname$+" object? "

If tok = Null Then Return Null

;If tok2 <> Null And tok = tok2 Continue
;For com.commands = each commands
com = checkcommands.commands(tok okentype)
If com <> Null Then

tok = processcommands(tok.dtokens,com.commands)
;Exit
EndIf
If tok = Null Then Return Null
If tok <> Null Then
tok = After tok
EndIf
If tokdname$ = "select" Then selectstates = selectstates + 1
If tokdname$ = "endselect" Then
selectstates = selectstates - 1
If selectstates < 0 Then selectstates = 0
EndIf
Until tokdname$ = "case" Or tokdname$ = "exit" Or tokdname$ = "default" Or tokdname$ = "endselect" And selectstates = 0
;If tokdname$ = "else" Then
;tok = getendstatement(tok)
tok = oldtok
;Return tok
If tokdname$ = "exit" Then
Repeat

tok = After tok

If tok = Null Then
DebugLog "expecting end select"
Return Null
EndIf
DebugLog "INSIDE DEFAULT NEXT TOKEN IS. "+tokdname$
If tokdname$ = "select" Then selectstates = selectstates + 1
If tokdname$ = "endselect" Then
selectstates = selectstates - 1
If selectstates < 0 Then selectstates = 0
EndIf


Until tokdname$ = "endselect" And selectstates = 0


EndIf

Else
DebugLog "wasnt default returning "+tokdname$
Return tok

EndIf
DebugLog "looks like it went through returning tok. "+tokdname$
Return tok


End Select

Until tok = Null
DebugLog "unexpected end of file"
Return Null


End Function



Function printfunc.dtokens(tok.dtokens)
tok = After tok
Local dec.declare = finddeclaration.declare(tok)
If dec = Null Then
DebugLog "just debuglog value"

Print tokdname$
;tok = after tok
Else
Print decddata$
EndIf
Return tok

End Function


Function runfunction.dtokens(tok.dtokens)
;tok = after tok
DebugLog "and the magical function name is "+tokdname$
Local dec.declare = finddeclaration.declare(tok)
Local oldtok.dtokens,com.commands,scr.script
oldtok = tok
scr = tokparentscrpt
If dec = Null Then
DebugLog "Function does not exist"
Return tok
EndIf
tok = invokefunctiontokens(dec)
Repeat
;For tok.dtokens = each dtokens
DebugLog tokdname$+" object? "

If tok = Null Then Return Null

;If tok2 <> Null And tok = tok2 Continue
;For com.commands = each commands
com = checkcommands.commands(tok okentype)
If tokdname$ = "return" Then
tok = oldtok
Return tok
EndIf
If com <> Null Then

tok = processcommands(tok,com)
;Exit
EndIf

If tok <> Null Then
tok = After tok
If tok = Null Then
tok = oldtok
dismissfunctiontokens(dec)
DebugLog "end function returning next token "+tokdname$
Return tok

EndIf
EndIf
Until tok = Null Or tokparentscrpt <> scr
tok = oldtok
dismissfunctiontokens(dec)
DebugLog "end function returning next token "+tokdname$
Return tok

End Function

Function dismissfunctiontokens(dec.declare)

For tok.dtokens = Each dtokens
If tokparentfunction = dec And tokparentscrpt = decparentscrpt Then
Delete tok

EndIf
Next

End Function

Function invokefunctiontokens.dtokens(dec.declare)
Local firstok.dtokens,gotfirst=False
For fok.ftokens = Each ftokens
If fokparentfunction = dec And fokparentscrpt = decparentscrpt Then
tok.dtokens = New dtokens
tokdname$ = fokdname$
DebugLog "adding function token "+tokdname$
tokindex = fokindex
toklline = foklline
tok okentype = fok okentype
tokparentfunction = fokparentfunction
tokparentscrpt = decparentscrpt
If gotfirst = False Then
firstok = tok
gotfirst = True
EndIf

EndIf
Next

Return firstok
End Function

Function checktoken$(tok.dtokens)
DebugLog "checking token "+tokdname$
If tokparentscrpt = Null Then
DebugLog "This token has no parent script"
EndIf
Local olddec.declare
Local dec.declare = finddeclaration.declare(tok)

If dec = Null Then
DebugLog "Expecting variable Assignment"
Return ""
Else
DebugLog "found the variable of type "+decdtype$
Return decdtype$

EndIf




End Function


Function checkcommands.commands(Data1)
DebugLog "checking the commands"
For com.commands = Each commands
If Data1 = comcommandtype Then
Return com
EndIf
Next
Return Null
End Function


Function checkspecificcommands.commands(Data1$)
DebugLog "checking the commands"
For com.commands = Each commands
If Data1$ = comcommandname$ Then
Return com
EndIf
Next
Return Null
End Function


Function runifstate.dtokens(tok.dtokens)
Local olddec.declare,oldtok.dtokens,com.commands
Local dec.declare,arg.arguement,foundcompare=False
Local foundthen = False
Repeat
tok = After tok
com = checkcommands(tok okentype)
If com <> Null Then
If comcommandtype = 0 Then com = Null
EndIf
If com = Null Then
dec = finddeclaration.declare(tok)

If dec = Null Then

DebugLog "Not a variable\ must be just an argument"
arg = checkarg(tokdname$)


Else
    DebugLog "found variable "+decdname$
arg.arguement = New arguement
argarguementtype$ = decdtype$
argargvalue$ = decddata$




EndIf
    DebugLog "lets find the operator"
tok = After tok
DebugLog "operator given is "+tokdname$
check = validateoperator(tokdname$)

If check <> 0 Then



argargnextoperator$ = tokdname$

If check = 2 And foundcompare = False Then
foundcompare = True
Else If check = 2 And foundcompare = True Then
DebugLog "Expecting Command"
Return Null
EndIf


Else
  com = checkcommands(tok okentype)
If com <> Null Then
If comcommandtype = 0 Then com = Null
EndIf
If com = Null Then
DebugLog "Expected Operator"
Return Null
Else
DebugLog "looks as though we hit a command lets back track one token"
argargnextoperator$ = tokdname$
tok = Before tok
foundcompare = False
EndIf
EndIf
Else
Select comcommandtype

Case 6
foundcompare = False

Case 7
foundcompare = False

Case 8
foundcompare = False
foundthen = True

Default
DebugLog "invalid command"
Return Null

End Select
EndIf
Until foundthen = True
DebugLog "found then"

DebugLog "lets see if the if statement is true"

DebugLog "debuglog all arguements"
For arg.arguement = Each arguement
DebugLog "arguement. "+argarguementtype$+" value. "+argargvalue$+" next operator. "+argargnextoperator$
Next
processarguments()
ifboolean = processifbooleans()
DebugLog "if statement is "+ifboolean
killbools()
killargs()

Select ifboolean

Case False
oldtok = tok
tok = getelsestatement.dtokens(tok)
If tok = Null Then
tok = getendstatement(oldtok)
Return tok
Else
tok = After tok
Repeat
;For tok.dtokens = each dtokens
DebugLog tokdname$+" object? "

If tok = Null Then Return Null

;If tok2 <> Null And tok = tok2 Continue
;For com.commands = each commands
com = checkcommands.commands(tok okentype)
If com <> Null Then

tok = processcommands(tok.dtokens,com.commands)
;Exit
EndIf

If tok <> Null Then
tok = After tok
EndIf
Until tokdname$ = "endif"
Return tok
EndIf


Case True
tok = After tok
Repeat
;For tok.dtokens = each dtokens
DebugLog tokdname$+" object? "

If tok = Null Then Return Null

;If tok2 <> Null And tok = tok2 Continue
;For com.commands = each commands
com = checkcommands.commands(tok okentype)
If com <> Null Then

tok = processcommands(tok.dtokens,com.commands)
;Exit
EndIf
If tok = Null Then Return Null
If tok <> Null Then
tok = After tok
EndIf
Until tokdname$ = "endif" Or tokdname$ = "else"
If tokdname$ = "else" Then
DebugLog "found else going to endif"
tok = getendstatement(tok)
Return tok
EndIf

End Select

End Function


Function getelsestatement.dtokens(tok.dtokens)
Local statescount = 0
Repeat
tok = After tok

If tok = Null Then
DebugLog "unepected end of file"
Return Null
EndIf
If tokdname$ = "if" Then statescount = statescount + 1
If tokdname$ = "endif" And statescount > 0 Then statescount = statescount - 1
If tokdname$ = "endif" And statescount = 0 Then Return Null
Until tokdname$ = "else" And statescount = 0
End Function

Function getendstatement.dtokens(tok.dtokens)
Local statescount=0

Repeat

tok = After tok
If tok = Null Then
DebugLog "unepected end of file"
Return Null
EndIf

If tokdname$ = "if" Then statescount = statescount + 1
If tokdname$ = "endif" And statescount > 0 Then statescount = statescount - 1


Until tokdname$ = "endif" And statescount = 0
Return tok
End Function

Function processarguments()
Local arg.arguement,arg2.arguement,oldvalue$,oldvaluetype$,arguementbool=False
Local nextoperator$,com.commands,narg.arguement
arg2.arguement = First arguement
arg = getarguement(arg2)

If arg = Null Then
DebugLog "I dont know how the hell it happened but i lost my arguements"
Return False
EndIf
oldvalue$ = argargvalue$
oldvaluetype$ = argarguementtype$
nextoperator$ = argargnextoperator$
Repeat
nextoperator$ = argargnextoperator$
arg = After arg
operationtype = validateoperator(nextoperator$)

Select operationtype
Case 1
DebugLog "old value "+oldvalue$
oldvalue$ = mathoperation$(oldvalue$,argargvalue$,oldvaluetype$,argarguementtype$,nextoperator$)
DebugLog "new value "+oldvalue$

Case 2
DebugLog "before bool argvalue is "+argargvalue$+" vs "+oldvalue$
arguementbool = booloperation(oldvalue$,argargvalue$,oldvaluetype$,argarguementtype$,nextoperator$)
DebugLog "bool "+arguementbool

Default
DebugLog "may be an operative command"
com = checkspecificcommands(nextoperator$)
If com = Null Then
DebugLog "Somehow it got screwed up"
Return False
EndIf
DebugLog "Ok it is a command now to see which one"

Select comcommandtype

Case 6
DebugLog "found "+comcommandname$
ifo.ifbool = New ifbool
ifoool = arguementbool
ifooolexp = comcommandtype
;arg = After arg

oldvalue$ = argargvalue$
oldvaluetype$ = argarguementtype$
DebugLog "AFTER AND NEXT OPERATOR IS "+argargnextoperator$

Case 7
DebugLog "found "+comcommandname$
ifo.ifbool = New ifbool
ifoool = arguementbool
ifooolexp = comcommandtype
;arg = After arg
oldvalue$ = argargvalue$
oldvaluetype$ = argarguementtype$

Case 8
DebugLog "found "+comcommandname$
ifo.ifbool = New ifbool
ifoool = arguementbool
ifooolexp = comcommandtype
arg = Null



Default
DebugLog "invalid expression in if statement"
Return False
Exit
End Select

End Select

Until arg = Null


End Function


Function killargs()
For arg.arguement = Each arguement
Delete arg

Next
End Function

Function killbools()
For ifo.ifbool = Each ifbool
Delete ifo
Next
End Function

Function processifbooleans()
Local ifo.ifbool,ifo2.ifbool,locbool=True
Local oldifo.ifbool
ifo2 = First ifbool
ifo = getifbool(ifo2)

If ifo = Null Then
DebugLog "Oh man this must be Stupid to lose the booleans"
Return False
EndIf
oldifo = ifo
If oldifoool = False Then locbool = False
Repeat

oldifo = ifo
ifo = After ifo

If ifo = Null Then Return locbool
If ifo <> Null Then
Select oldifooolexp

Case 6
If ifoool = False locbool = False

Case 7
If ifoool = True locbool = True

Case 8
Return locbool

Default
DebugLog "Expecting Expression"
Return False

End Select

EndIf

Until oldifooolexp = 8

Return locbool

End Function

Function booloperation(destvar$,sourcevar$,desttype$,sourcetype$,operator$)
Select operator$

 Case "="
  Select desttype$

Case "string"
Select sourcetype$

Case "string"
If destvar$ = sourcevar$ Then
Return True
Else
Return False
EndIf

Case "int"
If destvar$ = sourcevar$ Then
Return True
Else
Return False
EndIf

Case "float"
If destvar$ = sourcevar$ Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "int"
Select sourcetype$

Case "string"
If destvar$ = sourcevar$ Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) = Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) = Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "float"
Select sourcetype$

Case "string"
If destvar$ = sourcevar$ Then
Return True
Else
Return False
EndIf

Case "int"
If Float(destvar$) = Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) = Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select
Default
Return False

End Select

 Case ">"
  Select desttype$

Case "string"
Select sourcetype$

Case "string"
If Len(destvar$) > Len(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) > Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) > Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "int"
Select sourcetype$

Case "string"
If Int(destvar$) > Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) > Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) > Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "float"
Select sourcetype$

Case "string"
If Int(destvar$) > Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Float(destvar$) > Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) > Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select
Default
Return False

End Select

 Case ">="
  Select desttype$

Case "string"
Select sourcetype$

Case "string"
If Len(destvar$) >= Len(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) >= Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) >= Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "int"
Select sourcetype$

Case "string"
If Int(destvar$) >= Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) >= Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) >= Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "float"
Select sourcetype$

Case "string"
If Int(destvar$) >= Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Float(destvar$) >= Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) >= Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select
Default
Return False

End Select

 Case "<"
  Select desttype$

Case "string"
Select sourcetype$

Case "string"
If Len(destvar$) < Len(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) < Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) < Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "int"
Select sourcetype$

Case "string"
If Int(destvar$) < Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) < Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) < Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "float"
Select sourcetype$

Case "string"
If Int(destvar$) < Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Float(destvar$) < Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) < Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select
Default
Return False

End Select

 Case "<="
  Select desttype$

Case "string"
Select sourcetype$

Case "string"
If Len(destvar$) <= Len(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) <= Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) <= Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "int"
Select sourcetype$

Case "string"
If Int(destvar$) <= Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) <= Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) <= Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "float"
Select sourcetype$

Case "string"
If Int(destvar$) <= Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Float(destvar$) <= Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) <= Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select
Default
Return False

End Select

 Case "<>"
  Select desttype$

Case "string"
Select sourcetype$

Case "string"
If Len(destvar$) <> Len(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) <> Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) <> Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "int"
Select sourcetype$

Case "string"
If Int(destvar$) <> Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) <> Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) <> Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "float"
Select sourcetype$

Case "string"
If Int(destvar$) <> Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Float(destvar$) <> Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) <> Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select
Default
Return False

End Select

 Case "><"
  Select desttype$

Case "string"
Select sourcetype$

Case "string"
If Len(destvar$) <> Len(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) <> Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) <> Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "int"
Select sourcetype$

Case "string"
If Int(destvar$) <> Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Int(destvar$) <> Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) <> Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select

Case "float"
Select sourcetype$

Case "string"
If Int(destvar$) <> Int(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "int"
If Float(destvar$) <> Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Case "float"
If Float(destvar$) <> Float(sourcevar$) Then
Return True
Else
Return False
EndIf

Default
Return False

End Select
Default
Return False

End Select


 Default
 Return False




End Select
End Function

Function mathoperation$(destvar$,sourcevar$,desttype$,sourcetype$,operator$)

Select operator$

Case "+"
Select sourcetype$

Case "string"
Select desttype$

Case "string"
destvar$ = destvar$ + sourcevar$
Return destvar$

Case "int"
destvar$ = destvar$ + sourcevar$
Return destvar$

Case "float"
destvar$ = destvar$ + sourcevar$
Return destvar$

Default
Return ""

End Select

Case "int"
Select desttype$

Case "string"
destvar$ = destvar$ + Int(sourcevar$)
Return destvar$

Case "int"
destvar$ = Int(destvar$) + Int(sourcevar$)
Return destvar$

Case "float"
destvar$ = Float(destvar$) + Int(sourcevar$)
Return destvar$

Default
Return ""

End Select
Case "float"
Select desttype$

Case "string"
destvar$ = destvar$ + Float(sourcevar$)
Return destvar$

Case "int"
destvar$ = Int(destvar$) + Float(sourcevar$)
Return destvar$

Case "float"
destvar$ = Float(destvar$) + Float(sourcevar$)
Return destvar$

Default
Return ""

End Select
Default
Return ""

End Select


Case "-"
Select sourcetype$

Case "string"
Select desttype$

Case "string"
destvar$ = Replace(destvar$,sourcevar$,1)
Return destvar$

Case "int"
destvar$ = Replace(destvar$,sourcevar$,1)
Return destvar$

Case "float"
destvar$ = Replace(destvar$,sourcevar$,1)
Return destvar$

Default
Return ""

End Select

Case "int"
Select desttype$

Case "string"
destvar$ = Replace(destvar$,sourcevar$,1)
Return destvar$

Case "int"
destvar$ = Int(destvar$) - Int(sourcevar$)
Return destvar$

Case "float"
destvar$ = Float(destvar$) - Int(sourcevar$)
Return destvar$

Default
Return ""

End Select
Case "float"
Select desttype$

Case "string"
destvar$ = Replace(destvar$,sourcevar$,1)
Return destvar$

Case "int"
destvar$ = Int(destvar$) - Float(sourcevar$)
Return destvar$

Case "float"
destvar$ = Float(destvar$) - Float(sourcevar$)
Return destvar$

Default
Return ""

End Select
Default
Return ""

End Select
Case "/"
Select sourcetype$

Case "string"
Select desttype$

Case "string"
Return destvar$

Case "int"
Return destvar$

Case "float"
Return destvar$

Default
Return ""

End Select

Case "int"
Select desttype$

Case "string"
Return destvar$

Case "int"
destvar$ = Int(destvar$) / Int(sourcevar$)
Return destvar$

Case "float"
destvar$ = Float(destvar$) / Int(sourcevar$)
Return destvar$

Default
Return ""

End Select
Case "float"
Select desttype$

Case "string"
Return destvar$

Case "int"
destvar$ = Int(destvar$) / Float(sourcevar$)
Return destvar$

Case "float"
destvar$ = Float(destvar$) / Float(sourcevar$)
Return destvar$

Default
Return ""

End Select
Default
Return ""

End Select

Case "*"
Select sourcetype$

Case "string"
Select desttype$

Case "string"
Return destvar$

Case "int"
Return destvar$

Case "float"
Return destvar$

Default
Return ""

End Select

Case "int"
Select desttype$

Case "string"
Return destvar$

Case "int"
destvar$ = Int(destvar$) * Int(sourcevar$)
Return destvar$

Case "float"
destvar$ = Float(destvar$) * Int(sourcevar$)
Return destvar$

Default
Return ""

End Select
Case "float"
Select desttype$

Case "string"
Return destvar$

Case "int"
destvar$ = Int(destvar$) * Float(sourcevar$)
Return destvar$

Case "float"
destvar$ = Float(destvar$) * Float(sourcevar$)
Return destvar$

Default
Return ""

End Select
Default
Return ""

End Select

Default
Return ""

End Select

End Function


Function validateoperator(Data1$)
Local validated = False
Local expect = 0

If Instr(OPERATORS$,Data1$,1) <> 0 Then
Select Data1$
 Case "="
 Return 2

 Case ">"
 Return 2

 Case ">="
 Return 2

 Case "<"
 Return 2

 Case "<="
 Return 2

 Case "<>"
 Return 2

 Case "><"
 Return 2

 Default
 Return 1

End Select
Else
Return 0
EndIf

End Function


Function checkarg.arguement(Data1$)

If Instr(Data1$,";",1) <> 0 Then
arg.arguement = New arguement
argarguementtype$ = "string"
argargvalue$ = Replace(Data1$,";","")
Return arg
EndIf

If Instr(Data1$,"",1) <> 0 Then
arg.arguement = New arguement
argarguementtype$ = "float"
argargvalue$ = Data1$
Return arg
EndIf

arg.arguement = New arguement
argarguementtype$ = "int"
argargvalue$ = Data1$
Return arg




End Function

Function assignvar.dtokens(tok.dtokens)
Local olddec.declare,oldtok.dtokens,com.commands
Local dec.declare = finddeclaration.declare(tok)
oldtok = tok
DebugLog "assinging var data to "+tokdname$
tok = After tok

If tok = Null Then
DebugLog "may possibly be just a function"
If decdtype$ = "function" Then
DebugLog "found function running script"
tok = Before tok
tok = runfunction(tok)
Return tok
Else
DebugLog "Unexprected end of file"
Return Null
EndIf
EndIf

DebugLog oldtokdname$
DebugLog "next field after "+oldtokdname$+" is "+tokdname$
If tokdname$ = "=" Then
DebugLog "found ="
olddec = dec

Select olddecdtype$

Case "int"

Repeat

tok = After tok
If toklline = oldtoklline Then

DebugLog "found integer next "+tokdname$
Select tokdname$


Case "+"
tok = After tok
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = Int(olddecddata$)+Int(tokdname$)
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = Int(olddecddata$) + Int(callvariable$(tok))
tok = After tok
tok = After tok

DebugLog olddecdname$+" int = "+olddecddata$

End Select

EndIf
Else
olddecddata$ = Int(olddecddata$)+Int(decddata$)
DebugLog olddecdname$+" int = "+olddecddata$
EndIf

Case "-"
tok = After tok
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = Int(olddecddata$)-Int(tokdname$)
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = Int(olddecddata$) - Int(callvariable$(tok))
DebugLog olddecdname$+" int = "+olddecddata$
tok = After tok
tok = After tok

End Select
EndIf
Else
olddecddata$ = Int(olddecddata$)-Int(decddata$)
EndIf

Case "*"
tok = After tok
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = Int(olddecddata$)*Int(tokdname$)
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = Int(olddecddata$) * Int(callvariable$(tok))
DebugLog olddecdname$+" int = "+olddecddata$
tok = After tok
tok = After tok

End Select
EndIf
Else
olddecddata$ = Int(olddecddata$)*Int(decddata$)
EndIf

Case "/"
tok = After tok
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = Int(olddecddata$)/Int(tokdname$)
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = Int(olddecddata$) / Int(callvariable$(tok))
DebugLog olddecdname$+" int = "+olddecddata$
tok = After tok
tok = After tok

End Select
EndIf
Else
olddecddata$ = Int(olddecddata$)/Int(decddata$)
EndIf

Default
DebugLog "found numerical expression of "+tokdname$
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = Int(tokdname$)
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = Int(callvariable$(tok))
DebugLog olddecdname$+" int = "+olddecddata$
tok = After tok
tok = After tok

End Select
EndIf
DebugLog olddecdname$+" int = "+olddecddata$
Else
olddecddata$ = Int(decddata$)
DebugLog olddecdname$+" int = "+olddecddata$

EndIf

End Select
EndIf
Until toklline > oldtoklline


Case "float"
Repeat
tok = After tok
If toklline = oldtoklline Then

Select tokdname$


Case "+"
tok = After tok
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = Float(olddecddata$)+Float(tokdname$)
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = Float(olddecddata$) + Float(callvariable$(tok))
DebugLog olddecdname$+" int = "+olddecddata$
tok = After tok
tok = After tok

End Select
EndIf
Else
olddecddata$ = Float(olddecddata$)+Float(decddata$)
EndIf

Case "-"
tok = After tok
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = Float(olddecddata$)-Float(tokdname$)
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = Float(olddecddata$) - Float(callvariable$(tok))
DebugLog olddecdname$+" int = "+olddecddata$
tok = After tok
tok = After tok

End Select
EndIf
Else
olddecddata$ = Float(olddecddata$)-Float(decddata$)
EndIf

Case "*"
tok = After tok
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = Float(olddecddata$)*Float(tokdname$)
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = Float(olddecddata$) * Float(callvariable$(tok))
DebugLog olddecdname$+" int = "+olddecddata$
tok = After tok
tok = After tok

End Select
EndIf
Else
olddecddata$ = Float(olddecddata$)*Float(decddata$)
EndIf

Case "/"
tok = After tok
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = Float(olddecddata$)/Float(tokdname$)
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = Float(olddecddata$) / Float(callvariable$(tok))
DebugLog olddecdname$+" int = "+olddecddata$
tok = After tok
tok = After tok

End Select
EndIf
Else
olddecddata$ = Float(olddecddata$)/Float(decddata$)
EndIf

Default
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = Int(tokdname$)
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = Int(callvariable$(tok))
DebugLog olddecdname$+" int = "+olddecddata$
tok = After tok
tok = After tok

End Select
EndIf
Else
olddecddata$ = Float(decddata$)
EndIf
End Select
EndIf
Until toklline > oldtoklline


Case "string"
DebugLog "assinging string data to "+olddecdname$
Repeat
tok = After tok
DebugLog tokdname$+" line is "+toklline+" "+oldtokdname$+" line is "+oldtoklline
If toklline = oldtoklline Then
Select tokdname$


Case "+"
tok = After tok
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = olddecddata$ + tokdname$
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = olddecddata$ + callvariable$(tok)
DebugLog olddecdname$+" int = "+olddecddata$
tok = After tok
tok = After tok

End Select
EndIf
Else
olddecddata$ = olddecddata$+decddata$
EndIf
olddecddata$ = Replace(olddecddata$,";","")

Default
dec = finddeclaration.declare(tok)
If dec = Null Then
com = checkcommands(tok okentype)
If com <> Null Then

Select comcommandtype

Case 0
olddecddata$ = tokdname$
DebugLog olddecdname$+" int = "+olddecddata$


Case 25
olddecddata$ = callvariable$(tok)
DebugLog olddecdname$+" int = "+olddecddata$
tok = After tok
tok = After tok

End Select
EndIf
Else
olddecddata$ = decddata$
EndIf
olddecddata$ = Replace(olddecddata$,";","")
DebugLog olddecddata$
End Select
EndIf
Until toklline > oldtoklline


End Select
DebugLog "next item is "+tokdname$
Return Before tok
Else
If decdtype$ = "function" Then
DebugLog "found function running script"
tok = Before tok
tok = runfunction(tok)
Return tok
Else
DebugLog "expecting operator"
Return Null
EndIf
EndIf

End Function

Function declarevar.dtokens(tok.dtokens)
Local oldtok.dtokens
dec.declare = New declare
tok = After tok
If tok = Null Then
DebugLog "Expecting VAR type"
Return Null
EndIf
decdtype$ = tokdname$
decparentscrpt = tokparentscrpt
tok = After tok
If tok = Null Then
DebugLog "Expecting Var Name"
Return
EndIf
decdname$ = tokdname$

oldtok = tok
If decdtype$ = "function" Then
addfunctiontokens(dec,tok)
DebugLog "added new function "+decdname$
EndIf

DebugLog "Found Variable type "+decdtype$+" var name "+decdname$
Return tok
End Function


Function addfunctiontokens(dec.declare,tok.dtokens)
Local fok.ftokens
Local killtok.dtokens
tok = findfunction(dec,tok)

killtok = tok

tok = After tok
DebugLog "about to kill token "+killtokdname$
Delete killtok



Repeat

fok.ftokens = New ftokens
fokdname$ = tokdname$
fokindex = tokindex
foklline = toklline
fok okentype = tok okentype
fokparentfunction = dec
fokparentscrpt = tokparentscrpt
killtok = tok
tok = After tok
DebugLog "about to kill token "+killtokdname$
Delete killtok


If tok = Null Then
DebugLog "unexpected end of file"
Return
EndIf
Until tokdname$ = "endfunction"
Delete tok


End Function


Function findfunction.dtokens(dec.declare,tok.dtokens)
Local foundfunc = False
Local killtok.dtokens
Repeat
tok = After tok
If tokdname$ = "function" Then
tok = After tok
If tokdname$ = decdname$ Then
killtok = Before tok
Delete killtok

Return tok
EndIf
EndIf



Until tok = Null
Return Null
End Function


Function tokenizescript(scriptname$="myscript",shandle$="QWERTYUIOP",scriptfile$="script.txt")
Local templine$,toffset,temptoken$
Local Stream = OpenFile(scriptfile$)
Local index = 0,gotstring = False,gotendstring = False
Local Line = 0
scr.script = New script
scrscriptname$ = scriptname$
scrscripthandle$ = shandle$
While Not Eof(Stream)
templine$ = ReadLine(Stream)
Line = Line + 1
DebugLog "line. "+Line
;debuglog "len. "+Len(templine$)
For tempfor = 1 To Len(templine$)
;debuglog tempfor
If Mid$( templine$,tempfor,1 ) = ";" Then
If gotstring = False Then
gotstring = True
Else
gotstring = False
gotendstring = True
EndIf
EndIf
If gotstring = False
If Mid$( templine$,tempfor,1 ) <> " " And tempfor <> Len(templine$) And gotendstring = False Then
temptoken$ = temptoken$ + Mid$( templine$,tempfor,1 )
Else
temptoken$ = temptoken$ + Mid$( templine$,tempfor,1 )
tok.dtokens = New dtokens
tokdname$ = Trim(temptoken$)
tokindex = index
toklline = Line
tokparentscrpt = scr
If tokparentscrpt = Null Then
DebugLog "Uh oh this has no parent script"
End
EndIf
index = index + 1
For com.commands = Each commands
If Lower(tokdname$) = Lower(comcommandname$) Then
tok okentype = comcommandtype


EndIf

Next

tokindex = index
index = index + 1
temptoken$ = ""
gotendstring = False
EndIf
Else
temptoken$ = temptoken$ + Mid$( templine$,tempfor,1 )
EndIf
Next

Wend
CloseFile(Stream)

For tok.dtokens = Each dtokens
DebugLog tokdname$
Next

End Function



Function loadcommands()
Local tempfor,templine$,temptoken$
Local Stream = OpenFile("commands.txt")
While Not Eof(Stream)
templine$ = ReadLine(Stream)
For tempfor = 1 To Len(templine$)
If Mid$( templine$,tempfor,1 ) <> " " Then
temptoken$ = temptoken$ + Mid$( templine$,tempfor,1 )
;debuglog temptoken$
Else
;temptoken$ = temptoken$ + Mid$( templine$,tempfor,1 )

com.commands = New commands
comcommandtype = Int(temptoken$)
comcommandname$ = Trim(Replace(templine$,temptoken$,""))
;debuglog comcommandtype
DebugLog comcommandname$
temptoken$ = ""
Exit
EndIf

Next
Wend
CloseFile(Stream)


End Function





Function finddeclaration.declare(tok.dtokens)
Local foundit = False
For dec.declare = Each declare
If decdname$ = tokdname$ And tokparentscrpt = decparentscrpt Then
Return dec
foundit = True
EndIf

Next

Return Null
End Function

Comments :


_33(Posted 1+ years ago)

 I think this is a fantastic effort of yours, and big thumbs up for all this!  What would be really neat of course would be fixing the space issues in the tokenizer (as you stated, which I don't think is a very big thing to figure out).  But also, something much more IMHO important for ingame scripting, is to be able to run *crunched code*.  Meaning that, instead of having text for your commands and syntax checking, you could do all this in advance and save your scripts as neat "exe" like files in a script folder in the games dir, and work with banks for coding all this!  That would really boost the execution speed of the scripts by a thousand folds.Cheers.


Leon Drake(Posted 1+ years ago)

 yea, actually this was my first try at making a scripting engine, if you turn off all the debug logs it runs pretty fast. not quite as fast as if i prescreened it. but for a first attempt at least it works. This was mostly for small event scripts.


Filax(Posted 1+ years ago)

 Up Any news about a new version ?


Leon Drake(Posted 1+ years ago)

 lol i know its been forever but i just got back into b3d for a different project, so i may end up expanding this soon