lua_modules/npc_ext.lua at master · proxeeus/lua_modules · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
function NPC:ForeachHateList(func, cond)
	cond = cond or function(ent, hate, damage, frenzy) return true end;
	local lst = self:GetHateList();
	for ent in lst.entries do
		local cv = cond(ent.ent, ent.hate, ent.damage, ent.frenzy);
		if(cv) then
			func(ent.ent, ent.hate, ent.damage, ent.frenzy);
		end
	end
end

function NPC:CountHateList(cond)
	cond = cond or function(ent, hate, damage, frenzy) return true end;
	local lst = self:GetHateList();
	local ret = 0;
	for ent in lst.entries do
		local cv = cond(ent.ent, ent.hate, ent.damage, ent.frenzy);
		if(cv) then
			ret = ret + 1;
		end
	end

	return ret;
end

function NPC:RandomRoam(maxx,maxy,maxz,los)
	maxz = maxz or 15;
	los = los or 5;

	if(self:IsEngaged() ~= 1) then
		local curx = self:GetX();
		local cury = self:GetY();
		local origx = self:GetSpawnPointX();
		local origy = self:GetSpawnPointY();
		local origz = self:GetSpawnPointZ();
		local guardx = self:GetGuardPointX();
		local guardy = self:GetGuardPointY();

		if(curx == guardx and cury == guardy) then
			local randomx = math.random(maxx) + 1;
			local randomy = math.random(maxy) + 1;
			local posx = origx + randomx;
			local posy = origy + randomy;
			local negx = origx - randomx;
			local negy = origy - randomy;
			local newx = math.random(posx,negx);
			local newy = math.random(posy,negy);
			local newz = self:FindGroundZ(newx,newy, 5) + 1;

			if(newz > -999999 and origz > (newz - maxz + 1) and origz < (newz + maxz - 1)) then
				local loscheck = self:CheckLoSToLoc(newx, newy, newz, los);
				if(loscheck) then
					self:MoveTo(newx,newy,newz,-1,true);
				end
			end
		end
	end
end

-- Check the ground around the NPC for a dropped item and destroy it.  Returns true if object found
function NPC:CheckGround(range)

	local id, ix, iy, iz;
	local sx, sy, sz = self:GetX(), self:GetY(), self:GetZ();

	local olist = eq.get_entity_list():GetObjectList();
	range = tonumber(range) or 25;

	for obj in olist.entries do

		ix, iy, iz = obj:GetX(), obj:GetY(), obj:GetZ();
		if ( (obj:GetItemID() > 0) and (obj:IsGroundSpawn() == false)
			and ix - sx < range and ix - sx > -range
			and iy - sy < range and iy - sy > -range
			and iz - sz < range and iz - sz > -range
		) then
			obj:Depop();
			return true;
		end
	end
	return false;
end