50) then
cprintf(cli.yellow, "Dropped the cow, finding a new one\n")
break
end
-- Completed a cow or quest or reached a wp
if quest:getKillCount(1) > ncows or distance(cattle.X, cattle.Z, _wp[wpi].X, _wp[wpi].Z ) < 20 then
wpi = wpi + 1
if wpi > #_wp then
cprintf(cli.yellow, "Cow delivered\n")
break
end
end
NewPos = CalcNewPos(_wp[wpi], cattle)
success, failreason = player:moveTo(NewPos, true)
inventory:useItem(_bell)
yrest(200)
player:update()
end
end
end
end
end
--
-- Some extended or modified functions, originally not
-- written by me
--
function CPlayer:nMobsInRange(_id,_range,_X,_Z)
_range = _range or 300
_X = _X or self.X
_Z = _Z or self.Z
local dist = 0
local found = 0
local objectList = CObjectList()
objectList:update()
for i = 0,objectList:size() do
obj = objectList:getObject(i)
if( obj.Id == _id ) then
dist = isInDist(_X, _Z, obj.X, obj.Z, _range)
if( dist > -1 ) then
found = found + 1
end
end
end
return found
end
function CWaypointList:findWaypointRegexp(tag)
res = {}
tag = string.lower(tag);
for i,v in pairs(self.Waypoints) do
if( v.Tag and string.match(v.Tag, tag) ) then
table.insert(res, i)
end
end
return res;
end
]]>
0 and not dorepeat then
error("Completed")
else
quest = questlog:getQuest(_cowboy)
while not quest do
player:target_NPC(_jack); yrest(1000)
AcceptQuestByName(_cowboy)
quest = questlog:getQuest(_cowboy)
if not quest then
if dorepeat and inventory:itemTotalCount(_gstone) > 0 then
player:target_NPC(_jack); yrest(1000)
ChoiceOptionByName("I would like to help you once again."); yrest(1000)
ChoiceOptionByName("Confirm"); yrest(1000)
else
error("Quest finished")
break
end
end
end
end
]]>
max then
n = i
max = ncows
end
end
if max > 0 and n > 0 then
__WPL:setWaypointIndex(n);
else
error("No cows found!")
end
end
]]>