equip = true sell = true if sell then changeProfileOption("INV_AUTOSELL_QUALITY", "white,green,blue") else changeProfileOption("INV_AUTOSELL_QUALITY", "white,green") end __WPL:setWaypointIndex(1) local zone = getZoneId() if zone ~= 13 then travelTo("Heffner") -- Requires Rock5's userfunction_travelTo end local zone = getZoneId() if zone ~= 13 then error("Unable to travel to Heffner Camp. Exiting.",0) end function getChest() if getQuestStatus(423878) == "incomplete" or getQuestStatus(423879) == "incomplete" or getQuestStatus(423880) == "incomplete" or getQuestStatus(423881) == "incomplete" or getQuestStatus(423882) == "incomplete" or getQuestStatus(423883) == "incomplete" or getQuestStatus(423884) == "incomplete" or getQuestStatus(423885) == "incomplete" then chest = player:findNearestNameOrId(117349) -- Sunken Supply Trunk if chest and 150 > distance(chest, player) then player:moveTo(CWaypoint(chest.X, chest.Z, chest.Y+5), true) yrest(1000) player:target_Object(117349) -- Sunken Supply Trunk end end end function trainCrab() if inventory:itemTotalCount(209051) == 1 then inventory:useItem(209051) -- Captured Hermit Crab end yrest(3000) if getQuestStatus(423908) == "incomplete" then repeat crab = player:findNearestNameOrId(105193) if crab then player:target(crab) player:moveTo(CWaypoint(crab.X, crab.Z), true) RoMScript("UseExtraAction(1)") yrest(2000) end if getQuestStatus(423908) == "complete" then return end crab = player:findNearestNameOrId(105193) if crab then player:target(crab) player:moveTo(CWaypoint(crab.X, crab.Z), true) RoMScript("UseExtraAction(2)") yrest(2000) end if getQuestStatus(423908) == "complete" then return end crab = player:findNearestNameOrId(105193) if crab then player:target(crab) player:moveTo(CWaypoint(crab.X, crab.Z), true) RoMScript("UseExtraAction(3)") yrest(2000) end if getQuestStatus(423908) == "complete" then return end crab = player:findNearestNameOrId(105193) if crab then player:target(crab) player:moveTo(CWaypoint(crab.X, crab.Z), true) inventory:useItem(209097) -- Sweet Fish Egg yrest(2000) end until getQuestStatus(423908) == "complete" end end function drop() inventory:update() local itemsDelete={209020,209307,209028,208986} for k,v in pairs(itemsDelete) do while inventory:itemTotalCount(v) > 0 do local item = inventory:findItem(v) if item then item:delete() end end end end function AnQuest() player:fight() sendMacro("OnClick_QuestListButton(1,1);"); sendMacro("AcceptQuest()"); FeQuest() end function FeQuest() player:fight() sendMacro("SpeakFrame_CompleteQuest();"); sendMacro("CloseAllWindows();"); end player:target_NPC(117447) -- Lebniz Rol SureCompleteQuest(424199) -- Retrieve the Goods player:target_NPC(117452) -- Furgol SureAcceptQuest(423914) -- Pirate's Operations player:target_NPC(117452) -- Furgol CompleteQuestByName("Die Operationen der Piraten"); sendMacro("SpeakFrame_CompleteQuest();"); ChoiceOptionByName(getTEXT("SC_423914_02")) -- 'Please tell us!' yrest(15000) FeQuest() player:target_NPC(117452) -- Furgol SureCompleteQuest(423914,1) -- Pirate's Operations -- Cloth for Mage, Priest, Druid, Warlock player:fight() ChoiceOptionByName(getTEXT("SC_423914_02")) player:target_NPC(117288) -- Nala Heffner SureCompleteQuest(423907,1) -- Hermit Crab Pet Plan -- Cloth for Mage, Priest, Druid, Warlockelse SureCompleteQuest(423907,2) -- Hermit Crab Pet Plan -- Leather for everyone else SureAcceptQuest(423915) -- Heffner's Plan player:target_NPC(117288) -- Nala Heffner ChoiceOptionByName(getTEXT("SC_423915_02")) -- 'Please let me join!' player:target_NPC(117288) -- Nala Heffner SureCompleteQuest(423915) -- Heffner's Plan SureAcceptQuest(423916) -- Lead Heffner player:target_NPC(117378) -- Dowen if player.Class1 == CLASS_MAGE or player.Class1 == CLASS_PRIEST or player.Class1 == CLASS_DRUID or player.Class1 == CLASS_WARLOCK then SureCompleteQuest(423910,1) -- New Food elseif player.Class1 == CLASS_SCOUT or player.Class1 == CLASS_ROGUE then SureCompleteQuest(423910,2) -- New Food elseif player.Class1 == CLASS_WARRIOR or player.Class1 == CLASS_KNIGHT or player.Class1 == CLASS_WARDEN or player.Class1 == CLASS_CHAMPION then SureCompleteQuest(423910,3) -- New Food end yrest(1000) inventory:useItem(209476) -- Signal for contacting Heffner yrest(5000) player:target_NPC(118169) -- Nala Heffner if player.Class1 == CLASS_MAGE or player.Class1 == CLASS_PRIEST or player.Class1 == CLASS_DRUID or player.Class1 == CLASS_WARLOCK then SureCompleteQuest(423916,1) -- Lead Heffner -- Cloth for Mage, Priest, Druid, Warlock else SureCompleteQuest(423916,2) -- Lead Heffner -- Leather for everyone else end SureAcceptQuest(423917) -- Sneak Attack on the Pirate Leader __WPL:setForcedWaypointType("TRAVEL") player:target_NPC(105285) __WPL:setForcedWaypointType("RUN") player:target_NPC(117289) -- Cheryl Heffner SureCompleteQuest(423917) -- Sneak Attack on the Pirate Leader SureAcceptQuest(423903) -- Missing Team Member player:target_NPC(117288) -- Nala Heffner SureAcceptQuest(423908) -- Pet Domestication Class player:target_NPC(117725) -- Lanlac SureAcceptQuest(423970) -- Fruit Eaten by Mistake trainCrab() player:target_Object(117726) -- Bizarre Red Plant player:target_Object(117726) -- Bizarre Red Plant player:target_Object(117726) -- Bizarre Red Plant player:target_Object(117726) -- Bizarre Red Plant player:target_Object(117726) -- Bizarre Red Plant player:target_NPC(117409) -- Fask Pino SureAcceptQuest(423904) -- Endless Seafood Nightmare killForQuest(false, 105149, 423904) killForQuest(false, 105149, 423904) killForQuest(false, 105149, 423904) killForQuest(false, 105149, 423904) killForQuest(false, 105149, 423904) if getQuestStatus(423904) == "incomplete" then __WPL:setWaypointIndex(__WPL:findWaypointTag("Seafood")) end player:target_NPC(117409) -- Fask Pino if player.Class1 == CLASS_MAGE or player.Class1 == CLASS_PRIEST or player.Class1 == CLASS_DRUID or player.Class1 == CLASS_WARLOCK then SureCompleteQuest(423904, 1) -- Endless Seafood Nightmare if equip then inventory:update() inventory:useItem(228170) -- Squad Belt end elseif player.Class1 == CLASS_SCOUT or player.Class1 == CLASS_ROGUE then SureCompleteQuest(423904, 2) -- Endless Seafood Nightmare if equip then inventory:update() inventory:useItem(228171) -- Belt of Searching end elseif player.Class1 == CLASS_WARRIOR or player.Class1 == CLASS_KNIGHT or player.Class1 == CLASS_WARDEN or player.Class1 == CLASS_CHAMPION then SureCompleteQuest(423904, 3) -- Endless Seafood Nightmare if equip then inventory:update() inventory:useItem(228172) -- Belt of Location end end yrest(3000) player:target_NPC(117409) -- Fask Pino SureAcceptQuest(423905) -- Unpredictable Allergen player:mount() player:target_NPC(117383) -- Nake if player.Class1 == CLASS_MAGE or player.Class1 == CLASS_PRIEST or player.Class1 == CLASS_DRUID or player.Class1 == CLASS_WARLOCK then SureCompleteQuest(423970, 1) -- Fruit Eaten by Mistake if equip then inventory:update() inventory:useItem(228259) -- Boots of Soft Juicy Fruit end elseif player.Class1 == CLASS_SCOUT or player.Class1 == CLASS_ROGUE then SureCompleteQuest(423970, 2) -- Fruit Eaten by Mistake if equip then inventory:update() inventory:useItem(228332) -- Leather Boots of Fruits and Oily Seeds end elseif player.Class1 == CLASS_WARRIOR or player.Class1 == CLASS_KNIGHT or player.Class1 == CLASS_WARDEN or player.Class1 == CLASS_CHAMPION then SureCompleteQuest(423970, 3) -- Fruit Eaten by Mistake if equip then inventory:update() inventory:useItem(228333) -- Battle Boots of Red Fruit end end player:target_NPC(117410) -- Hugope ChoiceOptionByName(getTEXT("SC_423905_02")) -- 'Give me a bottle of anti-itch medicine' ChoiceOptionByName(getTEXT("SC_423905_05")) -- 'Here's 400 gold.' player:target_NPC(117409) -- Fask Pino SureCompleteQuest(423905) -- Unpredictable Allergen player:target_NPC(117289) -- Cheryl Heffner SureCompleteQuest(423903, 2) -- Missing Team Member -- Rewards: [1] Soft Leggings of the Ocean's Smell (228173), [2] Leg Guards of the Beast's Smell (228174) player:target_NPC(117288) -- Nala Heffner SureCompleteQuest(423908) -- Pet Domestication Class SureAcceptQuest(423909) -- Combat Effectiveness killForQuest(true, 105145, 423909) killForQuest(true, 105145, 423909) killForQuest(true, 105145, 423909) killForQuest(true, 105145, 423909) killForQuest(true, 105145, 423909) killForQuest(true, 105145, 423909) player:target_NPC(117288) -- Nala Heffner SureCompleteQuest(423909, 3) -- Combat Effectiveness -- Rewards: [1] Cloth Coat of Principle Kinship (228155), [2] Pet Partner Breastplate (228156), [3] Chain Coat of Glorious Battles (228157), player:target_NPC(117291) -- Nicole Rebecca SureAcceptQuest(423863) -- Nicole's Small Blessing player:target_NPC(117307) -- Emily Suahel ChoiceOptionByName(getTEXT("SO_423863_1")) -- 'Excuse me. Do you have flower petals for making tea?' player:target_Object(117400) -- Hibiscus Varietal player:target_Object(117400) -- Hibiscus Varietal player:target_Object(117400) -- Hibiscus Varietal player:target_NPC(117291) -- Nicole Rebecca if player.Class1 == CLASS_MAGE or player.Class1 == CLASS_WARLOCK then SureCompleteQuest(423863, 1) -- Nicole's Small Blessing if equip then inventory:update() inventory:useItem(228306) end elseif player.Class1 == CLASS_SCOUT or player.Class1 == CLASS_ROGUE then SureCompleteQuest(423863, 2) -- Nicole's Small Blessing if equip then inventory:update() inventory:useItem(228307) end elseif player.Class1 == CLASS_WARRIOR or player.Class1 == CLASS_WARDEN or player.Class1 == CLASS_CHAMPION or player.Class1 == CLASS_KNIGHT then SureCompleteQuest(423863, 3) -- Nicole's Small Blessing if equip then inventory:update() inventory:useItem(228308) end end -- Rewards: [1] Belt of Fragrant Flowers (228306), [2] Belt of Leisure Time (228307), [3] Belt of Tea Time Atmosphere (228308), player:target_NPC(117288) -- Nala Heffner SureAcceptQuest(423956) -- Heffner's Awkward Situation SureCompleteQuest(423956) -- Heffner's Awkward Situation SureAcceptQuest(423895) -- Visit The Heart of Nature player:target_NPC(117289) -- Cheryl Heffner SureAcceptQuest(423896) -- Four Legs Run Fast player:target_NPC(117289) -- Cheryl Heffner if player.Class1 == CLASS_MAGE or player.Class1 == CLASS_WARLOCK then SureCompleteQuest(423896, 1) -- Four Legs Run Fast if equip then inventory:update() inventory:useItem(228140) -- Ring of Nature's Source end elseif player.Class1 == CLASS_SCOUT or player.Class1 == CLASS_ROGUE then SureCompleteQuest(423896, 2) -- Four Legs Run Fast if equip then inventory:update() inventory:useItem(228444) -- Ring of Earth's Intimacy end elseif player.Class1 == CLASS_WARRIOR or player.Class1 == CLASS_WARDEN or player.Class1 == CLASS_CHAMPION or player.Class1 == CLASS_KNIGHT then SureCompleteQuest(423970, 3) -- Fruit Eaten by Mistake if equip then inventory:update() inventory:useItem(228445) -- Ring of Earth's Stability end end drop() player:target_NPC(118002) -- Sturobold ChoiceOptionByName("Ich möchte meinen Rückrufpunkt hier registrieren.|r") loadPaths("Leveln/Q 20-30 CoO")