; The attack routines,
only time I use cloak. They aren't quite right I don't believe.
; Fixed them. It'd been so long I forgot
how many subclicks the err_ routines took.
closechk_ 0 1:
if missile not ready then goto err_ #cur_head
scan relative 1
closechk2_ 1:
if value #enemy_y <= #y_pos then if value #enemy_x
> #x_pos then if value #enemy_h = 4 then if value #cur_ammo < 15 then
goto err_ #cur_head
if value #enemy_y <= #y_pos then if value #enemy_x
< #x_pos then if value #enemy_h = 2 then if value #cur_ammo < 15
then goto err_ #cur_head
if value #enemy_y <= #y_pos then if value #enemy_x
> #x_pos then if value #enemy_h = 4 then if value #scan = 0 then goto cloaker
if value #enemy_y <= #y_pos then if value #enemy_x
< #x_pos then if value #enemy_h = 2 then if value #scan = 0 then sosub
cloaker
if value #scan = 0 then move forward
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_y = #y_pos then if value #enemy_x > #x_pos then
if value #enemy_h = 4 then if value #cur_ammo >= 12 then if value #cur_life
= 0 then cloak on
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_y = #y_pos then if value #enemy_x < #x_pos
then if value #enemy_h = 2 then if value #cur_ammo >= 12 then if value
#cur_life = 0 then cloak on
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_y = #y_pos then if value #enemy_x > #x_pos then
if value #enemy_h = 4 then move backward
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_y = #y_pos then if value #enemy_x < #x_pos
then if value #enemy_h = 2 then move backward
gosub err_ #cur_head
closechk_ 0 3:
if missile not ready then goto err_ #cur_head
scan relative 1
closechk2_ 3:
if value #enemy_y >= #y_pos then if value #enemy_x
> #x_pos then if value #enemy_h = 4 then if value #cur_ammo < 15 then
goto err_ #cur_head
if value #enemy_y >= #y_pos then if value #enemy_x
< #x_pos then if value #enemy_h = 2 then if value #cur_ammo < 15
then goto err_ #cur_head
if value #enemy_y >= #y_pos then if value #enemy_x
> #x_pos then if value #enemy_h = 4 then if value #scan = 0 then goto cloaker
if value #enemy_y >= #y_pos then if value #enemy_x
< #x_pos then if value #enemy_h = 2 then if value #scan = 0 then gosub
cloaker
if value #scan = 0 then move forward
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_y = #y_pos then if value #enemy_x > #x_pos then
if value #enemy_h = 4 then if value #cur_ammo >= 12 then if value #cur_life
= 0 then cloak on
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_y = #y_pos then if value #enemy_x < #x_pos
then if value #enemy_h = 2 then if value #cur_ammo >= 12 then if value
#cur_life = 0 then cloak on
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_y = #y_pos then if value #enemy_x > #x_pos then
if value #enemy_h = 4 then move backward
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_y = #y_pos then if value #enemy_x < #x_pos
then if value #enemy_h = 2 then move backward
gosub err_ #cur_head
closechk_ 0 4:
if missile not ready then goto err_ #cur_head
scan relative 1
closechk2_ 4:
if value #enemy_x <= #x_pos then if value #cur_ammo
< 15 then if value #enemy_y > #y_pos then if value #enemy_h = 1 then
goto err_ #cur_head
if value #enemy_x <= #x_pos then if value #cur_ammo
< 15 then if value #enemy_y < #y_pos then if value #enemy_h = 3 then
goto err_ #cur_head
if value #enemy_x <= #x_pos then if value #enemy_y
> #y_pos then if value #enemy_h = 1 then if value #scan = 0 then goto cloaker
if value #enemy_x <= #x_pos then if value #enemy_y
< #y_pos then if value #enemy_h = 3 then if value #scan = 0 then gosub
cloaker
if value #scan = 0 then move forward
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_x = #x_pos then if value #enemy_y > #y_pos then
if value #enemy_h = 1 then if value #cur_ammo >= 13 then if value #cur_life
= 0 then cloak on
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_x = #x_pos then if value #enemy_y < #y_pos
then if value #enemy_h = 3 then if value #cur_ammo >= 13 then if value
#cur_life = 0 then cloak on
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_x = #x_pos then if value #enemy_y > #y_pos then
if value #enemy_h = 1 then move backward
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_x = #x_pos then if value #enemy_y < #y_pos
then if value #enemy_h = 3 then move backward
gosub err_ #cur_head
closechk_ 0 2:
if missile not ready then goto err_ #cur_head
scan relative 1
closechk2_ 2:
if value #enemy_x >= #x_pos then if value #cur_ammo
< 15 then if value #enemy_y > #y_pos then if value #enemy_h = 1 then
goto err_ #cur_head
if value #enemy_x >= #x_pos then if value #cur_ammo
< 15 then if value #enemy_y < #y_pos then if value #enemy_h = 3 then
goto err_ #cur_head
if value #enemy_x >= #x_pos then if value #enemy_y
> #y_pos then if value #enemy_h = 1 then if value #scan = 0 then goto cloaker
if value #enemy_x >= #x_pos then if value #enemy_y
< #y_pos then if value #enemy_h = 3 then if value #scan = 0 then gosub
cloaker
if value #scan = 0 then move forward
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_x = #x_pos then if value #enemy_y > #y_pos then
if value #enemy_h = 1 then if value #cur_ammo >= 13 then if value #cur_life
= 0 then cloak on
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_x = #x_pos then if value #enemy_y < #y_pos
then if value #enemy_h = 3 then if value #cur_ammo >= 13 then if value
#cur_life = 0 then cloak on
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_x = #x_pos then if value #enemy_y > #y_pos then
if value #enemy_h = 1 then move backward
if value #cloakstatus = 0 then if value #scan
= 0 then if value #enemy_x = #x_pos then if value #enemy_y < #y_pos
then if value #enemy_h = 3 then move backward
gosub err_ #cur_head