; copyright by Michal Borowski
; my first simple, rather primitive robot
; contact: el_boro@poczta.onet.pl

#def target
#def skan
#def heat
#def s_acc

#msg    submarine

        opo     p_scanarc, 4            ; szerokosc skanera
:1
        opo     p_throttle, 80          ; predkosc
        ipo     p_scan, target          ; skanowanie w poszukiwaniu przeciwnika
        cmp     target, 1500            ; jesli jest blizej niz 1500
        jb      3                       ; to idz do petli 2
        opo     p_steering, 8           ; jesli nie to skrec
        jmp 1                           ; powrot do poczatku 1

:2
        ipo     8, s_acc
        opo     p_steering, s_acc
        ipo     p_scan, target
        cmp     target, 1500
        ja      5
        ipo     p_heat, heat
        cmp     heat, 200
        ja      2
        cmp     target, 200
        jb      7
        jmp     3

:3

        opo     15, s_acc
        opo     18, 0
        jmp     2

:5
        opo     p_scanarc, 16
        ipo     p_scan, target
        opo     p_scanarc, 4
        ipo     8, s_acc
        cmp     s_acc, 0
        ja      1
        jb      6
        jmp     1

:6
        opo     p_throttle, 80          ; predkosc
        ipo     p_scan, target          ; skanowanie w poszukiwaniu przeciwnika
        cmp     target, 1500            ; jesli jest blizej niz 1500
        jb      3                       ; to idz do petli 2
        opo     p_steering, -8          ; jesli nie to skrec
        jmp     6


:7
        opo     18, 1
        jmp     3