Sub FindMobToPull(int PullFlag)
/if (${ChainPull}==2 && ${PullFlag}) /varset ChainPull 1
/if ((${DMZ} && ${Me.InInstance}==FALSE) || (${PullFlag} && !${Select[${Role},puller,pullertank,hunter,hunterpettank,pullerpettank]}) || (!${PullFlag} && !${Role.Find[puller]}) || ${Pulled} || (${AggroTargetID} && !${ChainPull}) || ${ChainPullHold} || ${DPSPaused}) /return 0
/call MobRadar ${MeleeDistance} FindMobToPull
/if (${ChainPull} && (${MobCount}>1 || ${Me.XTarget[${XTSlot2}].ID})) /return 0
/if (${PullFlag}) {
/if (${ChainPull}) {
/if (${Target.ID}==${Me.ID}) {
/squelch /target clear
/delay 10
}
/if (${Me.XTarget[${XTSlot}].ID} && ((!${MyTargetID} && !${Target.ID}) || ${Target.PctHPs}>=${ChainPullHP} || (${MyTargetID} && ${Spawn[${MyTargetID}].PctHPs}>=${ChainPullHP}))) /return 0
/if (${Math.Distance[${CampYLoc},${CampXLoc}:${Spawn[=${MainAssist}].Y},${Spawn[=${MainAssist}].X}]}>75) /return 0
}
}
/if (${PullFlag} && !${Select[${Role},puller,pullertank,hunter,hunterpettank,pullerpettank]} || ${Me.Buff[Resurrection Sickness].ID} || ${Me.Buff[Revival Sickness].ID} || ${IAmDead}) /return 0
/if (${PullFlag} && ${PetRampPullWait} && !${Me.CombatState.Equal[COMBAT]} && ${Select[${Role},pullerpettank]} && ${Select[${Me.Class.ShortName},MAG,NEC,BST]}) /call CheckRampPets
/if (${DebugPull}) /echo \atDEBUGPULL FindMobToPull Enter ${PullFlag} \agLine#: ${Macro.CurLine}
/call SetPullRange
/doevents
/declare i int local
/declare j int local
/declare k int local
/declare l int local
/declare m int local
/declare PathArray[50] int local 0
/declare PathDistance[50] float local 0
/declare Smallsub int local 0
/declare tempSortID int local 0
/declare tempSortDist float local 0
/declare f1 int local 0
/declare PullMob int local 0
/declare PullMobName string local 0
/declare PullMobDistance float local 0
/declare PullMobValid int local 0
/declare PullCount int local
/declare DistanceCheck int local
/declare MobsNearCamp int local
/declare PullingTimer timer local 5s
/declare Start1 int local
/declare WPMobCount int local
/varset Pulling 0
/call GroupWatch
/if (${ChainPullHold}) /return 0
/if (${PullFlag}) {
/echo Looking for Close Range Mobs
} else {
/if (!${SpamTimer}) {
|/echo --- Checking for Close Range Mobs --- ${MyTargetID} ${Target.ID} ${Target.PctHPs} ${MobCount}
/echo Checking for Close Range Mobs
/varset SpamTimer 50
}
}
| Clear alert list 1, add mobs to ignore alert list1, set timer to keep alert list manageable for pulling no alert 1
/if (!${PullAlertTimer}) {
| Add Ignore Mob list to alert list
/call AlertAddToList 1 "${MobsToIgnore}"
/varset PullAlertTimer 5m
}
:FindMob
| Advpath searches for mobs along the path using Pullwith radius not Maxradius
/if (${PullPathWpCount} && ${PullPath.Length} && ${PullMoveUse.Equal[advpath]}) {
/if (${Target.ID}) /squelch /target clear
/varset PullMobValid 0
| loop through pathwaypoints and check for mobs
/for k 1 to ${PullPathWpCount}
/varset WPMobCount 0
/varset PullMob 0
/varset WPMobCount ${SpawnCount[npc loc ${PullPathArrayX[${k}]} ${PullPathArrayY[${k}]} radius ${Math.Calc[${PullRange}*.8]} zradius ${MaxZRange} targetable noalert 1]}
/if (${WPMobCount}) {
/varset i 0
/for l 1 to ${WPMobCount}
/varset PullMob ${NearestSpawn[${l}, npc loc ${PullPathArrayX[${k}]} ${PullPathArrayY[${k}]} radius ${Math.Calc[${PullRange}*.8]} zradius ${MaxZRange} targetable noalert 1].ID}
/if (${DebugPull}) /echo \atDEBUGPULL FindMobToPull 1: WP: ${k} MobID ${PullMob} LOS ${LineOfSight[${PullPathArrayY[${k}]},${PullPathArrayX[${k}]},${PullPathArrayZ[${k}]}:${Spawn[id ${PullMob}].Y},${Spawn[id ${PullMob}].X},${Spawn[id ${PullMob}].Z}]} YXZ ${PullPathArrayY[${k}]},${PullPathArrayX[${k}]},${PullPathArrayZ[${k}]}:${Spawn[id ${PullMob}].Y},${Spawn[id ${PullMob}].X},${Spawn[id ${PullMob}].Z} \agLine#: ${Macro.CurLine}
/if (${DebugPull}) /delay 1
/if (${PullMob} && ${LineOfSight[${PullPathArrayY[${k}]},${PullPathArrayX[${k}]},${PullPathArrayZ[${k}]}:${Spawn[id ${PullMob}].Y},${Spawn[id ${PullMob}].X},${Spawn[id ${PullMob}].Z}]}) {
/varset DistanceCheck ${Math.Distance[${PullPathArrayY[${k}]},${PullPathArrayX[${k}]},${PullPathArrayZ[${k}]}:${Spawn[id ${PullMob}].Y},${Spawn[id ${PullMob}].X},${Spawn[id ${PullMob}].Z}]}
/if (${k}<${PullPathWpCount}) {
/varcalc i ${k}+1
/while (${i}<=${PullPathWpCount} && ${DistanceCheck}>${Math.Distance[${PullPathArrayY[${i}]},${PullPathArrayX[${i}]},${PullPathArrayZ[${i}]}:${Spawn[id ${PullMob}].Y},${Spawn[id ${PullMob}].X},${Spawn[id ${PullMob}].Z}]}) {
/varset DistanceCheck ${Math.Distance[${PullPathArrayY[${i}]},${PullPathArrayX[${i}]},${PullPathArrayZ[${i}]}:${Spawn[id ${PullMob}].Y},${Spawn[id ${PullMob}].X},${Spawn[id ${PullMob}].Z}]}
/varcalc i ${i}+1
}
/varset k ${i}
}
/if (${DebugPull}) /echo \atDEBUGPULL FindMobToPull: WP ${k} MobCount ${l} ${WPMobCount} \agLine#: ${Macro.CurLine}
/varset PullMobName ${Spawn[id ${PullMob}].CleanName}
/varset PullMobDistance ${Math.Distance[${Spawn[id ${PullMob}].Y},${Spawn[id ${PullMob}].X}:${PullPathArrayY[${k}]},${PullPathArrayX[${k}]}]}
/varcalc AdvpathPointNum ${k}
/varset AdvpathPointX ${PullPathArrayX[${k}]}
/varset AdvpathPointY ${PullPathArrayY[${k}]}
/varset AdvpathPointZ ${PullPathArrayZ[${k}]}
/if (${DebugPull}) /echo \atDEBUGPULL FindMobToPull 2: WP: ${k} Pullmob ${PullMob} Waypoint: ${AdvpathPointNum} XY: ${PullPathArrayX[${k}]} ${PullPathArrayY[${k}]} ${Math.Distance[${Spawn[id ${PullMob}].Y},${Spawn[id ${PullMob}].X}:${AdvpathPointY},${AdvpathPointX}]}<${PullRange} \agLine#: ${Macro.CurLine}
/if (${DebugPull}) /echo \atDEBUGPULL FindMobToPull 2: AdvPull: Pullmob: ${PullMobName} ID ${PullMob} Waypoint: ${PullPathWpCount} XY: ${PullPathArrayX[${k}]} ${PullPathArrayY[${k}]} \agLine#: ${Macro.CurLine}
/call PullValidate ${PullMob} ${PullFlag}
/varset PullMobValid ${Macro.Return}
/if (${PullMobValid}) /goto :FoundMob
}
/next l
}
/next k
/if (${DebugPull}) /echo \atDEBUGPULL FindMobToPull: Mob Not Found. AdvPull: PullFlag: ${PullFlag} Role: ${Role} ID: ${PullMob} PullRange: ${PullRange} \agLine#: ${Macro.CurLine}
/return 0
| Check for mobs in max pull radius for normal,MQ2nav pulling
} else /if (${Navigation.MeshLoaded} && ${PullMoveUse.Equal[nav]}) {
/varset PullCount ${SpawnCount[npc loc ${CampXLoc} ${CampYLoc} radius ${MaxRadius} zradius ${MaxZRange} targetable noalert 1]}
/varset MobsNearCamp ${SpawnCount[npc loc ${CampXLoc} ${CampYLoc} radius ${MeleeDistance} zradius ${MaxZRange} targetable noalert 1]}
} else /if (${Select[${Role},hunter,hunterpettank]}) {
/varset PullCount ${SpawnCount[npc radius ${MaxRadius} zradius ${MaxZRange} targetable noalert 1]}
/varset MobsNearCamp ${SpawnCount[npc radius ${MeleeDistance} zradius ${MaxZRange} targetable noalert 1]}
} else {
/varset PullCount ${SpawnCount[npc los loc ${CampXLoc} ${CampYLoc} radius ${MaxRadius} zradius ${MaxZRange} targetable noalert 1]}
/varset MobsNearCamp ${SpawnCount[npc los loc ${CampXLoc} ${CampYLoc} radius ${MeleeDistance} zradius ${MaxZRange} targetable noalert 1]}
}
/if (${DebugPull}) /echo \atDEBUGPULL FindMobToPull PullFlag:${PullFlag} Pullcount: ${PullCount} MobsNearCamp: ${MobsNearCamp} \agLine#: ${Macro.CurLine}
/if (!${PullFlag} && ${PullCount}>0 && ${Spawn[${LastMobPullID}].Distance}>=${MeleeDistance}) /return 0
/if (!${PullFlag}) /varcalc PullCount ${PullCount}-${MobsNearCamp}
/if (${PullCount}) {
/if (!${PullFlag} && ${MobsNearCamp}) {
/varset f1 2
} else {
/varset f1 1
}
/varset PullCount ${SpawnCount[npc loc ${CampXLoc} ${CampYLoc} radius ${MaxRadius} zradius ${MaxZRange} targetable noalert 1]}
/for i 1 to ${PullCount}
/varset PathArray[${i}] ${NearestSpawn[${i}, npc loc ${CampXLoc} ${CampYLoc} radius ${MaxRadius} zradius ${MaxZRange} targetable noalert 1].ID}
/varset PullMob ${PathArray[${i}]}
/varset PathDistance[${i}] ${Navigation.PathLength[${Spawn[${PullMob}].X} ${Spawn[${PullMob}].Y} ${Spawn[${PullMob}].Z}]}
/next i
/for i 1 to ${PullCount}
/varset Smallsub ${i}
/varset m ${Math.Calc[${i} + 1]}
/for j ${m} to ${PullCount}
/if (${PathDistance[${j}]} < ${PathDistance[${Smallsub}]}) /varset Smallsub ${j}
/next j
/varset tempSortID ${PathArray[${i}]}
/varset tempSortDist ${PathDistance[${i}]}
/varset PathArray[${i}] ${PathArray[${Smallsub}]}
/varset PathArray[${Smallsub}] ${tempSortID}
/varset PathDistance[${i}] ${PathDistance[${Smallsub}]}
/varset PathDistance[${Smallsub}] ${tempSortDist}
/next i
/for i 1 to ${PullCount}
/if (${DebugPull}) /echo \atDEBUGPULL FindMobToPull 1.0: PullFlag: ${PullFlag} Pullcount: ${PullCount} \agLine#: ${Macro.CurLine}
/if (${Navigation.MeshLoaded} && ${PullMoveUse.Equal[nav]}) {
/varset PullMob ${PathArray[${i}]}
/varset PullMobName ${Spawn[id ${PullMob}].CleanName}
