changeProfileOption("HARVEST_DISTANCE", 50) repeat questname=RoMScript("TEXT('Sys421032_name')"); yrest(500) until questname -- ie. "Collect Scattered Wood" repeat npcname=RoMScript("TEXT('Sys114418_name')"); yrest(500) until npcname -- ie. "Herb George" function CollectWood() while 9 > inventory:itemTotalCount(206756) and player:target_Object(114470,null,null,false) do end if inventory:itemTotalCount(206756) == 9 then yrest(1000) if inventory:itemTotalCount(206756) == 9 then player:target_Object(114470,null,null,false) end end end function IfEnoughGoto(wp) if inventory:itemTotalCount(206756) > 9 then __WPL:setWaypointIndex(__WPL:findWaypointTag(wp)); end end repeat queststate = getQuestStatus(questname); yrest(500) until queststate if queststate == "complete" then -- Complete quest player:target_NPC(npcname); RoMScript("OnClick_QuestListButton(3,1)"); yrest(1000) RoMScript("CompleteQuest()"); yrest(2000); -- Check if no more dailies. repeat questcount = RoMScript("Daily_count()") until questcount if questcount > 9 then -- Finished. No more dailies. player:sleep() end end if queststate ~= "incomplete" then -- Accept quest player:target_NPC(npcname); RoMScript("OnClick_QuestListButton(1,1)"); yrest(1000) RoMScript("AcceptQuest()"); yrest(2000); end CollectWood() IfEnoughGoto("npc") CollectWood() IfEnoughGoto("npc") CollectWood() IfEnoughGoto("npc") CollectWood() IfEnoughGoto("point1") CollectWood() IfEnoughGoto("npc") CollectWood() IfEnoughGoto("npc") CollectWood() IfEnoughGoto("point2") CollectWood() if inventory:itemTotalCount(206756) > 9 then __WPL:setWaypointIndex(__WPL:findWaypointTag("npc")); else __WPL:setWaypointIndex(__WPL:findWaypointTag("start")); end