;redcode-94nop
;name The Humanizer
;author bvowk/fiz
;strategy
;assert 1
;optimax pws

pBov    equ     956  ;453
pAwa    equ     qbomb+790

zero    equ     qbomb 
qtab3   equ     qbomb 

qbomb   dat     >qoff,          >qc2 
xGo     spl     pGo,            <875 

        spl     2,              <qb1 
qtab2   spl     1,              <qb2 
        spl     1,              <qb3 

        mov     <pBoo,          {pBoo 
pBoo    spl     pAwa,           pAmmo+1 
        djn.f   *-1,            <2058 

    for 5
        dat     0,              0 
    rof 

pGo     mov     <pBoo,          {pBoo 
        spl     1,              <479 
        spl     1,              <3231 
        spl     1,              <848 
        mov.i   <pBo1,          {pBo1
pBo1    spl     zero+pBov,      pEnd
        mov.i   }pBo1,          >pBo2
pBo2    jmp.f   zero+pBov+235,  zero+pBov+235

        dat     zero-1,         qa1 
qtab1   dat     zero-1,         qa2 

pStone  spl     #2*2862,        {2*2862 
        mov     pAmmo,          *2 
        add.f   pStone,         1 
        mov     4655,           4655+2862 
pSrcS   jmp     -3,             pStone 
        dat     0,              0 
pAmmo   dat     }1,             >1 


for 8+1
 dat 0, 0 
 rof 

        spl.b   @0,             >286
        mov.i   }-1,            >-1
        spl.b   @0,             <1040
        mov.i   }-1,            >-1
        spl.b   @0,             }1879
        mov.i   }-1,            >-1
        mov.i   #-3581,         {1
        mov.i   >705,           }-10
pEnd    dat     0,              0

    for 18-1
        dat     0,              0 
    rof 

qc2 equ ((1 + (qtab3-qptr)*qy) % CORESIZE) 
qb1 equ ((1 + (qtab2-1-qptr)*qy) % CORESIZE) 
qb2 equ ((1 + (qtab2-qptr)*qy) % CORESIZE) 
qb3 equ ((1 + (qtab2+1-qptr)*qy) % CORESIZE) 
qa1 equ ((1 + (qtab1-1-qptr)*qy) % CORESIZE) 
qa2 equ ((1 + (qtab1-qptr)*qy) % CORESIZE) 
qz equ 2108 
qy equ 243 
qgo sne qptr + qz*qc2, qptr + qz*qc2 + qb2 
 seq <qtab3, qptr + qz*(qc2-1) + qb2 
 jmp q0, }q0 
 sne qptr + qz*qa2, qptr + qz*qa2 + qb2 
 seq <qtab1, qptr + qz*(qa2-1) + qb2 
 jmp q0, {q0 
sne qptr + qz*qa1, qptr + qz*qa1 + qb2 
 seq <(qtab1-1), qptr + qz*(qa1-1) + qb2 
 djn.a q0, {q0 
 sne qptr + qz*qb3, qptr + qz*qb3 + qb3 
 seq <(qtab2+1), qptr + qz*(qb3-1) + (qb3-1) 
 jmp q0, }q1 
sne qptr + qz*qb1, qptr + qz*qb1 + qb1 
 seq <(qtab2-1), qptr + qz*(qb1-1) + (qb1-1) 
 jmp q0, {q1 
 sne qptr + qz*qb2, qptr + qz*qb2 + qb2 
 seq <qtab2, qptr + qz*(qb2-1) + (qb2-1) 
 jmp q0 
 seq >qptr, qptr + qz + (qb2-1) 
 jmp q2, <qptr 
seq qptr+(qz+1)*(qc2-1),qptr+(qz+1)*(qc2-1)+(qb2-1) 
 jmp q0, }q0 
seq qptr+(qz+1)*(qa2-1),qptr+(qz+1)*(qa2-1)+(qb2-1) 
 jmp q0, {q0 
seq qptr+(qz+1)*(qa1-1),qptr+(qz+1)*(qa1-1)+(qb2-1) 
 djn.a q0, {q0 
 jmz.f xGo, qptr + (qz+1)*(qb2-1) + (qb2-1) 
qoff equ -87 
qstep equ -7 
qtime equ 14 
q0 mul.b *2, qptr 
q2 sne {qtab1, @qptr 
q1 add.b qtab2, qptr 
 mov qtab3, @qptr 
qptr mov qbomb, }qz 
 sub #qstep, qptr 
 djn -3, #qtime 
 jmp xGo 
end qgo