From corewar-l@stormking.com Mon Jan 1 00:30:09 1996 Received: by couchey.inria.fr (5.57/Ultrix3.0-C) id AA07466; Mon, 1 Jan 96 00:30:09 +0100 Received: from valhalla.stormking.com (root@valhalla.stormking.com [204.141.14.1]) by nez-perce.inria.fr (8.7.1/8.7.1) with SMTP id AAA09310 for ; Mon, 1 Jan 1996 00:30:03 +0100 (MET) Received: from (server@localhost [127.0.0.1]) by valhalla.stormking.com (8.6.12/8.6.12) with SMTP id SAA14335; Sun, 31 Dec 1995 18:22:03 -0500 Date: Sun, 31 Dec 1995 18:22:03 -0500 Message-Id: <4btl5g$9te@nuscc.nus.sg> Errors-To: tuc@stormking.com Reply-To: lohwengk@iscs.nus.sg Originator: corewar-l@stormking.com Sender: corewar-l@stormking.com Precedence: bulk From: lohwengk@iscs.nus.sg (Loh Weng Keong Calvin) To: Multiple recipients of list Subject: Newbie warriors which died X-Listprocessor-Version: 6.0b -- ListProcessor by Anastasios Kotsikonas X-Comment: Usenet News "rec.games.corewar" Below are two of my warriors which died of old age on the beginner hill. Can some veterans comment on them? TIA. ;redcode ;assert 8000 ;name Loh_tst_1.3 ;author Calvin Loh ;strategy p-space switcher between imp spiral, scanner, paper and bomber ;some constants RSLT equ 0 STRTG equ 1 IS equ #0 B equ #1 P equ #2 SC equ #3 ;loading p-space values into core res ldp.ab RSLT, #0 str ldp.ab STRTG, #0 ;deciding which strategy to use eval sne.ab #0, res jmp lost switch sne.ab IS, str jmp imp sne.ab B, str jmp bomber sne.ab P, str jmp paper jmp scan_b lost add.ab #1, str mod.ab #4, str stp.ba str, STRTG jmp switch ;imp spiral STEP equ 3077 TSTEP equ 2667 CSTEP equ 1143 NSTEP equ 5091 RANGE equ 2353 imp mov imp, imp + STEP spl 1 mov -1, 0 mov -1, 0 spl 1 spl 1 mov -1, 0 launch spl 2 jmp @0, imp add.ab #STEP, -1 tim2 spl @tim2, }TSTEP tim2a mov.i }tim2, >tim2 cel2 spl @cel2, }CSTEP ;these four lines are the main body cel2a mov.i }cel2, >cel2 mov.x <-RANGE,>RANGE ;here you can insert some bombing line ncl2a mov.i {cel2, NSTEP ;bomber bomber mov bomb, 4000 mov toss, 4000 mov toss+1, 4000 mov toss+2, 4000 mov toss+3, 4000 jmp @-1 bomb dat #100, #1 toss spl 0, 0 mov bomb, {bomb mul.a #3, bomb jmp toss ;paper STEP1 equ 2667 STEP2 equ 1143 STEP3 equ 5091 paper spl 1 mov -1, 0 spl 1 mov -1, 0 ;generate 12 parallel processes silk spl @silk, }STEP1 mov.i }silk, >silk slk1 spl @slk1, }STEP2 ;these four lines are the main body mov.i }slk1, >slk1 mov boom, }boom ;here you can insert some bombing line mov.i {slk1, STEP3 banzai spl 2, 100 mov boom, tim2 cel2 spl @cel2, }CSTEP ;these four lines are the main body cel2a mov.i }cel2, >cel2 mov.x <-RANGE,>RANGE ;here you can insert some bombing line ncl2a mov.i {cel2, NSTEP end start -- Calvin Loh