Dragons Lair Chatgpt BASIC v001

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.

Here's the complete game in Sinclair BASIC, ensuring that the player must input each move correctly to proceed. If they enter the wrong move at any point, they'll see "You Die!!" and the game will restart:

10 PRINT "Welcome to Dragon's Lair Adventure!"
20 GOSUB 1000  ' Start the game
30 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 moves one at a time:"
105 PRINT "Move 1: Right"
106 INPUT A$
107 IF A$<>"Right" THEN GOTO 9980
108 PRINT "Move 2: Up"
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 moves one at a time:"
205 PRINT "Move 1: Down"
206 INPUT A$
207 IF A$<>"Down" THEN GOTO 9980
208 PRINT "Move 2: Jump"
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 moves one at a time:"
305 PRINT "Move 1: Left"
306 INPUT A$
307 IF A$<>"Left" THEN GOTO 9980
308 PRINT "Move 2: Up"
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 moves one at a time:"
405 PRINT "Move 1: Right"
406 INPUT A$
407 IF A$<>"Right" THEN GOTO 9980
408 PRINT "Move 2: Jump"
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 moves one at a time:"
505 PRINT "Move 1: Up"
506 INPUT A$
507 IF A$<>"Up" THEN GOTO 9980
508 PRINT "Move 2: 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 moves one at a time:"
605 PRINT "Move 1: Left"
606 INPUT A$
607 IF A$<>"Left" THEN GOTO 9980
608 PRINT "Move 2: Jump"
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 moves one at a time:"
705 PRINT "Move 1: Right"
706 INPUT A$
707 IF A$<>"Right" THEN GOTO 9980
708 PRINT "Move 2: Up"
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 moves one at a time:"
805 PRINT "Move 1: Down"
806 INPUT A$
807 IF A$<>"Down" THEN GOTO 9980
808 PRINT "Move 2: Jump"
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 moves one at a time:"
905 PRINT "Move 1: Right"
906 INPUT A$
907 IF A$<>"Right" THEN GOTO 9980
908 PRINT "Move 2: Up"
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 moves one at a time:"
1005 PRINT "Move 1: Left"
1006 INPUT A$
1007 IF A$<>"Left" THEN GOTO 9980
1008 PRINT "Move 2: Jump"
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 moves one at a time:"
1105 PRINT "Move 1: Right"
1106 INPUT A$
1107 IF A$<>"Right" THEN GOTO 9980
1108 PRINT "Move 2: Up"
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 moves one at a time:"
1205 PRINT "Move 1: Down"
1206 INPUT A$
1207 IF A$<>"Down" THEN GOTO 9980
1208 PRINT "Move 2: Jump"
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 moves one at a time:"
1305 PRINT "Move 1: Left"
1306 INPUT A$
1307 IF A$<>"Left" THEN GOTO 9980
1308 PRINT "Move 2: Up"
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 moves one at a time:"
1405 PRINT "Move 1: Right"
1406 INPUT A$
1407 IF A$<>"Right" THEN GOTO 9980
1408 PRINT "Move 2: Jump"
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 moves one at a time:"
1505 PRINT "Move 1: "
1506 INPUT A$
1507 IF A$<>"Up" THEN GOTO 9980
1508 PRINT "Move 2: "
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 moves one at a time:"
1605 PRINT "Move 1: "
1606 INPUT A$
1607 IF A$<>"Right" THEN GOTO 9980
1608 PRINT "Move 2: "
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 moves one at a time:"
1705 PRINT "Move 1: "
1706 INPUT A$
1707 IF A$<>"Left" THEN GOTO 9980
1705 PRINT "Move 2: "
1706 INPUT A$
1707 IF A$<>"Up" THEN GOTO 9980
1705 PRINT "Move 3: "
1706 INPUT A$
1707 IF A$<>"Right" THEN GOTO 9980
1708 PRINT "Move 4: "
1709 INPUT A$
1710 IF A$<>"Jump" THEN GOTO 9980
1711 GOTO 8000



8000 PRINT "You Win!!!"
8100 STOP

9998 PRINT "You Die!!"
9999 GOTO 1000