From news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!howland.reston.ans.net!Germany.EU.net!main.Germany.EU.net!fu-berlin.de!news.th-darmstadt.de!uni-erlangen.de!kue!lrz-muenchen.de!news Fri Jul 19 10:32:43 1996 Article: 5631 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!howland.reston.ans.net!Germany.EU.net!main.Germany.EU.net!fu-berlin.de!news.th-darmstadt.de!uni-erlangen.de!kue!lrz-muenchen.de!news From: guenzel@extern.lrz-muenchen.de (Bjoern Guenzel) Newsgroups: rec.games.corewar Subject: justice 2 Date: Thu, 18 Jul 1996 00:04:17 GMT Organization: Tichy Works Lines: 59 Distribution: world Message-ID: <4sjr8d$o5q@sparcserver.lrz-muenchen.de> NNTP-Posting-Host: dial048.ppp.lrz-muenchen.de X-Newsreader: Forte Free Agent 1.0.82 Here is justice 2, probably my best bomber so far. It is defenseless against paper and probably some other things, though, and doesn't make the hill on it's own these days :-( It is derived from the self-justice engine, the differences are a mod 4 bombing pattern instead of mod 5, a torch-style djn-stream protection instead of a djn-stream, a d-clear, and also the switch to the clear is more stable than in self-justice. Bjoern ;redcode-94 ;name justice 2 ;author bjoern guenzel ;strategy bomber ;strategy v2: test new clear ;assert CORESIZE==8000 ;kill justice jstep equ 3364 jshift equ -1234 jcptr dat >jstart,#jbomb+2 jcb dat <-2668,#jbomb+2-jcptr dat 0,0 jstart spl #0,>jcptr-2 jptr mov.i jbomb,*(jhit+3*jstep) mov.i jbomb,@jptr ;this bomb hits jhit add.ab #2*jstep,jptr jmz.b jptr,#0 mov.i jcb,>jcptr djn.f -1,>jcptr jbsource dat 0,0 jsplit spl #0,<0 for 3 stp.ab >0,#0 rof jbomb mov.i jstep,1 jboot mov.i jsplit,@jbooptr ;move spl to jhit+jstep mov.i jbomb,*jbbooptr for 10 mov.i {jbsource,{jbooptr rof jbooptr spl *jbsource+jshift,jhit+jstep+jshift mov.f 0,jbooptr jbbooptr div.f #jbomb+jshift,#0 dat 0,0 z for (MAXLENGTH-CURLINE)/2 spl #z*102,#z*101 stp >0,#1 rof end jboot