home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
GAMES
/
T_ROBS20.ZIP
/
VAR-ROB.TR
< prev
Wrap
Text File
|
1992-02-04
|
334b
|
35 lines
; Variable-Using Sample-Robot
setshift 0
range 1000
angle 8
burn-off
; Definitions of several variables to be used as constants.
a=10
b=100
c=15
k=30
p=1000
move a
:1
turn c
if enemy gosub p
if range<k destruct
goto 1
:1000
move b
t=d
:1001
lfire
fire
if enemy goto 1001
head t
move a
return