From schmc003@goofy.zdv.Uni-Mainz.de Mon Jun 29 18:48:22 1998 Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by tobago.inria.fr (8.6.10/8.6.6) with ESMTP id SAA15610 for ; Mon, 29 Jun 1998 18:48:22 +0200 Received: from mail.Uni-Mainz.DE (trudi.zdv.Uni-Mainz.DE [134.93.178.159]) by nez-perce.inria.fr (8.8.7/8.8.7) with ESMTP id SAA26866 for ; Mon, 29 Jun 1998 18:48:20 +0200 (MET DST) Received: from schmc003 (dialin86.zdv.Uni-Mainz.DE [134.93.174.86]) by mail.Uni-Mainz.DE (8.8.8/8.8.8) with SMTP id SAA24468 for ; Mon, 29 Jun 1998 18:48:18 +0200 (MET DST) Message-ID: <3597C42D.798F@goofy.zdv.uni-mainz.de> Date: Mon, 29 Jun 1998 18:43:26 +0200 From: Christian Schmidt X-Mailer: Mozilla 3.0 (Win95; I) MIME-Version: 1.0 To: Damien.Doligez@inria.fr Subject: new stuff Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Status: R Hi Damien, here are some more warriors with some comments for your achive: - Scanitator Pro - BiShot v1.0 - Digitalis 4 regards Christian ------------------------cut here------------------------------- ;redcode-94 ;name Scanitator Pro ;author Christian Schmidt ;strategy q^2 -> p-switching ;strategy - non-suicidal brainwashing paper (Dare) ;strategy - mod-2 superdwarf (Turbo Carbonite) ;assert 1 ;The next (and last?) version of my first successful warrior. ;The q^2-scanner is from obviouse... but with a tornado-style = ;bombing run. ;The pswitcher has three states. Two for the paper and one for ;the stone. It works much better than with only two states. ;The paper is from =91unrequited love=92 but with an additional ;brainwash. It confuses all those nasty p^2-warrior, while the ;self-brainwash seems not to be a handycap. I have also in mind = ;that it scores due to the additional brainwash slightly ;better against imp/stones. Believe me or not. ;The stone is launched similar to that one in =91Alien=92. I=92m not = ;shure if it really scores better but it looks nice :-) ;++++++++++++++++++++++++++++++++++++++++++++ ;+ q^2-scanner + ;++++++++++++++++++++++++++++++++++++++++++++ QS EQU (0-200) QD EQU 100 QB EQU (start-400) CR EQU (fnd-which) datz EQU (table-3) GAP equ 8 REP equ 15 qinc dat >(-1)*GAP*2, >GAP dat 9*QS, 1*QS = table: dat 5*QS, 2*QS = dat 13*QS, 17*QS = P: add.f table,table = slow: add.ab *P,fnd = fast: add.b @P,@-1 = which: sne.i datz,@fnd = add.ab #QD,fnd add.ba fnd, fnd qbo mov.i qinc, @fnd mov.i qinc, *fnd fnd mov.i (-1)*(GAP/2),@QB sub.x qinc, fnd djn.b qbo, #REP jmp pThink, }-300 start: seq.i QB+QS*0,QB+QS*0+QD jmp which, 0 = seq.i QB+QS*2,QB+QS*2+QD jmp fast, 0 = seq.i QB+QS*1,QB+QS*1+QD jmp fast,

P = seq.i QB+QS*7,QB+QS*7+QD jmp slow, 0 = seq.i QB+QS*6,QB+QS*6+QD jmp slow,

P = seq.i QB+QS*11,QB+QS*11+QD jmp slow, {P = seq.i QB+QS*15,QB+QS*15+QD jmp slow, }P = seq.i QB+QS*10,QB+QS*10+QD djn.f slow, P = seq.i QB+QS*5,QB+QS*5+QD jmp >fast, 0 = seq.i QB+QS*9,QB+QS*9+QD jmp >fast, {P = seq.i QB+QS*13,QB+QS*13+QD jmp >fast, }P = seq.i QB+QS*14,QB+QS*14+QD jmp P, 0 = seq.i QB+QS*8,QB+QS*8+QD jmp P,

-2000, }pStr = mod.a #3, pStr = win stp.ab pStr, pCell pStr jmp @0, rStart dat 0, rStart dat 0, cBoot ;++++++++++++++++++++++++++++++++++++++++++++ ;+ Carbonite + ;++++++++++++++++++++++++++++++++++++++++++++ cBptr equ (-1500) cBoot mov cBomb, cSp+cBptr+198 mov cSp, cSp+cBptr mov cSp+1, cSp+cBptr+1 mov cSp+2, cSp+cBptr+2 mov cSp+3, cSp+cBptr+3 spl cSp+cBptr, <-1000 spl 1, <-2000 spl 1, <-3000 spl 1, <-4000 djn cSp+cBptr, <-5000 cSp spl #0, <-1151+3 mov 197, cAd-(197*3500) cAd add.ab {0, }0 = djn.f -2, <-1151 cBomb dat >-1, >1 ;++++++++++++++++++++++++++++++++++++++++++++ ;+ Dare + ;++++++++++++++++++++++++++++++++++++++++++++ rDest0 equ 7889 rDest1 equ 3602 rDest2 equ 4095 rRange equ 1253 = rStart spl 1, <-3000 mov 2, 0 mov 1, 0 spl 1, <-4000 = rCell spl @0, {rDest0 mov.i }-1, >-1 rCell1 spl @0, -1 mov rBomb, }rRange mov {rCell1, rDest2 stp.ab #0, #0 spl -1, >-1 rBomb dat <2667, <5334 end start ------------------------cut here------------------------------- ;redcode-94 ;name BiShot v1.0 ;author Christian Schmidt ;strategy .66c BiShot Scanner ;strategy v1.0 new stepsize, no boot and decoy ;assert 1 ;For comments see BiShot v0.3 sOff equ (20*sStep-1) sStep equ 10 sOne add.f sAdd, sPtr sne.i *sPtr, @sPtr jmp sOne, 0 jmp sBomb, 0 sAdd dat.f sStep, sStep for 2 dat 0, 0 rof dat 0, 0 ;scanned sPtr spl {sOff, >4000+sOff dat {10, >4010 sBomb spl #20, <-100 = sLoop mov sBomb, >sPtr mov sBomb, }sPtr sBack djn.a sLoop, clear/imp ;assert 1 org start QS EQU (0-200) QD EQU 100 QB EQU (start-350) CR EQU (fnd-which) datz EQU (table-3) GAP equ 8 REP equ 15 ist equ 1143 bptr1 equ 1800 qinc dat >(-1)*GAP*2, >GAP dat 9*QS, 1*QS = table: dat 5*QS, 2*QS = dat 13*QS, 17*QS = P: add.f table,table = slow: add.ab *P,fnd = fast: add.b @P,@-1 = which: sne.i datz,@fnd = add.ab #QD,fnd add.ba fnd, fnd qbo mov.i qinc, @fnd mov.i qinc, *fnd fnd mov.i (-1)*(GAP/2),@QB sub.x qinc, fnd djn.b qbo, #REP jmp boot, }-300 start: seq.i QB+QS*0,QB+QS*0+QD jmp which, 0 = seq.i QB+QS*2,QB+QS*2+QD jmp fast, 0 = seq.i QB+QS*1,QB+QS*1+QD jmp fast,

P = seq.i QB+QS*7,QB+QS*7+QD jmp slow, 0 = seq.i QB+QS*6,QB+QS*6+QD jmp slow,

P = seq.i QB+QS*11,QB+QS*11+QD jmp slow, {P = seq.i QB+QS*15,QB+QS*15+QD jmp slow, }P = seq.i QB+QS*10,QB+QS*10+QD djn.f slow, P = seq.i QB+QS*5,QB+QS*5+QD jmp >fast, 0 = seq.i QB+QS*9,QB+QS*9+QD jmp >fast, {P = seq.i QB+QS*13,QB+QS*13+QD jmp >fast, }P = seq.i QB+QS*14,QB+QS*14+QD jmp P, 0 = seq.i QB+QS*8,QB+QS*8+QD jmp P,

2667, 25 clear spl #0, >ptr-16 loop mov clrb-16, >ptr-16 cc djn.f loop, >ptr-16 bptr3 dat cc+1, boot2+bptr1+19