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 if checkDQCount() > 1 then __WPL:setWaypointIndex(__WPL:findWaypointTag("SoftBrush")) end COO_AcceptQuest(118056, 424151) -- Calm The Fury (once a day) player:target_NPC("Ruins Excavator"); sendMacro("ChoiceOption(1);");yrest(2000); sendMacro("ChoiceOption(1);");yrest(2000); player:target_NPC("Ruins Excavator"); sendMacro("ChoiceOption(1);");yrest(2000); sendMacro("ChoiceOption(1);");yrest(2000); player:target_NPC("Ruins Excavator"); sendMacro("ChoiceOption(1);");yrest(2000); sendMacro("ChoiceOption(1);");yrest(2000); player:target_NPC("Ruins Excavator"); sendMacro("ChoiceOption(1);");yrest(2000); sendMacro("ChoiceOption(1);");yrest(2000); player:target_NPC("Ruins Excavator"); sendMacro("ChoiceOption(1);");yrest(2000); sendMacro("ChoiceOption(1);");yrest(2000); COO_CompleteQuest(118056, 424151) -- Calm The Fury (once a day) COO_AcceptQuest(118056, 424153) -- __WPL:setForcedWaypointType("RUN") __WPL:setForcedWaypointType("NORMAL") if 10 > inventory:getItemCount(209427) then __WPL:setWaypointIndex(__WPL:findWaypointTag("SoftBrushStart")) end while inventory:getItemCount(209427) > 10 and 10 > getDailyComplete() do COO_AcceptQuest(118056, 424153) -- COO_CompleteQuest(118056, 424153) -- checkDQCount() player:update() end if getXP() > 850000 or player.Level > 42 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("travel2SoftBrush")) end __WPL:setForcedWaypointType("RUN") if player.Level > 42 then __WPL:setWaypointIndex(__WPL:findWaypointTag("travel2ChefFhil")) end 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) > 4 and 10 > getDailyComplete() 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 > 44 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 if player.Level > 43 then if player.Class1 == CLASS_PRIEST or player.Class1 == CLASS_DRUID then __WPL:setWaypointIndex(__WPL:findWaypointTag("2Chupra")) __WPL:setForcedWaypointType("RUN") else printf("No healer as main class, skipping chupra's till lvl 44 \n") __WPL:setWaypointIndex(__WPL:findWaypointTag("bloomFarm")) end end changeProfileOption("MAX_TARGET_DIST", 100) if 5 > inventory:getItemCount(209436) then __WPL:setWaypointIndex(__WPL:findWaypointTag("bloomFarm")) end __WPL:setWaypointIndex(__WPL:findWaypointTag("atChef")) COO_AcceptQuest(118060, 424165) -- Sofie Paichu if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end COO_CompleteQuest(118060, 424165) -- Sofie Paichu checkDQCount() player:update() if player.Level > 44 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 COO_AcceptQuest(118060, 424165) -- Sofie Paichu __WPL:setWaypointIndex(__WPL:findWaypointTag("ChupraHunt")) end COO_AcceptQuest(118062, 424167) -- Qobbis Kenn if player.Current_waypoint_type == WPT_NORMAL then __WPL:setForcedWaypointType("RUN") end if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end if 10 > inventory:getItemCount(209440) then __WPL:setWaypointIndex(__WPL:findWaypointTag("huntBears")) end if player.Current_waypoint_type == WPT_NORMAL then __WPL:setForcedWaypointType("RUN") end while inventory:getItemCount(209440) > 10 and 10 > getDailyComplete() 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 if player.Level > 47 then printf("finished reached lvl 48 Ready to do Butterfly....."); stopPE(); else __WPL:setWaypointIndex(__WPL:findWaypointTag("2Bears")) end