From corewar-l@stormking.com Wed Jan 10 19:26:40 1996 Received: by couchey.inria.fr (5.57/Ultrix3.0-C) id AA12771; Wed, 10 Jan 96 19:26:40 +0100 Received: from valhalla.stormking.com (root@valhalla.stormking.com [204.141.14.1]) by nez-perce.inria.fr (8.7.1/8.7.1) with SMTP id TAA07666 for ; Wed, 10 Jan 1996 19:26:34 +0100 (MET) Received: from (server@localhost [127.0.0.1]) by valhalla.stormking.com (8.6.12/8.6.12) with SMTP id NAA14106; Wed, 10 Jan 1996 13:18:21 -0500 Date: Wed, 10 Jan 1996 13:18:21 -0500 Message-Id: <9601101759.AA16636@su4-1.ida.liu.se> Errors-To: tuc@stormking.com Reply-To: d91andiv@und.ida.liu.se Originator: corewar-l@stormking.com Sender: corewar-l@stormking.com Precedence: bulk From: Anders Ivner To: Multiple recipients of list Subject: seventyfive X-Listprocessor-Version: 6.0b -- ListProcessor by Anastasios Kotsikonas X-Comment: Usenet News "rec.games.corewar" I think it's time to publish my new 75% bomber. I think at least one person figured it out from my description, Maurizio, who submitted an 80% bomber a few days ago. Also Wayne has a warrior in the oversized holding pen at pizza called '75 ?'. Here is the engine: b1 dat #2*STEP,#2*STEP c dat #3*STEP,#3*STEP loop add c, pt mov b1, @pt pt cmp A, @A-STEP sub b1, pt djn loop, #COUNT As you can see, this is not a pure bomber, I cheat. This is really a bomber/cmp-scanner, but when the cmp finds something the pattern is realigned so that the bomb hits the scanned locations. The effect is that of a 75% bomber. The extension to an 80% bomber is obvious. In my first test I stole the skeleton from crow. The tornado engine could be straightforwardly replaced by the seventyfive engine. It scored about 5 points higher than crow. Unfortunately I have not been able to improve it. On the contrary, all my 'improvements' makes it drop 5 points on the hill :-( So all credits go to Karl Lewin. /Anders ;redcode-94 ;name seventyfive ;kill seventyfive ;author Anders Ivner ;assert (CORESIZE == 8000) ;strategy 75% bomber -> separate multipass coreclear ;strategy Credits to Karl Lewin for crow. STEP EQU 14 ORG bomber STEPB EQU 85 COUNT EQU 500 A equ (jump+STEPB*2) head dat #0, #tail+100 d1 dat <0, head mov.i @tail, >head tail djn.b go, {s1 for 74 dat 0,0 rof bd dat #2*STEPB,#2*STEPB incrb spl #3*STEPB,#3*STEPB dat 0, 0 bomber mov bd, @pt pt cmp A, @A-STEPB sub bd, pt add incrb, pt jump djn.b bomber, #COUNT jmp incr end