Code: Select all
#turbo
Sub Main
/if "$p0"=="" {
/echo Usage: /macro light <spawn name> <light source>
/if "$p2"=="" {
/echo usage: /macro light <spawn name> <light source> /return
}
/varset l0 $id(0)
/varset l1 0
/echo Searching for $p0's with $p2's:
/echo --------------------------------------------
:Loop
/if "$spawn($l0,name)"!~"$p0" /goto :Next
/if "$spawn($l0,light)"!~"$p2" /goto :Next
/echo [$l0] $spawn($l0,name,clean): $spawn($l0,light) -- range $spawn($l0,distance)
/varadd l1 1
:Next
/varset l0 $spawn($l0,next)
/if $l0>0 /goto :Loop
/echo $int($l1) spawn$if(n,$l1==1,"","s") found.
/return