NumTwinks = 5 Farm = true Recipient="Prvv" RunesRec="Prvv" Chars={"Char1","Char2","Char3","Char4","Char5","Char6","Char7","Char8"}; MustHP = 4500; local Account = RoMScript("GetAccountName();"); Items={210718, 210592, 220130, 220514, 220545, 220603, 220631, 220657, 220826, 220841, 221114, 221115, 222156, 221128, 222162} Dailys={209432, 209436, 209439} Prunes={200850, 200851, 200852, 200853, 200854, 200855} -- Check Level and Zone Id if 41 > player.Level or getZoneId() ~= 14 then error("\a\a\Level or Zone Error.") end -- getDailyComplete function getDailyComplete() local dailyQuestCount, dailyQuestsPerDay; repeat dailyQuestCount, dailyQuestsPerDay = RoMScript("Daily_count()") yrest(500) until dailyQuestCount return dailyQuestCount; end -- DailyQuest function DailyQuest(npcId, questId) inventory:update() player:update() npcname = GetIdName(npcId) questname = GetIdName(questId) player:target_NPC(npcname) yrest(500) AcceptQuestByName(questname) player:target_NPC(npcname) yrest(500) CompleteQuestByName(questname) inventory:update() player:update() end -- Unequips items function UnequipItems() if( inventory:itemTotalCount(0) > 17 ) then for i=1,17,1 do --cprintf(cli.yellow, "Account: "..Account.."_"..player.Name.." Unequip item "..i..".\n"); RoMScript("EquipItem("..i..");"); yrest(500); end RoMScript("SwapEquipmentItem();"); yrest(500); inventory:update(); else error("\a\a\Not enough BagSpase. Clean Bag and Start again."); end end -- Equip items function EquipItems() if( MustHP > player.MaxHP ) then RoMScript("SwapEquipmentItem();"); yrest(500); for __, item in pairs(inventory.BagSlot) do if item.Available and not item.Empty then for __, Id in pairs(Items) do if (item.Id == Id) then if( bot.ClientLanguage == "RU" ) then item.Name = utf82oem_russian(item.Name); end cprintf(cli.yellow, "Account-"..Account.."_"..player.Name.." Equip item: "..item.Name..".\n"); item:use() -- Equip item end end end end end end -- CheckDailyComplete function CheckDailyComplete() cprintf(cli.lightblue, player.Name.." %s Daily quests completed.\n", getDailyComplete()) if( getDailyComplete() == 10 ) then UnequipItems() -- Select Char Name local i=1; while( player.Name ~= Chars[i] )do i= i + 1; if( i > #Chars )then -- Selecting and Send Item if last Char or Error. player:target_Object(117407,1500); -- Mailbox RoMScript("ChoiceOption(1);"); yrest(1000); UMM_SendByNameOrId (Recipient, Items);yrest(500) UMM_SendByNameOrId (Recipient, Dailys);yrest(500) UMM_SendByNameOrId (RunesRec, Prunes);yrest(500) --cprintf(cli.yellow, "Error. Account: "..Account..", Char: "..player.Name.."\n"); --RoMScript("QuitGame()"); end end -- Selecting and Send Item to next twink i= i + 1; player:target_Object(117407,1500); -- Mailbox RoMScript("ChoiceOption(1);"); yrest(1000); UMM_SendByNameOrId (Chars[i], Items);yrest(500) UMM_SendByNameOrId (Chars[i], Dailys);yrest(500) UMM_SendByNameOrId (RunesRec, Prunes);yrest(500) cprintf(cli.yellow, "Accaunt: "..Account..", Char: "..player.Name..", Bot sended items to "..Chars[i].."\n"); -- Wait for Login next toon sendMacro("}LoginNextToon=true;a={") sendMacro("Logout();"); waitForLoadingScreen(); player = CPlayer.new(); settings.load(); settings.loadProfile("UserDefault"); yrest(4000); loadPaths("Xaviera_41-45") end end -- changeProfileOption changeProfileOption("INV_AUTOSELL_QUALITY", "white,green") changeProfileOption("INV_AUTOSELL_ENABLE", true) changeProfileOption("INV_AUTOSELL_FROMSLOT", 13) changeProfileOption("INV_AUTOSELL_TOSLOT", 60) changeProfileOption("MAX_TARGET_DIST", 150) -- Set Player speed to 59. local playerAddress = memoryReadIntPtr(getProc(), addresses.staticbase_char, addresses.charPtr_offset); if playerAddress ~= 0 then memoryWriteFloat(getProc(), playerAddress + 0x40, 59); print("Set Player speed to 59."); end -- Open Mailbox and Take Mail player:target_Object(117407,1500); -- Mailbox RoMScript("ChoiceOption(1);"); yrest(1500); RoMScript("UMMFrameTab1Tools:ButtonClick('tagempty');"); yrest(1000) RoMScript("UMMFrameTab1Tools:ButtonClick('delete');"); yrest(4000) if( inventory:itemTotalCount(0) > 17 ) then UMM_TakeMail (); yrest(1000); elseif( MustHP > player.MaxHP or 40 > inventory:getItemCount(209432) ) then error("\a\a\Not enough BagSpase. Clean Bag and Start again."); end RoMScript("CloseWindows()"); yrest(500); inventory:update(); -- Check daily CheckDailyComplete() -- Equip items EquipItems() -- Accept daily Quest Calm the Fury npcname = GetIdName(118056) -- Dawa Kana questname = GetIdName(424151) -- Calm the Fury player:target_NPC(npcname) yrest(500) AcceptQuestByName(questname) npcname = GetIdName(118075) -- Ruins Excavator player:target_NPC(npcname) RoMScript("ChoiceOption(1);"); yrest(500); RoMScript("ChoiceOption(1);"); yrest(500); yrest(7500); player:target_NPC(npcname) RoMScript("ChoiceOption(1);"); yrest(500); RoMScript("ChoiceOption(1);"); yrest(500); yrest(7500); player:target_NPC(npcname) RoMScript("ChoiceOption(1);"); yrest(500); RoMScript("ChoiceOption(1);"); yrest(500); player:target_NPC(npcname) RoMScript("ChoiceOption(1);"); yrest(500); RoMScript("ChoiceOption(1);"); yrest(500); yrest(7500); player:target_NPC(npcname) RoMScript("ChoiceOption(1);"); yrest(500); RoMScript("ChoiceOption(1);"); yrest(500); npcname = GetIdName(118104) -- Silvershadow Adventurers' Guild Provisioner player:merchant(npcname) -- Check complete daily questname = GetIdName(424151) -- Calm the Fury dailyQuest = getQuestStatus(questname) if dailyQuest == "incomplete" then yrest(7000); __WPL:setWaypointIndex(__WPL:findWaypointTag("RuinsExcavator")) end -- Complete daily Quest Calm the Fury npcname = GetIdName(118056) -- Dawa Kana questname = GetIdName(424151) -- Calm the Fury player:target_NPC(npcname) yrest(500) CompleteQuestByName(questname) -- Moving Fragile Artifacts if( 10 > getDailyComplete() and player.Level == 41 ) then npcname = GetIdName(118057) -- Dafenger Pindun questname = GetIdName(424154) -- Moving Fragile Artifacts player:target_NPC(npcname) yrest(500) CompleteQuestByName(questname) player:target_NPC(npcname) yrest(500) AcceptQuestByName(questname) end -- Artifact Restoration Materials while( 10 > getDailyComplete() ) and player.Level == 42 and inventory:getItemCount(209432) > 4 do -- Sticky Sap DailyQuest(118057, 424157) -- Dafenger Pindun, Artifact Restoration Materials end -- Check Level and Daily if( getDailyComplete() == 10 and player.Level == 42 ) then error("\a\a\a\a\10 DailyComplete."); --__WPL:setWaypointIndex(__WPL:findWaypointTag("GoToStart")) --__WPL:setForcedWaypointType() elseif( 10 > getDailyComplete() and player.Level == 41 ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("MovFragArt")) __WPL:setForcedWaypointType() elseif( 10 > getDailyComplete() and player.Level == 42 ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("ArtRestMat")) elseif( player.Level > 42 ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("GoToChefFhil")) __WPL:setForcedWaypointType("TRAVEL") end player:target_Object(118048); --Box of Antiques player:target_Object(118048); --Box of Antiques player:target_Object(118048); --Box of Antiques -- Check complete daily questname = GetIdName(424154) -- Moving Fragile Artifacts dailyQuest = getQuestStatus(questname) if dailyQuest == "complete" then yrest(7000); __WPL:setWaypointIndex(__WPL:findWaypointTag("FragArtC")) end player:target_Object(118048, 7000); --Box of Antiques player:target_Object(118048); --Box of Antiques -- Check complete daily yrest(1000); questname = GetIdName(424154) -- Moving Fragile Artifacts dailyQuest = getQuestStatus(questname) if dailyQuest == "complete" then yrest(7000); __WPL:setWaypointIndex(__WPL:findWaypointTag("FragArtC")) end player:target_Object(118048); --Box of Antiques -- Check complete daily questname = GetIdName(424154) -- Moving Fragile Artifacts dailyQuest = getQuestStatus(questname) if dailyQuest == "incomplete" then yrest(7000); __WPL:setWaypointIndex(__WPL:findWaypointTag("FragArt")) end __WPL:setWaypointIndex(__WPL:findWaypointTag("DafengerPindun")) __WPL:setForcedWaypointType("NORMAL") if player.Current_waypoint_type == WPT_RUN then __WPL:setForcedWaypointType("NORMAL") end changeProfileOption("MAX_TARGET_DIST", 180) if( 40*NumTwinks > inventory:getItemCount(209432) and inventory:getItemCount(0) > 2 ) then -- Sticky Sap __WPL:setWaypointIndex(__WPL:findWaypointTag("MoreStickySap")) end changeProfileOption("MAX_TARGET_DIST", 130) __WPL:setForcedWaypointType() __WPL:setWaypointIndex(__WPL:findWaypointTag("DafengerPindun")) __WPL:setWaypointIndex(__WPL:findWaypointTag("Start")) npcname = GetIdName(118187) -- Stable Manager player:target_NPC(npcname) RoMScript("ChoiceOption(1);"); yrest(1000); RoMScript("StaticPopup_OnClick(StaticPopup1, 1);"); yrest(2500); inventory:update(); player:mount(); __WPL:setWaypointIndex(__WPL:findWaypointTag("ChefFhil")) npcname = GetIdName(118102) -- Silvershadow Adventurers' Guild Provisioner player:merchant(npcname) -- Check Daily if( getDailyComplete() == 10 ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("IssacCampMailbox")) end -- Crucial Ingredient for a Legendary Recipe while( 10 > getDailyComplete() ) and player.Level == 43 and inventory:getItemCount(209436) >= 5 do -- Sweet Demon Bloom Honey DailyQuest(117776, 424161) -- Chef Fhil, Crucial Ingredient for a Legendary Recipe end -- Check Level and Daily if( getDailyComplete() == 10 and player.Level == 43 or 2 > inventory:getItemCount(0) ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("IssacCampMailbox")) elseif( player.Level > 43 ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("GoToStaticLathrofea")) __WPL:setForcedWaypointType("TRAVEL") end __WPL:setForcedWaypointType("NORMAL") if not player.Current_waypoint_type == WPT_NORMAL then __WPL:setForcedWaypointType("NORMAL") end if( 40*NumTwinks > inventory:getItemCount(209436) and inventory:getItemCount(0) > 2 ) then -- Sweet Demon Bloom Honey __WPL:setWaypointIndex(__WPL:findWaypointTag("MoreBloomHoney")) end __WPL:setWaypointIndex(__WPL:findWaypointTag("ChefFhil")) -- Open Mailbox and Take Mail player:target_Object(117407,1500); -- Mailbox RoMScript("ChoiceOption(1);"); yrest(1500); RoMScript("UMMFrameTab1Tools:ButtonClick('tagempty');"); yrest(1000) RoMScript("UMMFrameTab1Tools:ButtonClick('delete');"); yrest(5000) if(inventory:itemTotalCount(0) > 25) then UMM_TakeMail (); yrest(1000); else __WPL:setWaypointIndex(__WPL:findWaypointTag("IssacCampmerchant")) end RoMScript("CloseWindows()"); yrest(500); inventory:update(); -- Check daily CheckDailyComplete() -- Equip items EquipItems() -- Check Level and Daily if( 10 > getDailyComplete() and player.Level == 43 ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("IssacCampmerchant")) elseif( 10 > getDailyComplete() and player.Level > 43 ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("GoToStaticLathrofea")) end -- Accept Quest Loudmouthed Adventurer npcname = GetIdName(117847) -- Tilheim Finster questname = GetIdName(424111) -- Loudmouthed Adventurer player:target_NPC(npcname) yrest(500) AcceptQuestByName(questname) npcname = GetIdName(117846) -- Denton player:target_NPC(npcname) -- Accept and Complete daily Quest Magic Coloring DailyQuest(118061, 424166) -- Baladd Link, Magic Coloring npcname = GetIdName(117845) -- Reis player:target_NPC(npcname) npcname = GetIdName(117844) -- Klaus player:target_NPC(npcname) npcname = GetIdName(117842) -- Little John player:target_NPC(npcname) -- Accept or Complete Quest Chupura's Doomsday npcname = GetIdName(117849) -- Samantha questname = GetIdName(424115) -- Chupura's Doomsday player:target_NPC(npcname) yrest(500) AcceptQuestByName(questname) player:target_NPC(npcname) yrest(500) CompleteQuestByName(questname, 2) -- Complete Quest Loudmouthed Adventurer npcname = GetIdName(117847) -- Tilheim Finster player:target_NPC(npcname) yrest(500) RoMScript("ChoiceOption(2);"); yrest(500); RoMScript("OnClick_QuestListButton(3, 1);"); yrest(500); RoMScript("SpeakFrame_CompleteQuest();"); RoMScript("SpeakFrame_Hide();"); -- Shut Them Up npcname = GetIdName(118060) -- Sofie Paichu questname = GetIdName(424165) -- Shut Them Up if( 10 > getDailyComplete() and 50 > player.Level ) then DailyQuest(118060, 424165) -- Sofie Paichu, Shut Them Up end while ( not keyPressedLocal(key.VK_LSHIFT) and 10 > getDailyComplete() ) do player:target_NPC(npcname) yrest(500) AcceptQuestByName(questname) while dailyQuest ~= "complete" do repeat dailyQuest = getQuestStatus(questname); yrest(500) until dailyQuest end; player:target_NPC(npcname) yrest(500) CompleteQuestByName(questname, 2) end; --while not keyPressedLocal(key.VK_CONTROL) do yrest(500); end; -- Repair and sale if( 4 > inventory:getItemCount(0) or 80 > inventory:getMainHandDurability() ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("StaticLathrofeamerchant")) end npcname = GetIdName(118109) -- Silvershadow Adventurers' Guild Provisioner player:merchant(npcname) __WPL:setWaypointIndex(__WPL:findWaypointTag("SofiePaichu")) player:target_Object(118688); --Mailbox