;redcode-94nop
;name Velvet Glove
;author Fizmo
;strategy qscan, silk and imps
;assert CORESIZE==8000

pStep1 EQU   310
pStep2 EQU   3044
pBomb  EQU   2335
bDist  EQU   1434
iStep  EQU   2667

s1      spl     @0,     <pStep1
        mov     }-1,    >-1
s2      spl     @0,     <pStep2
        mov     }-1,    >-1
        mov.i   #1,     <1
	spl     -2,     <pBomb
imp     mov.i   #iStep, *0

pStart  spl     1,      imp+1
pB1     spl     1,      imp+1
        mov     -1,     0

        mov     <pStart,<g1
        mov     <pB1,   <g2
        mov     <pB2,   <pG2

pB2     spl     g3,     imp+1
pG1     spl     g2,     <300
g1      jmp     @0,     imp+1+bDist
g2      jmp     @0,     imp+1+bDist+iStep 
g3      mov     <-300,  -304
pG2     jmp     @0,     imp+1+bDist+2*iStep

for 39
dat 0, 0
rof

org qGo

qf 	equ 	qKil
qs 	equ 	200
qd 	equ 	4000
qi 	equ 	7
qr 	equ 	8

qBmb	dat   	{qi*qr-10, {1
qGo  	seq   	qd+qf+qs, qf+qs
     	jmp   	qSki, {qd+qf+qs+qi+2
     	sne   	qd+qf+5*qs, qf+5*qs
     	seq   	qf+4*qs, {qTab
	jmp   	qFas, }qTab
     	sne   	qd+qf+8*qs, qf+8*qs
     	seq   	qf+7*qs, {qTab-1
     	jmp   	qFas, {qFas
	sne   	qd+qf+10*qs, qf+10*qs
     	seq   	qf+9*qs, {qTab+1
	jmp   	qFas, }qFas
	seq   	qd+qf+2*qs, qf+2*qs
	jmp   	qFas, {qTab
	seq   	qd+qf+6*qs, qf+6*qs
	djn.a 	qFas, {qFas
	seq   	qd+qf+3*qs, qf+3*qs
        jmp   	qFas, {qd+qf+3*qs+qi+2
	sne   	qd+qf+14*qs, qf+14*qs
	seq   	qf+13*qs, <qTab
	jmp   	qSlo, >qTab
	sne   	qd+qf+17*qs, qf+17*qs
	seq   	qf+16*qs, <qTab-1
	jmp   	qSlo, {qSlo
	seq   	qd+qf+11*qs, qf+11*qs
	jmp   	qSlo, <qTab
	seq   	qd+qf+15*qs, qf+15*qs
	djn.b 	qSlo, {qSlo
	sne   	qd+qf+12*qs, qf+12*qs
	jmz   	pStart, qd+qf+12*qs-qi
  
qSlo  mov.ba 	qTab, qTab
qFas  mul.ab 	qTab, qKil
qSki  sne   	qBmb-1, @qKil
      add   	#qd, qKil
qLoo  mov.i  	qBmb, @qKil
qKil  mov.i  	qBmb, *qs
      sub.ab 	#qi, qKil
      djn    	qLoo, #qr
      jmp    	pStart, <-4000
      dat   	5408, 7217
qTab  dat   	4804, 6613
dSrc  dat   	5810, qBmb-5 

end