Listing of file='SORCER.BAS;01' on disk='vmedia/ncc_4-sector.ccvf'
5 PLOT 12,14 10 PRINT TAB( 20)"SWORDS AND SORCERY" 15 GOSUB 8600:REM INSTRUCTIONS 20 GOSUB 5000 25 GOSUB 8500 26 PLOT 14 27 PRINT "GOOD LUCK. YOU'NEED IT!" 28 GOSUB 8500 30 IF RND (1)> .7THEN 200 40 PRINT "A DRYAD WISHES TO GUIDE YOU." 50 PRINT "WILL YOU LET HER?" 60 GOSUB 3000 70 ON IGOTO 120,80 80 F1= 0 90 IF RND (1)> .2THEN GOSUB 3100 100 GOTO 200 120 F1= 1 200 W1= F1 210 PRINT "THERE ARE THREE PATHS INTO THE FOREST. ONE IS CORRECT" 215 GOSUB 8500 220 C1= INT (3* RND (1)+ .9999) 222 Y1= INT (3* RND (1)+ .9999) 225 IF RND (1)> .4THEN Y1= C1 230 PRINT "DO YOU WISH TO CONSULT AN ORACLE?" 240 GOSUB 3000 250 ON IGOTO 260,400 260 PRINT "HOW MANY VIRGIN MAIDENS SHOULD BE SACRIFICED?" 280 INPUT V1 283 GOSUB 8500 285 V1= INT (V1) 290 IF V1> 2* RND (1)THEN 320 295 PRINT "THE ORACLE IS OFFENDED" 300 C2= C2- 1 320 IF V1* F1< 10* RND (1)THEN 350 330 GOSUB 3100 350 IF C2< 0THEN 388 360 IF RND (1)< .4- (V1/ 10)THEN 388 370 PRINT "THE ORACLE SAYS PATH ";Y1 380 P1= 1 381 GOTO 400 388 PRINT "THE SIGNS ARE UNCLEAR" 400 PRINT "CHOOSE PATH 1,2,OR 3" 410 INPUT X1 412 GOSUB 8500 415 X1= INT (X1) 420 IF X1> 3THEN 400 426 L1= INT (100* (RND (1)+ 1)) 427 IF X1= C1THEN 444 430 IF X1< 1THEN 400 431 C2= C2- 2:L1= L1+ 50 444 T1= 0 450 C2= C2* .5* RND (1)+ F1+ P1+ .2* V1* SGN (5.1- V1) 490 C3= 0 520 PRINT "YOU HAVE COME TO A FORK IN THE PATH" 525 C1= INT (2* RND (1)+ .9999) 530 Z1= W1- F1:S1= 8- Z1- G1/ (1+ Z1) 535 IF S1< 4THEN S1= 4 540 IF 3.5* RND (1)> C2THEN L1= L1+ 1 545 L2= 7+ INT (20* RND (1)) 550 L0= L2 560 IF F1= 0THEN 660 570 PRINT "DO YOU WANT TO ASK THE NYMPH WHICH ONE?" 580 GOSUB 3000 585 GOSUB 8500 590 ON IGOTO 600,660 600 IF RND (1)> .5+ C2/ 50THEN 650 610 PRINT "SHE SAYS "C1 620 GOTO 740 650 PRINT "SHE DOESN'T KNOW" 655 GOTO 740 660 PRINT "WILL YOU CAST LOTS TO DECIDE?" 670 GOSUB 3000 672 GOSUB 8500 674 ON IGOTO 680,740 680 PRINT "THE LOT SAYS" 685 IF RND (1)> .5+ C2/ 10THEN 700 690 X1= C1 695 GOTO 730 700 IF C1= 2THEN X1= 1 710 IF C1= 1THEN X1= 2 730 PRINT X1 740 PRINT "DO YOU CHOSE 1 OR 2" 750 INPUT X1 752 GOSUB 8500 755 X1= INT (X1+ .0001) 760 IF X1> 2THEN 740 770 IF X1< 1THEN 740 780 D0= 0 790 IF X1< > C1THEN 820 800 C2= C2+ RND (1)* SGN (.5- RND (1)) 810 C3= 0 815 GOTO 840 820 C2= C2- .2:C3= - 1 840 IF T1= 0THEN 890 890 L2= L2- S1:I2= I2+ 1 900 IF E1< > 0THEN GOTO 940 910 IF RND (1)> .15+ .2* F1THEN GOTO 940 920 PRINT "YOU FIND AN ENCHANTED SWORD" 925 C2= C2+ .2:E1= 1 930 GOSUB 8500 940 IF RND (1)- .5* (F1+ C3)< .95THEN 960 950 PRINT "SNAKE!!!" 953 GOSUB 8500 955 GOSUB 3490 960 T1= T1+ 1 970 IF RND (1)> .8+ (C2+ C3)/ 30THEN GOSUB 4500 1200 IF RND (1)> .95THEN GOSUB 7000 1300 IF RND (1)< .03THEN GOSUB 6100 1310 P3= 0 1350 IF RND (1)> .99+ (C2- I2/ 10)/ 100THEN GOSUB 6300 1445 IF W1= 0THEN 1460 1450 IF RND (1)> .95+ (C2+ C3)/ 50THEN GOSUB 5100 1460 IF RND (1)< .95THEN 1500 1470 PRINT "GOLD! HOW MANY SACKS WILL YOU TAKE" 1480 INPUT X1 1485 GOSUB 8500 1490 G1= G1+ INT (X1) 1500 IF T1> 10- 2* F1THEN GOSUB 3500 1510 IF RND (1)> .05THEN GOTO 1540 1520 PRINT "YOU MEET AN ESCAPED SLAVE GIRL" 1525 GOSUB 8500 1530 W1= W1+ 1 1540 IF L2> 0THEN 840 1550 L1= L1- L0* .85 1560 IF L1< 20THEN GOSUB 4000 1570 IF C3< > - 1THEN 520 1580 IF RND (1)< .9THEN 520 1590 IF RND (1)> .5THEN GOSUB 6100 1595 PRINT "DEAD END" 1598 GOSUB 8500 1600 L2= L2+ L0:L1= L1+ L0 1610 C3= 0 1700 GOTO 840 2980 GOTO 840 2990 END 3000 INPUT "TYPE (YES OR NO)";A$ 3010 IF NOT (A$= "Y")THEN 3020 3015 I= 1:GOTO 3050 3020 IF NOT (A$= "YES")THEN 3030 3025 I= 1:GOTO 3050 3030 IF NOT (A$= "NO")THEN 3040 3035 I= 2:GOTO 3050 3040 IF NOT (A$= "N")THEN 3000 3045 I= 2:GOTO 3050 3050 RETURN 3100 PRINT "THE NYMPH IS VERY OFFENDED" 3105 PRINT "SHE CURSES YOU AND GOES" 3110 F1= 0 3112 W1= 0:C2= C2- 1 3120 RETURN 3490 PRINT "YOU ARE HURT" 3500 PRINT "YOU MUST REST" 3502 PRINT "YOU'VE GONE ";I2* S1;"KM." 3505 GOSUB 8500 3510 T1= 0 3515 GOSUB 5000 3520 D3= D3+ 1+ W1- F1 3530 IF D3< 4- W1+ F1THEN 3700 3540 IF D4< > 0THEN GOTO 3650 3550 PRINT "YOU ARE OUT OF FOOD" 3555 GOSUB 8500 3560 D4= 1:C2= C2- RND (1) 3570 GOTO 3700 3650 F5= F5+ 1 3660 C2= C2- RND (1)+ .2* F1 3700 IF RND (1)> 1- (I2+ F8)/ 100THEN 3715 3702 PRINT "TIME TO MOVE ON." 3703 GOSUB 8500 3705 IF F5< 7THEN RETURN 3710 PRINT "YOU STARVE TO DEATH":GOSUB 5000 3713 GOTO 2990 3715 PRINT "YOU ARE CAPTURED BY GOBLINS" 3720 GOSUB 8500 3723 IF E1< > 1THEN 3800 3725 PRINT "THEY WANT YOUR SWORD. WILL YOU TRADE IT FOR FREEDOM?" 3735 GOSUB 3000 3740 ON IGOTO 3750,3800 3750 PRINT "AGREED":E1= - .8 3752 IF P3= 1THEN PRINT "THEY THROW YOU BACK INTO THE PIT" 3755 GOTO 3705 3800 D9= INT (3* RND (1)+ .9999) 3805 IF G1< D9THEN 3850 3810 PRINT "THE GOBLIN LORD FREES YOU FOR";D9;" BAGS OF GOLD" 3830 G1= G1- D9:GOTO 3752 3850 IF W1> 0GOTO 3880 3860 PRINT "YOU ARE ENSLAVED":GOSUB 5000 3870 GOTO 2990 3880 PRINT "YOU ARE SOLD TO THE SATYRS" 3890 GOSUB 5130 3895 GOTO 3752 4000 IF R1< > 0THEN 4200 4020 PRINT "YOU ARE AT THE ENTRANCE TO THE DUNGEON, THERE IS A GUARD" 4025 GOSUB 7990 4110 R1= 1:W1= W1+ 1 4120 PRINT "YOU HAVE RELEASED THE PRINCESS" 4130 GOSUB 8500 4140 GOSUB 3500 4200 IL1> 0THEN RETURN 4205 IF R1< > 1THEN 4270 4207 PRINT "YOU MADE IT!!!! YOU ARE A HERO":GOSUB 8500 4215 IF G1< 2THEN 4240 4220 PRINT "YOU MARRY THE PRINCESS":GOSUB 5000 4230 GOTO 2990 4240 PRINT "TOO BAD YOU ARE TOO POOR TO MARRY THE PRINCESS" 4247 PRINT "YOU LIVE THE REST OF YOUR LIFE IN QUIET POVERTY" 4255 GOSUB 5000 4265 GOTO 2990 4270 IF R1< > - 2GOTO 4305 4280 PRINT "YOU LET THE PRINCESS BE TAKEN ALIVE BY SATYRS" 4290 PRINT "YOU ARE JUSTIFIABLY TORTURED TO DEATH":GOSUB 5000 4300 GOTO 4247 4305 PRINT "YOU HAVE FAILED" 4310 GOTO 4247 4500 PRINT "TROLL!!!" 4510 PRINT "WILL YOU FIGHT?" 4520 GOSUB 3000 4530 ON IGOTO 4560,4540 4540 GOSUB 4700 4550 RETURN 4560 IF E1= 0THEN 4580 4570 IF RND (1)> .2THEN 4580 4574 PRINT "THE TROLL RUNS":GOSUB 8500 4576 RETURN 4580 IF RND (1)+ .3* E1> .5THEN 4610 4585 IF RND (1)> .3THEN 4590 4586 GOSUB 3490 4587 RETURN 4590 PRINT "YOU ARE KILLED":GOSUB 5000 4600 GOTO 2990 4610 PRINT "THE TROLL IS DEAD" 4615 GOSUB 8500 4620 IF RND (1)+ .05* E1< .4THEN GOSUB 3490 4630 RETURN 4700 PRINT "RUN!!" 4710 L1= L1+ 4* S1* (RND (- .7)) 4720 T1= T1+ 1 4725 IF RND (1)> .7THEN GOSUB 6100 4730 RETURN 5000 FOR I1= 1TO 300:X1= RND (1) 5003 NEXT I1 5004 RETURN 5100 PRINT "OH NO! SATYRS." 5105 IF E1< > 1THEN 5130 5110 IF RND (1)< .5THEN 5130 5120 PRINT "THEY RUN FROM YOUR SWORD" 5123 GOSUB 8500 5125 RETURN 5130 PRINT "THEY WILL GO IF YOU FIGHT THEIR CHAMPION! WILL YOU?" 5140 GOSUB 3000 5145 ON IGOTO 5160,5200 5160 GOSUB 8500 5163 GOSUB 7990 5165 IF RND (1)< .2THEN 5200 5170 RETURN 5200 PRINT "THE SATRS WANT THE FEMALES" 5205 W1= 0:F1= 0:IF R1= 1THEN R1= - 2 5210 PRINT "WILL YOU ALLOW THIS?" 5220 GOSUB 3000 5230 ON IGOTO 5260,5240 5240 PRINT "THEY KILL YOU AND TAKE THE WOMEN!" 5250 GOTO 2990 5260 PRINT "THE WOMEN ARE TAKEN" 5270 IF RND (1)< 0.3THEN 5310 5280 PRINT "THEY CURSE YOU" 5290 C2= - 5 5310 IF RND (1)> .3THEN RETURN 5320 PRINT "THE SATYRS KILL YOU ANYWAY" 5340 GOTO 2990 6100 PRINT "YOU HAVE FALLEN INTO A PIT" 6105 P3= 1 6110 GOSUB 8500 6115 IF RND (1)> .5THEN GOSUB 3490 6120 PRINT "YOU MUST ESCAPE. WILL YOU TRY TO CLIMB OUT (1), OR" 6130 PRINT "YELL FOR HELP (2) " 6150 INPUT X1:X1= INT (X1) 6152 IF X1< 1THEN 6120 6153 IF X1> 2THEN 6120 6154 P7= 0 6155 ON X1GOTO 6160,6200 6160 IF RND (1)< .5- P7/ 10THEN 6180 6162 PRINT "YOU FALL WHILE TRYING TO CLIMB" 6164 GOSUB 8500 6165 IF RND (1)< .2THEN GOSUB 3490 6167 P7= P7+ 1:IF P7< 5THEN 6160 6170 PRINT "TOO DEEP. YELL FOR HELP." 6172 GOTO 6200 6180 PRINT "YOU'RE OUT!":RETURN 6200 FOR I= 1TO 8:N= N+ 2:PRINT TAB( N)"HELP!!":NEXT I 6203 GOSUB 5000:GOSUB 8500 6204 IF RND (1)< .3THEN 6200 6205 PRINT "A ROPE HAS BEEN LOWERED." 6207 P3= 0 6210 Y1= INT (3* RND (1)+ .9999) 6215 ON Y1GOTO 6220,6225,6230 6220 GOSUB 4500:RETURN 6225 GOSUB 3715:RETURN 6230 PRINT "YOU HAVE BEEN RESCUED BY A WOMAN" 6231 W1= W1+ 1 6232 RETURN 6300 PRINT "IT'S THE NECROMANCER...." 6303 GOSUB 5000:GOSUB 8500 6305 IF RND (1)> .6THEN 6392 6310 IF F1< > 1THEN 6326 6320 PRINT "NYMPH GOES MAD." 6325 W1= W1- 1:F1= 0 6326 IF E1= 1GOTO 6375 6330 IF W1= 0THEN 6350 6335 W1= 1 6340 PRINT "THE WOMEN ARE SENT TO HIS UNDEAD AS PLAYTHINGS" 6350 PRINT "YOU ARE TRANSFORMED INTO A GULDED WATER BUFFALO" 6352 PRINT TAB( 12)"AND DRIVEN INTO A PIT." 6355 GOSUB 5000:GOSUB 8500:PRINT TAB( 15)"BOY DID YOU LOSE" 6360 GOSUB 5000 6370 GOTO 2990 6375 PRINT "HE TAKES YOUR SWORD":E1= - 1.5 6380 PRINT "YOU ARE CAST INTO A PIT" 6383 GOSUB 8500 6385 GOSUB 6110 6390 RETURN 6392 GOSUB 4700 6395 RETURN 7000 PRINT "UGH! RATS, MILLIONS OF THEM." 7010 GOSUB 4700 7020 RETURN 7990 W3= 2:H1= 1:H2= 1:W2= 1+ .3* RND (1):H3= 2+ SGN (E1) 7992 W2= 1+ .3* RND (1):H3= 2+ SGN (E1) 8000 PRINT "IT'S A LARGE TROLL! THE BATTLE BEGINS" 8050 PRINT "YOU CIRCLE FOR POSITION" 8052 GOSUB 8500 8053 FOR I= 1TO 900:NUM= RND (1):NEXT I 8055 W3= W3- .05:H1= H1- .05:H2= H2- .05 8060 PRINT "HE ATTACKS" 8070 X1= 1+ INT (2.9999* RND (1)) 8080 ON X1GOTO 8090,8100,8110 8090 PRINT "HE TAKES A WILD CUT" 8091 GOTO 8120 8100 PRINT "HE THRUSTS AT YOUR BODY" 8105 GOTO 8120 8110 PRINT "HE TRIES A HEAD CUT" 8120 IF RND (1)> .5+ .3* H2/ W2THEN 8350 8130 X1= 1+ INT (2.5* RND (1)) 8140 ON X1GOTO 8150,8160,8170 8150 PRINT "YOU STOP HIS BLOW ON YOUR SWORD AND BACK AWAY" 8155 GOTO 8050 8160 PRINT "YOU DUCK UNDER HIS SWORD TO ATTACK" 8165 GOTO 8175 8170 PRINT "YOU PARRY THEN ATTACK" 8175 FOR I= 1TO H3 8180 IF RND (1)> .1THEN 8190 8185 PRINT "YOU MISSED HIM!":GOTO 8250 8190 X1= 1+ INT (2.9999* RND (1)) 8195 ON X1GOTO 8200,8220,8230 8200 PRINT "YOU GOT HIS LEG" 8205 W2= W2- H2/ 5:W3= W3- H2/ 5 8210 GOTO 8250 8220 PRINT "YOU'VE SLASHED HIS ARM" 8225 W2= W2- H2/ 3:W3= W3- H2/ 5 8227 GOTO 8250 8230 PRINT "YOU SCORE TO HIS BODY" 8245 W2= W2- .1:W3= W3- .25 8250 NEXT I 8252 IF W2< .1THEN W2= .1 8255 IF W3> .05THEN 8050 8260 PRINT "HE'S DOWN! YOU FINISHED HIM OFF" 8290 RETURN 8340 PRINT "YOU'RE HIT!" 8350 H1= H1- .2:H2= H2- .2 8357 IF H1< .05THEN 8370 8360 PRINT "YOU STAGGER AWAY":GOTO 8050 8370 PRINT "YOU'RE DOWN!! HE CLOSES FOR THE KILL" 8390 IF RND (1)> .1+ E1/ 20THEN 8400 8392 PRINT "YOU MAKE A LUCKY THRUST!! HE'S DEAD!!!!":RETURN 8395 GOSUB 8500 8400 PRINT "YOU ARE KILLED" 8410 GOSUB 5000 8420 GOTO 2990 8500 FOR X= 1TO 5:PRINT :NEXT X 8510 RETURN 8600 PRINT :PRINT "THE OBJECT IS TO RESCUE THE PRINCESS AND SOME GOLD THEN RETURN " 8610 PRINT "ALIVE WITH BOTH. ITS NOT EASY!" 8700 RETURN 9000 REM PROGRAM IS FROM A KBIT MAG. AND REWRITEN SLIGHTLY BY 9010 REM WILLIAM LEE FOR COMPUCOLOR 11. IT NEED CLEANING AND 9020 REM REWRITTING WITH SUBROUTINES FOR BETTER UNDERSTANING. 9030 REM THE PROGRAM DOES HOWEVER WORK AND ALL THOUGH HARD 9040 REM YOU SHOULD FIND IT FUN!