From jklewis@umich.edu Fri Jan 31 04:11:22 1997 Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by tobago.inria.fr (8.6.10/8.6.6) with ESMTP id EAA12267 for ; Fri, 31 Jan 1997 04:11:22 +0100 Received: from us.itd.umich.edu (stimpy.us.itd.umich.edu [141.211.164.7]) by nez-perce.inria.fr (8.7.6/8.7.3) with ESMTP id EAA15252 for ; Fri, 31 Jan 1997 04:11:20 +0100 (MET) Received: from localhost by us.itd.umich.edu (8.8.5/2.2) with SMTP id WAA23938; Thu, 30 Jan 1997 22:11:17 -0500 (EST) Date: Thu, 30 Jan 1997 22:11:17 -0500 (EST) From: John Kipling Lewis X-Sender: jklewis@stimpy.us.itd.umich.edu To: Damien.Doligez@inria.fr Subject: Redpixel Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Status: R ;redcode-94 ;name RedPixel.3 ;author John Lewis ;strategy jmz.f carpet-bombing scanner based on Rave.red ;strategy (which was based on agony) ;strategy V.1 New system, it ever works sometimes! ;strategy V.2 Now with comments! ;strategy V.3 Shorter by 3 lines. res equ 721 ;6381 ;721 org top tail dat.f -100,-100 ;target for gunning for 2 dat 0,0 rof top sub.ab #res,#-100 ;subtract from traget eyes jmz.f top,@top ;scan for target slt #15,top ;if it's me, skip it djn top,foot ;if it's me decrement counter vein mov.ba top,tail ;mov target range into sight add.b @top,top ;add range as next to be checked abdom mov.i sting,}tail ;lay fire meter djn.b abdom,#top-tail+3 ;counter for fire mov.ab #top-tail+3,meter ;increment counter foot slt.ba #10,#20 ;if i've done this enough,coreclear jmp eyes ;start at top. sting spl.a #0,#0 ;core clear mov.i log,<1 ;core clear jmp -1,-3 log dat foot,-3