CSSCGC Dragons Lair BASIC v003

1 REM I'll send you a detailed walkthrough for the **Amiga version of Dragon's Lair**. I want to make an text adventure in Sinclair BASIC using the following walktrough. If the player enter the wront text then dispaly a messae :You Die!!" and start the game over again.
2 REM
5 FLASh 0: CLS
10 PRINT "Welcome to Dragon's"'" Lair Adventure!":PAUSE 0
20 GOSUB 6000  :REM Start the game
30 REM STOP
100 REM GAME LOOP
101 CLS
102 PRINT "1. Gate"
103 PRINT "You begin at the castle gate,   facing a large, ominous door. "'"A guard approaches."
104 PRINT "Enter your move:"
105 PRINT "Move Left OR Right?"
106 INPUT A$
107 IF A$<>"Right" THEN GOTO 9980
108 PRINT "Move Up OR Down?"
109 INPUT A$
110 IF A$<>"Up" THEN GOTO 9980
111 GOTO 200
200 REM DRINK ME STAGE
201 CLS
202 PRINT "2. Drink Me"
203 PRINT "Inside, a strange potion awaits on a table. A shadow looms, threatening you."
204 PRINT "Enter your move:"
205 PRINT "Move Up OR Down?"
206 INPUT A$
207 IF A$<>"Down" THEN GOTO 9980
208 PRINT "Jump OR Duck?"
209 INPUT A$
210 IF A$<>"Jump" THEN GOTO 9980
211 GOTO 300
300 REM GATE (REVERSED)
301 CLS
302 PRINT "3. Gate (Reversed)"
303 PRINT "You return to the gate, but this time it's a mirrored version."
304 PRINT "Enter your move:"
305 PRINT "Move Left OR Right?"
306 INPUT A$
307 IF A$<>"Left" THEN GOTO 9980
308 PRINT "Move Up OR Down?"
309 INPUT A$
310 IF A$<>"Up" THEN GOTO 9980
311 GOTO 400
400 REM BATS STAGE
401 CLS
402 PRINT "4. Bats"
403 PRINT "The next area is dark and filled with fluttering bats."
404 PRINT "Enter your move:"
405 PRINT "Move Left OR Right?"
406 INPUT A$
407 IF A$<>"Right" THEN GOTO 9980
408 PRINT "Jump OR Duck?"
409 INPUT A$
410 IF A$<>"Jump" THEN GOTO 9980
411 GOTO 500
500 REM TENTACLE STAGE
501 CLS
502 PRINT "5. Tentacle"
503 PRINT "You find yourself in a room with a large, menacing tentacle."
504 PRINT "Enter your move:"
505 PRINT "Move Up OR Down?"
506 INPUT A$
507 IF A$<>"Up" THEN GOTO 9980
508 PRINT "Move Left OR Right?"
509 INPUT A$
510 IF A$<>"Right" THEN GOTO 9980
511 GOTO 600
600 REM BATS (REVERSED)
601 CLS
602 PRINT "6. Bats (Reversed)"
603 PRINT "Back in the bat-filled area, but the arrangement has changed."
604 PRINT "Enter your move:"
605 PRINT "Move Left OR Right?"
606 INPUT A$
607 IF A$<>"Left" THEN GOTO 9980
608 PRINT "Jump OR Duck?"
609 INPUT A$
610 IF A$<>"Jump" THEN GOTO 9980
611 GOTO 700
700 REM TENTACLE (REVERSED)
701 CLS
702 PRINT "7. Tentacle (Reversed)"
703 PRINT "The tentacle returns, but its movements are now different."
704 PRINT "Enter your move:"
705 PRINT "Move Left OR Right?"
706 INPUT A$
707 IF A$<>"Right" THEN GOTO 9980
708 PRINT "Move Up OR Down?"
709 INPUT A$
710 IF A$<>"Up" THEN GOTO 9980
711 GOTO 800
800 REM WHIRL STAGE
801 CLS
802 PRINT "8. Whirl"
803 PRINT "You encounter a swirling vortex, pulling you towards its center."
804 PRINT "Enter your move:"
805 PRINT "Move Up OR Down?"
806 INPUT A$
807 IF A$<>"Down" THEN GOTO 9980
808 PRINT "Jump OR Duck?"
809 INPUT A$
810 IF A$<>"Jump" THEN GOTO 9980
811 GOTO 900
900 REM RAPIDS STAGE
901 CLS
902 PRINT "9. Rapids"
903 PRINT "A rushing river blocks your path, with logs floating downstream."
904 PRINT "Enter your move:"
905 PRINT "Move Left OR Right?"
906 INPUT A$
907 IF A$<>"Right" THEN GOTO 9980
908 PRINT "Move Up OR Down?"
909 INPUT A$
910 IF A$<>"Up" THEN GOTO 9980
911 GOTO 1000
1000 REM CAULDRON STAGE
1001 CLS
1002 PRINT "10. Cauldron"
1003 PRINT "A bubbling cauldron filled with a mysterious potion sits in the center."
1004 PRINT "Enter your move:"
1005 PRINT "Move Left OR Right?"
1006 INPUT A$
1007 IF A$<>"Left" THEN GOTO 9980
1008 PRINT "Jump OR Duck?"
1009 INPUT A$
1010 IF A$<>"Jump" THEN GOTO 9980
1011 GOTO 1100
1100 REM KNIGHT STAGE
1101 CLS
1102 PRINT "11. Knight"
1103 PRINT "A knight stands ready for battle, challenging you to a duel."
1104 PRINT "Enter your move:"
1105 PRINT "Move Left OR Right?"
1106 INPUT A$
1107 IF A$<>"Right" THEN GOTO 9980
1108 PRINT "Move Up OR Down?"
1109 INPUT A$
1110 IF A$<>"Up" THEN GOTO 9980
1111 GOTO 1200
1200 REM BOULDER STAGE
1201 CLS
1202 PRINT "12. Boulder"
1203 PRINT "A massive boulder rolls down towards you, threatening to crush you."
1204 PRINT "Enter your move:"
1205 PRINT "Move Up OR Down?"
1206 INPUT A$
1207 IF A$<>"Down" THEN GOTO 9980
1208 PRINT "Jump OR Duck?"
1209 INPUT A$
1210 IF A$<>"Jump" THEN GOTO 9980
1211 GOTO 1300
1300 REM KNIGHT (REVERSED)
1301 CLS
1302 PRINT "13. Knight (Reversed)"
1303 PRINT "You face the knight again, but the dynamics of the fight are altered."
1304 PRINT "Enter your move:"
1305 PRINT "Move Left OR Right?"
1306 INPUT A$
1307 IF A$<>"Left" THEN GOTO 9980
1308 PRINT "Move Up OR Down?"
1309 INPUT A$
1310 IF A$<>"Up" THEN GOTO 9980
1311 GOTO 1400
1400 REM BOULDER (REVERSED)
1401 CLS
1402 PRINT "14. Boulder (Reversed)"
1403 PRINT "The boulder returns, but you must navigate through different obstacles."
1404 PRINT "Enter your move:"
1405 PRINT "Move Left OR Right?"
1406 INPUT A$
1407 IF A$<>"Right" THEN GOTO 9980
1408 PRINT "Jump OR Duck?"
1409 INPUT A$
1410 IF A$<>"Jump" THEN GOTO 9980
1411 GOTO 1500
1500 REM 15.BEDROOM STAGE
1501 CLS
1502 PRINT "15. Bedroom"
1503 PRINT "You enter a dark bedroom,"
1504 PRINT "Enter your move:"
1505 PRINT "Move Up OR Down?"
1506 INPUT A$
1507 IF A$<>"Up" THEN GOTO 9980
1508 PRINT "Move Left OR Right?"
1509 INPUT A$
1510 IF A$<>"Right" THEN GOTO 9980
1511 GOTO 1600
1600 REM 16.Bedroom (Reversed Version of 15)
1601 CLS
1602 PRINT "16. Bedroom Reversed"
1603 PRINT "You enter a dark bedroom,"
1604 PRINT "Enter your move:"
1605 PRINT "Move Left OR Right?"
1606 INPUT A$
1607 IF A$<>"Right" THEN GOTO 9980
1608 PRINT "Jump OR Duck?"
1609 INPUT A$
1610 IF A$<>"Jump" THEN GOTO 9980
1611 GOTO 1700
1700 REM  17. Dragon's Lair
1701 CLS
1702 PRINT "17. Dragon's Lair"
1703 PRINT "You enter a dark bedroom,"
1704 PRINT "Enter your move:"
1705 PRINT "Move Left OR Right?"
1706 INPUT A$
1707 IF A$<>"Left" THEN GOTO 9980
1708 PRINT "Move Up OR Down?"
1709 INPUT A$
1710 IF A$<>"Up" THEN GOTO 9980
1711 PRINT "Move Left OR Right?"
1712 INPUT A$
1713 IF A$<>"Right" THEN GOTO 9980
1714 PRINT "Jump OR Duck?"
1715 INPUT A$
1716 IF A$<>"Jump" THEN GOTO 9980
1717 GOTO 8000
6000 REM init intro
6500 RETURN
8000 CLS:FLASH 1: PRINT "You Win!!!"
8100 STOP
9980 CLS:FLASH 1:CLS
9998  PRINT AT 10,10;INVERSE 1;"You Die!!" ; INVERSE 0; FLASH 0
9999 STOP