# SpiderMortar.crpl # Created on: 12/19/2018 9:27:39 PM # ------------------------------------------ once 0 ->Timer Self CONST_CREATEPZ 0 SetUnitAttribute Self CONST_DESTROYMODE 0 SetUnitAttribute "CRPLCORE" CurrentCoords CreateUnit ->CORE <-CORE "TriggerMORTAR.crpl" AddScriptToUnit <-CORE "TriggerMORTAR.crpl" "MORTARCheck" Self SetScriptVar <-CORE CONST_NULLIFIERDAMAGES 0 SetUnitAttribute <-CORE CONST_TAKEMAPSPACE 1 SetUnitAttribute <-CORE "main" "None" SetImage endonce <-Timer eq0 if CreateList ->List CurrentCoords 35 0 GetAllUnitsInRange 0 do ->Unit <-Unit GetUnitType "CRPLCORE" neq <-Unit GetUnitType "TOTEM" neq and <-Unit GetUnitType "EMITTER" neq and <-Unit GetUnitType "POWERZONE" neq and <-Unit GetUnitType "OREDEPOSIT" neq and <-Unit GetUnitType "SPORETOWER" neq and <-Unit GetUnitType "RUNNERNEST" neq and <-Unit GetUnitType "RUNNER" neq and <-Unit CONST_ISLANDED GetUnitAttribute and if <-List <-Unit AppendtoList endif loop <-List GetListCount 0 gt if <-List RANDINT(0 <-List GetListCount) GetListElement ->UnitTarget "CRPLCORE" CurrentCoords CreateUnit ->CORE <-CORE "Mortar.crpl" AddscripttoUnit <-CORE "Mortar.crpl" "UnitTarget" <-UnitTarget SetScriptVar <-CORE "Mortar.crpl" "BigMortar" 1 SetScriptVar endif 30 RANDINT(2 -3) add ->Timer --List endif <-Timer 1 sub ->Timer