home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
GAMES
/
T_ROBS20.ZIP
/
SNIPER.TR
< prev
next >
Wrap
Text File
|
1991-11-13
|
429b
|
51 lines
angle 9
range 1000
setshift 0
:1
gosub 1000
if random goto 3
goto 2
:2
turn 19
if hit gosub 1000
if enemy gosub 10
goto 2
:3
turn -19
if hit gosub 1000
if enemy gosub 10
goto 3
:10
lfire
fire
if hit return
if enemy goto 10
return
:1000
randspin
delay 2
;:1002
;if athead goto 1003
;goto 1002
;:1003
move 100
delay 2
:1001
if speed>0 goto 1001
if hit delay 0
return