;S-17 Rommel
;Shockfrost
;
;The Rommel is designed to be a hard case. He's almost blind.
;If anyone gets too close, though...
;
;----------HARDPOINT ASSIGNMENT-----------

#CONFIG Shield=5
#CONFIG Scanner=0
#CONFIG Weapon=0
#CONFIG Armor=5
#CONFIG Engine=0
#CONFIG Heatsinks=2
#CONFIG Mines=0


#MSG S17=Rommel=Online.=
;    <-----------------> MSG Length




;INITIALIZATION / PRIMARY FUNCTION - Softpoint 1
;Module Comments:

; Watch this guy get fried out there :-) He doesn't even MOVE!



;Primary Code

:1
nop
jmp 6  ;SHIELDS!
:16    ;Return gate for Shield Mechanism
jmp 4  ;NOW FIRE!
:14    ;Return gate for Firing Mechanism

jmp 1  ;AGAIN!! (Pretty simple eh?) End main





;FIRING / ASSAULT MECHANISM - Softpoint 4
;Module Comments:

; HARDTack blind missile fire
; Fires bullets in random directions, while shields are up UNLESS someone is too close
; Abstains from firing while shields are down to let the engines cool

:4
ipo 24 ax
cmp ax 0
jeq 14
ipo 9 ax
cmp ax 250
jls 401
ipo 10 ax
and ax 255
opo 12 ax
opo 15
jmp 14

:401
opo 17 64
ipo 7 ax
cmp ax 1500
jgr 402
ipo 8 ax
mpy ax 32
opo 12 ax
opo 17 16
ipo 7 ax
cmp ax 1500
jgr 401
ipo 8 ax
mpy ax 8
opo 12 ax
opo 17 4
ipo 7 ax
cmp ax 1500
jgr 401
jmp 403

:402
ipo 9 ax
cmp ax 250
jgr 4
opo 12 128
jmp 401

:403   ;GOT YOU!
ipo 2 ax
cmp ax 200
jgr 6
opo 15
opo 15 -4
opo 15 4
opo 15 -3
opo 15 3
opo 15 -2
opo 15 2
opo 15 -1
opo 15 1
opo 15
opo 15 -4
opo 15 4
opo 15 -3
opo 15 3
opo 15 -2
opo 15 2
opo 15 -1
opo 15 1
jmp 14





;SHIELD OPERATION MECHANISM - Softpoint 6
;Module Comments:

; HARDTack Shield mechanism raises shields when heat is below 50, and drops them when it 
; hits 200.

:6
ipo 2 ax
cmp ax 50     ;Shield engage point - currently 50
jls 601
cmp ax 200    ;Shield release point - currently 200
jgr 602
jmp 16

:601
opo 24 1
jmp 16

:602
opo 24 0
jmp 16