From news-rocq.inria.fr!jussieu.fr!univ-lyon1.fr!howland.erols.net!news-peer.gsl.net!news.gsl.net!EU.net!usenet2.news.uk.psi.net!uknet!usenet1.news.uk.psi.net!uknet!uknet!bcc.ac.uk!news Wed Dec 11 19:34:38 1996 Article: 6787 of rec.games.corewar Newsgroups: rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!univ-lyon1.fr!howland.erols.net!news-peer.gsl.net!news.gsl.net!EU.net!usenet2.news.uk.psi.net!uknet!usenet1.news.uk.psi.net!uknet!uknet!bcc.ac.uk!news From: Bjoern Guenzel Subject: vamp Sender: news@ucl.ac.uk (Usenet News System) Message-ID: <32AEBD96.2781@ucl.ac.uk> Date: Wed, 11 Dec 1996 13:56:39 GMT Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=us-ascii Mime-Version: 1.0 X-Mailer: Mozilla 2.02 (X11; I; AIX 2) Organization: University College London Lines: 80 While I am at it, here is vamp, too. The idea is not very exciting: assuming that the reason for vampires having bad odds against paper because the fang is ineffective if it is not executed in the originally hit copy, I combined a vampire with an incendary bomber, hoping to stun paper more effectively, but having the vampires advantage over imps. It seems to work be OK, but not spectacular... Bjoern ;redcode-94 test ;name vamp 0.2b ;author bjoern guenzel ;strategy vamp/scan->s/d-clear ;strategy submitted @date@ ;assert 1 ;kill vamp step equ (2*5*19) pgate equ (pit-1) pitlink equ (clbmb+hit-step) bdist equ (-4000) fang jmp @-2*step+hit+1,pitlink-(hit-2*step)+1 clptr dat #-step-1,step-1 clbmb dat >1,incs-clptr+2 loop add.f clptr,fang mov.i @0,>fang jmz.f loop,}fang mov.i incs,*fang hit mov.i incm,{fang jmp loop,}fang ;hit with spl mov.i *incs,>clptr last djn.f -1,{clptr dat 0,0 dat 0,0 ;vamped incm mov.i 1,}1 incs spl #1,1 spl #clbmb-incs,incs-clptr bsource dat 0,0 ;scanned boot z for 16 mov.i {bsource,3 jmp pit,2667,-3000 for MAXLENGTH-CURLINE dat 0,0 rof end boot