if not __WPL.ResumePoint then __WPL:setWaypointIndex(1) end settings.profile.options.HARVEST_DISTANCE=250 function getWood() player:update() local _isMounted = player.Mounted local woodSkill = player:getCraftLevel(CRAFT_WOODCUTTING) local woodType = 560018 -- Ash Wood if woodSkill > 8 then woodType = 560019 -- Willow Wood end local done repeat local wood = player:findNearestNameOrId(woodType) if wood and 250 > distance(wood, player) then player:moveTo(CWaypoint(wood.X, wood.Z), true) player:harvest(woodType) else done = true end until done if _isMounted then player:mount() end end player:target_NPC(111478) -- Mentha SureAcceptQuest(421481) -- An Easy Errand SureAcceptQuest(421483) -- Of all the Places... player:target_NPC(111482) -- Lood Klongen SureAcceptQuest(421478) -- Share the Wealth moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(false,100759,421478) -- Wild Rhinoceros Skin moveAndGather(111545,421483) -- Silvervein Leaves killForQuest(true,100759,421478) -- Wild Rhinoceros Skin player:target_NPC(111478) -- Mentha SureCompleteQuest(421483) -- Of all the Places... SureAcceptQuest(421484) -- The Special Order player:target_NPC(111482) -- Lood Klongen SureCompleteQuest(421478) -- Share the Wealth SureAcceptQuest(421479) -- Difficult Terrain killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers killForQuest(false,100800,421479) -- Blue Egar Feathers player:target_NPC(111482) -- Lood Klongen SureCompleteQuest(421479) -- Difficult Terrain SureAcceptQuest(421480) -- The Unknown Prey player:mount() player:target_NPC(111054) -- Ekme Bobo SureCompleteQuest(421009) -- Research Exchange SureAcceptQuest(421016) -- Flame Candle player:target_Object(111061) -- Flame Candle player:target_Object(111061) -- Flame Candle player:mount() player:target_Object(111061) -- Flame Candle player:target_Object(111061) -- Flame Candle player:target_Object(111061) -- Flame Candle player:target_Object(111061) -- Flame Candle if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end killForQuest(false,100770,421480) if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end killForQuest(false,100770,421480) if getQuestStatus(421484) == "incomplete" then player:target_Object(111546) -- Dried Grass end killForQuest(false,100770,421480) killForQuest(false,100770,421480) killForQuest(false,100770,421480) killForQuest(false,100770,421480) killForQuest(false,100770,421480) killForQuest(false,100770,421480) killForQuest(false,100770,421480) killForQuest(false,100770,421480) killForQuest(false,100770,421480) __WPL:setDirection(WPT_FORWARD) print("Waiting for Valley Kites to Respawn.") repeat yrest(10000) bird = player:findNearestNameOrId(100770) until bird and 250 > distance(bird, player) killForQuest(false,100770,421480) killForQuest(false,100770,421480) killForQuest(false,100770,421480) killForQuest(false,100770,421480) killForQuest(false,100770,421480) if getQuestStatus(421480) == "incomplete" then __WPL:setDirection(WPT_BACKWARD) end player:mount() player:target_Object(111061) -- Flame Candle player:target_Object(111061) -- Flame Candle player:target_Object(111061) -- Flame Candle player:target_Object(111061) -- Flame Candle player:target_NPC(111054) -- Ekme Bobo if player.Class1 == CLASS_WARRIOR or player.Class1 == CLASS_KNIGHT or player.Class1 == CLASS_WARDEN or player.Class1 == CLASS_CHAMPION then SureCompleteQuest(421016, 1) -- Flame Candle, Mark of Flame Chain Pants (223101) else SureCompleteQuest(421016, 2) -- Flame Candle, Raging Flame Soft Boots (223102) end player:mount() player:target_NPC(111478) -- Mentha SureCompleteQuest(421484) -- The Special Order player:target_NPC(111482) -- Lood Klongen SureCompleteQuest(421480) -- The Unknown Prey player:target_NPC(111054) -- Ekme Bobo SureAcceptQuest(421017) -- Red Glitterdust killForQuest(true,100755,421017) killForQuest(true,100755,421017) killForQuest(true,100755,421017) killForQuest(true,100755,421017) killForQuest(true,100755,421017) killForQuest(true,100755,421017) getWood() killForQuest(true,100755,421017) killForQuest(true,100755,421017) killForQuest(true,100755,421017) killForQuest(true,100755,421017) getWood() killForQuest(true,100755,421017) killForQuest(true,100755,421017) killForQuest(true,100755,421017) killForQuest(true,100755,421017) player:target_NPC(111054) -- Ekme Bobo if player.Class1 == CLASS_MAGE or player.Class1 == CLASS_DRUID or player.Class1 == CLASS_PRIEST or player.Class1 == CLASS_WARLOCK then SureCompleteQuest(421017, 1) -- Red Glitterdust, Wolfskin Robe (223103) else SureCompleteQuest(421017, 2) -- Red Glitterdust, Wolfskin Breastplate (223104) end player:target_NPC(111054) -- Ekme Bobo SureAcceptQuest(421018) -- Fire Core player:target_Object(111161) -- Fire Core player:mount() player:target_NPC(111054) -- Ekme Bobo SureCompleteQuest(421018) -- Fire Core SureAcceptQuest(421019) -- Fire Guardian player:target_NPC(111054) -- Ekme Bobo ChoiceOptionByName(getTEXT("SC_421014_0")) -- 'Finished preparations; ready to begin the ceremony' __WPL:setForcedWaypointType("NORMAL") repeat yrest(1000) -- Wait for the ceremony to start and aggro from Salamanders Salamander = player:findNearestNameOrId(100812) until Salamander and 100 > distance(Salamander, player) if getQuestStatus(421019) == "incomplete" then __WPL:setWaypointIndex(__WPL:findWaypointTag("FireSeal")) end yrest(5000) -- Give the NPC time to appear __WPL:setForcedWaypointType("RUN") player:target_NPC(111054) -- Ekme Bobo if player.Class1 == CLASS_SCOUT then SureCompleteQuest(421019, 3) -- Fire Guardian, Fire Mark Hunter's Bow (211555) end if player.Class1 == CLASS_MAGE or player.Class1 == CLASS_DRUID or player.Class1 == CLASS_PRIEST or player.Class1 == CLASS_WARLOCK then SureCompleteQuest(421019, 2) -- Fire Guardian), Fire Mark Staff (211554) end if player.Class1 == CLASS_WARRIOR or player.Class1 == CLASS_KNIGHT or player.Class1 == CLASS_WARDEN or player.Class1 == CLASS_CHAMPION or player.Class1 == CLASS_ROGUE then SureCompleteQuest(421019, 2) -- Fire Guardian, Guardian Knife (211553) end SureAcceptQuest(421020) -- The Master of the Seal of Fire player:mount() player:target_NPC(111087) -- Gurla CompleteQuestByName(421481) -- An Easy Errand loadPaths("SasciliaSteppes/SS_04_GurlaCaravan")