Adventure 2 Phoenix Tower

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

Gallery

Adventure 2 Phoenix Tower

Source Code

   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670

People

No people associated with this content.

Scroll to Top