Path: ibmpcug!wendy.ibmpcug.co.uk!pipex!howland.reston.ans.net!vixen.cso.uiuc.edu!newsrelay.iastate.edu!dunix.drake.edu!acad.drake.edu!pk6811s From: pk6811s@acad.drake.edu Newsgroups: rec.games.corewar Subject: Re: '94 Hill Date: 7 Apr 95 09:04:57 CST Organization: Drake University, Des Moines, Iowa Lines: 203 Distribution: world Message-ID: <1995Apr7.090457@acad.drake.edu> References: <1995Apr6.114745.2408@rhodes> NNTP-Posting-Host: acad.drake.edu In article <1995Apr6.114745.2408@rhodes>, graham@harlie.mathcs.rhodes.edu (Randy Graham) writes: > I've been looking at the '94 hill, and I have collected half of the > hill. Of course, this is great to test my current warriors against in > my own private tournament before submitting them to the hill. I see > there are many I don't have yet, and I was wondering if anyone could > tell me if the source for the following are available: > ... See source included below. > ... > clear - like, SJ-4 is leprechaun like - well, what does that mean)? Mostly it means that after you have optimized your program against the other guys on the Hill, SJ-4 and Leprechaun will be eating your lunch :-) Paul Kline pk6811s@acad.drake.edu ------- > ;redcode-94 verbose ;name Torch t15 ;kill Torch ;author P.Kline ;strategy very rapid incendiary bombing, core-clear & gate ;macro step equ 54 count equ 2000 boot equ 7500 gate dat -100,200 for 28 dat 0,0 rof wipe dat sp-gate-2,#cp-gate+10 for 4 dat 0,0 rof sp spl #-step,>1-step ; spl half of the incendiary in sub #step+step,@msp msm mov sm,*tgt+(step*count)-17228 msp mov sp,@msm ; bomb alternately with spl & mov tgt djn.f in,<4501 ; bombed with spl to start clear clr mov wipe,>gate cp djn.f clr,{gate for 15 dat 0,0 rof sm mov step,>step ; mov half of the incendiary for 10 dat 0,0 rof for 13 dat 1,@1 dat 0,@2 rof end sp --- ;redcode-94 quiet ;name Taking Names ;kill Taking Names ;author P.Kline ;strategy sne.x/seq.x scanner using spl-spl-jmp bomb ;strategy and continuous forward-clear step equ 98 clrptr dat jump+2 dat 0,0 reset dat #step-2,#step for 19 dat 0,0 rof attack mov jump,*comp ; drop wide bomb on a-pointer compptr mov split,{comp mov split,{comp ; after bombing, reset to sub reset,@compptr ; make b-pointer the next a-pointer scan add split,@compptr comp sne 2*step,3*step ; take a look add split,@compptr seq *comp,@comp ; take another look slt #100+step,@compptr ; don't attack self ctr djn scan,#1000 ; countdown to finish jmn attack,-1 split spl.i #(2*step),#(2*step) clear mov reset,>clrptr ; continuous forward clear jump jmp -1 for 30 dat 0,0 rof for 12 dat #1,1 ; simple decoy mov.i #attack+1000,2667 rof end comp ------- ;redcode-94 quiet ;name Herem/Scimitar ;kill Herem/Scimitar ;author A.Ivner,P.Kline ;strategy bomber ;macro step equ 27 count equ 1470 jmp clr start mov sb,@st st mov {100,*cnt-(2*count*step)-1 add bmb,st cnt djn start,#count-1 sb spl #step,0 clr mov bmb,>-13 djn.f clr,{-14 for 22 dat 0,0 rof dat <4,step+step bmb dat <4,step+step end start --------- ;redcode-94 quiet ;name Keystone ;kill Keystone ;author P.Kline ;strategy stone with paper-defense + an abundance of redundance ;macro spacing equ 2517 ; mod-1, approximates a mod-4 step boot equ (-2526) for 6 dat n0+1,0 ; alternating ptrs to m0 & n0 dat m0+1,0 rof dat keystone,0 m0 spl mimp+5334 spl -1 ; continuous imp-ring launcher spl mimp+2667 ; activated by stone if needed mimp mov.i #0,2667 ; mov.i nimp,2666 ; backup in case mimp gets decremented for 7 dat 0,0 rof start mov #-277,cnt+11+5667-8 mov -27 ; hide3 djn.a -15,<-107 ; gbbs with hide5 for core-clear hide4 jmz.b *m0-boot-228,}0 ; escape to imp-launchers hide5 djn.a -1,<-107 ; moved by stone onto hide3 hide6 djn.f #0,<-25 ; moved by stone onto cnt for gate for 10 dat 0,0 rof for 6 dat m0+1,0 dat n0+1,0 ; alternating ptrs to m0 & n0 rof dat keystone,0 n0 spl nimp+5334 spl -1 ; continuous imp-ring launcher spl nimp+2667 ; activated by stone if needed nimp mov.i #0,2667 ; mov.i mimp,2666 ; backup in case nimp gets decremented p1 dat cnt+5352+boot p2 dat cnt+5576+boot p3 dat cnt+258+boot+3 for 2 dat 1,1 rof end start