In my text RPG if you make a mistake when writing and press enter and I didn't make an action to fufill when you type in that command you get stuck. I need the program to create a new line of text if this happens. Or else whomever is playing it will have to completely restart the game. I want to correct this.
Here is my current code...
Rem :Apocalyse a text RPG by the arbiter chewbacca hybrid
Rem sets the cursor to a specific location on the screen
Sword = 0
Glock = 0
MP5 = 0
Set cursor 50,50
Input "What is your name>";name$
Print "Hello";
Print names$;
Print "Welcome to apocalypse";
Print "To go to help enter the word help"
Input "Please enter a command>";Command$
Do
Rem main program
If Command$ = "help"
CLS
Print "You are now in the help files to start your adventure input (go to) then it will give you a list of options"
Print "input either vac which is the only safe area in the game or world to go to a list of options outside areas."
Print "To start the game go to the vac"
Print "type in CLS to clear the screen"
Print "To see someone enter (see (the person name here)"
Input "Please enter a command>";Command$
Endif
rem Transportation menu
If Command$ = "go to"
CLS
Print "list of places ,vac"
Input "go to vac>";Command$
Endif
Rem vaccination center
If Command$ = "vac"
CLS
Print "Hello welcome to the vaccination center"
Print "go see captain. Stipley to get a weapon"
Print "to go see captain stipley enter see stipley"
Input "Please enter a command>";Command$
Endif
Rem captain Stipleys weapon shop
If Command$ = "see stipley"
CLS
Print "'ello mate";
Print "m' name is 'aptain Stipley"
Print "Here's my S'ock"
Print "Sword Glock MP5";
Print "'rry mate ain't got much but i' was the best I could salvage"
Print " Say 're you Austrilain"
Print "to buy a wep' say 'buy (weapon name here)"
Input "Say the name of the wep' to buy it exactly as said here Cap's 'n all>";Command$
Endif
Rem weps:sword
If Command$ = "buy Sword"
CLS
Print "1st achievment unlocked"
Print "you've just bought a sword"
Inc Sword
Print "Capt. Stipley: anything else mate"
Input "Please enter a command>";Command$
Endif
Rem Back to stipley
If Command$ = "buy/yes"
CLS
Print "So y'o back fo' mo' mate"
Print "Say Sword Glock or MP5"
Input "got gun's>";Command$
Endif
Rem The main gun loop
If Sword > 1 and Command$ = "buy Sword"
Print " you already own a sword s're you want 'nother one"
Input "Want any more weps>";Command$
Endif
Loop
[link]www.kdlproductions.webs.com[link]
