From news-rocq.inria.fr!univ-lyon1.fr!oleane!tank.news.pipex.net!pipex!dish.news.pipex.net!pipex!news00.sunet.se!sunic!sunic!sunic.sunet.se!liuida!news Tue Oct  3 13:37:47 1995
Article: 2456 of rec.games.corewar
Newsgroups: rec.games.corewar
Path: news-rocq.inria.fr!univ-lyon1.fr!oleane!tank.news.pipex.net!pipex!dish.news.pipex.net!pipex!news00.sunet.se!sunic!sunic!sunic.sunet.se!liuida!news
From: Anders Ivner <d91andiv>
Subject: Leprechaun deluxe
X-Nntp-Posting-Host: su6-5.ida.liu.se
Content-Type: text/plain; charset=us-ascii
Message-ID: <DFtvKw.MHo@ida.liu.se>
Sender: news@ida.liu.se
Content-Transfer-Encoding: 7bit
Organization: CIS Dept, Linkoping University, Sweden
Mime-Version: 1.0
Date: Mon, 2 Oct 1995 15:41:19 GMT
X-Mailer: Mozilla 1.1N (X11; I; SunOS 5.4 sun4m)
X-Url: news:rec.games.corewar#449gnv$roo@geraldo.cc.utexas.edu
Lines: 77

I haven't been very active lately (the last two years, or something
like that :-), so I thought I should say hi to the new generation of 
corewars players that has emerged.

Hi! You are doing a great job! The activity in the corewars scene
has never, to my knowledge, been this high before.

Last week, HeremScimitar was pushed off, and, as I don't like the
thought of losing touch completely, I increased my efforts.
(To answer Paul's question from a while back: This is what led me
to the discovery of imp rings. Frustration of being pushed off :-)

Leprechaun deluxe is, as the name implies, a new version of my
Leprechaun warrior. It's not a very inspired or original piece
of code, but I thought I'd share it with you anyway.

I changed the engine to 75%c bomb/bomb/scan (can be done without
an increase in size under '94).
The scan-bomb is the very nice and effective incendiary bomb (Paul,
is this your invention?)
Much effort was put into finding a good step. It has near optimal
find4 and find13 values, and allows me to scan/bomb +3700 locations
before coreclearing. Don't really know if this makes much difference,
though.

/Anders

;redcode-94
;name Leprechaun deluxe
;kill test
;author Anders Ivner
;strategy 75% bomber/scanner with decoy
;strategy bombs/scans +3700 locations before entering coreclear
	
STEP	equ	(-5741)
A	equ	(loop+5-STEP)
start	equ	check
gate	equ	loop-3
offset	equ	XXXX             ; insert arbitrary number [2000..6000]

	; scan A, glue A+STEP, bomb A+STEP+STEP


boot	mov	clr+1,	clr+1+offset
	mov	{boot,	<boot
	mov	{boot,	<boot
	mov	{boot,	<boot
	mov	{boot,	<boot
	mov	{boot,	<boot
	mov	{boot,	<boot
	mov	{boot,	<boot
	mov	{boot,	<boot
	mov	const,	const+offset+2
	mov	mb,	mb+offset+2
	mov	bmb,	bmb+offset+4
	jmp	start+offset

loop	sub	const+2,@dp
	mov	sb,	@pt
pt	mov	A,	@A+STEP
check	jmz.a	loop,	*pt
dp	mov	mb+2,	*pt
	jmn.a	loop,	check
sb	spl	#-STEP+1,STEP
clr	mov	bmb+4,	>gate
	djn.f	clr,	{gate

const	dat	-STEP*3,-STEP*3
mb	mov	@0,	}STEP
bmb	dat	-1,	18

	for	75
	dat	boot*1023,1
	rof

	end	boot