From corewar-l@stormking.com  Sun May 26 21:24:30 1996
Received: by couchey.inria.fr (5.57/Ultrix3.0-C)
	id AA05821; Sun, 26 May 96 21:24:30 +0200
Received: from uu3.psi.com (uu3.psi.com [38.145.250.2]) by nez-perce.inria.fr (8.7.1/8.7.1) with SMTP id VAA01574 for <damien.doligez@inria.fr>; Sun, 26 May 1996 21:24:26 +0200 (MET DST)
Received: by uu3.psi.com (5.65b/4.0.940727-PSI/PSINet) via UUCP;
        id AA23211 for ; Sun, 26 May 96 14:57:10 -0400
Received: from  (server@localhost [127.0.0.1]) by valhalla.stormking.com (8.6.12/8.6.12) with SMTP id OAA14225; Sun, 26 May 1996 14:27:10 -0400
Date: Sun, 26 May 1996 14:27:10 -0400
Message-Id: <4o9h0i$j64@sparcserver.lrz-muenchen.de>
Errors-To: tuc@stormking.com
Reply-To: guenzel@extern.lrz-muenchen.de
Originator: corewar-l@stormking.com
Sender: corewar-l@stormking.com
Precedence: bulk
From: guenzel@extern.lrz-muenchen.de (Bjoern Guenzel)
To: Multiple recipients of list <corewar-l@stormking.com>
Subject: self justice
X-Listprocessor-Version: 6.0b -- ListProcessor by Anastasios Kotsikonas
X-Comment: Usenet News "rec.games.corewar"

And here is the first component of 'the historian' - a quick hack
inspired by Beppe Bezzi's suggestion of the mov step,1 bomb.
At first submission it was pushed off after two challenges, but
strange enough in dummy brain it went to pos 4 and lastet a bit
longer. Dummy brain was executing 5 nops before booting self justice,
in addition there was more decoy. I don't think self justice is very
special, but it does well against many warriors (good attack on Core
Clears).


Bjoern


;redcode-94
;name self justice
;author bjoern guenzel
;strategy test nice bombs suggested by beppe bezzi
;strategy torch-like bomber, and only mod 5 :-(
;strategy 10,5 vulnerable instructions...
;assert CORESIZE==8000 
;kill test

jstep		equ 3315
jshift		equ -1234

jcptr		dat 0,0
		dat 0,0
		dat 0,0
jsplit		spl #0,#0
jptr		mov.i jbomb,*jhit+3*jstep
		mov.i jbomb,@jptr
jhit		add.ab #2*jstep,jptr
		djn.f jptr,<-5000
		mov.i jcb,>jcptr
		djn.f -1,{jcptr
jcb		dat #-1,<jcb-jcptr+20
jbomb		mov.i jstep,1

jbsource	dat 0,0


jboot		mov.i jsplit,@jbooptr		;move spl to jhit+jstep

for 9
		mov.i {jbsource,{jbooptr
rof		
jbooptr		spl jbsource+jshift,jhit+jstep+jshift
		mov.i 0,-1
		dat 0,0
for MAXLENGTH-CURLINE
		dat 0,0
rof

		end jboot