Warrior: Skybuck's DivideAndConcuerV2, (turns into tieing ..

; Don't fight, don't try to kill, just stay alive =D, why can't we all just
be friends ?

;redcode
;name DivideAndConquerV2
;author Skybuck Flying
;strategy Divide and Concuer, Turns into tieing imps.
;version 2
;date 25-1-2008
;assert 1
WarriorBegin
WarriorLength equ (WarriorEnd-WarriorBegin)

Initialization

Copy
mov }Source, >Dest
Loop djn Copy, #WarriorLength
sub #(WarriorLength-(SpawnHere-WarriorBegin)), $Dest
spl @Dest
SpawnHere
mov.ab #WarriorLength, $Loop
mov.a #(WarriorBegin-Source), $Source
div #2, $Dest
djn Copy, #8
mov Bomb, >BombCounter
jmp -1

Source
Dest
dat #WarriorBegin, #(CORESIZE / 2) - (WarriorLength / 2)
Bomb mov $0, $1
BombCounter dat $0, $1
WarriorEnd