The game is running well in QBASIC but don't want to be compiled, cuz of an error :
Internal error near 5F15
0 Warning Error
1 Servere Error
Here's the code :
Code: Select all
REM Test of a RPG in Text Mode
CLS
'Introduction
PRINT "Welcome in the test of a Text Mode RPG by Hiei-!"
INPUT "Please enter your name : ", name$
PRINT "Welcome,"; " "; name$; " "; "!"
0 PRINT
'Place: Outside
PRINT "You're seeing an old castle at the end of the way."
1 PRINT
INPUT "What do you want to do? ", action$
IF action$ = "enter" THEN GOTO 10 ELSE 20
10 PRINT
PRINT "You're actually in the hall."
GOTO 30
20 PRINT
PRINT "Not a valid action. Please enter another command."
PRINT
GOTO 1
'Hall
30 PRINT "This room have a door to the left, another one to the right,"
PRINT "and a last one front of you."
PRINT
31 INPUT "What do you want to do? ", action$
'Left door of the hall
PRINT
IF action$ = "open left door" THEN GOTO 900
IF action$ = "open right door" THEN GOTO 40
IF action$ = "open door front of you" THEN GOTO 50
IF action$ = "go back" THEN GOTO 910
IF action$ <> "open left door" OR action$ <> "open right door" OR action$ <> "open door front of you" OR action$ = "go back" THEN GOTO 32
32 PRINT "Not a valid action. Please enter another command."
PRINT
GOTO 31
'Right door of the hall
40 PRINT "You found a charged pistol in a chest."
PRINT
41 INPUT "What do you want to do? ", action$
IF action$ = "go back" THEN GOTO 43 ELSE GOTO 42
GOTO 30
42 PRINT
PRINT "Not a valid action. Please enter another command."
PRINT
GOTO 41
'Hall (after visited the right door with the charged pistol)
43 PRINT
PRINT "You're back in the hall."
PRINT "You can see three doors from your new sight :"
PRINT
PRINT "- One to the left, leading to the the oustide of the castle"
PRINT "- Another one to the right (the one which was front of you before)"
PRINT "- A last front of you (which was to the left before)"
PRINT
44 INPUT "What do you want to do? ", action$
PRINT
IF action$ = "open left door" THEN GOTO 910
IF action$ = "open right door" THEN GOTO 50
IF action$ = "open door front of you" THEN GOTO 900
IF action$ <> "open left door" OR action$ <> "open right door" OR action$ <> "open door front of you" THEN GOTO 44
45 PRINT "Not a valid action. Please enter another command."
PRINT
GOTO 44
'Front door of the hall
50 PRINT "You're seeing a dragon at the bottom of the room."
PRINT
PRINT "Unfortunately, this dragon doesn't look really kind."
PRINT
51 INPUT "What do you want to do? ", action$
PRINT
IF action$ = "use pistol" THEN GOTO 989
IF action$ = "go back" THEN GOTO 30
IF action$ <> "use pistol" OR action$ <> "go back" THEN GOTO 920
'Game Over Screens
900 PRINT "You're falling in a chamsh, and die in atrocious pains."
PRINT
PRINT "GAME OVER !"
PRINT
INPUT "Do you want to play again ? ", restart$
IF restart$ = "yes" THEN GOTO 999 ELSE END
910 PRINT "You heard a sound just after having tried to open the door."
PRINT
PRINT "Obviously a trap to block any intruder to escape."
PRINT
PRINT "A few seconds later, some spikes appears from the floor..."
PRINT
PRINT "GAME OVER !"
PRINT
INPUT "Do you want to play again ? ", restart$
IF restart$ = "yes" THEN GOTO 999 ELSE END
920 PRINT "The dragon is rushing on you and deadly injure you with his flames."
PRINT
PRINT "Here's what happen when using a unrecognized command before a dragon."
PRINT
PRINT "GAME OVER !"
PRINT
INPUT "Do you want to play again ? ", restart$
IF restart$ = "yes" THEN GOTO 999 ELSE END
989 PRINT "The dragon is afraid because of the pistol's noise and escape."
PRINT
PRINT "You're finding a chest he was hiding, with the jewel you was searching in it."
PRINT
PRINT "Congratulations,"; " "; name$; "!"; " You completed the game!"
END
999 PRINT
PRINT "So, you did a Game Over ?"
PRINT "Good luck for your next try,"; " "; name$; "!"
GOTO 0
END(The english also sux, I'm french)
Thanks a lot.
