From news-rocq.inria.fr!jussieu.fr!univ-lyon1.fr!swidir.switch.ch!newsfeed.ACO.net!Austria.EU.net!EU.net!news.eunet.fi!elvis.clinet.fi!clinet.fi!not-for-mail Thu Aug 11 10:48:11 1994
Article: 1031 of rec.games.corewar
Path: news-rocq.inria.fr!jussieu.fr!univ-lyon1.fr!swidir.switch.ch!newsfeed.ACO.net!Austria.EU.net!EU.net!news.eunet.fi!elvis.clinet.fi!clinet.fi!not-for-mail
From: jippo@clinet.fi (Juha Pohjalainen)
Newsgroups: rec.games.corewar
Subject: Silk Warrior 1.3 source
Date: 10 Aug 1994 19:18:09 +0300
Organization: Clinet, Espoo, Finland.
Lines: 40
Message-ID: <gxEIk88fvQp8067yn@clinet.fi>
Reply-To: jippo@clinet.fi
NNTP-Posting-Host: clinet.fi
Summary: Silk Warrior 1.3 source
Keywords: Silk Warrior 1.3 source

So, here it is ... Silk Warrior 1.3 source. This is not
latest version of Silk Warrior, but it should give some
idea about what silk is! Enjoy!

                                Juha Pohjalainen
                                <jippo@clinet.fi>

;redcode-94
;name Silk Warrior 1.3
;author J.Pohjalainen
;strategy Silk Warrior   ( Paper - The Next Generation )
;strategy ==============================================
;strategy v1.0: only one tiny paper
;strategy v1.1: made it bigger and maybe more lethal
;strategy v1.2: better distribution (starts as a mod-40)
;strategy       now kills previous copies and does some
;strategy       selftesting
;strategy v1.3: bigger and more lethal, I hope
;kill
;assert CORESIZE==8000
;macro

STEP    equ     2364
SIZE    equ     12

warrior

        spl     1,          <-98
        mov     -1,         0
        spl     1,          <-99

paper   spl     @paper,     STEP
        mov.i   }paper,     >paper
        mov.i   gate,       >paper
        mov.i   gate,       {-5*SIZE-1
        mov.i   gate,       {4000
silk    jmp     @silk,      {paper
gate    dat.f   <2667,      <2*2667

end warrior