• ; Very good long range flag retrieve code I believe.
  •  
  • getflag:   -- explain
  • if damage is = 0 then gosub hurtme
  •  
  • flagloop:  -- explain
  • move forward
  • scan perimeter  -- explain
  • if scan found enemy then goto #scan  -- explain
  • long range scan  -- explain
  • if scan found flag then if damage is > 0 then goto flagloop  -- explain
  • if scan found enemy then if missile ready then launch missile
  • if scan found enemy then if missile ready then goto missiles
  • if scan found enemy then goto accel_evade
  • if value #scan <> 5 then if value #inbound = 0 then if value #enemy_x <> #x_pos then if value #enemy_y <> #y_pos then goto err_ #cur_head  -- explain
  • if value #x_pos = #enemy_x then goto same_x_ #cur_head  -- explain
  • if value #y_pos = #enemy_y then goto same_y_ #cur_head  -- explain
  • if value #inbound >= 1 then goto locked_ #cur_head #inbound  -- explain
  • if scan found flag then if value #cur_life = 0 then if value #cur_ammo > 90 then goto err_ #cur_head  -- explain
  • goto getflag
  •  
  • hurtme:  -- explain
  • scan relative 1  -- explain
  • if value #scan = 5 then move backward
  • if damage is = 0 then discharge energy
  • return