startGMDetect() settings.profile.mobs = { "Agile Shadow Mink", "Agiler Schattennerz", "Ancient Demon Bloom", "Uralte Dämonenblume", "Scavenger Chupura", "Aasfresser-Chupura", "Red Scavenger Bear", "Roter Aasfresserbär", } 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 return _tmpQC; --]] 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 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 __WPL:setForcedWaypointType("RUN") if player.Level > 42 then __WPL:setWaypointIndex(__WPL:findWaypointTag("travel2ChefFhil")) end local dqCount, dqPerDay = RoMScript("Daily_count()"); if dqCount > 1 then __WPL:setWaypointIndex(__WPL:findWaypointTag("SoftBrush")) end if player.Level == 41 then COO_AcceptQuest(118056, 424151) -- Calm The Fury (once a day) else __WPL:setWaypointIndex(__WPL:findWaypointTag("SoftBrush")) end player:target_NPC("Ruins Excavator"); sendMacro("ChoiceOption(1);");yrest(2000); sendMacro("ChoiceOption(1);");yrest(2000); yrest(7000); player:target_NPC("Ruins Excavator"); sendMacro("ChoiceOption(1);");yrest(2000); sendMacro("ChoiceOption(1);");yrest(2000); yrest(7000); player:target_NPC("Ruins Excavator"); sendMacro("ChoiceOption(1);");yrest(2000); sendMacro("ChoiceOption(1);");yrest(2000); yrest(7000); player:target_NPC("Ruins Excavator"); sendMacro("ChoiceOption(1);");yrest(2000); sendMacro("ChoiceOption(1);");yrest(2000); yrest(7000); player:target_NPC("Ruins Excavator"); sendMacro("ChoiceOption(1);");yrest(2000); sendMacro("ChoiceOption(1);");yrest(2000); queststate = getQuestStatus("Calm the Fury") if queststate == "incomplete" then __WPL:setWaypointIndex(__WPL:findWaypointTag("incomplete")) end COO_CompleteQuest(118056, 424151) -- Calm The Fury (once a day) __WPL:setWaypointIndex(__WPL:findWaypointTag("DawaKana")) __WPL:setForcedWaypointType("RUN") setwindow("Soft Mink Pelt") __WPL:setForcedWaypointType("RUN") __WPL:setForcedWaypointType("NORMAL") if 70 > inventory:getItemCount(209427) or getDailyComplete() > 9 then __WPL:setWaypointIndex(__WPL:findWaypointTag("SoftBrushStart")) end while inventory:getItemCount(209427) > 9 and 10 > getDailyComplete() and player.Level == 41 do COO_AcceptQuest(118056, 424153) -- COO_CompleteQuest(118056, 424153) -- checkDQCount() player:update() end if player.Level > 41 then if player.Current_waypoint_type == WPT_NORMAL then __WPL:setForcedWaypointType() __WPL:setWaypointIndex(__WPL:findWaypointTag("ToStoneGiftDaily")) end yrest(100) else __WPL:setWaypointIndex(__WPL:findWaypointTag("travel2SoftBrush")) end __WPL:setForcedWaypointType("RUN") if player.Level > 42 then __WPL:setWaypointIndex(__WPL:findWaypointTag("travel2ChefFhil")) end setwindow("Sweet Demon Bloom Honey") if player.Level > 43 then if player.Class1 == CLASS_PRIEST or player.Class1 == CLASS_DRUID then __WPL:setWaypointIndex(__WPL:findWaypointTag("2Chupra")) __WPL:setForcedWaypointType("RUN") end end printf("Bloomfarm or not?\n") while inventory:getItemCount(209436) > 5 and 10 > getDailyComplete() and player.Level == 43 do COO_AcceptQuest(117776, 424161) -- Chef Fhil, ancient demon bloom, sweet demon bloom honey:209436 COO_CompleteQuest(117776, 424161) -- Chef Fhil, ancient demon bloom, sweet demon bloom honey:209436 checkDQCount() player:update() end if getXP() > 900000 or player.Level > 43 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("killMoreBloom")) end setwindow("Sweet Demon Bloom Honey") if player.Level > 43 then __WPL:setWaypointIndex(__WPL:findWaypointTag("2Chupra")) __WPL:setForcedWaypointType("RUN") end changeProfileOption("MAX_TARGET_DIST", 100) if 10 > inventory:getItemCount(209436) or getDailyComplete() > 9 then __WPL:setWaypointIndex(__WPL:findWaypointTag("bloomFarm")) end __WPL:setWaypointIndex(__WPL:findWaypointTag("atChef")) COO_AcceptQuest(118060, 424165) -- Sofie Paichu if player.Level > 44 then __WPL:setWaypointIndex(__WPL:findWaypointTag("22Bears")) elseif player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end queststate = getQuestStatus("Shut Them Up") if queststate == "complete" then __WPL:setForcedWaypointType("RUN") __WPL:setWaypointIndex(__WPL:findWaypointTag("toDeliver")) end queststate = getQuestStatus("Shut Them Up") if queststate == "complete" then __WPL:setForcedWaypointType("RUN") __WPL:setWaypointIndex(__WPL:findWaypointTag("toDeliver")) end queststate = getQuestStatus("Shut Them Up") if queststate == "complete" then __WPL:setForcedWaypointType("RUN") __WPL:setWaypointIndex(__WPL:findWaypointTag("toDeliver")) end queststate = getQuestStatus("Shut Them Up") if queststate == "complete" then __WPL:setForcedWaypointType("RUN") __WPL:setWaypointIndex(__WPL:findWaypointTag("toDeliver")) end queststate = getQuestStatus("Shut Them Up") if queststate == "complete" then __WPL:setForcedWaypointType("RUN") __WPL:setWaypointIndex(__WPL:findWaypointTag("toDeliver")) end queststate = getQuestStatus("Shut Them Up") if queststate == "incomplete" then __WPL:setWaypointIndex(__WPL:findWaypointTag("MoreChupuras")) end COO_CompleteQuest(118060, 424165) -- Sofie Paichu checkDQCount() player:update() if player.Level == 44 then if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end COO_AcceptQuest(118060, 424165) -- Sofie Paichu __WPL:setWaypointIndex(__WPL:findWaypointTag("ChupraHunt")) end COO_AcceptQuest(118062, 424167) -- Qobbis Kenn setwindow("Bloody Bear Meat") if player.Level > 45 then __WPL:setWaypointIndex(__WPL:findWaypointTag("2Corpses")) end if player.Current_waypoint_type == WPT_NORMAL then __WPL:setForcedWaypointType("RUN") end changeProfileOption("MAX_TARGET_DIST", 150) if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end if 90 > inventory:getItemCount(209440) or getDailyComplete() > 9 or 45 > player.Level then __WPL:setWaypointIndex(__WPL:findWaypointTag("huntBears")) end if player.Current_waypoint_type == WPT_NORMAL then __WPL:setForcedWaypointType("RUN") end while inventory:getItemCount(209440) > 9 and 10 > getDailyComplete() and player.Level == 45 do COO_AcceptQuest(118062, 424167) -- Qobbis Kenn, Red Scavenger Bear, Bloody Bear Meat:209440 COO_CompleteQuest(118062, 424167) -- Qobbis Kenn, Red Scavenger Bear, Bloody Bear Meat:209440 checkDQCount() player:update() end __WPL:setWaypointIndex(__WPL:findWaypointTag("2Bears")) -- Alleexx2 additions if player.Current_waypoint_type == WPT_NORMAL then __WPL:setForcedWaypointType("RUN") end -- player:sleep(); player:target_NPC("Stable Manager"); yrest(100); sendMacro("ChoiceOption(3)") yrest(1000); sendMacro('StaticPopup_OnClick(StaticPopup1, 1);') yrest(1000); player:mount(); printf("Dangerous so pass using the bot. Press delete to try or pass manually and then restart the script when you've left the forest\n") player:sleep(); changeProfileOption("MAX_TARGET_DIST", 200) setwindow("Stinky Corpse Grease") __WPL:setForcedWaypointType("NORMAL") changeOptionFriendMob("mob", "Wandering Corpse", "Add") if 5 > inventory:getItemCount(209446) then __WPL:setWaypointIndex(__WPL:findWaypointTag("StartOfCorpses")) end player:target_NPC("Ailic's Aide"); while inventory:getItemCount(209446) > 4 and 10 > getDailyComplete() do COO_AcceptQuest(118068, 424182) -- Wunnis Kitte, Turned into ashes, Wandering Corpse, Stinky Corpse Grease:209446 COO_CompleteQuest(118068, 424182) -- Wunnis Kitte, Turned into ashes, Wandering Corpse, Stinky Corpse Grease:209446 checkDQCount() player:update() end setwindow("Silvermoon Lake Frog Meat, Grass of Loathing") if 10 > getDailyComplete() then COO_AcceptQuest(118067, 424172) -- Liwagel, Dangerous Worm Eggs, Grass of Loathing COO_AcceptQuest(118067, 424173) -- Liwagel, The Harpies can't resist..., Silvermoon Lake Frog Meat else player:sleep() end if player.Level > 46 then __WPL:setWaypointIndex(__WPL:findWaypointTag("ToVines")) end player:target_Object("Grass of Loathing"); player:target_Object("Grass of Loathing"); if inventory:getItemCount(209444) > 4 then __WPL:setWaypointIndex(__WPL:findWaypointTag("frogs")) end player:target_Object("Grass of Loathing"); changeProfileOption("MAX_TARGET_DIST", 50) changeOptionFriendMob("friend", "Silvermoon Dragonfly", "Add") changeOptionFriendMob("mob", "Silvermoon Lake Frog", "Add") changeOptionFriendMob("mob", "Young Silvermoon Frog", "Add") if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end changeProfileOption("MAX_TARGET_DIST", 100) if player.Current_waypoint_type == WPT_NORMAL then __WPL:setForcedWaypointType("RUN") end if inventory:getItemCount(209444) > 4 or inventory:getItemCount(209447) > 9 then __WPL:setWaypointIndex(__WPL:findWaypointTag("LiwagelTurnin")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("grass")) end changeProfileOption("MAX_TARGET_DIST", 200) if 10 > getDailyComplete() then COO_CompleteQuest(118067, 424172) -- Liwagel, Dangerous Worm Eggs, Grass of Loathing checkDQCount() player:update() if player.Level == 46 then COO_CompleteQuest(118067, 424173) -- Liwagel, The Harpies can't resist..., Silvermoon Lake Frog Meat checkDQCount() player:update() end __WPL:setWaypointIndex(__WPL:findWaypointTag("LiwagelStart")) else player:sleep() end setwindow("Empty Bottles") if 10 > getDailyComplete() and player.Level == 47 then COO_AcceptQuest(118070, 424176) -- Fiona Andus, The elves' defenses else player:sleep() end player:target_Object("Protector Vine"); if inventory:getItemCount(209459) > 4 then -- Empty Bottles __WPL:setWaypointIndex(__WPL:findWaypointTag("Turnin")) end player:target_Object("Protector Vine"); if inventory:getItemCount(209459) > 4 then -- Empty Bottles __WPL:setWaypointIndex(__WPL:findWaypointTag("Turnin")) end player:target_Object("Protector Vine"); if inventory:getItemCount(209459) > 4 then -- Empty Bottles __WPL:setWaypointIndex(__WPL:findWaypointTag("Turnin")) end player:target_Object("Protector Vine"); if inventory:getItemCount(209459) > 4 then -- Empty Bottles __WPL:setWaypointIndex(__WPL:findWaypointTag("Turnin")) end player:target_Object("Protector Vine"); if inventory:getItemCount(209459) > 4 then -- Empty Bottles __WPL:setWaypointIndex(__WPL:findWaypointTag("Turnin")) end player:target_Object("Protector Vine"); if inventory:getItemCount(209459) > 4 then -- Empty Bottles __WPL:setWaypointIndex(__WPL:findWaypointTag("Turnin")) end player:target_Object("Protector Vine"); if inventory:getItemCount(209459) > 4 then -- Empty Bottles __WPL:setWaypointIndex(__WPL:findWaypointTag("Turnin")) end player:target_Object("Protector Vine"); if inventory:getItemCount(209459) > 4 then -- Empty Bottles __WPL:setWaypointIndex(__WPL:findWaypointTag("Turnin")) end player:target_Object("Protector Vine"); if inventory:getItemCount(209459) > 4 then -- Empty Bottles __WPL:setWaypointIndex(__WPL:findWaypointTag("Turnin")) end player:target_Object("Protector Vine"); if inventory:getItemCount(209459) > 4 then -- Empty Bottles __WPL:setWaypointIndex(__WPL:findWaypointTag("Turnin")) end player:target_Object("Protector Vine"); if inventory:getItemCount(209459) > 4 then -- Empty Bottles __WPL:setWaypointIndex(__WPL:findWaypointTag("Turnin")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("Vines")) end if 10 > getDailyComplete() and player.Level == 47 then COO_CompleteQuest(118070, 424176) -- Fiona Andus, The elves' defenses checkDQCount() player:update() __WPL:setWaypointIndex(__WPL:findWaypointTag("FionaStart")) else player:sleep() end -- Lvl 42 daily setwindow("Stone Gift") changeOptionFriendMob("mob", "Stone Protector", "Add") if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end if player.Level > 42 then __WPL:setForcedWaypointType("RUN") __WPL:setWaypointIndex(__WPL:findWaypointTag("BackToCamp")) elseif inventory:getItemCount(209457) > 39 and player.Level > 41 and 10 > getDailyComplete() then -- Stone Gift __WPL:setForcedWaypointType("RUN") __WPL:setWaypointIndex(__WPL:findWaypointTag("StoneGiftTurnin")) end __WPL:setWaypointIndex(__WPL:findWaypointTag("StoneGiftRoute")) while 10 > getDailyComplete() and inventory:getItemCount(209457) > 4 and player.Level == 42 do COO_AcceptQuest(118058, 424158) -- Libisil Gelunhuder, Living Cultural Relics, Stone Gifts COO_CompleteQuest(118058, 424158) -- Libisil Gelunhuder, Living Cultural Relics, Stone Gifts checkDQCount() player:update() end if getDailyComplete() > 9 then player:sleep() end __WPL:setForcedWaypointType("NORMAL") changeOptionFriendMob("mob", "Stone Protector", "Add") __WPL:setWaypointIndex(__WPL:findWaypointTag("stonecheck")) __WPL:setWaypointIndex(__WPL:findWaypointTag("travel2ChefFhil"))