'Splits a string based on the given delimiter
DEF SPLITSTRING$(STRING$,DELIM$)
DIM SPLIT$[0]
DIM NEXT%=0
WHILE LEN(STRING$)>0 'Continue until the whole string is consumed
NEXT%=INSTR(STRING$,DELIM$) 'Find the next occurrence of the delimiter
IF NEXT%<0 THEN PUSH SPLIT$,STRING$:BREAK 'If there are no more delimiters, put the rest in the split and get out.
IF NEXT%>0 THEN PUSH SPLIT$,LEFT$(STRING$,NEXT%) 'If the first character is not a delimiter, put everything up to the delimiter in the array
STRING$=RIGHT$(STRING$,LEN(STRING$)-NEXT%-1) 'Remove the word, including the delimiter
WEND
RETURN SPLIT$
END
'Determines if the given string has any of the given commands(if the commands are in a string separated by spaces)
DEF HASCOMMAND(STRING$,COMMANDS$)
DIM SCOMMANDS$[0],I
SCOMMANDS$=SPLITSTRING(COMMANDS$," ") 'Split COMMAND into an array
FOR I=0 TO LEN(SCOMMANDS$)-1
IF INSTR(STRING$,SCOMMANDS$[I])>=0 THEN RETURN TRUE 'Use INSTR to see if string has command
NEXT
RETURN FALSE
END
IF HASCOMMAND("WALK OVER TO JOHN","WALK GOTO MOVE TRAVEL")>=0 THEN
'Did a walk command
ENDIFSometimes you have to write more code now to write less code later. If you're not dead-set on having the commands all be in a string, you can do away with the string-split function and just do:
DEF HASCOMMAND(STRING$,COMMANDS$)
DIM I
FOR I=0 TO LEN(COMMANDS$)-1
IF INSTR(STRING$,COMMANDS$[I])>=0 THEN RETURN TRUE 'Use INSTR to see if string has command
NEXT
RETURN FALSE
END
DIM WALKCOMMANDS$[0]
PUSH WALKCOMMANDS$,"WALK"
PUSH WALKCOMMANDS$,"GOTO"
PUSH WALKCOMMANDS$,"MOVE"
PUSH WALKCOMMANDS$,"TRAVEL"
IF HASCOMMAND("WALK OVER TO JOHN", WALKCOMMANDS$) THEN
'Had a walk command
ENDIFDoing it the latter way will result in more code down the road though, as all those PUSH commands really start to add up when compared to just writing STRINGSPLIT once.
