# --Sprayer-- 08/27/2016 20:02:44 once Self "main" "Custom1" SetImage Self "main" "Ships" SetImageLayer Self "main" 1 SetImageOrder Self "main" 1 1 SetImageScale Self "barrel" "Custom2" SetImage Self "barrel" "Ships" SetImageLayer Self "barrel" -0.01 SetImagePositionZ Self "barrel" 1 SetImageOrder Self "barrel" 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 self "barrel" 0 0 0 0 SetImageColor return endif self "main" <-ShipAngle SetImageRotation IsPaused if return endif <-Exist 1 eq if self "main" 255 255 255 128 SetImageColor self "barrel" 255 255 255 0 SetImageColor <-ShipAngle ->BarrelAngle 0 ->arbitraryValue else CurrentCoords GetLand eq0 if self "main" 255 255 255 255 SetImageColor self "barrel" 255 255 255 255 SetImageColor <-Ship.ShipHasAmp <-IsEnemy or ->GemPresent <-arbitraryValue sin QuarterPi mul <-ShipAngle add ->BarrelAngle Self "barrel" <-BarrelAngle SetImageRotation CurrentCoords 8 0 <-IsEnemy GetParticlesInRange ->particles CurrentPixelCoords ->sy ->sx <-arbitraryValue 0.05 add ->arbitraryValue <-particles GetListCount 0 do <-particles[I] GetParticlePosition ->y ->x <-y <-sy sub <-x <-sx sub atan2 <-ShipAngle ShortestAngle abs HalfPi gt if 1 <-particles[I] ->! <-particles[I] <-BarrelAngle cos 2 mul <-BarrelAngle sin 2 mul SetParticleMotion <-particles[I] Self GetUnitPixelCoordX <-BarrelAngle cos 12 mul add Self GetUnitPixelCoordY <-BarrelAngle sin 12 mul add SetParticlePosition break endif loop --particles endif endif :awake 1 OperateWhilePaused