From news-rocq!jussieu.fr!pasteur.fr!isdnet!newsfeed.icl.net!colt.net!news0.de.colt.net!news-fra1.dfn.de!news.uni-mainz.de!marie.zdv.Uni-Mainz.DE!schmc003 Thu Sep 2 16:57:42 1999 Article: 10606 of rec.games.corewar Path: news-rocq!jussieu.fr!pasteur.fr!isdnet!newsfeed.icl.net!colt.net!news0.de.colt.net!news-fra1.dfn.de!news.uni-mainz.de!marie.zdv.Uni-Mainz.DE!schmc003 From: Christian Schmidt Newsgroups: rec.games.corewar Subject: Am I Alive? Date: Thu, 2 Sep 1999 04:36:14 +0200 Organization: Johannes Gutenberg-Universitaet Mainz, Germany Lines: 146 Message-ID: NNTP-Posting-Host: marie.zdv.uni-mainz.de Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-Sender: schmc003@marie.zdv.Uni-Mainz.DE Xref: news-rocq rec.games.corewar:10606 Hi, here is the code for Am I Alive?. It switches between a modified p-clear (Double D), the scanner from Recycled Bits and the stone/imp from The Stormbringer. The stone alone is used if brainwashed. The brain is again a Nomolos-typ P^2-switcher. Cheers, Christian ;redcode-94 ;name Am I alive? ;author Christian Schmidt ;strategy my new p-warrior concept: ;strategy 3 compounds and 4 strategies ;strategy more brainwash-resistant and deadlier ;strategy against other complex p-warriors ;strategy try to tie if nothing helps ;assert 1 gate equ (clear-5) bDist equ 1850 offset equ 3 org pThink dBoot mov cIns, cIns+bDist-2 mov a, a+bDist mov b, b+bDist spl second i for 4 mov clear+i-1, clear+i-1+bDist rof jmp clear+bDist, {0 second i for 4 mov clear2+i-1, clear2+i-1+bDist+offset rof jmp clear2+bDist+offset,{0 cIns spl #0, $18 a dat <-2666, <2667 b dat <-2666, <2667 clear spl #0, gate mov b, >gate djn.f -1, {gate clear2 spl #0, gate-offset mov b-3, >gate-offset djn.f -1, {gate-offset dist equ 3800;-83 xstep equ 5379 ; or 5393 scanb mov xscan sc add #xstep+1, #xstep+1 jmz.f sm, -1, >1 for 11 dat 0, 0 rof pump spl #1, >prime prime mov.i imp, impoff-4 add.f #impsize+1, ptr ptr jmp pump+impoff-(impsize+1), >-200 imp mov.i #impsize, *0