From news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!howland.erols.net!news.sprintlink.net!news-peer.sprintlink.net!uunet!in1.uu.net!news.new-york.net!news.stormking.com!102741.2022@CompuServe.COM Mon Oct 7 16:37:54 1996 Article: 6164 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!howland.erols.net!news.sprintlink.net!news-peer.sprintlink.net!uunet!in1.uu.net!news.new-york.net!news.stormking.com!102741.2022@CompuServe.COM From: Justin Kao <102741.2022@CompuServe.COM> Newsgroups: rec.games.corewar Subject: Paper Shredder Date: 7 Oct 1996 01:18:00 -0400 Organization: Storm King Ind. Inc. Lines: 39 Sender: server@news.stormking.com Distribution: world Message-ID: <961007033828_102741.2022_GHT43-1@CompuServe.COM> Reply-To: 102741.2022@CompuServe.COM NNTP-Posting-Host: valhalla.stormking.com Originator: corewar-l@stormking.com Well, this is my semi-scanner, a spl clear directed by a scanner. Advice would be appreciated since I know absolutely nothing about scanners... Also this is rather long--14 instructions. (Though the clear is still effective if the scanner is killed.) Have not tried it on the hill yet (I am sending it right now) however it somehow managed to get an average 159 Wilkies, so I'm hoping... :-) ;redcode-94b ;name Paper Shredder 3500 ;author Justin Kao ;assert 1 org start clrptr dat 4000, 200 ;pointers------------\ djnptr dat 4000, 200 ; | dat {20, <2667 ;clear bombs---------< clear spl #25, 1 ; | mov clear, }clrptr ;clear---------------< mov clear, }clrptr ; | djn.a -2, >djnptr ; | step dat 3510, 3510 ;scan step-----------< loop add step, scan ;scan----------------< scan sne.f {-10, <0 ; | jmp loop ; | mov.a scan, clrptr ;found something-----< djn loop, #10 ;10 hits | jmp clear ;end scan------------/ for 60 dat 0, 0 rof start spl loop ;start scan jmp clear+1 ;start clear