home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
gam
/
wldwst.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
52 lines
0 'WLDWST.BA
1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
10 ' Wild West Shootout!
20 ' Jason Peterson
30 ' 6190 Corte Del Rey
40 ' Pleasanton, CA 94566
100 CLS
105 PRINT "Wild West Shootout! By Jason Peterson"
110 PRINT
115 PRINT "Controls: Left Fire Right"
120 PRINT "Player 1 A S D"
125 PRINT "Player 2 J K L"
130 PRINT
135 PRINT " Press (P)lay or (Q)uit"
140 K$ = INKEY$
145 IF K$ = "P" THEN 160
150 IF K$ = "Q" THEN NEW
155 GOTO 140
160 CLS
165 LINE(3,5) - (121,57),1,B
170 P1 = 41:P2 = 259
175 P$ = CHR$ (147):B$ = CHR$ (166)
180 PRINT @P1," ": PRINT @P2," "
185 K$ = INKEY$
190 IF K$ = "A" AND P1 > 41 THEN P1 = P1 - 1
195 IF K$ = "S" THEN GOSUB 230
200 IF K$ = "D" AND P1 < 59 THEN P1 = P1 + 1
205 IF K$ = "J" AND P2 > 241 THEN P2 = P2 - 1
210 IF K$ = "K" THEN GOSUB 255
215 IF K$ = "L" AND P2 < 259 THEN P2 = P2 + 1
220 PRINT @P1,P$: PRINT @P2,P$
225 GOSUB 280: GOTO 180
230 IF P1 + 200 < > P2 THEN RETURN
235 FOR B = P1 + 40 TO P2 - 40 STEP 40
240 PRINT @B,B$: FOR D = 1 TO 100: NEXT D
245 PRINT @B," ": NEXT B
250 S1 = S1 + 1: RETURN
255 IF P1 + 200 < > P2 THEN RETURN
260 FOR B = P2 - 40 TO P1 + 40 STEP - 40
265 PRINT @B,B$: FOR D = 1 TO 100: NEXT D
270 PRINT @B," ": NEXT B
275 S2 = S2 + 1: RETURN
280 PRINT @105,"Kills"
285 PRINT @185,"P1"S1
290 PRINT @225,"P2"S2
295 IF S1 > 10 THEN PRINT @185,"P1 WON!": GOTO 310
300 IF S2 > 10 THEN PRINT @225,"P2 WON!": GOTO 310
305 RETURN
310 BEEP
315 FOR P = 1 TO 1000: NEXT P
320 S1 = 0:S2 = 0: GOTO 100