FrozenWinters older than one year ago

Here, have a game for the BBC Micro.

----------------------------------

100 REM ZOMBIES

110 GOSUB 1100

120 PRINT "......ZOMBIES

130 LET T=2:GOSUB 1400:GOSUB 2800

140 PRINT:PRINT ".******************"

150 FOR I=1 TO 13:PRINT ".*................*":NEXT I

160 PRINT ".******************"

170 DIM Q(8,2)

180 DIM Z(4,2)

190 FOR I=1 TO 4:LET N=16:GOSUB 1300:LET Z(I,1)=R+1:LET N=13:GOSUB 1300:LET Z(I,2)=R+1

200 LET X=Z(I,1):LET Y=Z(I,2):GOSUB 1700:PRINT "Z";

210 NEXT I

220 FOR I=1 TO 8:LET N=16:GOSUB 1300:LET Q(I,1)=R+1:LET N=13:GOSUB 1300:LET Q(I,2)=R+1

230 LET X=Q(I,1)=R+1:LET Y=Q(I,2):GOSUB 1700:PRINT "*";

240 NEXT I

250 LET N=16: GOSUB 1300: LET A=R+1:LET N=13:GOSUB 1300:LET B=R+1:LET X=A:LET Y=B

260 GOSUB 1700:PRINT "H";:LET N=4

270 GOSUB 1500:GOSUB 3100:LET G=GG-48:IF G<1 OR G>9 THEN GOTO 270

280 LET X=A:LET Y=B:GOSUB 1700: PRINT ".";

290 LET D=INT((G-4)/3):LET C=G-3*D-5:LET A=A+C:LET B=B+D

300 IF A=1 OR A=18 OR B=1 OR B=15 THEN GOTO 320

310 GOTO 330

320 LET M$="YOU'RE.IN.THE.SWAMP":GOTO 480

330 LET F=0:FOR I=1 TO 8: IF A=Q(I,1) AND B=Q(I,2) THEN LET F=1

340 NEXT I:IF F=1 THEN LET M$="YOU'RE.IN.QUICKSAND":IF F=1 THEN GOTO 480

350 FOR I=1 TO 4:IF A=Z(I,1) AND B=Z(I,2) THEN LET F=1

360 NEXT I:IF F=1 THEN LET M$="YOU'RE.CAUGHT!": IF F=1 THEN GOTO 480

370 LET X=A:LET Y=B:GOSUB 1700:PRINT "H";:LET Z=50:GOSUB 2400:LET T=0.5:GOSUB 1400

380 FOR I=1 TO 4:IF Z(I,1)=0 THEN GOTO 460

390 LET T=0.5:GOSUB 1400:LET X=Z(I,1):LET Y=Z(I,2):GOSUB 1700:PRINT ".";:LET F=0

400 LET X=X+SGN(A-X):LET Y=Y+SGN(B-Y):LET F=0:FOR J=1 TO 8:IF X=Q(J,1) AND Y=Q(J,2) THEN LET F-1

410 NEXT J:IF F<>1 THEN GOTO 430

420 LET N=N-1:LET Z(I,1)=0:LET Z=35:GOSUB 2400:GOTO 460

430 GOSUB 1700:PRINT "Z":LET Z(I,1)=X:LET Z(I,2)=Y:LET Z=20:GOSUB 2400

440 IF X=A AND Y=B THEN LET M$="CAUGHT!":GOTO 480

450 GOSUB 1700:PRINT "Z":LET Z(I,1)=X:LET Z(I,2)=Y

460 NEXT I:IF N>0 THEN GOTO 270

470 LET M$="YOU'VE.MADE.IT!"

480 LET X=1:LET Y=16:GOSUB 1700:PRINT M$;

490 LET T=4:GOSUB 1400:GOSUB 2800:PRINT:PRINT:STOP

--------------------------------------

This the list of subroutines you'll need to make this game work; they need to be saved to a separate tape.

--------------------------------------

1000 REM BBC SUBROUTINES

1100 MODE 5:VDU 19,0,4;0;:W=20:D=32:F=8:GOSUB 1200:RETURN

1200 CLS:PRINT TAB(0,8);:RETURN

1300 R=RND(N):RETURN

1400 FOR Z=1 TO 1000*T:NEXT Z:RETURN

1500 G$=GET$:RETURN

1600 K$=INKEY$(0):RETURN

1700 PRINT TAB (X,Y);:RETURN

1800 PRINT TAB (X);:RETURN

1900 PRINT CHR$(11);:RETURN

2000 PRINT CHR$(9);:RETURN

2100 INPUT K:RETURN

2200 INPUT K$:RETURN

2300 MODE 7:RETURN

2400 SOUND 1,-15,Z,2:RETURN

2500 R$=CHR$(R+64):RETURN

2600 P$=MID$(K$,P,1):RETURN

2700 GOSUB 2600:A=ASC(P$):RETURN

2800 CLS:RETURN

2900 DIM V$(26):RETURN

3000 DM W$(60):RETURN

3100 GG=ASC(G$):RETURN

As much as I'm interested I'm pretty sure nobody else here gives a shit.

Wait, did I mishear it or did he just say they were giving out free slim 360s to the audience?

>self-censoring

>doing it wrong when self-censoring

>SKD

>"an" instead of "a"

>dulecore

>@ instead of "at" because of laziness