Compucolor.org – Virtual Media

Listing of file='JOUST.BAS;01' on disk='vmedia/ncc_3-sector.ccvf'

60 PLOT 12,14
70 PRINT TAB( 26);"JOUST"
80 PRINT TAB( 20);"ADOPED BY WILLIAM LEE"
90 PRINT :PRINT :PRINT
100 INPUT "WHAT IS YOUR NAME, PLEASE. ";A$
110 PLOT 15
120 PRINT "SIR ";A$;" YOU ARE A MEDIEVAL KNIGHT IN A JOUSTING"
130 PRINT "TOURNAMENT. THE PRIZE TO THE WINNER IS THE PRINCESS' HAND IN"
140 PRINT "MARRIAGE. TO WIN YOU MUST BEAT FOUR KNIGHTS. TO JOUST, YOU PICK"
150 PRINT "AN AIMING POINT FOR THE LANCE, AND THEN ONE OF FROM 3 TO 6"
160 PRINT "DIFFERENT POSSIBLE DEFENSE POSITIONS."
170 N= 0
180 PRINT TAB( 20);"AIMING POINTS ARE:":PRINT
190 PRINT TAB( 23);"1 - HELM"
200 PRINT TAB( 23);"2 - UPPER LEFT (OF SHIELD)"
250 PRINT TAB( 23);"3 - UPPER MIDDLE"
300 PRINT TAB( 23);"4 - UPPER RIGHT"
350 PRINT TAB( 23);"5 - LOWER LEFT"
400 PRINT TAB( 23);"6 - LOWER MIDDLE"
450 PRINT TAB( 23);"7 - LOWER RIGHT"
500 PRINT TAB( 23);"8 - BASE OF SHIELD"
510 PRINT
520 IF N= 1THEN 1410
530 PRINT "IF YOU BREAK A LANCE OR LOSE A HELM, YOU WILL BE GIVEN ANOTHER."
550 PRINT "GOOD LUCK, SIR ";A$;"."
555 PRINT
600 FOR A= 1TO 4
650 ON AGOTO 800,950,1100,1250
700 REM  OFF GO TO THE FOUR JOUSTS
800 PRINT "THIS IS YOUR FIRST JOUST. YOU ARE UP AGINST THE GOLD KNIGNT."
850 GOTO 1400
950 PRINT "THIS IS YOUR SECOND JOUST. YOUR OPPNENT IS THE SILVER KNIGHT"
1000 GOTO 1400
1100 PRINT "YOU ARE DOING WELL!! YOUR THIRD JOUST IS AGAINST THE RED KNIGHT"
1150 GOTO 1400
1250 PRINT "THIS IS YOUR FINAL TEST!! IF YOU WIN THIS ONE THE PRINCESS IS "
1270 PRINT "YOURS!! THIS FIGHT IS AGAINST THE FIERCE BLACK KNIGHT!!!!"
1400 IF N= 1THEN 180
1410 PRINT :INPUT "YOUR AIMING POINT(1-8) ";B
1450 IF B< 1OR B> 8THEN 1400
1460 PRINT
1470 PRINT "YOU MAY USE ONE OF THESE DEFENSES:"
1480 N= 1
1500 ON BGOTO 1550,1650,1750,1850,1550,1750,1550,1950
1550 PRINT "4-STEADY SEAT, 5-SHIELD HIGH, 6-SHIELD LOW."
1600 GOTO 2000
1650 PRINT "3-LEFT LEAN, 4-STEADY SEAT, 5-SHIELD HIGH, 6-SHIELD LOW."
1700 GOTO 2000
1750 PRINT "1-LOWER HELM, 2- RIGHT LEAN, 3 LEFT LEAN, 4-STEADY SEAT."
1760 PRINT "5-SHIELD HIGH, 6-SHIELD LOW."
1800 GOTO 2000
1850 PRINT "2-RIGHT LEAN, 4-STEADY SEAT, 5-SHIELD HIGH, 6-SHIELD LOW."
1900 GOTO 2000
1950 PRINT "1-LOWER HELM, 4 STEADY SEAT, 5-SHIELD HIGH, 6-SHIELD LOW."
2000 INPUT "WHAT IS YOUR CHOICE ";C
2010 PLOT 12
2050 D= INT (RND (1)* 8)+ 1
2100 ON DGOTO 2150,2200,2250,2300,2350,2400,2450,2500
2150 ON CGOTO 2600,2600,2600,2700,2800,2600
2200 ON CGOTO 2800,2750,2600,2750,2750,2600
2250 ON CGOTO 2850,2800,2650,2750,2950,2900
2300 ON CGOTO 2650,2600,2850,2650,2650,2800
2350 ON CGOTO 2750,2950,2600,2750,2600,2750
2400 ON CGOTO 2950,2650,2750,2950,2850,2750
2450 ON CGOTO 2650,2600,2950,2650,2650,2650
2500 ON CGOTO 2750,2650,2850,2750,2850,2750
2600 PRINT "HE MISSED YOU!":S= 0:PRINT :GOTO 3000
2650 PRINT "HE HIT YOUR SHIELD BUT IT GLANCED OFF.":S= 0:PRINT :GOTO 3000
2700 PRINT "HE KNOCKED OFF YOUR HELM!":S= 0:PRINT :GOTO 3000
2750 PRINT "HE BROKE HIS LANCE.":S= 0:PRINT :GOTO 3000
2800 PRINT "HE HAS UNSEATED YOU (THUD!)":S= 5:PRINT :GOTO 3000
2850 PRINT "HE HAS BROKEN HIS LANCE, INJURED AND UNSEATED YOU (OUCH!)"
2860 S= 5:PRINT :GOTO 3000
2900 PRINT "HE HAS INJURED AND UNSEATED YOU (CRASH)":S= 5:PRINT :GOTO 3000
2950 PRINT "HE HAS BROKEN HIS LANCE AND UNSEATED YOU (CLANG!)":S= 5:PRINT :GOTO 3000
3000 E= INT (RND (1)* 6)+ 1
3050 ON DGOTO 3100,3150,3200,3250,3100,3200,3100,3300
3100 IF E< 4THEN 3000
3110 GOTO 3350
3150 IF E> 3THEN 3000
3200 GOTO 3350
3250 IF E= 1OR E= 3THEN 3000
3260 GOTO 3350
3300 IF E= 2OR E= 3THEN 3000
3350 ON EGOTO 3400,3450,3500,3550,3600,3650
3400 ON BGOTO 3700,3900,3950,3750,3850,4050,3750,3850
3450 ON BGOTO 3700,3850,3900,3700,4050,3750,3700,3750
3500 ON BGOTO 3700,3700,3750,3850,3700,3850,4050,3900
3550 ON BGOTO 3800,3850,3850,3750,3850,4050,3750,3850
3600 ON BGOTO 3900,3850,4050,3750,3700,3950,3750,3950
3650 ON BGOTO 3700,3700,4000,3900,3850,3850,3750,3850
3700 PRINT "YOU MISSED HIM (HISS!)":T= 0:PRINT :GOTO 4100
3750 PRINT "YOU HIT HIS SHIELD BUT GLANCED OFF.":T= 0:PRINT :GOTO 4100
3800 PRINT "YOU KNOCKED OFF HIS HELM! (CHEERS!)":T= 0:PRINT :GOTO 4100
3850 PRINT "YOU BROKE YOUR LANCE (CRACK...)":T= 0:PRINT :GOTO 4100
3900 PRINT "YOU UNSEATED HIM (LOAD CHEERS AND HUZZAHS!!)":T= 5:PRINT :GOTO 4100
3950 PRINT "YOU BROKE YOUR LANCE, BUT UNSEATED AND INJURED YOUR FOE.":PRINT :T= 5:GOTO 4100
4000 PRINT "YOU INJURED AND UNSEATED YOUR OPPONENT.":T= 5:PRINT :GOTO 4100
4050 PRINT "YOU BROKE YOUR LANCE BUT UNSEATED YOUR OPPONENT.":T= 5:PRINT :GOTO 4100
4100 X= T:IF S= XAND S= 0THEN 4450
4110 T= X
4150 IF S= TGOTO 4400
4200 IF S< TGOTO 4300
4250 IF S> TGOTO 4350
4300 PRINT "YOU HAVE WON THIS JOUST.":PRINT :PRINT :PRINT :GOTO 4320
4320 NEXT A
4330 GOTO 4550
4350 PRINT "TO BAD, YOU LOST. HOPE YOUR INSURANCE WAS PAID UP.":PRINT :GOTO 4500
4400 PRINT "TO BAD, YOU BOTH LOST. AT LEAST YOUR HORNOR IS INTACT.":PRINT :GOTO 4500
4450 PRINT "YOU ARE NOW READY TO TRY AGAIN.":PRINT :GOTO 1400
4500 PRINT "SORRY, BETTER LUCK NEXT..."
4510 PRINT :PRINT TAB( 26);"JOUST":GOTO 9999
4520 REM
4550 PRINT :PRINT "HOORAY! YOU ARE THE WINNNER. HERE COMES THE BRIDE!"
9999 END