Lineage 2 Tower Forum

man1 = "playerplayer"
man2 = "Cdesz"
man3 = "cheaper"
man4 = ""
man5 = ""
 
 
 
repeat
	player = GetPlayerList(); -- getting list
	for play in player.list do
		if play:GetName() == man1 or play:GetName() == man2 or play:GetName() == man3 or play:GetName() == man4 or play:GetName() == man5 then
			ShowToClient("found","who? ".. tostring(play:GetName()))
			Sleep(500)
		else
			ShowToClient("found","none ")
			Sleep(10*1000)
		end
	end
until false

--- User Inrange Check
--- Pelukis 2014
--- Hope it work... 
 
sUserList = {'Name1','Name2','Name3'};
CheckRange = 2000;
InProgres = false;
 
function IsInList(sName)
	for x,y in pairs(sUserList) do
 if (y == sName) then
 return true;
 end;
	end;
	return false;
end;
 
function CheckUser()
	InProgres = true;
	local Ret = false;
	local Plist = GetPlayerList();
	for Ppl in Plist.list do
 if (GetMe():GetRangeTo(Ppl) < CheckRange) and IsInList(Ppl:GetName()) then
 ShowToClient("UserCheck", "Found : " .. tostring(Ppl:GetName()))
 Sleep(1000);
 Ret = true;
 end;
 Sleep(1000);
	end;
	InProgres = false;
	return Ret;
end;
 
repeat
	if not InProgres then
 if not CheckUser() then
 ShowToClient("UserCheck", "Nothing Found!");
 end;
	end;
	Sleep(2000);
until false;