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)"� -=* ������ *=-"