From oversby@marge.zfe.siemens.de Thu Aug 8 11:58:05 1996 Received: by couchey.inria.fr (5.57/Ultrix3.0-C) id AA02901; Thu, 8 Aug 96 11:58:05 +0200 Received: from david.siemens.de (david.siemens.de [146.254.1.1]) by nez-perce.inria.fr (8.7.1/8.7.1) with ESMTP id LAA08488 for ; Thu, 8 Aug 1996 11:57:49 +0200 (MET DST) Received: from ztivax.zfe.siemens.de (root@ztivax.siemens.de [146.254.1.2]) by david.siemens.de (8.7.5/8.7.3) with SMTP id LAA29830 for ; Thu, 8 Aug 1996 11:54:39 +0200 (MDT) Received: from marge.zfe.siemens.de (marge) by ztivax.zfe.siemens.de with SMTP id AA10056 (5.67a/IDA-1.5 for ); Thu, 8 Aug 1996 11:57:39 +0200 Received: (from oversby@localhost) by marge.zfe.siemens.de (8.6.12/8.6.12) id LAA08987 for Damien.Doligez@inria.fr; Thu, 8 Aug 1996 11:58:16 +0200 From: Ian Oversby Message-Id: <199608080958.LAA08987@marge.zfe.siemens.de> Subject: Earthquake v0.2 To: Damien.Doligez@inria.fr Date: Thu, 8 Aug 1996 11:58:16 +0200 (MET DST) X-Mailer: ELM [version 2.4ME+ PL22 (25)] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Status: R Hi Planar, I thought I had better send some of the code that is currently on the hill so that people have warriors to test against. I'll send you Falcon as well as soon as I have tested the slightly altered version against the hill. Earthquake is a simple P-warrior with two components and a switch on loss brain. The bomber, Justice, is effective against most warriors without imps or paper. Against paper it scores _very_ badly. On losing, Earthquake switches to Tsunami, a one-shot scanner which scores quite well against paper and most imps. Hopefully, when Justice loses, it has lost to one of these warrior types and will therefore win with Tsunami. We stole the brain directly from Goldfinch, thanks Paul. The QScan has been censored as I have no time to reshuffle the order and simulate. Just add your favourite one from Stepping Stone, Thermite, Twister or whatever. It is not a Q^2 scan. Ian ;redcode-94 quiet ;name Earthquake v0.2 ;author Bjoern & Ian ;strategy v0.1 P-Switching Justice 2 and Tsunami v0.1 ;strategy v0.2 Added QScan and a few other alterations ;kill Earthquake ;assert 1 org start pflag equ 111 ; Not really jstep equ 3364 ; stuff for Justice jshift equ 2200 ; Not really gate1 equ (gate-3) ; stuff for Tsunami tsushift equ 640 ; Not really start ; A _really_ great old fashioned QScan was here ! ; Deleted just in case so add your own. ;;------------------------------------------------------------ pGold ldp.ab #0,#0 ; get results of last battle ldp.a #pflag ,pGold ; retrieve attempted strategy add.a #1 ,@pGold ; if a loss, increment strategy mod.a #2 ,pGold ; safeguard against brainwashing stp.ab pGold ,#pflag ; store current strategy jmz.a jboot ,pGold ; select strategy 1 ;;------------------------- Tsunami -------------------------- tsboot mov.i {bsource,gate1 bptr djn.b cloop,{b1 ;;------------------------- Justice -------------------------- jcptr dat >jstart,#jbomb+2 jcb dat >20,#jbomb+2-jcptr dat 0,0 jstart spl #0,>jcptr-2 jptr mov.i jbomb,*(jhit+3*jstep) mov.i jbomb,@jptr ;this bomb hits jhit add.ab #2*jstep,jptr jmz.b jptr,#0 mov.i jcb,>jcptr djn.f -1,>jcptr jbsource dat 0,0 jsplit spl #0,<0 for 3 dat 0,0 rof jbomb mov.i jstep,1 jboot mov.i jsplit,@jbooptr ;move spl to jhit+jstep mov.i jbomb,*jbbooptr ijloop mov.i {jbsource,{jbooptr for 4 mov.i {jbsource,{jbooptr rof djn.b ijloop,#2 jbooptr spl *jbsource+jshift,jhit+jstep+jshift jbbooptr div.f #jbomb+jshift,#0 dat 0,0 end