home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
GAMES
/
T_ROBS20.ZIP
/
TARGET.TR
< prev
next >
Wrap
Text File
|
1991-11-19
|
766b
|
55 lines
; This version of "Target" doesn't shoot back.
; Settings
Keepshift-off
burn-off
setshift 0
angle 15
range 1000
; Main Loop
:1
move 100
if x<470 gosub 1000
if x>530 gosub 2000
if y>570 gosub 3000
if y<430 gosub 4000
;if enemy gosub 9999
goto 1
; X location control subroutine
:1000
head 90
move 100
;if enemy gosub 9999
if x<470 goto 1001
return
; X location control subroutine
:2000
head 270
move 100
;if enemy gosub 9999
if x>530 goto 2000
return
; Y location control subroutine
:3000
head 0
move 100
;if enemy gosub 9999
if y>530 goto 3000
return
; Y location control subroutine
:4000
head 180
move 100
;if enemy gosub 9999
if y<470 goto 4000
return
; Firing subroutine
:9999
return