From ee31io@ee.surrey.ac.uk Fri Oct 18 12:45:48 1996 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 MAA16265 for ; Fri, 18 Oct 1996 12:45:43 +0200 Received: from ainur.ee.surrey.ac.uk (ainur.ee.surrey.ac.uk [131.227.50.25]) by nez-perce.inria.fr (8.7.6/8.7.1) with SMTP id MAA06441 for ; Fri, 18 Oct 1996 12:45:22 +0200 (MET DST) Received: from kira.ee.surrey.ac.uk by ainur.ee.surrey.ac.uk with smtp (Smail3.1.29.1 #4) id m0vECQZ-000OprC; Fri, 18 Oct 96 11:45 BST Received: by kira.ee.surrey.ac.uk (Smail3.1.29.1 #4) id m0vECQV-000AcEC; Fri, 18 Oct 96 11:45 BST Message-Id: From: ee31io@ee.surrey.ac.uk (I M Oversby) Subject: Impish v0.2 To: Damien.Doligez@inria.fr Date: Fri, 18 Oct 1996 11:45:15 +0100 (BST) X-Mailer: ELM [version 2.4 PL24] MIME-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Status: R Here is Impish v0.2 almost as currently appearing on '94 draft hill. I originally wrote it because p-spacers are no longer working for me :-( The idea is unoriginal, an imp/stone with the stone changing to a core-clear when bombed with a SPL. The core-clear is a d-clear which is quite effective against other imp/stones with a few exceptions. I changed the imp launch to the one from Planars work on continuous launching imp/spiral. This is smaller and more robust than my previous JMP/ADD launch. It also boots quicker. I also included full decoy as this delays those annoying Q^2 scans and the losses from being found are not too great I think. This improved my score against Probe amongst others. ;redcode-94 ;name Impish v0.2 ;author Ian Oversby ;strategy Imp/Stone ;assert 1 gate1 equ (init-3-dist) pat equ 95 sval equ 5300 ; Not quite ival equ 3300 ; More or less dist equ 3 st equ 2667 org boot ;;------------------------------------------------------------------- for 8 SPL.B #1, }1 STP.AB #1, {1 SPL.B #1, {1 rof ;;----------------------- Boot the stone ---------------------------- boot MOV.I cbomb, @sptr MOV.I 2667, #3+hit-gate1 ; 2 DATS init SPL.B #0, gate1 last DJN.F -1, >gate1 spos DAT.F $0, $0 ;;--------------------- Boot the imp/launch ------------------------- iboot MOV.I prime prime MOV.I impy, impy ADD.A #st+1, jump jump JMP.B impy-st-1, 0 impy MOV.I #st, *0 ipos DAT.F $0, $0 ;;------------------------------------------------------------------- for 14 SPL.B #1, <1 STP.AB #1, }1 SPL.B #1, >1 rof end