;-=CRAZY=-

;Jeremiah Martell
;made by Psuedo_Chaos
#msg It only takes once
#def speed
#def emotion
#def pd
        mov     speed,  75
        mov     emotion,        1
        mov     pd,     -1
        mov     ax,     1   ;_Put keepshift on
        int     3           ;
        xor     ax,     ax
        opo     17,     10      ;sets scan arc
:1      ;moving around
        opo     14,     8      ;turn
        opo     11,     speed   ;move
        cmp     speed,  100     ;\
        jeq     5               ; \_see if needs to change speed
        cmp     speed,  -75     ; \
        jeq     5               ;/
:2
        add     speed,  pd
        ipo     7,      ax      ;scan
        cmp     ax,     1500    
        jls     3               ;if something is there then jump
        opo     12,     20      ;rotate turret
        jmp     1
:3
        ipo     2,      bx
        cmp     bx,     0
        jgr     1
        ;mov     ax,     1       ;\_Sets overburn on
        ;int     4               ;/
        ipo     8,      cx
        shl     cx,     3
        opo     12,     cx
        opo     15
        opo     15,     2
        opo     15
        opo     15,     -2
        opo     15
        opo     15,     2
        opo     15
        opo     15,     -2
        opo     15
        opo     15
        opo     15
        opo     15,     2
        opo     15
        opo     15,     -2
        opo     15
        opo     15,     2
        opo     15
        opo     15,     -2
        opo     15
        opo     15

        ;mov     ax,     0       ;\_ Turns overburn off
        ;int     4               ;/
        jmp     1

:5
        neg     pd
        jmp     2