home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
GAMES
/
T_ROBS20.ZIP
/
EXP.TR
< prev
next >
Wrap
Text File
|
1991-11-13
|
547b
|
53 lines
angle 5
setshift 0
range 1000
:1
lfire
head 180
move 100
delay 1
:2
if speed>0 goto 2
if y<999 goto 1
if random goto 10
goto 20
:10
if armor<12 goto 3000
head 0
shift 13
if enemy gosub 2000
goto 10
:20
if armor<12 goto 3000
head 0
shift -13
if enemy gosub 2000
goto 20
:2000
lfire
if heat>300 return
fire
if enemy goto 2000
return
:3000
move 100
if heat<150 lfire
if range<16 destruct
if y<700 goto 4000
goto 3000
:4000
move 100
turn 40
if heat<150 lfire
if range<16 destruct
goto 4000