# --Maker-- 08/27/2016 19:20:07 #Requires grabber to work properly once Self "main" "Custom0_128" SetImage Self "main" "Ships" SetImageLayer Self "main" 1 SetImageOrder Self "main" 1 1 SetImageScale Self "ShipModule.prpl" "Ship" GetScriptVar ->Ship <-Ship.ShipIsEnemy ->IsEnemy -1 ->target endonce Self "ShipModule.prpl" "ShipAngle" GetScriptVar ->ShipAngle Self "ShipModule.prpl" "delta" GetScriptVar ->Delta Self "ShipModule.prpl" "exist" GetScriptVar ->Exist <-Exist eq0 if self "main" 0 0 0 0 SetImageColor return endif IsPaused if return endif <-Exist 1 eq if self "main" 255 255 255 128 SetImageColor <-ShipAngle ->BarrelAngle 0 ->cooldown 0 ->cooldowntwo else self "main" 255 255 255 255 SetImageColor <-Ship.ShipHasAmp <-IsEnemy or ->GemPresent <-cooldown 0 gt if #Using variable "cooldowntwo" for the "Energy-burning" particle maker. <-cooldown 1 sub ->cooldown else <-GemPresent if 1000 ->max 3600 ->life 10 ->cooldown #1/2 speed! 1 ->health else 500 ->max 1800 ->life #1.5x max, 1.5x rate, evens out 20 ->cooldown #1/2 speed! 1 ->health endif Self GetOwnedParticleCount <-max lt if CurrentCoords GetLand eq0 if @Emit endif endif endif #Procced the copypasting... including the notes. <-cooldowntwo 0 gt if #Using variable "cooldowntwo" for the "Energy-burning" particle maker. <-cooldowntwo 1 sub ->cooldowntwo else <-GemPresent if 2000 ->max 1800 ->life #2x max so 1/2 life 5 ->cooldowntwo #4x faster 1 ->health else 1000 ->max 900 ->life #2x max so 1/2 life 10 ->cooldowntwo #4x faster 1 ->health endif Self GetOwnedParticleCount <-max lt if CurrentCoords GetLand eq0 if GetGlobalStoredEnergy 10 gte if GetGlobalStoredEnergy 10 sub SetGlobalStoredEnergy @Emit @Emit @Emit @Emit endif endif endif endif endif :emit CurrentPixelCoords <-ShipAngle 0.75 <-health 1 sub <-IsEnemy CreateParticle ->new <-life ->new.ParticleMaxAge trace(GetGlobalStoredEnergy)