settings.profile.friends = { "Ruthless Ice Witch", "Skrupellose Eishexe" } settings.profile.mobs = { "Shuma Gazelle", "Shuma-Gazelle", "Shuma Tortoise", "Shuma-Schildkr\148te", "Mestro Forest Wolf", "Mestro-Waldwolf", "Basilisk Giant Rhinoceros", "Riesenstirn-Basilisken-Rhinozeros", "Giant Basilisk Mosquito", "Riesenbasiliskenmoskito", "Deep Mud Cylotok", "Tiefschlamm-Cylotok", "Waterfall Dragonfly", "Kaskadenlibelle", "Burrow Beast", "Erdgruben-Gr\132ber", "Burrow Cactus", "Erdgruben-Kaktus", "Burrow Food Plunderer", "Erdgruben-Nahrungspl\129nderer", "Burrow Hyena", "Erdgruben-Hyäne", -- "Ancient Naga Rebel", "Alter Naga-Rebell", -- "Ancient Naga Conspirator", "Steinalter Naga-Verschw\148rer" -- "Wandering Ancient Naga", "Uralter Wander-Naga", "Ancient Embittered Disciple", "Alter verbitterter Adept", "Mutated Trickster", "Mutierter Schwindler", "Death Bloom", "Todesblume", "Ancient Ayax Warrior", "Alter Ayax-Krieger", "Ancient Limon Bandit", "Alter Limon-Bandit", "Ancient Limon Bandit", "Steinalter Limon-Bandit", "Ruthless Ancient sub-human", "Skrupelloser steinalter Humanoid", "Ferocious Ancient sub-human", "Furchterregender steinalter Humanoid", "Restored Sub-Human", "Wiederhergestellter Humanoider", "Still-Weakened Sub-Human", "Geschw\132chter Humanoider", } function getDailyComplete() --[[ local dailycomplete_ptr = 0x9CD1E0 local dailycomplete_offset = 0xACF4 return memoryReadBytePtr(getProc(),dailycomplete_ptr,dailycomplete_offset) --]] local dailyQuestCount, dailyQuestsPerDay; repeat dailyQuestCount, dailyQuestsPerDay = RoMScript("Daily_count()") until dailyQuestCount and dailyQuestsPerDay return dailyQuestCount; end function checkDQCount() local _tmpQC = getDailyComplete() cprintf(cli.lightblue,"%s quests completed.\n",tostring(_tmpQC)) --[[ if (_tmpQC == 10) then cprintf(cli.lightblue,"Sleepytime.\n") player:sleep() end --]] end function getXP() -- return memoryReadRepeat("intptr", getProc(), addresses.charExp_address, 0) local exp repeat exp = RoMScript("GetPlayerExp()") until exp return exp; end function COO_Merchant(p_npcNameOrId) if nil == p_npcNameOrId then p_npcNameOrId = 118102; end if type(p_npcNameOrId) == "number" then local tmp = p_npcNameOrId; repeat p_npcNameOrId = RoMScript("TEXT('Sys" .. tmp .. "_name')"); yrest(500) until p_npcNameOrId end printf("COO_Merchant(%s)\n", p_npcNameOrId); player:merchant(p_npcNameOrId) end -- macro to find SysNameId, DailyNotes must be installed: -- /script msQid, msE = DailyNotes.FindQuestByName("Heilige Erde"); DEFAULT_CHAT_FRAME:AddMessage("Qid:"..msQid); function COO_AcceptQuest(p_npcNameOrId, p_questNameOrId) if type(p_npcNameOrId) == "number" then local tmp = p_npcNameOrId; repeat p_npcNameOrId = RoMScript("TEXT('Sys" .. tmp .. "_name')"); yrest(500) until p_npcNameOrId end if type(p_questNameOrId) == "number" then local tmp = p_questNameOrId; repeat p_questNameOrId = RoMScript("TEXT('Sys" .. tmp .. "_name')"); yrest(500) until p_questNameOrId end printf("COO_AcceptQuest(%s, %s)\n", p_npcNameOrId, p_questNameOrId); player:target_NPC(p_npcNameOrId) yrest(400) if nil ~= AcceptQuestByName then AcceptQuestByName(p_questNameOrId) else sendMacro("OnClick_QuestListButton(1,1);"); yrest(400); sendMacro("AcceptQuest()"); yrest(400); end end function COO_CompleteQuest(p_npcNameOrId, p_questNameOrId) if type(p_npcNameOrId) == "number" then local tmp = p_npcNameOrId; repeat p_npcNameOrId = RoMScript("TEXT('Sys" .. tmp .. "_name')"); yrest(500) until p_npcNameOrId end if type(p_questNameOrId) == "number" then local tmp = p_questNameOrId; repeat p_questNameOrId = RoMScript("TEXT('Sys" .. tmp .. "_name')"); yrest(500) until p_questNameOrId end printf("COO_CompleteQuest(%s, %s)\n", p_npcNameOrId, p_questNameOrId); player:target_NPC(p_npcNameOrId) yrest(400) if nil ~= CompleteQuestByName then CompleteQuestByName(p_questNameOrId) else sendMacro("OnClick_QuestListButton(3,1);"); yrest(400); sendMacro("CompleteQuest()"); yrest(400); end end -- housemaid repeat npcname=RoMScript("TEXT('Sys117291_name')"); yrest(500) until npcname --Nicole Rebecca player:target_NPC(npcname) repeat npcname=RoMScript("TEXT('Sys118002_name')"); yrest(500) until npcname --Snoop the Stubborn:118002 player:target_NPC(npcname) -- other side of bridge setwindow("Gazelle Feces") if getXP() > 19000 or player.Level > 21 or inventory:getItemCount(209006) > 70 then --Gazelle Feces:209006 -- printf("passingThrough1\n") __WPL:setWaypointIndex(__WPL:findWaypointTag("passingThrough1")) end __WPL:setWaypointIndex(__WPL:findWaypointTag("cross")) __WPL:setWaypointIndex(__WPL:findWaypointTag("passingThrough")) ==== ======================================================================== ==== if not (player.Current_waypoint_type == WPT_NORMAL) then __WPL:setForcedWaypointType("NORMAL") end if inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 then __WPL:setWaypointIndex(__WPL:findWaypointTag("skipMerchant1")) end COO_Merchant(118088); -- Silvershadow Adventurers' Guild Provisioner if 10 > inventory:getItemCount(209006) then __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreGazelle")) end while inventory:getItemCount(209006) > 9 and 10 > getDailyComplete() and 23 > player.Level do COO_AcceptQuest(117519, 423935) --Sikas Shorthair, Gazelle, Gazellenexkremente:209006 COO_CompleteQuest(117519, 423935) --Sikas Shorthair, Gazelle, Gazellenexkremente:209006 checkDQCount() player:update() end if getXP() > 19000 or player.Level > 21 then if player.Current_waypoint_type == WPT_NORMAL then __WPL:setForcedWaypointType() end yrest(100) else if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreGazelle")) end ==== ======================================================================== ==== if player.Level > 22 then if player.Current_waypoint_type == WPT_NORMAL then __WPL:setForcedWaypointType() end yrest(100) __WPL:setWaypointIndex(__WPL:findWaypointTag("passingThrough2")) elseif player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end setwindow("Tortoise Offal") if inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 then if 30 > inventory:getItemCount(209007) or getDailyComplete() > 9 or getXP() > 24000 or 22 > player.Level or player.Level > 22 then __WPL:setWaypointIndex(__WPL:findWaypointTag("skipTurnInOrRepair")) end yrest(100) end __WPL:setForcedWaypointType() if getDailyComplete() > 9 or 10 > inventory:getItemCount(209007) then __WPL:setWaypointIndex(__WPL:findWaypointTag("repair1")) end while inventory:getItemCount(209007) > 9 and 10 > getDailyComplete() and 23 > player.Level do COO_AcceptQuest(115399, 423937) --Walus, Strong, Tortoise Offal:209007 COO_CompleteQuest(115399, 423937) --Walus, Strong, Tortoise Offal:209007 checkDQCount() player:update() end if inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 then __WPL:setWaypointIndex(__WPL:findWaypointTag("skipRepair1")) end COO_Merchant(118095); -- Silvershadow Adventurers' Guild Provisioner if player.Level > 22 then __WPL:setWaypointIndex(__WPL:findWaypointTag("toSpices")) end __WPL:setForcedWaypointType("NORMAL") __WPL:setWaypointIndex(__WPL:findWaypointTag("toTortoise")) __WPL:setForcedWaypointType() COO_Merchant(118095); -- Silvershadow Adventurers' Guild Provisioner __WPL:setWaypointIndex(__WPL:findWaypointTag("skip")) if player.Level > 22 then __WPL:setWaypointIndex(__WPL:findWaypointTag("passingThrough2")) end __WPL:setWaypointIndex(__WPL:findWaypointTag("toTortoise")) ==== ======================================================================== ==== if inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 then __WPL:setWaypointIndex(__WPL:findWaypointTag("skipMerchant")) end COO_Merchant(118102); -- Silvershadow Adventurers' Guild Provisioner if player.Level > 23 then if 45000 > getXP() then __WPL:setWaypointIndex(__WPL:findWaypointTag("mud")) elseif getXP() > 45000 or player.Level == 26 then __WPL:setWaypointIndex(__WPL:findWaypointTag("rhino")) elseif getXP() > 56000 or player.Level > 26 then __WPL:setWaypointIndex(__WPL:findWaypointTag("cylotok")) end yrest(100) end -- to Rebecca ==== ======================================================================== ==== repeat questname=RoMScript("TEXT('Sys423936_name')"); yrest(500) until questname dailyQuest = getQuestStatus(questname) if dailyQuest == "complete" and player.Level == 23 and 10 > getDailyComplete() then COO_CompleteQuest(117586, 423936) --Rebecca, Spices, Blade of Luoshen Grass:208996 checkDQCount() player:update() end if player.Level > 23 then __WPL:setWaypointIndex(__WPL:findWaypointTag("mud")) elseif 10 > getDailyComplete() then COO_AcceptQuest(117586, 423936) --Rebecca, Spices, Blade of Luoshen Grass:208996 else __WPL:setForcedWaypointType("NORMAL") end setwindow("Blade of Luoshen Grass") player:target_Object(117312) --Lorssen Grass player:target_Object(117312) player:target_Object(117312) player:target_Object(117312) player:target_Object(117312) player:target_Object(117312) if 24 > player.Level and 10 > inventory:getItemCount(208996) and inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 then --Luoshen-Grashalm:208996 __WPL:setWaypointIndex(__WPL:findWaypointTag("getMoreGrass")) else __WPL:setForcedWaypointType("RUN") end __WPL:setWaypointIndex(__WPL:findWaypointTag("spices")) ==== ======================================================================== ==== repeat questname=RoMScript("TEXT('Sys423940_name')"); yrest(500) until questname dailyQuest = getQuestStatus(questname) --if dailyQuest == "complete" and 26 > player.Level and 10 > getDailyComplete() then if dailyQuest == "complete" and 10 > getDailyComplete() then COO_CompleteQuest(118014, 423940) --Monkatula, Soil, Swamp Mud:209100 checkDQCount() player:update() end if player.Level > 25 then __WPL:setWaypointIndex(__WPL:findWaypointTag("rhino")) elseif 10 > getDailyComplete() then COO_AcceptQuest(118014, 423940) --Monkatula, Soil, Swamp Mud:209100 end setwindow("Swamp Mud") if inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 then __WPL:setWaypointIndex(__WPL:findWaypointTag("noMerchant")) end COO_Merchant(118102); -- Silvershadow Adventurers' Guild Provisioner repeat npcname=RoMScript("TEXT('Sys112051_name')"); yrest(500) until npcname --Ailic's Aide player:target_NPC(npcname) --Lyonside transport if getDailyComplete() > 9 then __WPL:setForcedWaypointType("NORMAL") end player:target_Object(117513) --Swamp Mud, Sumpfschlamm player:target_Object(117513) player:target_Object(117513) player:target_Object(117513) player:target_Object(117513) player:target_Object(117513) player:target_Object(117513) player:target_Object(117513) player:target_Object(117513) __WPL:setDirection(WPT_FORWARD) player:target_Object(117513) player:target_Object(117513) yrest(500) player:update() repeat questname=RoMScript("TEXT('Sys423940_name')"); yrest(500) until questname dailyQuest = getQuestStatus(questname) if 26 > player.Level and dailyQuest ~= "complete" and inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 then __WPL:setDirection(WPT_BACKWARD) else __WPL:setForcedWaypointType("RUN") end __WPL:setWaypointIndex(__WPL:findWaypointTag("mud")) ==== ======================================================================== ==== setwindow("Thick Giant Rhinoceros Skin") if inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 then __WPL:setWaypointIndex(__WPL:findWaypointTag("turnIn1")) end COO_Merchant(118102); -- Silvershadow Adventurers' Guild Provisioner -- while 10 > getDailyComplete() and player.Level == 26 and 56000 > getXP() and inventory:getItemCount(209062) > 10 do while 10 > getDailyComplete() and player.Level == 26 and inventory:getItemCount(209062) > 10 do COO_AcceptQuest(117521, 423941) --Shamilod, Leather of "Weighty" Importance, Thick Giant Rhinoceros Skin:209062 COO_CompleteQuest(117521, 423941) --Shamilod, Leather of "Weighty" Importance, Thick Giant Rhinoceros Skin:209062 checkDQCount() player:update() end -- if player.Level > 26 or 56000 > getXP() then if player.Level > 26 then __WPL:setWaypointIndex(__WPL:findWaypointTag("cylotok")) end __WPL:setForcedWaypointType("NORMAL") if inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 and 27 > player.Level and 58000 > getXP() and 50 > inventory:getItemCount(209062) then --Thick Giant Rhinoceros Skin:209062 __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreRhinos")) end __WPL:setForcedWaypointType() if 4 > inventory:getItemCount(0) or 80 > inventory:getMainHandDurability() then __WPL:setWaypointIndex(__WPL:findWaypointTag("merchant2")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("turnIn1")) end ==== ======================================================================== ==== -- Cylotok Stomach; Cylotok-Magen, 209063 repeat questname=RoMScript("TEXT('Sys423942_name')"); yrest(500) until questname repeat npcname=RoMScript("TEXT('Sys117522_name')"); yrest(500) until npcname -- npcname="Yar'ak" -- while 10 > getDailyComplete() and 29 > player.Level and player.Level > 26 and 87000 > getXP() and inventory:getItemCount(209063) > 10 do while 10 > getDailyComplete() and 29 > player.Level and player.Level > 26 and inventory:getItemCount(209063) > 10 do COO_AcceptQuest(117522, 423942) --Yar'ak, Ugly Stomach, Cylotok Stomach:209063 COO_CompleteQuest(117522, 423942) --Yar'ak, Ugly Stomach, Cylotok Stomach:209063 checkDQCount() player:update() end setwindow("Cylotok Stomach") -- if player.Level > 28 or getXP() > 87000 then if player.Level > 28 then __WPL:setWaypointIndex(__WPL:findWaypointTag("toDragonfly")) end __WPL:setForcedWaypointType("NORMAL") --loop start changeProfileOption("MAX_TARGET_DIST", 80) changeProfileOption("MAX_TARGET_DIST", 150) if (getDailyComplete() > 9 or 100 > inventory:getItemCount(209063)) and 87000 > getXP() and 29 > player.Level and inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 then --Cylotok Stomach:209063 __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreCylotok")) end __WPL:setForcedWaypointType() if player.Level == 28 then if getXP() > 87000 then __WPL:setWaypointIndex(__WPL:findWaypointTag("toDragonfly2")) end yrest(100) end if inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 then __WPL:setWaypointIndex(__WPL:findWaypointTag("Cylotok")) end COO_Merchant(118102); -- Silvershadow Adventurers' Guild Provisioner __WPL:setWaypointIndex(__WPL:findWaypointTag("Cylotok")) ==== ======================================================================== ==== --gulos if 4 > inventory:getItemCount(0) or 80 > inventory:getMainHandDurability() then COO_Merchant(118102); -- Silvershadow Adventurers' Guild Provisioner end setwindow("Dragonfly Wing") --end gulos player:update(); if getXP() > 108000 or player.Level > 29 then __WPL:setWaypointIndex(__WPL:findWaypointTag("toFluids")) else __WPL:setForcedWaypointType("NORMAL") changeProfileOption("MAX_TARGET_DIST", 100) end ==== ======================================================================== ==== while 10 > getDailyComplete() and 108000 > getXP() and player.Level == 29 and inventory:getItemCount(209078) > 10 do COO_AcceptQuest(117517, 423944) --Sad Salina, Cute and Slimy, Dragonfly Wing:209078 COO_CompleteQuest(117517, 423944) --Sad Salina, Cute and Slimy, Dragonfly Wing:209078 checkDQCount() player:update() end if getXP() > 108000 or player.Level > 29 then __WPL:setForcedWaypointType() __WPL:setWaypointIndex(__WPL:findWaypointTag("toFluids")) end --on hill if player.Level > 29 then yrest(100) elseif 29 > player.Level then __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreDragonflies")) elseif 60 > inventory:getItemCount(209078) and 108000 > getXP() and 30 > player.Level then --Dragonfly Wing:209078 __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreDragonflies")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("salina")) end ==== ======================================================================== ==== repeat npcname=RoMScript("TEXT('Sys118020_name')"); yrest(500) until npcname player:target_NPC(npcname) --Ailic's Aide, desert investigation transport -- stable master also might be close enough if 4 > inventory:getItemCount(0) or 80 > inventory:getMainHandDurability() then COO_Merchant(117696); --Bruno, Silvershadow Adventurers' Guild Provisioner end -- bottom of hill if player.Level > 30 and 33 > player.Level and 190000 > getXP() then __WPL:setWaypointIndex(__WPL:findWaypointTag("hyena")) elseif 34 > player.Level and player.Level > 32 and 216000 > getXP() then __WPL:setWaypointIndex(__WPL:findWaypointTag("buzz")) elseif player.Level > 33 or getXP() > 247000 then __WPL:setWaypointIndex(__WPL:findWaypointTag("skipKill")) end ==== ======================================================================== ==== setwindow("Burrow Beast Body Fluids") __WPL:setForcedWaypointType("NORMAL") changeProfileOption("MAX_TARGET_DIST", 100) --on trail at rez if 30 > player.Level and inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 then __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreBeasts")) end __WPL:setForcedWaypointType() if player.Level > 35 or getXP() > 283000 then __WPL:setWaypointIndex(__WPL:findWaypointTag("aoluona")) else while 10 > getDailyComplete() and 135000 > getXP() and player.Level == 30 and inventory:getItemCount(209192) > 10 do COO_AcceptQuest(117588, 424036) --Anbenron, Replanting, Burrow Beast Body Fluids:209192 COO_CompleteQuest(117588, 424036) --Anbenron, Replanting, Burrow Beast Body Fluids:209192 checkDQCount() player:update() end if inventory:getItemCount(0) > 4 and inventory:getMainHandDurability() > 80 and 31 > player.Level and 135000 > getXP() then __WPL:setWaypointIndex(__WPL:findWaypointTag("beasts")) elseif player.Level > 35 and 38 > player.Level then __WPL:setWaypointIndex(__WPL:findWaypointTag("aoluona")) end end if 4 > inventory:getItemCount(0) or 80 > inventory:getMainHandDurability() then COO_Merchant(118102); -- Silvershadow Adventurers' Guild Provisioner end if 135000 > getXP() and 31 > player.Level then __WPL:setWaypointIndex(__WPL:findWaypointTag("beasts")) end ==== ======================================================================== ==== settings.profile.friends = {"Burrow Beast","Erdgruben-Gräber"} setwindow("Short Fur") if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end settings.profile.friends = {"Burrow Beast","Erdgruben-Gräber"} if 31 > player.Level then __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreHyena")) elseif 140 > inventory:getItemCount(209053) and 190000 > getXP() then --Short Fur:209053 __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreHyena")) end __WPL:setForcedWaypointType() -- at main Y, goes to 7426 for merchant if player.Level > 35 or getXP() > 283000 then if 38 > player.Level then __WPL:setWaypointIndex(__WPL:findWaypointTag("aoluona")) elseif player.Level > 37 then __WPL:setWaypointIndex(__WPL:findWaypointTag("toBluto")) end yrest(100) end -- at second Y -- from y -- at bottom of hill -- at top of hill if player.Level > 33 or getXP() > 216000 then __WPL:setWaypointIndex(__WPL:findWaypointTag("juice")) end while 10 > getDailyComplete() and 33 > player.Level and inventory:getItemCount(209053) > 10 do COO_AcceptQuest(117525, 423947) --Mimet Bugfoot, Warm Pelts, Short Fur:209053 COO_CompleteQuest(117525, 423947) --Mimet Bugfoot, Warm Pelts, Short Fur:209053 checkDQCount() player:update() end if player.Level > 33 then __WPL:setWaypointIndex(__WPL:findWaypointTag("juice")) end -- second Y -- main Y ==== ======================================================================== ==== -- top of hill -- stable master also close enough to use if 4 > inventory:getItemCount(0) or 80 > inventory:getMainHandDurability() then COO_Merchant(118102); -- Silvershadow Adventurers' Guild Provisioner end COO_AcceptQuest(117281, 423792) --Mufasa Luckshine, A Suspicious Buzzing, activate 4 Energy Detecting Device __WPL:setForcedWaypointType("NORMAL") changeProfileOption("MAX_TARGET_DIST", 160) repeat npcname=RoMScript("TEXT('Sys117306_name')"); yrest(500) until npcname player:target_Object("First Grade Energy Snooper",3000,false,true) --First Grade Energy Snooper repeat npcname=RoMScript("TEXT('Sys117306_name')"); yrest(500) until npcname player:target_Object("Second Grade Energy Snooper",3000,false,true) repeat npcname=RoMScript("TEXT('Sys117306_name')"); yrest(500) until npcname player:target_Object("Third Grade Energy Snooper",3000,false,true) repeat npcname=RoMScript("TEXT('Sys117306_name')"); yrest(500) until npcname player:target_Object("Fourth Grade Energy Snooper",3000,false,true) repeat questname=RoMScript("TEXT('Sys423792_name')"); yrest(500) until questname quest = getQuestStatus(questname) --Buzzing if quest == "incomplete" then __WPL:setWaypointIndex(__WPL:findWaypointTag("snoopers")) else changeProfileOption("MAX_TARGET_DIST", 200) __WPL:setForcedWaypointType() end COO_CompleteQuest(117281, 423792) --Mufasa Luckshine, A Suspicious Buzzing, activate 4 Energy Detecting Device checkDQCount() COO_AcceptQuest(117281, 423957) --Mufasa Luckshine, Power for a Thousand Miles, kill Complete Charge 5x COO_AcceptQuest(117281, 423925) repeat npcname=RoMScript("TEXT('Sys117580_name')"); yrest(500) until npcname player:target_Object("High Power Generator") --High Power Generator __WPL:setForcedWaypointType("RUN") if player.Level > 33 or getXP() > 216000 then __WPL:setWaypointIndex(__WPL:findWaypointTag("toJuice")) end __WPL:setWaypointIndex(__WPL:findWaypointTag("chargeUp")) repeat questname=RoMScript("TEXT('Sys423957_name')"); yrest(500) until questname while getQuestStatus(questname) == "incomplete" do repeat repeat npcname=RoMScript("TEXT('Sys117406_name')"); yrest(500) until npcname player:target_Object(npcname) --Fourth Grade Energy Snooper yrest(5000) until getQuestStatus(questname) == "complete" end repeat questname=RoMScript("TEXT('Sys423957_name')"); yrest(500) until questname dailyQuest = getQuestStatus(questname) if dailyQuest == "incomplete" and 10 > getDailyComplete() then __WPL:setWaypointIndex(__WPL:findWaypointTag("chargeUp")) end __WPL:setWaypointIndex(__WPL:findWaypointTag("miles")) repeat questname=RoMScript("TEXT('Sys423957_name')"); yrest(500) until questname dailyQuest = getQuestStatus(questname) if dailyQuest == "complete" then COO_CompleteQuest(117281, 423957) --Mufasa Luckshine, Power for a Thousand Miles, kill Complete Charge 5x end checkDQCount() repeat questname=RoMScript("TEXT('Sys423925_name')"); yrest(500) until questname quest = getQuestStatus(questname) if quest == "complete" then COO_CompleteQuest(117281, 423925) --Mufasa Luckshine, Resonating with Energy, collect Resonance Core 5x end repeat npcname=RoMScript("TEXT('Sys117281_name')"); yrest(500) until npcname repeat questname=RoMScript("TEXT('Sys423926_name')"); yrest(500) until questname quest = getQuestStatus(questname) if quest == "not accepted" or quest == "incomplete" or quest == "complete" then COO_AcceptQuest(117281, 423926) --Mufasa Luckshine, Information Loss, Help Mufasa Luckshine record what he reads off player:target_NPC(npcname) yrest(200) sendMacro("ChoiceOption(2)") yrest(1000) sendMacro("ChoiceOption(1)") yrest(200) player:target_NPC(npcname) yrest(200) CompleteQuestByName("Information") player:target_NPC(npcname) yrest(200) AcceptQuestByName("Discovery") player:target_NPC(npcname) yrest(1000) sendMacro("ChoiceOption(2)") yrest(200) player:target_NPC(npcname) yrest(200) CompleteQuestByName("Discovery") end if player.Level > 33 or getXP() > 216000 or getDailyComplete() > 9 then __WPL:setWaypointIndex(__WPL:findWaypointTag("toJuice")) else COO_AcceptQuest(117281, 423957) --Mufasa Luckshine, Power for a Thousand Miles, kill Complete Charge 5x __WPL:setWaypointIndex(__WPL:findWaypointTag("charge")) end ==== ======================================================================== ==== repeat questname=RoMScript("TEXT('Sys423950_name')"); yrest(500) until questname --Sweet Juice dailyQuest = getQuestStatus(questname) while 10 > getDailyComplete() and 36 > player.Level and 283000 > getXP() and inventory:getItemCount(208920) > 9 and player.Level > 33 do COO_AcceptQuest(117524, 423950) --Sharphorn Sugula, Sweet Juice, Sweet Juice:208920 COO_CompleteQuest(117524, 423950) --Sharphorn Sugula, Sweet Juice, Sweet Juice:208920 checkDQCount() player:update() end setwindow("Sweet Juice") if player.Level > 35 or getXP() > 283000 then __WPL:setForcedWaypointType() __WPL:setWaypointIndex(__WPL:findWaypointTag("toAoluona")) end if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end if 10 > inventory:getItemCount(208920) or 34 > player.Level or getDailyComplete() > 9 then -- Sweet Juice __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreCacti")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("juice")) end ==== ======================================================================== ==== ==== ======================================================================== ==== if 36 > player.Level and 283000 > getXP() then __WPL:setWaypointIndex(__WPL:findWaypointTag("AnbenronReplanting")) else while 10 > getDailyComplete() and 38 > player.Level and 378000 > getXP() and inventory:getItemCount(209101) > 9 and player.Level > 35 do COO_AcceptQuest(117588, 423958) --Anbenron, Life Hormone, Aoluona:209101 COO_CompleteQuest(117588, 423958) --Anbenron, Life Hormone, Aoluona:209101 checkDQCount() player:update() end if player.Level > 37 or getXP() > 378000 then if player.Current_waypoint_type == WPT_NORMAL then __WPL:setForcedWaypointType() end yrest(100) __WPL:setWaypointIndex(__WPL:findWaypointTag("toBluto")) end end setwindow("Aoluona") if 4 > inventory:getItemCount(0) or 80 > inventory:getMainHandDurability() then COO_Merchant(118102); --Silvershadow Adventurers' Guild Provisioner end __WPL:setDirection(WPT_FORWARD) if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end if 4 > inventory:getItemCount(0) or (10 > getDailyComplete() and inventory:getItemCount(209101) > 119 and player.Level > 35) or 80 > inventory:getMainHandDurability() then __WPL:setForcedWaypointType() __WPL:setWaypointIndex(__WPL:findWaypointTag("turnInOrRepair2")) end __WPL:setDirection(WPT_BACKWARD) --bottom of hill -- main Y if player.Level > 36 and getXP() > 350000 then __WPL:setWaypointIndex(__WPL:findWaypointTag("passingThrough3")) end __WPL:setWaypointIndex(__WPL:findWaypointTag("aoluona")) ==== ======================================================================== ==== COO_Merchant(118102); -- Silvershadow Adventurers' Guild Provisioner setwindow("Naga Knife") __WPL:setForcedWaypointType("NORMAL") --goto naga from this one 46.2 33.7 if player.Level > 40 then __WPL:setForcedWaypointType() __WPL:setWaypointIndex(__WPL:findWaypointTag("passingThrough4")) end __WPL:setForcedWaypointType() __WPL:setForcedWaypointType("TRAVEL") __WPL:setForcedWaypointType() yrest(1300) __WPL:setForcedWaypointType("TRAVEL") __WPL:setForcedWaypointType() yrest(1300) __WPL:setForcedWaypointType("TRAVEL") __WPL:setForcedWaypointType() yrest(1300) if 5 > inventory:getItemCount(209082) then --Naga Knife:209082 __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreNaga")) else changeProfileOption("MAX_TARGET_DIST", 150) end --on trail __WPL:setForcedWaypointType("NORMAL") setwindow("Minotaur Gun") __WPL:setDirection(WPT_FORWARD) if 5 > inventory:getItemCount(209084) then --Minotaur Gun:209084 __WPL:setDirection(WPT_BACKWARD) else __WPL:setForcedWaypointType() end setwindow("Trickster Skin") changeProfileOption("MAX_TARGET_DIST", 150) if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end if inventory:getItemCount(209193) > 70 then --Trickster Skin:209193 __WPL:setWaypointIndex(__WPL:findWaypointTag("toClansmen")) end if 70 > inventory:getItemCount(209193) then --Trickster Skin:209193 __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreTricksters")) end setwindow("Ayax Staff") changeOptionFriendMob("mob", "Ancient Ayax Clansman", "Add") if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end if 30 > inventory:getItemCount(209086) then --Ayax Staff:209086 __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreClansmen")) end setwindow("Pirate Knife") --second limon if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end --goto camp if player.Level > 37 and inventory:getItemCount(209083) > 30 then --Pirate Knife:209083 __WPL:setForcedWaypointType() __WPL:setWaypointIndex(__WPL:findWaypointTag("toCamp")) end __WPL:setWaypointIndex(__WPL:findWaypointTag("limon")) --back on trail at split to icefrost __WPL:setWaypointIndex(__WPL:findWaypointTag("fromMinotaurs")) --to tiktaliks --before bridge --middle of bridge --above "t" in Quodate on map __WPL:setForcedWaypointType("TRAVEL") COO_Merchant(118102); --Silvershadow Adventurers' Guild Provisioner while 10 > getDailyComplete() and 39 > player.Level and 439000 > getXP() and inventory:getItemCount(209082) > 4 and inventory:getItemCount(209084) > 4 do COO_AcceptQuest(117609, 423963) --Bluto Munk, Inspection, Naga Knife:209082+Minotaur Gun:209084 COO_CompleteQuest(117609, 423963) --Bluto Munk, Inspection, Naga Knife:209082+Minotaur Gun:209084 checkDQCount() player:update() end while 10 > getDailyComplete() and 39 > player.Level and 439000 > getXP() and inventory:getItemCount(209086) > 4 and inventory:getItemCount(209083) > 4 do COO_AcceptQuest(117609, 423964) --Bluto Munk, Inspection II, Ayax Staff:209086+Pirate Knife:209083 COO_CompleteQuest(117609, 423964) --Bluto Munk, Inspection II, Ayax Staff:209086+Pirate Knife:209083 checkDQCount() player:update() end setwindow("Death Flower Root") if player.Level == 39 and inventory:getItemCount(208977) > 70 and 10 > getDailyComplete() then --Death Flower Root __WPL:setWaypointIndex(__WPL:findWaypointTag("rootTurnIn")) end if not (player.Current_waypoint_type == WPT_TRAVEL) then __WPL:setForcedWaypointType("TRAVEL") end if not (player.Current_waypoint_type == WPT_NORMAL) then __WPL:setForcedWaypointType("NORMAL") end if 39 > player.Level or 70 > inventory:getItemCount(208977) then __WPL:setWaypointIndex(__WPL:findWaypointTag("killMoreBlooms")) end __WPL:setForcedWaypointType("TRAVEL") -- printf("Mishlor, Another Drink, getDailyComplete:%d, player.Level:%d, Roots:%d\n", getDailyComplete(), player.Level, inventory:getItemCount(208977)); while 10 > getDailyComplete() and player.Level == 39 and inventory:getItemCount(208977) > 9 do COO_AcceptQuest(117590, 423959) --Mishlor, Another Drink, Death Flower Root:208977 COO_CompleteQuest(117590, 423959) --Mishlor, Another Drink, Death Flower Root:208977 checkDQCount() player:update() end if 40 > player.Level then __WPL:setWaypointIndex(__WPL:findWaypointTag("goToBlooms")) else while 10 > getDailyComplete() and player.Level == 40 and inventory:getItemCount(209193) > 9 do COO_AcceptQuest(117590, 424037) --Mishlor, Reduction, Trickster Skin:209193 COO_CompleteQuest(117590, 424037) --Mishlor, Reduction, Trickster Skin:209193 checkDQCount() player:update() end yrest(100) end ==== ======================================================================== ==== if not (player.Current_waypoint_type == WPT_RUN) then __WPL:setForcedWaypointType() end repeat npcname=RoMScript("TEXT('Sys112051_name')"); yrest(500) until npcname --Ailic's Aide player:target_NPC(npcname) --Teleport to Ruins Research in Xaviera, if portal has been opened --isTeleport("next","Ailic's Aide",1) --waitForLoadingScreen(40) --player:rest(2) --player:update() ==== ======================================================================== ==== --travel to Xaviera Snoop if portal has not been opened repeat npcname=RoMScript("TEXT('Sys117832_name')"); yrest(500) until npcname --Shenbi:117832 player:target_NPC(npcname) AcceptQuestByName(); player:sleep(); repeat npcname=RoMScript("TEXT('Sys118002_name')"); yrest(500) until npcname --Snoop the Stubborn:118002 player:target_NPC(npcname) printf("finished --- stopPE"); stopPE();