# --Blue Proximity Emitter-- 10/13/2016 8:08:50 PM $Range:30 once Self "main" "Custom1" SetImage Self CONST_LATHETARGETS 0 SetAttribute Self CONST_ISENEMY 0 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 0 CreateParticle CurrentPixelCoords <-Direction 1.5 0 0 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 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 0 CreateParticle CurrentPixelCoords <-Direction2 3 1 0 CreateParticle CurrentPixelCoords <-Direction3 3 1 0 CreateParticle CurrentPixelCoords <-Direction4 3 1 0 CreateParticle