home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
GAMES
/
T_ROBS20.ZIP
/
ROBOT4.TR
< prev
next >
Wrap
Text File
|
1991-11-13
|
743b
|
74 lines
; My wierd robot...
Range 800
setshift 0
angle 10
goto 3000
:1
if random goto 20
goto 10
:10
move 35
turn 19
if enemy goto 1000
goto 10
:20
move 35
turn -19
if enemy goto 1000
goto 20
:1000
move 100
if enemy goto 2000
goto 1
:2000
lfire
fire
if enemy goto 2000
goto 3000
;return
:3000
move 0
if x<50 gosub 4000
if x>950 gosub 5000
if y>950 gosub 6000
if y<50 gosub 7000
goto 1
:4000
head 90
move 100
if x<100 goto 4000
return
;goto 3000
:5000
head 270
move 100
if x>900 goto 5000
return
;goto 3000
:6000
head 0
move 100
if y>900 goto 6000
return
;goto 3000
:7000
head 180
move 100
if y<100 goto 7000
return
;goto 3000
; END of this weird robot.