;-=PEST=-

;Jeremiah Martell
;made by: Psuedo_Chaos
#msg Stinking Pest
        opo     17,     15
        mov     ax,     1
        int     3
:1
        opo     11,     50
        ipo     7,      ax
        cmp     ax,     1500
        jgr     2
        jbe     3
:2      ;nothing in scan
        opo     12,     10
        opo     14,     10      ;turn
        jmp     1
:3      ;something in scan
        mov     ex,     dx
        ipo     6,      dx
        add     dx,     75
        cmp     dx,     ex
        jls     4

        ipo     7,      ax      ;scan again
        cmp     ax,     1500
        jgr     1               ;if nothing there jump
        cmp     ax,     150
        jls     5
        jgr     6
:7
        ipo     8,      bx      ;find accuracy
        mpy     bx,     6      ;multiply bx 
        opo     12,     bx
        opo     14,     bx      ;turn based on accuracy
        
        ipo     2,      cx
        cmp     cx,     200
        jgr     3
        opo     15,     bx
        jmp     3
:4
        mov     fx,     15
        opo     12,     64
        opo     14,     64
:20
        opo     11,     100
        dec     fx
        cmp     fx,     0
        jgr     20
        jeq     1
:5
        opo     11,     0
        jmp     7
:6
        opo     11,     100     ;go!
        jmp     7