;redcode ;name Keystone t13 ;kill Keystone ;author P.Kline ;strategy upgraded Emerald 4 ;strategy stone + better anti-vamp ;strategy antivamp is converted by stone into core-clear/gate ;strategy if antivamp is dead, stone converts self into gate ;strategy if stone detects paper launches long 3-point imps spacing equ 2517 ; mod-1, but approximates a mod-4 step while ; avoiding mod-4 collisions with opponent's step dat #-start,#1 ; long decoy to delay scanners dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 dat #-start,#1 m0 spl mimp+5334,<-10 spl -1,<-11 ; continuous imp-ring launcher spl mimp+2667,<-12 ; stays here, activated by stone mimp mov 0,2667 ; if necessary mov 1,2666 ; backup in case mimp gets decremented mov 0,2667 emerald spl 0,<-25 stone mov