;Cobra by Jude Hungerford. Created on 14/11/1999
;Last modified on: 26/2/2000.  Version number 0.08
!init
        #config scanner=3
        #config weapon=3
        #config armor=2
        #config engine=2
        #config heatsinks=2
        #config mines=0
        #config shield=0
        opo     17,     3       ;Narrow scan
        #def    lack
        #def    ptrn
        #def    trn
        mov     trn,    7
        mov     ptrn,   7
        
!steer
        in      @8,     bx      ;Collision detection
        cmp     bx,     0       ;collision?
        jnz     !colhandle      ;React to collision
        out     11,     100     ;ensure movement
        out     14,     trn     ;turn
        out     14,     @3      ;turn to target
        inc     lack            ;inc counter for direction change
        cmp     lack,   230     ;test for direction change
        jgr     !rsteer         ;change direction
        jmp     !scan
!scan
        in      7,      bx
        cmp     bx,     1500
        jls     !cspit          ;found
        jge     !steer
!cspit
        in      2,      dx      ; Are we burning?
        out     14,     @3
        cmp     dx,     250 
        jge     !steer
        cmp     dx,     10
        jls     !coverspit
        jge     !spit
!spit
        out     15,     0       ;fire
        out     15,     1       ;fire
        out     15,     -1       ;fire
        jmp     !scan
!coverspit
        in      7,      bx
        cmp     bx,     300
        jle     !overspit
        jmp     !spit
!overspit
        mov     AX,     1
        int     4,      AX      ;overburn on
        out     15,     0       ;fire
        out     15,     1       ;fire
        mov     AX,     -1       ;fire
        int     4,      AX      ;overburn off
jmp     !scan
!rsteer
        mov     lack,   0
        mov     trn,    ptrn
        neg     ptrn
jmp     !scan
!colhandle
        mov     lack,   0