G
Guest
Guest
Archived from groups: rec.games.video.classic,alt.lang.basic (More info?)
Changes made by Lance Squire on 07/09/2005.
1 CLEAR ;BC=206;X=0;PRINT "CASTLE BALLY";PRINT "BY PAUL PANKS";PRINT
6 R=1;T=R;I=0;O=1;S=6;H=4;W=2;M=5;D=1;P=100
10 PRINT "YOU ARE ",;GOSUB (R-1)*2+100
20 PRINT "<YOU SEE>
21 IF O=RPRINT "COIL OF ROPE
22 IF S=RPRINT "SWORD OF FIRE
23 IF H=RPRINT "SHIELD OF ANG
24 IF W=RPRINT "FIERY WHEREWOLF
25 IF M=RPRINT "MORDIMAR
30 R=T;PRINT "OK
31 Y=RND (6)+1;GOSUB 314
32 PRINT "1.GO 2.GET 3.DROP 4.USE";PRINT "5.INV 6.LOOK 7.QUIT
34 INPUT"COM> "X
40 IF X=1GOTO 50
41 IF X=2GOTO 62
42 IF X=3GOTO 70
43 IF X=4GOTO 80
44 IF X=5 T=R;R=99;GOTO 21
45 IF X=6GOTO 10
46 IF X=7GOTO 99
48 GOSUB 116;GOTO 30
50 PRINT "<GO>
51 PRINT "1.N 2.S 3.E 4.W 5.U 6.D
53 INPUT"<1-6>"X
54 GOSUB R+200
55 IF R=3GOTO 57
56 GOTO 60
57 IF O#99GOTO 48
60 IF @(X)=0GOTO 48
61 R=@(X);T=R;GOTO 10
62 IF O=R O=99;GOTO 30
63 IF S=R S=99;GOTO 30
64 IF H=R H=99;GOTO 30
65 GOTO 48
70 IF O=99 O=R;GOTO 30
71 IF S=99 S=R;GOTO 30
72 IF H=99 H=R;GOTO 30
73 GOTO 48
80 PRINT "<WHAT>
81 IF O=99PRINT "1.ROPE
82 IF S=99PRINT "2.SWORD
83 IF H=99PRINT "3.SHIELD
84 INPUT"<1-3>"X
85 GOSUB (X-1)*10+301;GOTO 30
88 GOTO 48
99 STOP
100 PRINT "BY THE VILLAGE";PRINT "NEAR A WELL. <N S>";RETURN
102 PRINT "STANDING IN A";PRINT "FOREST. <N S E W>";RETURN
104 PRINT "FACING A LARGE";PRINT "OAK TREE. <W U>";RETURN
106 PRINT "IN A VALLEY";PRINT "NEAR A POND. <E>";RETURN
108 PRINT "IN A CASTLE";PRINT "BY A THRONE. <N>";RETURN
110 PRINT "UPON A BRANCH";PRINT "ABOVE THE TREES. <D>";RETURN
112 PRINT "INSIDE A SMALL";PRINT "CHURCH, BY AN ALTAR. <S>";RETURN
114 PRINT "IN A LONG HALLWAY.";PRINT " <N S>";RETURN
116 PRINT "YOU CAN'T SEE A WAY.";RETURN
201 @(1)=7;@(2)=2;@(3)=0;@(4)=0;@(5)=0;@(6)=0;RETURN
202 @(1)=1;@(2)=8;@(3)=3;@(4)=4;@(5)=0;@(6)=0;RETURN
203 @(1)=0;@(2)=0;@(3)=0;@(4)=2;@(5)=6;@(6)=0;RETURN
204 @(1)=0;@(2)=0;@(3)=2;@(4)=0;@(5)=0;@(6)=0;RETURN
205 @(1)=8;@(2)=0;@(3)=0;@(4)=0;@(5)=0;@(6)=0;RETURN
206 @(1)=0;@(2)=0;@(3)=0;@(4)=0;@(5)=0;@(6)=3;RETURN
207 @(1)=0;@(2)=1;@(3)=0;@(4)=0;@(5)=0;@(6)=0;RETURN
208 @(1)=2;@(2)=5;@(3)=0;@(4)=0;@(5)=0;@(6)=0;RETURN
301 IF O=99GOTO 303
302 RETURN
303 IF R=3 R=6
304 RETURN
311 IF S=99GOTO 313
312 RETURN
313 IF W=R W=98;PRINT "SLASH IT DIES.
314 IF M=R M=98;PRINT "YOU KILLED MORDIMAR.
315 IF M=98PRINT "YOU'VE WON!";GOTO 99
317 RETURN
321 IF H=99GOTO 323
322 RETURN
323 IF M=RGOTO 325
324 RETURN
325 IF Y<4PRINT "MORDIMAR ATTACKS YOU!;|GOTO |329
326 IF H=99PRINT "THE SHIELD BLOCKS HIM.
328 RETURN
329 IF Y=2PRINT "HE KILLED YOU!";GOTO 99
330 PRINT "HE MISSED YOU...
331 RETURN
Changes made by Lance Squire on 07/09/2005.
1 CLEAR ;BC=206;X=0;PRINT "CASTLE BALLY";PRINT "BY PAUL PANKS";PRINT
6 R=1;T=R;I=0;O=1;S=6;H=4;W=2;M=5;D=1;P=100
10 PRINT "YOU ARE ",;GOSUB (R-1)*2+100
20 PRINT "<YOU SEE>
21 IF O=RPRINT "COIL OF ROPE
22 IF S=RPRINT "SWORD OF FIRE
23 IF H=RPRINT "SHIELD OF ANG
24 IF W=RPRINT "FIERY WHEREWOLF
25 IF M=RPRINT "MORDIMAR
30 R=T;PRINT "OK
31 Y=RND (6)+1;GOSUB 314
32 PRINT "1.GO 2.GET 3.DROP 4.USE";PRINT "5.INV 6.LOOK 7.QUIT
34 INPUT"COM> "X
40 IF X=1GOTO 50
41 IF X=2GOTO 62
42 IF X=3GOTO 70
43 IF X=4GOTO 80
44 IF X=5 T=R;R=99;GOTO 21
45 IF X=6GOTO 10
46 IF X=7GOTO 99
48 GOSUB 116;GOTO 30
50 PRINT "<GO>
51 PRINT "1.N 2.S 3.E 4.W 5.U 6.D
53 INPUT"<1-6>"X
54 GOSUB R+200
55 IF R=3GOTO 57
56 GOTO 60
57 IF O#99GOTO 48
60 IF @(X)=0GOTO 48
61 R=@(X);T=R;GOTO 10
62 IF O=R O=99;GOTO 30
63 IF S=R S=99;GOTO 30
64 IF H=R H=99;GOTO 30
65 GOTO 48
70 IF O=99 O=R;GOTO 30
71 IF S=99 S=R;GOTO 30
72 IF H=99 H=R;GOTO 30
73 GOTO 48
80 PRINT "<WHAT>
81 IF O=99PRINT "1.ROPE
82 IF S=99PRINT "2.SWORD
83 IF H=99PRINT "3.SHIELD
84 INPUT"<1-3>"X
85 GOSUB (X-1)*10+301;GOTO 30
88 GOTO 48
99 STOP
100 PRINT "BY THE VILLAGE";PRINT "NEAR A WELL. <N S>";RETURN
102 PRINT "STANDING IN A";PRINT "FOREST. <N S E W>";RETURN
104 PRINT "FACING A LARGE";PRINT "OAK TREE. <W U>";RETURN
106 PRINT "IN A VALLEY";PRINT "NEAR A POND. <E>";RETURN
108 PRINT "IN A CASTLE";PRINT "BY A THRONE. <N>";RETURN
110 PRINT "UPON A BRANCH";PRINT "ABOVE THE TREES. <D>";RETURN
112 PRINT "INSIDE A SMALL";PRINT "CHURCH, BY AN ALTAR. <S>";RETURN
114 PRINT "IN A LONG HALLWAY.";PRINT " <N S>";RETURN
116 PRINT "YOU CAN'T SEE A WAY.";RETURN
201 @(1)=7;@(2)=2;@(3)=0;@(4)=0;@(5)=0;@(6)=0;RETURN
202 @(1)=1;@(2)=8;@(3)=3;@(4)=4;@(5)=0;@(6)=0;RETURN
203 @(1)=0;@(2)=0;@(3)=0;@(4)=2;@(5)=6;@(6)=0;RETURN
204 @(1)=0;@(2)=0;@(3)=2;@(4)=0;@(5)=0;@(6)=0;RETURN
205 @(1)=8;@(2)=0;@(3)=0;@(4)=0;@(5)=0;@(6)=0;RETURN
206 @(1)=0;@(2)=0;@(3)=0;@(4)=0;@(5)=0;@(6)=3;RETURN
207 @(1)=0;@(2)=1;@(3)=0;@(4)=0;@(5)=0;@(6)=0;RETURN
208 @(1)=2;@(2)=5;@(3)=0;@(4)=0;@(5)=0;@(6)=0;RETURN
301 IF O=99GOTO 303
302 RETURN
303 IF R=3 R=6
304 RETURN
311 IF S=99GOTO 313
312 RETURN
313 IF W=R W=98;PRINT "SLASH IT DIES.
314 IF M=R M=98;PRINT "YOU KILLED MORDIMAR.
315 IF M=98PRINT "YOU'VE WON!";GOTO 99
317 RETURN
321 IF H=99GOTO 323
322 RETURN
323 IF M=RGOTO 325
324 RETURN
325 IF Y<4PRINT "MORDIMAR ATTACKS YOU!;|GOTO |329
326 IF H=99PRINT "THE SHIELD BLOCKS HIM.
328 RETURN
329 IF Y=2PRINT "HE KILLED YOU!";GOTO 99
330 PRINT "HE MISSED YOU...
331 RETURN