home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
GAMES
/
T_ROBS20.ZIP
/
RANDMAN.TR
< prev
next >
Wrap
Text File
|
1991-11-16
|
469b
|
41 lines
; Settings...
angle 9
range 1000
setshift 0
keepshift-on
burn-off
randspin
move 100
; Main loop...
:1
shift 19
if enemy gosub 1000
if hit gosub 2000
if heat>350 gosub 9999
goto 1
; Shooting sub-routine...
:1000
fire
lfire
if hit gosub 2000
if enemy goto 1000
return
:2000
randspin
delay 2
move 100
return
; Cool-down subroutine...
:9999
if heat>100 goto 9999
return
; End of program!!