Best Objectech Shareware Selections/UNTITLED.iso/boss/game/misc/003/flagshp2.src

Text File | 1993-04-26 | 1.3 KB | 118 lines

# this is the command ship of a fleet of five ships
# orders are 0=attack nearest, 1..n=attack #
$trp 000
$eng 000
$msh 010
$rsh 010
$pwr 000
set k 001
set l 005
set b 000
set c 001
set d 002
set e 003
set f 004
set s 099
set t 010
set u 255
@main loop
set h 000
set i 000
set j 000
#finds least shielded enemy ship
set v 002
set n 200
set m 200
mlt n m
set m 001
set w 001
@lp1
set x 001
shl
cpy a b
set x 002
shl
add b a
set x 003
shl
add b a
set x 004
shl
add b a
bgr b n @in1
dam
bgr a s @in1
cpy w m
cpy b n
@in1
add w k
bgr w t @next0
dam
bne a u @lp1
#finds least damaged/best offensive friendly ship
@next0
set v 001
set n 001
set o 000
set w 002
@lp2
dam
set b 100
sub b a
trp
mlt b x
blt b o @in2
cpy w n
cpy b o
@in2
add w k
blt w l @lp2
bne n d @try3
cpy m h
jmp @next1
@try3
bne n e @try4
cpy m i
jmp @next1
@try4
cpy m j
@next1
#finds second least damaged/best offensive friendly ship
set o 001
set p 000
set w 002
@lp3
dam
set b 100
sub b a
trp
mlt b x
blt b p @in3
beq w n @in3
cpy w o
cpy b p
@in3
add w k
blt w l @lp3
bne o d @try23
cpy m h
jmp @next2
@try23
bne o e @try24
cpy m i
jmp @next2
@try24
cpy o j
@next2
set w 002
cpy h x
tel
set w 003
cpy i x
tel
set w 004
cpy j x
tel
jmp @main loop
$end