Code For Infinite Ammo THOR Not Working

[piggood]

I wanted to make a Infinite ammo THOR
But The tracelog was saying
WARNING: Taking Item From An Empty Stack
GETALLUNITSINRANGE at line 5

ShowTraceLog
   do (GetAllUnitsInRange(0 0 9999) 0)
      ->unit
      if (GetUnitType(<-unit) eq("THOR"))
         <-count add(1) ->count
      <-unit trace
      endif
   <-unit CONST_MAXAMMO GetUnitAttribute ->YEE
<-unit CONST_AMMO <-YEE SetUnitAttribute
   loop

[GoodMorning]

GetAllUnitsInRange has a fourth parameter.

do (GetAllUnitsInRange(0 0 9999 0) 0)
   ->unit
   if (GetUnitType(<-unit) eq("THOR"))
      <-count add(1) ->count
   <-unit trace
   endif
   <-unit CONST_MAXAMMO GetUnitAttribute ->YEE
   <-unit CONST_AMMO <-YEE SetUnitAttribute
loop

[Builder17]

GetAllUnitsInRange has a fourth parameter.

Code Select Expand

do (GetAllUnitsInRange(0 0 9999 0) 0)
->unit
if (GetUnitType(<-unit) eq("THOR"))
<-count add(1) ->count
<-unit trace
<-unit CONST_MAXAMMO GetUnitAttribute ->YEE
<-unit CONST_AMMO <-YEE SetUnitAttribute
        endif
loop

Also you might want to put endif after where it sets ammo to maximum. :)

Code Select Expand

once
Self CONST_NULLIFIERDAMAGES FALSE SetUnitAttribute
Self CONST_TAKEMAPSPACE FALSE SetUnitAttribute
Self CONST_SUPPORTSDIGITALIS FALSE SetUnitAttribute
Self CONST_COUNTSFORVICTORY FALSE SetUnitAttribute
        Self "main" "None" SetImage
endonce

Putting this on beginning of code makes it invisible and non-enemy/blocking/damage-able.