From news-rocq.inria.fr!jussieu.fr!oleane!tank.news.pipex.net!pipex!sunsite.doc.ic.ac.uk!info-server.surrey.ac.uk!usenet Thu Mar 21 14:23:21 1996 Article: 4465 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!oleane!tank.news.pipex.net!pipex!sunsite.doc.ic.ac.uk!info-server.surrey.ac.uk!usenet From: Mr I M Oversby Newsgroups: rec.games.corewar Subject: Pensive v0.3 Date: 20 Mar 1996 18:28:15 GMT Organization: University of Surrey, Guildford, England Lines: 31 Message-ID: <4ipinv$pa2@info-server.surrey.ac.uk> NNTP-Posting-Host: duck5.ee.surrey.ac.uk Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Mailer: Mozilla 1.1N (X11; I; SunOS 5.4 sun4m) X-URL: news:rec.games.corewar Here is the code for the latest version of Pensive, my reasonably successful stone that made it to about 5 or 6 on the beginner hill. It keeps bombing when the clear starts, I'm not sure if that is a good idea or not. This avoids problems with the DJN falling through on a DAT 1, 1 or similar, otherwise, the clear must destroy the remainder of the code :-( I'm not sure if I have been clear here. If anyone has any questions or suggestions, please e-mail me. ;redcode-b ;name Pensive v0.3 ;author Ian Oversby ;strategy v0.1 Anti-scanner ;strategy v0.2 Boeren bug fixes ;strategy v0.3 Changed back to original idea! ;kill Pensive v0.1 stun SPL.B #-95, #95 loop ADD.F stun, 1 MOV.I <-49, 2 MOV.I stun, >-50 DJN.F loop, <-100 MOV.I 1, {loop -- ------------------------------------------------------------------------------ E-mail : ee31io@surrey.ac.uk Disclaimer : No-one, but me, believes any of this. ------------------------------------------------------------------------------