function gettile()
player:target_Object("Treasure Tile")
yrest(300);
teleportToWP()
end
function getchest()
player:target_Object("Brown wooden chest")
yrest(300);
teleportToWP()
end
function doaoe()
player:cast("MAGE_PURGATORY_FIRE"); -- change it to your aoe
yrest(300);
end
player:target_NPC("Hill Joker");
sendMacro("ChoiceOption(2);");
yrest(1000);
changeProfileOption("LOOT", false);
yrest(500);
__WPL:setForcedWaypointType("TRAVEL");
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
doaoe()
-- here be harvesting
__WPL:setForcedWaypointType("RUN");
yrest(500);
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
gettile()
-- 4 additional tiles to check if missed something
changeProfileOption("HARVEST_DISTANCE", 400); gettile()
gettile()
gettile()
gettile()
-- if there are still tiles around
player:findNearestNameOrId(111811) ;
local checktiles = player:findNearestNameOrId(111811);
if checktiles ~= nil then
__WPL:setWaypointIndex(__WPL:findWaypointTag("gettiles"));
end
-- here be chests
getchest()
getchest()
getchest()
getchest()
player:findNearestNameOrId("Brown wooden chest") ;
local checkchests = player:findNearestNameOrId("Brown wooden chest");
if checkchests ~= nil then
__WPL:setWaypointIndex(__WPL:findWaypointTag("getchests"));
else
player:sleep();
end