From news-rocq.inria.fr!jussieu.fr!mathserv.mps.ohio-state.edu!howland.erols.net!newsfeed.internetmci.com!news.webspan.net!ix.netcom.com!netcom.net.uk!news.u-net.com!yama.mcc.ac.uk!daresbury!sunsite.doc.ic.ac.uk!info-server.surrey.ac.uk!usenet Mon Oct 28 11:31:07 1996 Article: 6372 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!mathserv.mps.ohio-state.edu!howland.erols.net!newsfeed.internetmci.com!news.webspan.net!ix.netcom.com!netcom.net.uk!news.u-net.com!yama.mcc.ac.uk!daresbury!sunsite.doc.ic.ac.uk!info-server.surrey.ac.uk!usenet From: Ian Oversby Newsgroups: rec.games.corewar Subject: Impish v0.2 Date: Thu, 24 Oct 1996 15:51:21 +0100 Organization: University of Surrey, Guildford, England Lines: 96 Message-ID: <326F8269.388E@ee.surrey.ac.uk> NNTP-Posting-Host: kira.ee.surrey.ac.uk Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Mailer: Mozilla 3.0 (X11; I; SunOS 5.4 sun4d) 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 test ;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 -- ------------------------------------------------------------------------------ E-mail : ee31io@surrey.ac.uk Disclaimer : No-one, but me, believes any of this. ------------------------------------------------------------------------------