queststate = getQuestStatus("An Easy Lay") if queststate == "complete" then -- Complete quest player:target_NPC("Jenna Miller"); sendMacro("CompleteQuest()"); yrest(2000); -- Accept quest player:target_NPC("Jenna Miller"); sendMacro("AcceptQuest()"); yrest(2000); __WPL:setWaypointIndex(__WPL:findWaypointTag("Main")); elseif queststate == "incomplete" then -- Collect eggs if 1 > inventory:getItemCount(204789) then -- Get more feed __WPL:setWaypointIndex(__WPL:findWaypointTag("Get Feed")); else if player:target_Object(112955,8000) then __WPL:setWaypointIndex(__WPL:findWaypointTag("Main")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("Get Eggs")) end end else -- Accept quest player:target_NPC("Jenna Miller"); 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,8500) do -- Check for hens while player:target_Object(112958,1800) do sendMacro("UseSkill(1,1)") yrest(40) sendMacro("UseSkill(1,1)") yrest(40) sendMacro("UseSkill(1,1)") yrest(4000) end end while player:target_Object(112958,1800) do -- Check for any missed eggs sendMacro("UseSkill(1,1)") yrest(40) sendMacro("UseSkill(1,1)") yrest(40) sendMacro("UseSkill(1,1)") yrest(3000) end while player:target_Object(114931,1800) do sendMacro("UseSkill(1,1)") yrest(40) sendMacro("UseSkill(1,1)") yrest(40) sendMacro("UseSkill(1,1)") yrest(3000) end changeProfileOption("HARVEST_DISTANCE", 75) __WPL:setWaypointIndex(__WPL:findWaypointTag("Main"));