repeat questname=RoMScript("TEXT('Sys422386_name')"); yrest(500) until questname -- ie. "An Easy Lay?" repeat npcname=RoMScript("TEXT('Sys114930_name')"); yrest(500) until npcname -- ie. "Jenna Miller" repeat queststate = getQuestStatus(questname); yrest(500) until queststate if queststate == "complete" then -- Complete quest player:target_NPC(npcname); sendMacro("CompleteQuest()"); yrest(2000); -- Accept quest player:target_NPC(npcname); sendMacro("AcceptQuest()"); yrest(2000); __WPL:setWaypointIndex(__WPL:findWaypointTag("Main")); elseif queststate == "incomplete" then -- Collect eggs inventory:update() if 1 > inventory:itemTotalCount(204789) then -- Get more feed __WPL:setWaypointIndex(__WPL:findWaypointTag("Get Feed")); else if player:target_Object(112955,8000) then -- Feed Hens __WPL:setWaypointIndex(__WPL:findWaypointTag("Main")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("Get Eggs")) end end else -- Accept quest player:target_NPC(npcname); sendMacro("AcceptQuest()"); yrest(2000); __WPL:setWaypointIndex(__WPL:findWaypointTag("Main")); end player:target_Object(112956,7000,true) __WPL:setWaypointIndex(__WPL:findWaypointTag("Main")); changeProfileOption("HARVEST_DISTANCE", 40) while player:target_Object(112955,1000) do -- Check for hens while not player:target_Object(112958,2000,true) and not player:target_Object(114931,2000,true) do RoMScript("UseSkill(1,1)") yrest(1000) -- pause between hen clicks end -- Repeats until collects Fresh or Gold Egg end changeProfileOption("HARVEST_DISTANCE", 75) __WPL:setWaypointIndex(__WPL:findWaypointTag("Main"));