From news-rocq.inria.fr!jussieu.fr!univ-lyon1.fr!howland.erols.net!newsfeed.internetmci.com!news-in2.uu.net!news.new-york.net!news.stormking.com!102741.2022@CompuServe.COM Tue Oct 15 13:15:00 1996
Article: 6232 of rec.games.corewar
Path: news-rocq.inria.fr!jussieu.fr!univ-lyon1.fr!howland.erols.net!newsfeed.internetmci.com!news-in2.uu.net!news.new-york.net!news.stormking.com!102741.2022@CompuServe.COM
From: Justin Kao <102741.2022@CompuServe.COM>
Newsgroups: rec.games.corewar
Subject: Dust 0.7
Date: 13 Oct 1996 04:00:41 -0400
Organization: Storm King Ind. Inc.
Lines: 83
Sender: server@news.stormking.com
Distribution: world
Message-ID: <961013073333_102741.2022_GHT51-1@CompuServe.COM>
Reply-To: 102741.2022@CompuServe.COM
NNTP-Posting-Host: valhalla.stormking.com
Originator: corewar-l@stormking.com

Since I can't figure out what to do with it, and it doesn't work on the
94 hill, here is Dust 0.7 to entertain the newsgroup... (but I'm hoping
no one laughs at it)

Maybe one of you pro-hill redcoders can help me--all of my top beginner hill
warriors don't make it on the -94 hill...  :(

The somewhat interesting Wilkies scores first:
dust07
pmars -r 200 dust07.red  dust07.red 
- - - - - -  W   L   T   Score
time.red :   1   7 192      98
nobody.re:   0  26 174      87
paperone.:   0  40 160      80
marcia13.:   0  32 168      84
bluefunk.: 122   9  69     218
cannon.re: 110   3  87     208
tornado.r: 168  30   2     253
fstorm.re: 130  58  12     201
rave.red : 150  33  17     234
irongate.:  66 125   9     104
pswing.re:  80  95  25     132
thermite.:  91  48  61     167
- - - - - - - - - - - - - - -
Total wins   =  918 
Total losses =  506 
Total ties   =  976 
Overall score is  155.4167 


;redcode-94b
;name Dust 0.7
;author Justin Kao
;strategy Guenzel-style clear and imp spiral.
;strategy Turn opponents into dust and blow them away! :)
;assert 1

impsize equ     1143

        org     start

ptr     dat     0,      150
clrbomb dat     <2667,  25
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
        dat     0,      0
clear   spl     #0,     >ptr
loop    mov     clrbomb,>ptr
        djn.f   loop,   >ptr

        for     26
        dat     0,      0
        rof

lstep   dat     impsize,-10
start   spl     1
        spl     1
        spl     1
        spl     1
        spl     1
        spl     2
        djn.f   imp,    <-500
        add     lstep,  -1
        djn.f   clear,  <-1300
imp     mov.i   #1,     impsize