From news-rocq.inria.fr!univ-lyon1.fr!ghost.dsi.unimi.it!batcomputer!hookup!news.kei.com!sol.ctr.columbia.edu!howland.reston.ans.net!cs.utexas.edu!swrinde!ihnp4.ucsd.edu!dog.ee.lbl.gov!hellgate.utah.edu!peruvian.cs.utah.edu!bdthomse Thu Mar 24 18:21:21 1994
Article: 536 of rec.games.corewar
Newsgroups: rec.games.corewar
Path: news-rocq.inria.fr!univ-lyon1.fr!ghost.dsi.unimi.it!batcomputer!hookup!news.kei.com!sol.ctr.columbia.edu!howland.reston.ans.net!cs.utexas.edu!swrinde!ihnp4.ucsd.edu!dog.ee.lbl.gov!hellgate.utah.edu!peruvian.cs.utah.edu!bdthomse
From: bdthomse%peruvian.cs.utah.edu@cs.utah.edu (Brant Thomsen)
Subject: Source for CG experimental
Date: 23 Mar 94 18:12:40 MST
Message-ID: <1994Mar23.181241.18358@hellgate.utah.edu>
Originator: bdthomse@peruvian.cs.utah.edu
Organization: University of Utah CS Dept
Lines: 106

Since the request for redcode was posted recently ...

Fhe following is the source code for the '94 experimental version of
"Curious George".  It's basically the same as the 8000 coresize version
I posted several months ago.  I wanted to keep up with what was
happening on the hill, so I threw this program together because I knew
I wouldn't need to worry about how it would perform in a large core.
(I _hate_ developing corewars warriors without having a visual
display of what is going on.)

Basically, each of the stones use a DJN.A statement to decrement all the
locations in the core.  However, the stones are not affected by the 
decrementing, so they continue to run.  This program either does very well
or very poorly against its opponents.

I'll probably post the code for Request-55440 in the next _'94_Warrior_.
(Or when it gets kicked off the hill, whichever comes first. ;-)

;redcode-94X
;name CG-X IV
;author Brant D. Thomsen
;strategy CURIOUS GEORGE TAKES SOME FRIENDS AND GOES STREAM FISHING
;strategy  A cross between Hydra and ROTLD, works very hard at being 
;strategy  hard to find and kill.
;strategy Submitted: @date@

size	equ	55440
dist	equ	(size / 8)
sdist	equ	(dist - 420)
bdist	equ	(size / 21)

	dat	#start*2, #-start*2
	dat	#start*2, #-start*2

; [Massive decoy is inserted here]

	dat	#start*2, #-start*2
	dat	#start*2, #-start*2

split	spl.F	#0, <-50
wimp	djn.F	#0, <split-50

; Start all eight of them simultaniously.

start	spl.A	p3, <start+sdist+bdist*1
	spl.A	p2, <start+sdist+bdist*2

	mov	wimp, start+sdist+dist*0
	mov	split, <-1
	mov	wimp, start+sdist+dist*1
	mov	split, <-1

	spl.A	@-4, <start+sdist+bdist*3
	spl.A	@-3, <start+sdist+bdist*4

	mov	2, -6
	mov	1, -5

	dat.A	<start+sdist+bdist*13, <start+sdist+bdist*14

p2	mov	wimp, start+sdist+dist*2
	mov	split, <-1
	mov	wimp, start+sdist+dist*3
	mov	split, <-1

	spl.A	@-4, <start+sdist+bdist*5
	spl.A	@-3, <start+sdist+bdist*6

	mov	2, -6
	mov	1, -5

	dat.A	<start+sdist+bdist*15, <start+sdist+bdist*16

p3	spl.A	p4, <start+sdist+bdist*7

	mov	wimp, start+sdist+dist*4
	mov	split, <-1
	mov	wimp, start+sdist+dist*5
	mov	split, <-1

	spl.A	@-4, <start+sdist+bdist*8
	spl.A	@-3, <start+sdist+bdist*9

	mov	2, -6
	mov	1, -5

	dat.A	<start+sdist+bdist*17, <start+sdist+bdist*18

p4	mov	wimp, start+sdist+dist*6
	mov	split, <-1
	mov	wimp, start+sdist+dist*7
	mov	split, <-1

	spl.A	@-4, <start+sdist+bdist*10
	spl.A	@-3, <start+sdist+bdist*11

	mov	2, -6
	mov	1, -5

	dat.A	<start+sdist+bdist*19, <start+sdist+bdist*20

	end	start
-- 
Brant D. Thomsen                        The teaching of BASIC in schools
(bdthomse@peruvian.cs.utah.edu)         should be considered a criminal act.
University of Utah                                              - Dijkstra