# --ListUIDs-- 1/8/2017 1:03:48 PM #A utility script for mapmakers. Will vanish with the Core when map is finalised. once Self 0 SetUnitTakeMapSpace Self 0 SetUnitIsGoal Self 0 SetUnitLatheTargets Self 0 SetUnitCreateFootprint Self 0 SetUnitMissionGoal 20 SetTextSize endonce IsEditMode not if Self 0 DestroyUnit endif "LeftShift" GetKey if GetMouseCell SetCurrentCoords "" SetText Self "main" "Default" SetImage return endif Self "main" "NONE" SetImage "" ->Text GetMouseCell 10 0 GetAllUnitsInRange ->Units <-Units GetListCount 0 gt if "UNITS:" LF concat ->Text <-Units GetListCount 0 do <-Units[I] ->Unit <-Text LF concat <-Unit concat ": " concat <-Unit GetUnitType concat ->Text loop endif GetMouseCell 10 0 GetAllShipsInRange ->Ships <-Ships GetListCount 0 gt if <-Text <-Text "" neq if LF concat LF concat endif #Bad structure, but it's unlikely it will be read by anyone else. "SHIPS:" concat LF concat ->Text #Who are oyu and why are you reading this script? <-Ships GetListCount 0 do <-Ships[I] ->Ship <-Text LF concat <-Ship concat ": (Hull size is " concat <-Ship GetShipHullSize concat ")" concat ->Text loop endif <-Text SetText "LeftAlt" GetKey if "TopRight" SetTextAlignment 1 SetTextPivotX 1 SetTextPivotY GetMouseCell 10 sub swap 10 sub swap SetCurrentCoords else "LowerLeft" SetTextAlignment 0 SetTextPivotX 0 SetTextPivotY GetMouseCell 10 add swap 10 add swap SetCurrentCoords endif :awake 1 OperateWhilePaused :destroyed 0 OperateWhilePaused