Compucolor.org – Virtual Media

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!