From news-rocq.inria.fr!univ-lyon1.fr!pasteur.fr!jussieu.fr!oleane!plug.news.pipex.net!pipex!tube.news.pipex.net!pipex!dish.news.pipex.net!pipex!tank.news.pipex.net!pipex!newsfeed.internetmci.com!in2.uu.net!news.new-york.net!news.stormking.com!d91andiv@ Wed Mar 20 13:29:23 1996 Article: 4429 of rec.games.corewar Path: news-rocq.inria.fr!univ-lyon1.fr!pasteur.fr!jussieu.fr!oleane!plug.news.pipex.net!pipex!tube.news.pipex.net!pipex!dish.news.pipex.net!pipex!tank.news.pipex.net!pipex!newsfeed.internetmci.com!in2.uu.net!news.new-york.net!news.stormking.com!d91andiv@und.ida.liu.se From: Anders Ivner Newsgroups: rec.games.corewar Subject: C I A Date: 18 Mar 1996 07:18:55 -0500 Organization: Storm King Ind. Inc. Lines: 76 Sender: server@news.stormking.com Distribution: world Message-ID: <9603181206.AA15742@su3-3.ida.liu.se> Reply-To: d91andiv@und.ida.liu.se NNTP-Posting-Host: valhalla.stormking.com Originator: corewar-l@stormking.com Here is the code for CIA. I don't feel it's finished yet, but I don't have the time to work on it. The current version also has a qscan in front of it to counter Clisson and the new wave of pspacers, but the qscan needs a lot of trimming (loses too much against other qscans) so I won't publish it. The basic idea is a bomber that goes into coreclear as soon as the enemy has been hit once, thus becoming a very efficient paper killer. This is accomlished using 'feedback' bombs that makes the opponent signal back to me when the bomb is executed. Enjoy. /Anders PS 'intelligence' is both an analogy where the bombs are seen as spies, and a reference to 'intelligent' behaviour, often believed to be missing in stone-type warriors :-) ;redcode-94 ;name C I A ;kill C I A ;author Anders Ivner ;assert (CORESIZE == 8000) ;strategy .5c bomber with intelligence bombs STEP equ 3119 A equ (c-1) BOFF equ 2500 SPYOFF equ STEP*1400 eye equ (A-SPYOFF) spy equ (A+SPYOFF) bomber equ (b0+BOFF) org boot bpt dat bomber-11,bomber bpt2 dat (spy+BOFF),0 boot mov b0, @bpt mov {boot, b0-13 mov @1, >b0-13 b0 djn.b -2, {b0-11 spy0 dat <-SPYOFF, <-SPYOFF i for MAXLENGTH-CURLINE spl #i*17, i*11 rof end