Sub MobRadar(int CountRadius,string calledfrom)
/if (${DMZ}) /return
/if (${Debug}) /echo DEBUG MobRadar ${CountRadius} Enter (${calledfrom})
/declare NMob int local
/declare i int local
/declare k int local 0
/varset MobCount ${SpawnCount[npc pet targetable los radius ${CountRadius} zradius 50 noalert 3]}
/for i 1 to ${MobCount}
/varset NMob ${NearestSpawn[${i},npc pet targetable los radius ${CountRadius} zradius 50 noalert 3].ID}
/if (${Spawn[${NMob}].Type.Equal[pet]} && ${Spawn[${NMob}].Master.Type.Equal[pc]}) /continue
/varcalc k ${k}+1
/if (${k}>13) /break
/if (${AddsArray[${k},1].NotEqual[NULL]} && (${Spawn[${AddsArray[${k},1]}].Type.Equal[Corpse]} || !${Spawn[${AddsArray[${k},1]}].ID})) {
/call RemoveFromArray ${k}
/varcalc k ${k}-1
}
/if (${MobCount}>0 && ${Select[${NMob},${AddsArray[1,1]},${AddsArray[2,1]},${AddsArray[3,1]},${AddsArray[4,1]},${AddsArray[5,1]},${AddsArray[6,1]},${AddsArray[7,1]},${AddsArray[8,1]},${AddsArray[9,1]},${AddsArray[10,1]},${AddsArray[11,1]},${AddsArray[12,1]},${AddsArray[13,1]}]}==0) /call AddToArray ${NMob}
:ArrayExceed
/next i
| Check if NPC Pet is on Xtarget
|/if (!${MobCount} && ${Me.XTarget[${XTSlot}].ID}) {
| /if (${Me.XTarget[${XTSlot}].Type.Equal[pet]}) /varset MobCount 1
|}
/if (${Debug}) /echo DEBUG MobRadar leave
/return