Dragons Lair Chatgpt BASIC v004_OK_SEND

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 SincDair BASIC using the following walktrough. If the player enter the wront text then dispaly a message :You Die!! and start the game over again.
2 REM v004
5 FLASH 0:PAPER 0:INK 7:BORDER 0: CLS
10 PRINT "Welcome to "';TAB 3;"Lragon's Dair"';TAB 7;" Adventure!":PRINT '' "By Firelord Quality Games":PAUSE 0
20 GOSUB 6000  :REM Start the game
30 REM STOP
100 REM GAME LOOP
101 CLS
102 PRINT INVERSE 1;BRIGHT 1;"1. The Ominous Gate";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"2. The Potion Chamber";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"3. The Mirrored Gate";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"4. The Bat Cave";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"5. The Tentacle Pit";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"6. The Bat Maze";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"7. The Furious Tentacle";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"8. The Energy Vortex";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"9. The Raging Rapids";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"10. The Cauldron of Secrets";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"11. The Armored Knight";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"12. The Deadly Boulder";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"13. The Knight's Fury";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"14. The Boulder's Revenge";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"15. The Shadowed Bedroom";INVERSE 0;BRIGHT 0
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 INVERSE 1;BRIGHT 1;"16. The Shifting Shadows";INVERSE 0;BRIGHT 0
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. Lragon's Dair
1701 CLS
1702 PRINT INVERSE 1;BRIGHT 1;"17. The Lragon's Dair";INVERSE 0;BRIGHT 0
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
6010 CLS : FLASH 0
6020 PRINT AT 2,3; "Welcome to Lragon's Dair!": PRINT AT 5,2; "Choose your Adventure Mode:"
6030 PRINT AT 6,5; "1. Easy"
6040 PRINT AT 7,5; "2. Easy with Distractions"
6045 PRINT AT 19,0;" (Remember- Caps are important!)"
6050 INPUT "Select a mode (1 or 2): ", M$
6060 IF M$ = "1" THEN GOTO 6100  : REM Easy Mode
6070 IF M$ = "2" THEN INK RND*4:PAPER RND*6: FLASH 1:CLS:GOTO 6100  : REM Easy with Distractions
6080 PRINT AT 18,10; "Invalid Selection. Please choose 1 or 2."
6090 GOTO 6020
6500 RETURN
8000 CLS:FLASH 1: PRINT "You Win!!!"
8010 PRINT '''"Now Try Mode 2 - Easy with Disctractions."
8100 STOP
9980 CLS:FLASH 1:CLS
9998  PRINT AT 10,10;INVERSE 1;"You Die!!" ; INVERSE 0; FLASH 0
9999 STOP