home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
gam
/
grid.200
< prev
next >
Wrap
Text File
|
2006-10-19
|
4KB
|
118 lines
0 'GRID.BA Henry Melton 1984
1 'Modified for the Model 200 by Gary Sullivan
2 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
10 '
12 DEFINTA-Z:TRUE=NOTFALSE:CLS:PRINT@55,"Grid-Runner":PRINT@121,"One player or Two (1/2):";
14 A$=INPUT$(1):IFA$="1"THENPRINT:PRINT:PRINT" The GridBug will play A. You are B.":A=1:ONKEYGOSUB,,,,,,,226:KEYON:GOTO16
15 IFA$<>"2"THENRUNELSEA=0:ONKEYGOSUB218,220,222,224,,,,226:KEYON
16 GOSUB20'randomstart
18 IFNOTDNTHENGOSUB38:GOTO18ELSECLS:IFCRTHENC1=C1+100-C/3ELSEC0=C0+100-C/3
19 DN=FALSE:PRINT@57,"Scores":PRINT@241,"A:";C0;:PRINT@271,"B:";C1:A$=INPUT$(1):IFA$=CHR$(13)THEN16ELSE19
20 'randomstart
22 T$=TIME$
24 X=RND(1):IFT$=TIME$THEN24ELSET$=TIME$
25 X=RND(1):IFT$=TIME$THEN25ELSEIFRND(1)>.151THENCLS
26 P=RND(1)*240:Q=RND(1)*64
28 R=RND(1)*240:S=RND(1)*64
30 PD=RND(1)*4:RD=RND(1)*4
32 PSET(P,Q):PSET(R,S)
34 PRESET(P,Q):FORI=0TO100:NEXTI:SOUND10,10:PSET(P,Q):FORI=0TO100:NEXTI:A$=INKEY$:IFA$=""THEN34ELSESOUND5000,20:C=0:RETURN
36 PRINTCHR$(27)+"P";:PRINT@INT(X/6)+40*INT(Y/8),;:Z=SGN((2^(YMOD8))ANDPEEK((XMOD6)-20)):PRINTCHR$(27)+"Q";:RETURN'ppoint
38 'turns
39 C=C+1
40 GOSUB48'B:
42 IFDNTHENRETURN
44 IFATHENGOSUB84ELSEGOSUB192'A:
46 RETURN
48 'B:
50 K$=INKEY$
52 IFK$=CHR$(29)THENDP=3
54 IFK$=CHR$(28)THENDP=1
56 IFK$=CHR$(30)THENDP=0
58 IFK$=CHR$(31)THENDP=2
60 ONDP+1GOTO62,64,66,68
62 Q=Q-1:GOTO70
64 P=P+1:GOTO70
66 Q=Q+1:GOTO70
68 P=P-1:GOTO70
70 IFP<0THENDN=TRUE:CR=0:GOTO80
72 IFP>239THENDN=TRUE:CR=0:GOTO80
74 IFQ<0THENDN=TRUE:CR=0:GOTO80
76 IFQ>63THENDN=TRUE:CR=0:GOTO80
78 X=P:Y=Q:GOSUB36:IFZ=0THENDN=TRUE:CR=0
80 IFDNTHENSOUND10000,50ELSEPSET(P,Q)
82 RETURN
84 'A:-automatic
85 IFRND(I)<.05THENDR=INT(RND(I)*4)
86 ONDR+1GOTO88,90,92,94
88 S=S-1:GOTO96
90 R=R+1:GOTO96
92 S=S+1:GOTO96
94 R=R-1:GOTO96
96 IFR<0THENGOSUB144:IFDNTHEN106ELSE84
98 IFR>239THENGOSUB156:IFDNTHEN106ELSE84
100 IFS<0THENGOSUB168:IFDNTHEN106ELSE84
102 IFS>63THENGOSUB180:IFDNTHEN106ELSE84
104 X=R:Y=S:GOSUB36:IFZ=0THENGOSUB110
106 IFDNTHENSOUND6000,50:CR=1ELSEPSET(R,S)
108 RETURN
110 'collisionavoidance
112 ONDR+1GOTO116,128,140,142
114 DN=TRUE:RETURN
116 S=S+1
118 IFR=0THENDR=1:R=R+1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN
120 IFR=239THENDR=3:R=R-1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN
122 X=R+1:Y=S:GOSUB36:IFZ=0THENDR=3:R=R-1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN
124 X=R-1:Y=S:GOSUB36:IFZ=0THENDR=1:R=R+1:RETURNELSEIFRND(1)>.5THENDR=1:R=R+1:RETURNELSEDR=3:R=R-1:RETURN
126 RETURN
128 R=R-1
130 IFS=0THENDR=2:S=S+1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN
132 IFS=63THENDR=0:S=S-1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN
134 X=R:Y=S+1:GOSUB36:IFZ=0THENDR=0:S=S-1:X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSERETURN
136 X=R:Y=S-1:GOSUB36:IFZ=0THENDR=2:S=S+1:RETURNELSEIFRND(1)>.5THENDR=2:S=S+1:RETURNELSEDR=0:S=S-1:RETURN
138 RETURN
140 S=S-1:GOTO118
142 R=R+1:GOTO130
144 'leftwall
146 R=0:IFS=0THENDR=2:RETURN
148 IFS=63THENDR=0:RETURN
150 X=R:Y=S-1:GOSUB36:IFZ=0THENDR=2:RETURN
152 X=R:Y=S+1:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSEIFRND(1)>.5THENDR=0ELSEDR=2
154 RETURN
156 'rightwall
158 R=239:IFS=0THENDR=2:RETURN
160 IFS=63THENDR=0:RETURN
162 X=R:Y=S-1:GOSUB36:IFZ=0THENDR=2:RETURN
164 X=R:Y=S+1:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSEIFRND(1)>.5THENDR=0ELSEDR=2
166 RETURN
168 'top
170 S=0:IFR=0THENDR=1:RETURN
172 IFR=239THENDR=3:RETURN
174 X=R-1:Y=S:GOSUB36:IFZ=0THENDR=1:RETURN
176 X=R+1:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSEIFRND(1)>.5THENDR=1ELSEDR=3
178 RETURN
180 'bottom
182 S=63:IFR=0THENDR=1:RETURN
184 IFR=239THENDR=3:RETURN
186 X=R-1:Y=S:GOSUB36:IFZ=0THENDR=1:RETURN
188 X=R+1:Y=S:GOSUB36:IFZ=0THENDN=TRUE:RETURNELSEIFRND(1)>.5THENDR=1ELSEDR=3
190 RETURN
192 'A:-manual
194 ONDR+1GOTO196,198,200,202
196 S=S-1:GOTO204
198 R=R+1:GOTO204
200 S=S+1:GOTO204
202 R=R-1:GOTO204
204 IFR<0THENDN=TRUE:CR=1:GOTO214
206 IFR>239THENDN=TRUE:CR=1:GOTO214
208 IFS<0THENDN=TRUE:CR=1:GOTO214
210 IFS>63THENDN=TRUE:CR=1:GOTO214
212 X=R:Y=S:GOSUB36:IFZ=0THENDN=TRUE:CR=1
214 IFDNTHENSOUND8000,50ELSEPSET(R,S)
216 RETURN
218 DR=3:RETURN
220 DR=1:RETURN
222 DR=0:RETURN
224 DR=2:RETURN
226 MENU