From news-rocq.inria.fr!univ-lyon1.fr!howland.erols.net!feed1.news.erols.com!insync!news.azstarnet.com!franz Sat Dec 14 18:06:37 1996 Article: 6801 of rec.games.corewar Path: news-rocq.inria.fr!univ-lyon1.fr!howland.erols.net!feed1.news.erols.com!insync!news.azstarnet.com!franz From: franz@rotten.com (George Lebl) Newsgroups: rec.games.corewar Subject: Fast Fast Fast Date: 13 Dec 1996 10:57:40 GMT Organization: Starnet Lines: 136 Message-ID: Reply-To: franz@azstarnet.com NNTP-Posting-Host: usr12ip50.azstarnet.com X-Newsreader: slrn (0.9.2.0 BETA UNIX) Well it doesn't do too well but oh well here is teh source for fast fast fast which has a different bombing routine for qscan and it also spreads a bit faster then cc paper/tiberius since old copies are killed and it's one line shorter ;redcode-94 ;name Fast Fast Fast ;author Franz ;strategy qscan+silk ;strategy Somewhat like Tiberius but lenght-8, no loop on bomb, and kills ;strategy itself on last bomb, no longer can this be called a coreclear ;strategy The Qscan used is probes scanning, my bombing routine ... not ;strategy much improvement seen against probe but the code for the q scan ;strategy is smaller, faster bombing but slower response (not much) ;url http://www.azstarnet.com/~franz ;assert CORESIZE==8000 fcp EQU 3030 scp EQU 2365 tcp EQU 777 QB EQU (start+400) QS EQU 200 QD EQU 100 COUNT EQU 6 GAP EQU 15 REP EQU 4 ORG start dat 10*QS,2*QS ; can get 21 values from this table table dat 4*QS,1*QS ; and can also use the initial value dat 23*QS,3*QS ; of fnd qinc dat >(-1)*GAP*2,>GAP tab add.a table,table slow add.ab @tab,fnd fast add.b *tab,@slow which sne.i datz,@fnd add.ab #QD,fnd add.ba fnd,fnd qbomber mov.i qinc,@fnd mov.i qinc,*fnd fnd mov.i (-1)*(GAP/2),@QB ;fnd mov.i (-1)*(GAP*3)/2,@QB sub.x qinc,fnd djn.b qbomber,#REP jmp boot,}-300 start seq.i QB+QS*0,QB+QS*0+QD jmp which,}QS*13 seq.i QB+QS*1,QB+QS*1+QD jmp fast,}QB+QS*1+QD/2 seq.i QB+QS*2,QB+QS*2+QD jmp fast,{tab seq.i QB+QS*3,QB+QS*3+QD jmp fast,}tab seq.i QB+QS*4,QB+QS*4+QD jmp >fast,}QB+QS*4+QD/2 seq.i QB+QS*5,QB+QS*5+QD jmp slow,}QB+QS*5+QD/2 seq.i QB+QS*6,QB+QS*6+QD jmp slow,{tab seq.i QB+QS*7,QB+QS*7+QD jmp slow,}tab seq.i QB+QS*8,QB+QS*8+QD jmp fast,fast,>tab seq.i QB+QS*24,QB+QS*24+QD jmp slow,>tab seq.i QB+QS*27,QB+QS*27+QD jmp tab seq.i QB+QS*28,QB+QS*28+QD jmp tab,>tab seq.i QB+QS*30,QB+QS*30+QD jmp tab,}tab jmp boot,>4000 for 22 dat 0,0 rof boot ;letz get 8 processes together spl 1,>-3000 spl 1,>-2000 spl 1,>-1000 frog spl @0, -1 spl @0, -1 spl @0, -1 mov >6000, <5000 mov >2000, <8 datz end -- -------------------------------------------------------------------------------- Sex Pistols RULE!!! franz@azstarnet.com