;redcode ;Name CAKE B ;Author S. Halvorsen ;Address snh@flipper.pvv.unit.no ;Strategy Cripple And Kill (the) Enemy. ;Strategy ;Strategy This program drops a lot of JMP 0 bombs, and when ;Strategy the enemy execute it, he gets stuck. ;Strategy After he is stuck, I have all the time i need to ;Strategy kill him off. ;Strategy ;Strategy Version B is better against scanners. ;Strategy (Only a few B-fields are non-zero.) ;assert 1 ;**************************************** ; ; Dersom motstanderen har rukket aa splitte opp ; en god del, kan han ta knekken paa meg lenge ; foer jeg rekker aa ta knekken paa ham. ; ; Versjon B setter ut killers FOER den bomber minnet ; det betyr at scanners har mindre sjangse til aa ; finne programmet ( Killers har kun #0 i B-felt !) ; Etter aa ha satt ut JMP 0's saa hopper jeg blindt ; til de killerne jeg har satt ut. ; ;**************************************** ; Versjon C skal gaa over fra aa bombe med JMP 0 til JMP trap ; Dette vil antagelig gi bedre uttelling mot splitters. step equ 35 ; (Treffer hver 5. lokasjon.) init equ (step+2+0) ; Dette gir spredt og tett bombing. repeat equ 910 ; Gaar rundt helt til hver 5. er bombet. bs equ 1600 ; bigstep = Avstand mellom killer dwarfs. ;stepnrs equ 5 ; Antall killer dwarfs. kill1 equ (dropbomb - s1 + ( bs * 1 ) - 32) ; Places selected so kill2 equ (dropbomb - s2 + ( bs * 2 ) - 22) ; that kill1 is the kill3 equ (dropbomb - s3 + ( bs * 3 ) - 12) ; last one to die. kill4 equ (dropbomb - s4 + ( bs * 4 ) - 2) ;(Just before kill5.) cleanit dat #0 ; Deletes code that copies the CleanCnt dat #endinit ; kill-routine out to five cleanup mov cleanit,