From news-rocq.inria.fr!irisa.fr!univ-rennes1.fr!univ-angers.fr!jussieu.fr!oleane!news.maxwell.syr.edu!wnfeed!204.127.130.5!worldnet.att.net!newsadm Wed Mar 11 18:03:05 1998 Article: 8544 of rec.games.corewar Path: news-rocq.inria.fr!irisa.fr!univ-rennes1.fr!univ-angers.fr!jussieu.fr!oleane!news.maxwell.syr.edu!wnfeed!204.127.130.5!worldnet.att.net!newsadm From: Brett Greenfield Newsgroups: rec.games.corewar Subject: Iced Creamer 1.3 Date: Sat, 07 Mar 1998 17:17:37 -0800 Organization: AT&T WorldNet Services Lines: 139 Message-ID: <6e4hu8$esi@bgtnsc03.worldnet.att.net> Reply-To: compudemon2@yahoo.com NNTP-Posting-Host: 12.64.168.87 Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------401F9B12D77" X-Mailer: Mozilla 3.0 (Win16; U) This is a multi-part message in MIME format. --------------401F9B12D77 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit this program is doing the best out of all my programs on th begginer hill i am posting it in hopes of seeing it do well on mount Olympus i would enjoy any critque of my components as they are quite lousy also i would like to show my P-engine wich got 7th in round four LDP 0,0 JMN scn,<-1 yup two instructions fastest possible p-space i win in the battle for the fastest pspacer --------------401F9B12D77 Content-Type: text/plain; charset=us-ascii; name="BRETT016.RED" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="BRETT016.RED" ;redcode-b ;name Iced Creamer 1.3 ;author Compudemon ;strategy trap opponent in ice or shatter him with a hammer ;assert CORESIZE==8000 lsc LDP #0,lsc lss LDP #1,lss SLT lss,#4000 tbi ADD #3,#stb ADD lsc,tbi ADD @tbi,lss STP lss,#1 SLT #4000,lss JMP scn ; scissors ;my old slow engine ;talk about big improvement ;lsc LDP #0,lsc ;SNE #-1,lsc ;JMP set ;lst LDP #1,lst ;scc LDP #2,scc ;ppc LDP #3,ppc ;SNE #0,lsc ;MOV #-2,amd ; loss -2 points ;SNE #1,lsc ;MOV #4,amd ; win 4 points ;JMN psc,lst ;ADD amd,scc ;amd JMP fin+1,#-1 ; tie -1 points ;psc ADD.B amd,ppc ;fin STP ppc,#3 ; save scores ;STP scc,#2 ;MOV 0,-2 ; anti brain wash ;MOV 0,-2 ;SLT scc,ppc ; store current strategy which ;MOV.A #0,cst ; is used for scoring on next round ;cst STP #1,#1 ;MOV 0,-1 ;SLT scc,ppc ;JMP scn ; scissors MOV 6,4000 MOV 6,4000 MOV 6,4000 MOV 6,4000 MOV 6,4000 JMP 3996 kbl DAT <-5,>2 SPL #25,<-2 rck MOV.I kbl,-2 ADD #5*271,rck JMP rck,<-5 for 3 DAT 0 rof DAT 0 stb DAT -2 DAT 4 DAT -1 DAT 2 DAT -4 DAT 1 DAT 0 DAT 0 DAT 0 ;part of old engine ;set MOV #4000,ppc ; must be done in order to avoid ;MOV #4000,scc ; problems caused by negetive numbers ;JMP fin for 3 DAT 0 rof scn SUB #10,#lsc scl JMZ.B scn,@scn sc2 JMN.B sc2,scn JMN.B stk,@scn MOV tpe,@scn CMP scn,#(ed-scn) bl2 JMP scn,bl+1 kl MOV trp,>bl MOV trp,{bl DJN kl,#scn-ed kl2 MOV bl,>bl2 MOV bl,{bl2 DJN kl2,#scn-ed trp SPL #5,#0 tpe JMP -1,#0 bl DAT scn-1,2 DAT 0,0 st DAT -cpy,-cpy+230 top MOV st,cpy ppr MOV }cpy,>cpy MOV }cpy,>cpy MOV }cpy,>cpy JMN.A ppr,cpy SPL