From news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!uwm.edu!news.cse.psu.edu!news.ecn.bgu.edu!vixen.cso.uiuc.edu!newsfeed.internetmci.com!news.kei.com!nntp.coast.net!fu-berlin.de!zrz.TU-Berlin.DE!cs.tu-berlin.de!uni-erlangen.de!lrz-muenchen.de!news Mon May 20 11:58:11 1996
Article: 5190 of rec.games.corewar
Path: news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!uwm.edu!news.cse.psu.edu!news.ecn.bgu.edu!vixen.cso.uiuc.edu!newsfeed.internetmci.com!news.kei.com!nntp.coast.net!fu-berlin.de!zrz.TU-Berlin.DE!cs.tu-berlin.de!uni-erlangen.de!lrz-muenchen.de!news
From: guenzel@extern.lrz-muenchen.de (Bjoern Guenzel)
Newsgroups: rec.games.corewar
Subject: Re: The Battle Royal results!
Date: Sun, 19 May 1996 13:36:30 GMT
Organization: Tichy Works
Lines: 48
Distribution: world
Message-ID: <4nn4hs$sau@sparcserver.lrz-muenchen.de>
References: <4nmbfo$t71@lastactionhero.rs.itd.umich.edu>
NNTP-Posting-Host: line57.ppp.lrz-muenchen.de
X-Newsreader: Forte Free Agent 1.0.82

Puh, my score is not even that bad :-) I was counting on nobody using
stun bombs...
So here is my not very special warrior, if anybody is interested (mice
is probably better?).

My idea was always to use the spl for hit detection - at first I
wanted to create a couple of stones that automatically launch an imp
if one of them dies, but it was too complicated (I was in a haste). 
I would really like a low-process hill...

I don't understand the 'Results' lines, if anybody could explain them
to me, it would be nice, thanks in advance.

Bjoern

P.S.: What happened to Beppe Bezzis warrior?


;redcode-b quiet
;name oldtimer
;author bjoern guenzel
;strategy I didn't manage to create a silk-style copyroutine,
;strategy so I use a kind of '88 style :-( It's damn difficult
;strategy to find non-suicidal constants (let alone effective ones)
;strategy I am sorry to say, but this is actually a kind of paper...
;assert CORESIZE==8000
;assert MAXPROCESSES==8
;release 1.5.96
;kill testing

size		equ (base-ptr)
off		equ (8*17)		;constants not optimised, simply the first
that
boff		equ (2667)		;weren't suicidal
rel		equ 91

ptr		dat 0,0
new		add.ab #rel,base
first		mov.i base,ptr
loop		mov.i *ptr,<ptr
		mov.i base,}boff
		djn.a loop,ptr
		spl new,0		;if there is a spare process (because another died),
		jmp @ptr,0		;a new copy is build
base		dat <size,<size+off

		end first