; Daniel Pitts (DarkAura)'s  Coop-spider! Copyright (C) 1999

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

#def        evadeRet

    OUT     P_TRANSPONDER   0DC69h

    MOV     AX              1
    INT     I_KEEPSHIFT
!scan64
    MOV     AX              1
    INT     I_OVERBURN
    OUT     P_SCANARC       64
!loop64
    MOV     evadeRet        3064
    JEQ     !evade
    JNE     !evade
:3064
    IN      P_SCAN          AX
    MOV     BX              642
    ADD     BX              @3
    JNE     BX
    JEQ     BX
:642
    CMP     AX              MAXINT
    JNE     !scan16
    OUT     P_OFS_TURRET    128
    JEQ     !loop64
:640
    OUT     P_OFS_TURRET    -56
    JEQ     !scan8
    JNE     !scan8
:644
    OUT     P_OFS_TURRET    56
    JEQ     !scan8
    JNE     !scan8
:641
    OUT     P_OFS_TURRET    -32
    JEQ     !scan16
    JNE     !scan16
:643
    OUT     P_OFS_TURRET    32
    JEQ     !scan16
    JNE     !scan16

!scan16
    OUT     P_SCANARC       16
    IN      P_SCAN          AX
    MOV     BX              162
    ADD     BX              @3
    JNE     BX
    JEQ     BX
:162
    CMP     AX              MAXINT
    JNE     !scan4
    JEQ     !scan64
:160
    OUT     P_OFS_TURRET    -14
    JEQ     !scan2
    JNE     !scan2
:164
    OUT     P_OFS_TURRET    14
    JEQ     !scan2
    JNE     !scan2
:161
    OUT     P_OFS_TURRET    -8
    JEQ     !scan4
    JNE     !scan4
:163
    OUT     P_OFS_TURRET    8
    JEQ     !scan4             
    JNE     !scan4

!scan8
    OUT     P_SCANARC       16
    IN      P_SCAN          AX
    MOV     BX              82
    ADD     BX              @3
    JNE     BX
    JEQ     BX
:82
    CMP     AX              MAXINT
    JNE     !scan2
    JEQ     !scan64
:80
    OUT     P_OFS_TURRET    -7
    JEQ     !scan2
    JNE     !scan2
:84
    OUT     P_OFS_TURRET    7
    JEQ     !scan2
    JNE     !scan2
:81
    OUT     P_OFS_TURRET    -4
    JEQ     !scan2
    JNE     !scan2
:83
    OUT     P_OFS_TURRET    4
    JEQ     !scan2
    JNE     !scan2

!scan4
    OUT     P_SCANARC       16
    IN      P_SCAN          AX
    MOV     BX              42
    ADD     BX              @3
    JNE     BX
    JEQ     BX
:42
    INT     I_TID
    CMP     FX              0DC50h
    JLS     !advanceScan4
    CMP     FX              0DD00h
    JGE     !advanceScan4
    OUT     P_OFS_TURRET    64
    JLS     !scan64
!advanceScan4
    OUT     P_FIRE
    CMP     AX              MAXINT
    JNE     !scan2
    JEQ     !scan64
:40
    OUT     P_OFS_TURRET    -3
    JEQ     !scan2
    JNE     !scan2
:44
    OUT     P_OFS_TURRET    3
    JEQ     !scan2
    JNE     !scan2
:41
    OUT     P_OFS_TURRET    -2
    JEQ     !scan2
    JNE     !scan2
:43
    OUT     P_OFS_TURRET    2
    JEQ     !scan2
    JNE     !scan2
!scan2
    MOV     AX              0
    INT     I_OVERBURN
    OUT     P_SCANARC       4
    MOV     evadeRet        302
!loop2
    JEQ     !evade
    JNE     !evade
:302
    IN      P_SCAN          AX
    JEQ     @3
    JNE     @3
*0,0,0,2
    CMP     AX              MAXINT          
    JEQ     !scan64
*-2,0,0,2
*2,0,0,2
*-1,0,0,2
*1,0,0,2
    INT     I_TID
    CMP     FX              0DC50h
    JLS     !advanceScan
    CMP     FX              0DD00h
    JLS     !scan64
!advanceScan
    IN      P_HEAT          AX
    CMP     AX              225
    JGR     !loop2
    OUT     P_FIRE          @3
    OUT     P_OFS_TURRET    @3
    OUT     P_FIRE          @3
    JEQ     !loop2
    JNE     !loop2
    
!evade
    INT     I_TIMER
    CMP     FX              8096
    JGR     !TIMETODIE
    CMP     @0              100
    JEQ     !throttleOkay
    OUT     P_THROTTLE      100
!throttleOkay
    INT     I_LOCATE
    CMP     EX              800
    JGE     !up
    CMP     FX              800
    JGE     !right
    CMP     EX              200
    JLE     !down
    CMP     FX              200
    JLE     !left
    JGR     evadeRet
!up
    CMP     FX              200
    JLE     !left
    MOV     AX              @1
    NEG     AX
    OUT     P_STEERING      AX
    JGR     evadeRet
!down
    CMP     FX              800
    JGE     !right
    MOV     AX              128
    SUB     AX              @1
    OUT     P_STEERING      AX
    JLS     evadeRet
!left
    CMP     EX              200
    JLE     !down
    MOV     AX              192
    SUB     AX              @1
    OUT     P_STEERING      AX
    JGR     evadeRet
!right
    CMP     EX              800
    JGE     !up
    MOV     AX              64
    SUB     AX              @1
    OUT     P_STEERING      AX
    JLS     evadeRet

!TIMETODIE
    INT     I_DEATHS
    MPY     FX             320
    DEL     FX
    INT