EQ2Unleashed EQ2 Radar : EverQuest 2 Premium Discussions

Code: Select all

function PlayerNearby()
	Dim tx, ty, MobName, TargetID

	PlayerNearby = False
	sendkeys("{F1}") 'First target self
	Sleep 100
	sendkeys(KeyNearestPC) 'Target nearest PC
	Sleep 100
	targetid = gettargetid(oSvcObj)

	'if player targeted then check for proximity to resource
	MobName = getmobname(oSvcObj, targetid)
	if targetid > 0 and MobName <> PCName then
		UpdateCurrLoc
		tx = getmobx(oSvcObj,targetid)
		ty = getmoby(oSvcObj,targetid)
		If withinrange(tx,ty,CurrX,CurrY,AvoidRange) then
			oDebug.Print "PLayer within " & AvoidRange & " of resource", 8
			PlayerNearby = True
		end if
	end if
	sendkeys("{ESCAPE}")
end function