Path: ibmpcug!penny.ibmpcug.co.uk!pipex!howland.reston.ans.net!vixen.cso.uiuc.edu!newsrelay.iastate.edu!dunix.drake.edu!acad.drake.edu!pk6811s From: pk6811s@acad.drake.edu Newsgroups: rec.games.corewar Subject: Re: P.Kline Code Date: 1 Mar 95 09:52:33 CST Organization: Drake University, Des Moines, Iowa Lines: 102 Distribution: world Message-ID: <1995Mar1.095233@acad.drake.edu> References: <1995Feb28.122450.2029@rhodes> NNTP-Posting-Host: acad.drake.edu In article <1995Feb28.122450.2029@rhodes>, graham@harlie.mathcs.rhodes.edu (Randy Graham) writes: > I've been pulling and looking at previous months postings, pulling out > the good ones, and trying to improve my code. In Sep94, I found this > snippet by P.Kline > > step equ 13 > bomb dat step+step > tstdjn dat -1, -1 > > inc dat 3*step, 3*step > > next add inc, scan > mov bomb, @scan > scan seq.x 10*step, @9*step > sne *scan, tstdjn > djn next, #7700/(step*3) > attack ... >... This looks like the bomb/scan code from Rude Wind. It is designed to quickly bomb/scan once through core in an attempt to catch a large or slow-starting opponent like an imp or paper colony. If nothing is found it gets triggered by its own decoy and attacks that. After attacking it releases paper. Rude Wind has a very high win rate against 3-point imps. It attacks two of the imp-streams by bombing forward on each of them with a DAT <2666,<5334. One-shot scanning or bombing is a time-honored pre-launch strategy for an otherwise paper warrior. Paul Kline pk6811s@acad.drake.edu ;redcode-94 quiet ;name Rude Wind ;kill Rude Wind ;author P.Kline ;macro step equ 12 tstdjn dat 0,-1 pl1 spl #0 ; create multiple processes mov p2b,}scan ; anti-imp attack, part 1 mov >0,}5000 djn -2,#6 ; let one process through for paper launch spl 1,>200 ; mov.i -1,#0 ; create 6 processes spl 1,>300 ; mov 6 ; 1st paper p1c mov -1356 mov p1b,p1s p1b dat <2667,<5334 for 20 dat 0,0 rof pl2 add #(2*step)+2691,scan spl #0 ; create multiple processes mov p2b,>scan ; anti-imp attack, part 2 mov >0,}1000 djn -2,#6 ; let one process through for paper launch spl 1,<-100 ; mov.i -1,#0 ; create 6 processes spl 1,<-200 mov 6 ; 2nd paper p2c mov -1556 mov p2b,p2s p2b dat <2667,<5334 for 20 dat 0,0 rof inc dat 3*step,3*step bomb dat 0,step+step for 16 dat 0,0 rof next sub inc,scan ; scanner bombs one and scans two locations mov bomb,@scan ; in a four-instruction loop scan seq.x 7700+(10*step),@7700+(9*step) sne *scan,tstdjn ; ignore old-style djn-streams djn next,#7700/(step*3) mov p1b,-3500 ; end next+1