Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav » warlock
warlock
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav |
Filename: | warlock |
Read OK: | ✔ |
File size: | 0F65 bytes |
Load address: | 1001 |
Exec address: | 0000 |
File contents
10 COLOR4,7,3:COLOR0,2,5:S=100:SP=8+INT(RND(1)*4):TR=0 20 PRINTCHR$(14)"<clr><cursor down> -=* ○♠🭻🭼🭽🭸╯ *=-" 30 PRINT:PRINT" 🭵OU'VE BEEN TRANSPORTED TO SOMEWHERE" 40 PRINT" WITHIN THE ○ARLOCK'S CAVES." 50 PRINT:PRINT" 🭼IVE AS LONG AS POSSIBLE GAINING" 60 PRINT" TREASURE AND KILLING MONSTERS." 70 PRINT:PRINT:PRINT:PRINT" 🭾LEASE PRESS ANY KEY TO START." 80 GETA$:IFA$=""THEN80 90 PRINT"<clr>" 100 S=S-INT(RND(1)*5)+1:IFS<1THEN760 110 PRINT:PRINT" 🭰REASURE :"TR:PRINT" ♥PELLS :"SP:PRINT" ♥TRENGTH :"S 120 PRINT" ♥CORE :"TR*10+S:POKE198,0 130 M=INT(RND(1)*13)+1 140 T=INT(RND(1)*20)+1 150 CO=INT(RND(1)*7)+1 160 HA=INT(RND(1)*6)+1 170 PRINT:PRINT" 1)LEFT,2)RIGHT OR 3)FORWARDS?" 180 GETA$:IFA$=""ORA$<>"1"ANDA$<>"2"ANDA$<>"3"THEN180 190 PRINT"<clr>" 200 IFRND(1)<.15THENGOTO160 210 ONHAGOTO220,340,460,460,1010,1370 220 PRINT" 🭵OU CAN SEE A FLIGHT OF STAIRS GOING" 230 Z=INT(RND(1)*2)+1 240 IFZ=1THENPRINT" UPWARDS INTO THE GLOOM." 250 IFZ=2THENPRINT" DOWN INTO BLACKNESS." 260 PRINT:PRINT" 🭷O YOU WISH TO USE THEM?":PRINT" 1-YES 2-NO" 270 GETA$:IFA$=""ORA$<>"1"ANDA$<>"2"THEN270 280 IFA$="2"ORRND(1)<.8THEN100 290 PRINT:PRINT" **WHOOPS**" 300 FORI=1TO1000:NEXT 310 PRINT:PRINT" 🭵OU FELL DOWN THE STAIRS!" 320 PRINT:PRINT" 5 STRENGTH POINTS TAKEN AWAY." 330 S=S-5:GOTO100 340 PRINT" 🭵OU CAN SEE A DOOR." 350 PRINT" 🭷O YOU WANT TO OPEN IT (1-YES 2-NO)?" 360 GETA$:IFA$=""ORA$<>"1"ANDA$<>"2"THEN360 370 IFA$="2"THEN100 380 PRINT:PRINT" 🭰HE DOOR OPENS"; 390 D=INT(RND(1)*2)+1 400 IFD=1THENPRINT" SILENTLY." 410 IFD=2THENPRINT" WITH A LOUD CREAKING." 420 FORI=1TO500:NEXT 430 IFRND(1)<.7THEN450 440 GOTO100 450 PRINT" 🭲EHIND THE DOOR-" 460 PRINT" 🭵OU CAN SEE A"; 470 E=INT(RND(1)*3)+1 480 IFE=1THENPRINT"N ANGRY" 490 IFE=2THENPRINT" FRIENDLY" 500 IFE=3THENPRINT" DUMB" 510 PRINT" LOOKING "; 520 ONCOGOSUB1300,1310,1320,1330,1340,1350,1360,1370 530 ONMGOSUB1160,1170,1180,1190,1200,1210,1220,1230,1240,1250,1260,1270,1280,1290 540 MH=INT(RND(1)*2)+1 550 IFMH=1THENPRINT:PRINT" 🭴E ADVANCES!" 560 IFMH=2THENPRINT:PRINT" 🭴E STOPS!" 570 PRINT:PRINT" 1)ATTACK,2)RETREAT OR 3)USE A SPELL" 580 GETA$:IFA$<>"1"ANDA$<>"2"ANDA$<>"3"THEN580 590 IFA$<>"2"THEN640 600 PRINT:PRINT" 🭸🭴╮🭸╯🭶╱!!" 610 FORI=1TO800:NEXT 620 IFRND(1)<.8THEN100 630 PRINT:PRINT:PRINT" 🭴E DOESN'T LET YOU ANYHOW!":GOTO570 640 IFA$="1"THEN730 650 IFSP=0THENPRINT" 🭵OU HAVE NONE.":GOTO570 660 IFRND(1)<.35THEN700 670 PRINT: PRINT"<clr> 🭰HE SPELL WORKED.":PRINT 680 SP=SP-1:IFSP<5THENPRINT" 🭲UT YOU'RE SHORT ON THEM NOW." 690 GOTO910 700 PRINT:PRINT"<clr> 🭰HE SPELL DIDN'T WORK." 710 PRINT" ╮T JUST MADE HIM ANGRY." 720 GOTO570 730 IFRND(1)<.31ANDINT(RND(1)*10)*10<SORRND(1)<.28THEN900 740 IFRND(1)<.8THEN790 750 PRINT"<clr>" 760 PRINT:PRINT" 🭵OU'RE 🭷🭶♠🭷!!" 770 PRINT:PRINT" ♥🭸🭽🭻🭶 :"TR*10+S 780 END 790 PRINT: PRINT"<clr> 🭵OU'VE BEEN WOUNDED AND YOUR STRENGTH":PRINT" HAS BEEN HALVED." 800 S=INT(S/2) 810 IFINT(RND(1))<.4ORSS<>0THEN100 820 IFRND(1)<.4THEN870 830 MT=INT(TR/INT(RND(1)*7)):PRINT" ALSO THE MONSTER STOLE"MT"COINS FROM" 840 PRINT" YOUR PURSE..." 850 TR=TR-MT 860 TR=0:GOTO100 870 PRINT" 🭽H NO! 🭰HE MONSTER STOLE ALL YOUR" 880 PRINT" COINAGE. 🭲AD LUCK." 890 TR=0:GOTO100 900 PRINT"<clr>" 910 PRINT" ○ELL DONE!!" 920 PRINT:PRINT" 🭵OU KILLED HIM,"; 930 PRINT" AND HIS"; 940 TT=INT(RND(1)*2)+1 950 PRINTT"COINS OF" 960 IFTT=1THENPRINT" SILVER"; 970 IFTT=2THENPRINT" GOLD"; 980 PRINT" ARE NOW YOURS." 990 TR=TR+T 1000 GOTO100 1010 IFRND(1)<.3THEN100 1020 PRINT" **WHOOPS**" 1030 FORI=1TO1000:NEXT 1040 PRINT:PRINT" 🭵OU FELL DOWN A PIT!" 1050 PRINT" ♠T THE BOTTOM"; 1060 HN=INT(RND(1)*4) 1070 ONHNGOTO1080,1090,1110,1130,1130 1080 GOTO460 1090 PRINT" IS NOTHING." 1100 GOTO100 1110 PRINT" IS A POOL OF ACID!!" 1120 GOTO760 1130 SS=INT(RND(1)*10)+1 1140 PRINT"ARE"SS"METAL SPIKES!!" 1150 GOTO790 1160 PRINT"DEMOGORGON!":RETURN 1170 PRINT"HYDRA!":RETURN 1180 PRINT"SERPENT!":RETURN 1190 PRINT"GIANT!":RETURN 1200 PRINT"DRAGON!":RETURN 1210 PRINT"JUBILEX!":RETURN 1220 PRINT"ZOMBIE!":RETURN 1230 PRINT"WRAITH!":RETURN 1240 PRINT"MINOTAUR!":RETURN 1250 PRINT"DEVIL!":RETURN 1260 PRINT"WEREWOLF!":RETURN 1270 PRINT"ORC!":RETURN 1280 PRINT"WARLOCK!":RETURN 1290 PRINT"<white>WHITE ";:RETURN 1300 PRINT"<red>BLACK <reverse on>";:RETURN 1310 PRINT"COLOURLESS ";:RETURN 1320 PRINT"<red>RED <reverse on>";:RETURN 1330 PRINT"<yellow>YELLOW <reverse on>";:RETURN 1340 PRINT"<green>GREEN<reverse on> ";:RETURN 1350 PRINT"<purple>PURPLE <reverse on>";:RETURN 1360 PRINT"<blue>BLUE <reverse on>";:RETURN 1370 PRINT" 🭵OU CAN SEE A"; 1380 Z=INT(RND(1)*2+1) 1390 IFZ=1THENPRINT" WOODEN"; 1400 IFZ=2THENPRINT"N IRON"; 1410 PRINT" CHEST." 1420 PRINT" 🭷O YOU WANT TO OPEN IT. (1-YES 2-NO)" 1430 GETA$:IFA$=""ORA$<>"1"ANDA$<>"2"THEN1430 1440 IFA$="2"THEN100 1450 Z=INT(RND(1)*10+1) 1460 IFZ=1THENPRINT" 🭽H DEAR! ╮T WAS BOOBY TRAPPED!":PRINT" 🭵OU CHOKE ON POISON GAS.":S=S-10 1470 IFZ<3THEN100 1480 IFZ<8THENPRINT" ╮T WAS EMPTY.":GOTO100 1490 PRINT" ♠H HA! ╮NSIDE IS A MAGIC POTION WHICH" 1500 PRINT" YOU QUAFF GREEDILY." 1510 Z=INT(RND(1)*20+16) 1520 PRINT:PRINT" 🭵OU RECOVER"Z"STRENGTH POINTS!!":S=S+Z:GOTO100
- �4,7,3:�0,2,5:S�100:SP�8��(�(1)�4):TR�0 T ��(14)"� -=* ������ *=-"