From news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!usc!chi-news.cic.net!newsxfer2.itd.umich.edu!gatech!news01.aud.alcatel.com!news.sesqui.net!rice!great-horned.owlnet.rice.edu!kfranke Mon Jan 29 15:06:36 1996 Article: 3707 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!usc!chi-news.cic.net!newsxfer2.itd.umich.edu!gatech!news01.aud.alcatel.com!news.sesqui.net!rice!great-horned.owlnet.rice.edu!kfranke From: kfranke@great-horned.owlnet.rice.edu (Kurt Alan Franke) Newsgroups: rec.games.corewar Subject: Hector 2 source Date: 29 Jan 1996 02:08:08 GMT Organization: Rice University Lines: 81 Distribution: world Message-ID: <4eha68$5d9@larry.rice.edu> References: <199601282315.AAA19385@iol-mail.iol.it> NNTP-Posting-Host: great-horned.owlnet.rice.edu Beppe wrote : >A challenger has arrived on the ICWS '94 Draft hill! Vital statistics: >Program "patroclus" (length 100) by "Kafka and Kurt" >(contact address "bike@owlnet.rice.edu"): >;strategy Qscan->replicator >;strategy get lots of free points from LaBomba while they last!!! < La Bomba takes a beating... > >Why don't you post Hector 2, so I can try getting a lot of points from him :-) > >-Beppe Yes, that sounds fair. Or, I could post my quick scan that beats La Bomba 70% of the time by itself. (Heh heh heh!) Here is Hector 2, my first warrior to have a good position on pizza's 94 hill. Hector is a timescape-like replicator (thanks to corewarrior issue on replicators) with a quickscan (thanks to the faq). The replicator doesn't bomb; I found I could score higher against scanners that way (specifically, against Agony 2). ;redcode ;assert CORESIZE == 8000 ;author Kurt Franke ;name Hector 2 ;strategy qscan -> replicator start ;'94 scan (from FAQ) s1 for 4 sne start+400*s1, start+400*s1+100 seq start+400*s1+200, start+400*s1+300 mov #start+400*s1-found, found rof jmn which, found s3 for 4 sne start+400*(s3+8), start+400*(s3+8)+100 seq start+400*(s3+8)+200, start+400*(s3+8)+300 mov #start+400*(s3+8)-found, found rof jmn which, found s2 for 4 sne start+400*(s2+4), start+400*(s2+4)+100 seq start+400*(s2+4)+200, start+400*(s2+4)+300 mov #start+400*(s2+4)-found-100, found rof found jmz paper, #0 ;skip attack if qscan found nothing add #100, -1 ;increment pointer till we get the right place which jmz -1, @found mov start-1, @found sub #24, found mov start-1, @found add #8, found djn -2, #7 jmp paper for 40 dat 0,0 rof ASTEP equ 2268 ;; replicator (test1) BSTEP equ 5879 CSTEP equ 7901 paper spl 1, <-200 mov -1, 0 spl 1, <-300 one spl @one, }ASTEP onea mov }one, >one two spl @two, }BSTEP twoa mov }two, >two threea mov {two, CSTEP end start