Text Adventure Input - GameCreators Forum

developer forums

Newcomers DBPro Corner / Text Adventure Input

Author

Message

Raptor King

Years of Service

User Offline

Joined: 3rd Mar 2008

Location:

Posted: 1st Apr 2008 19:44

Link

Hey All,

I have been working on a Text Adventure lately. Everything is working so far, the coodinate system, item locations, etc. However, the parser needs some help.

Here's the code I used to test this.

+ Code Snippet


DIM Object$(2)
DIM Object$(1)="BEAST"
DIM Object$(2)="TORCH"

DIM Verb$(2)
DIM Verb$(1)="FIGHT"
DIM Verb$(2)="LIGHT"

Do

Input C$

PsVerb$=Left$(C$,5)
PsObject$=Right$(C$,5)

For V = 1 To 2
If PsVerb$=Verb$(V)
VerbFound=1
V$=Verb$(V)
Endif
Next V

For O = 1 to 2
If PsObject$=Object$(O)
ObjectFound=1
O$=Object$(O)
Endif
Next O


IF VerbFound=1 and ObjectFound=1
Print "Command Matched"
Print V$ : Print O$
Else
Print "Command Failed"
Print PsVerb$ : Print PsObject$
Endif

Loop

Wait Key
End

It divides the words into the verb and object just fine, since it prints those on the bottom. The only problem might be that it cannot match them with the words in the array.

Thanks in advance,

Profile PM

Raptor King

Years of Service

User Offline

Joined: 3rd Mar 2008

Location:

Posted: 3rd Apr 2008 20:16

Link

Man, I need to brush up on arrays.
Sorry for the bad mistake, I do not know why I did not catch that before.

Profile PM

Server time is: 2024-09-27 12:26:15
Your offset time is: 2024-09-27 12:26:15

Sorry your browser is not supported!

Newcomers DBPro Corner / Text Adventure Input