home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
GAMES
/
T_ROBS20.ZIP
/
KILL.TR
< prev
next >
Wrap
Text File
|
1991-11-13
|
914b
|
87 lines
move 100
setshift 180
burn-on
setshift 90
angle 5
if y<500 goto 1
if y>501 goto 2
:5
head 270
move 100
goto 40
:10
head 90
move 100
:20
if x<910 if enemy gosub 49
if x<910 gosub 111
if x<965 goto 20
head 180
move 100
:30
if y<910 if enemy gosub 49
if y<910 gosub 111
if y<965 goto 30
head 270
move 100
:40
if x>90 if enemy gosub 49
if x>90 gosub 111
if x>35 goto 40
head 0
move 100
:50
if y>90 if enemy gosub 49
if y>90 gosub 111
if y>35 goto 50
goto 10
:1
head 0
if enemy fire
if y>70 goto 1
goto 3
:2
head 180
if enemy fire
if y<930 goto 2
:3
if y>500 goto 5
if y<500 goto 10
:49
lfire
setshift 89
sfire
setshift -1
if enemy gosub 99
setshift 90
return
:99
move 5
sfire
lfire
if enemy goto 99
move 100
return
:111
angle 2
setshift 0
if enemy gosub 99
angle 5
setshift 89
return
; Jeremy's wonderful BOT.