From news-rocq!jussieu.fr!fr.usenet-edu.net!usenet-edu.net!arclight.uoregon.edu!logbridge.uoregon.edu!newsrelay.iastate.edu!ng1.icn.state.ia.us!news Wed Feb 21 10:31:42 2001 Article: 12262 of rec.games.corewar Path: news-rocq!jussieu.fr!fr.usenet-edu.net!usenet-edu.net!arclight.uoregon.edu!logbridge.uoregon.edu!newsrelay.iastate.edu!ng1.icn.state.ia.us!news From: "Paul Kline" Newsgroups: rec.games.corewar Subject: Recount Date: Tue, 20 Feb 2001 09:05:58 -0600 Organization: ICN News Server Lines: 55 Message-ID: <96u0he$qod@ng1.icn.state.ia.us> NNTP-Posting-Host: 207.28.198.141 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 5.00.2615.200 X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200 Xref: news-rocq rec.games.corewar:12262 Time to share some code, you all are encouraged to do likewise!!! Recount is a .66c scanner-bomber that drops one bomb and scans one location in a three-line loop. When the scanner detects something it resets the bomber to point to that location and decrements a counter, when the counter is zero Recount goes into a dclear. This allows Recount to run at .66c against quiet scanners, but quickly converts it to a more effective dclear against noisy bombers, imps, and replicators. To gain some tie protection against nPaper the dclear falls into a simple imp whenever it runs over a "xxx 1,1" instruction, this is nearly always effective in getting a tie because it converts Recount into something like a Worm. The imp is also the bomb, saving one instruction and more effective than a DAT, it acts as a cheap stun-bomb when dropped into a loop. There is no boot and no decoy since they just act to drop Recount out of bombing mode sooner. Qscan that! Recount seems to be a robust performer and hopefully will continue long on the no pspace hill. ;redcode-94 ;name Recount ;kill Recount ;author P.Kline ;assert CORESIZE == 8000 ;strategy semi-intel scanner/bomber, dclear, sometimes an imp ;strategy reacts differently against scanners and bomber/imps ;strategy uses imp safeguard against nPaper rStep equ 1010 rGate equ (rWipe-15) rClr dat <5335 ,rBomb+10-rGate dat 0 ,0 dat 0 ,0 raid add #rStep*2 ,rMove mov rBomb ,@rMove rMove jmz.f raid ,*rBomb sub #rStep ,@raid djn raid ,#12 rWipe spl #0 ,0 mov rClr ,>rGate djn.f -1 ,>rGate rBomb mov.i #rStep ,1 end raid+1 Paul Kline pk6811s@acad.drake.edu