opo 22, 12 #config armor=2 ; consumes 2 points #config scanner=3 ; gives us 5 points #config engine=3 ; gives us 2 points #config heatsinks=1 ; gives us 1 point #config weapon=3 ; gives us 2 points #def axnd #def arc #def heat #def scan #def turn #def other #msg I WILL WIN!!! opo 11, 100 mov ax, 1 int 3 opo 22, 12 !64-nt opo 12, 128 je 64 jne 64 :64 call !heat64 :642 opo 17, 64 ipo 7, scan cmp scan, 2000 jgr !64-nt mov fx, @3 shl fx, 5 opo 12, fx opo 15 :16 call !heat16 :162 opo 17, 16 ipo 7, scan cmp scan, 2000 jgr 64 mov fx, @3 shl fx, 3 opo 12, fx opo 15 :4 call !heat4 :42 opo 17, 4 ipo 7, scan cmp scan, 2000 jgr 16 mov fx, @3 shl fx, 1 opo 12, fx opo 15 :2 call !heat2 :22 opo 17, 2 ipo 7, scan cmp scan, 2000 jgr 4 cmp @7, 0 je !FIRE call !heatob opo 15, @3 opo 15, @3 opo 12, @3 opo 18, 0 je 2 jne 2 !FIRE opo 15, @3 opo 15, @3 opo 15, @3 opo 15, @3 opo 15, @3 opo 15, @3 opo 15, @3 je 4 jne 4 !heat64-nt opo 12, 128 !heat64 call !m1 ipo 2, heat cmp heat, 200 jls 642 opo 17, 64 ipo 7, scan cmp scan, 2000 jgr !heat64-nt mov fx, @3 shl fx, 5 opo 12, fx !heat16 call !m1 ipo 2, heat cmp heat, 200 jls 162 opo 17, 16 ipo 7, scan cmp scan, 2000 jgr !heat64 mov fx, @3 shl fx, 3 opo 12, fx !heat4 call !m1 ipo 2, heat cmp heat, 200 jls 42 opo 17, 4 ipo 7, scan cmp scan, 2000 jgr !heat16 mov fx, @3 shl fx, 1 opo 12, fx !heat2 call !m1 ipo 2, heat cmp heat, 200 jls 22 ipo 7, scan cmp scan, 2000 jgr !heat4 opo 12, @3 je !heat2 jne !heat2 !heatob ipo 2, heat cmp heat, 180 jgr !heat-2big opo 18, 1 !heat-2big ret !m1 !move opo 11, 100 int 2 cmp ex, 100 jls !mleft cmp ex, 900 jgr !mright cmp fx, 100 jls !mup cmp fx, 900 jgr !mdown je !mclear jne !mclear !mleft ipo 3, other mov dx, 64 sub dx, other opo 14, dx ret !mright ipo 3, other mov dx, 192 sub dx, other opo 14, dx opo 11, 100 ret !mdown ipo 3, other mov dx, 0 sub dx, other opo 14, dx opo 11, 100 ret !mup ipo 3, other mov dx, 128 sub dx, other opo 14, dx opo 11, 100 ret !mclear opo 11, 100 mov turn, 64 add turn, @6 opo 14, turn ipo 17, arc cmp ax, 1 jgr !m2 opo 14, -32 inc ax ret !m2 opo 14, 32 dec ax ret