# --Improved Proximity Emitter-- 10/14/2016 6:21:09 PM $Range:30 once Self "main" "Custom0" SetImage Self CONST_LATHETARGETS 1 SetAttribute 0 ->Direction1 90 ->Direction2 180 ->Direction3 270 ->Direction4 100 ->ShipEmitTickerMax 1000 ->ShipProximityUnit 0 ->ShipEmitTicker endonce GetTimer0 eq0 if 0 360 RandInt ->Direction CurrentPixelCoords <-Direction 1.5 0 1 CreateParticle CurrentPixelCoords <-Direction 1.5 0 1 CreateParticle 30 SetTimer0 endif <-ShipEmitTicker 0 lte if <-ShipEmitTickerMax ->ShipEmitTicker @AI else CurrentCoords <-Range 0 GetAllShipsInRange ->Ships <-Ships GetListCount 0 do <-Ships[I] ->Ship <-Ship GetShipIsEnemy not if <-Ship.ShipPixelCoordX <-Ship.ShipPixelCoordY CurrentCoords CellToPixel Distance ->ShipDist <-ShipProximityUnit <-ShipDist div ->Proximity <-ShipEmitTicker <-Proximity sub ->ShipEmitTicker endif loop endif #<-ShipEmitTicker SetText :AI CurrentPixelCoords <-Direction1 3 1 1 CreateParticle CurrentPixelCoords <-Direction2 3 1 1 CreateParticle CurrentPixelCoords <-Direction3 3 1 1 CreateParticle CurrentPixelCoords <-Direction4 3 1 1 CreateParticle