MainLevel = 50 NumTwinks = 0 ---------------------------------------------------------------------------------------- repeat zoneid=RoMScript("GetZoneID()"); until zoneid repeat npcname=RoMScript("TEXT('Sys112651_name')"); until npcname repeat dgnname=RoMScript("TEXT('ZONE_DGN_BORSBURS')"); until dgnname repeat zonename=RoMScript("TEXT('ZONE_ASLAN')"); until zonename repeat curzone=RoMScript("GetZoneName()"); until curzone RoMScript("DEFAULT_CHAT_FRAME:AddMessage('|cffffff00Malatinas: "..player.Name.." You are in "..curzone..".|r')") -- Check zone if(zoneid ~= 4 and zoneid ~= 352) then RoMScript("DEFAULT_CHAT_FRAME:AddMessage('|cffffff00Malatinas: "..player.Name.." You are too far from " ..zonename.. ".|r')") error("\a\a\Malatinas: "..player.Name.." You are too far from "..zonename..".") end; -- Check zone and distance to NPC for Main character if(zoneid ~= 352 and player.Level >= MainLevel and distance(player.X,player.Z,-5874,3315) > 50) then RoMScript("DEFAULT_CHAT_FRAME:AddMessage('|cffffff00Malatinas:Main "..player.Name.." You are too far from NPC " ..npcname.. ".|r')") error("\a\a\Malatinas: Mainchar " ..player.Name.. " You are too far from NPC "..npcname..".") end -- Check Main character or Twink if(player.Level >= MainLevel) then if(NumTwinks ~= 0 and NumTwinks+1 > sendMacro('GetNumPartyMembers()')) then RoMScript("DEFAULT_CHAT_FRAME:AddMessage('|cffffff00Malatinas: Mainchar "..player.Name.." Stop near Goblins Malatinas. Ivite all Twinks.|r')") printf("Malatinas: Mainchar "..player.Name.." Stop near Goblins Malatinas. Ivite all Twinks.\n"); repeat yrest(1000); until RoMScript('GetNumPartyMembers()') >= NumTwinks+1 end player:target_NPC(npcname); yrest(1000); RoMScript("ChoiceOption(1);"); yrest(1000); RoMScript("StaticPopup_OnClick(StaticPopup1, 1);"); repeat yrest(5000);loggedin = RoMScript("UnitName('player');"); until loggedin player:update(); repeat zoneid = RoMScript("GetZoneID()"); until zoneid if (zoneid ~= 352) then error("\a\a\"Malatinas: Mainchar " ..player.Name.. " You are too far from "..dgnname..".") end; else printf("Malatinas:Twink " ..player.Name.. " wait for Ivite.\n") while not RoMScript("UnitExists('party1')") do RoMScript("StaticPopup_OnClick(StaticPopup1, 1);"); yrest(1000) end printf("Malatinas:Twink " ..player.Name.. " wait for enter to "..dgnname..".\n") while (zoneid ~= 352) do RoMScript("StaticPopup_OnClick(StaticPopup1, 1);"); yrest(1000); player:update(); zoneid = RoMScript("GetZoneID()"); end end -- Function open chest for several character in party function getTreasureChest() EventMonitorStart("TreasureChest", "PLAYER_BAG_CHANGED") local retry_count = 0; while(retry_count<7)do player:target_Object(113137,7000,nil,true) local time, moreToCome, msg = EventMonitorCheck("TreasureChest", "1") if msg ~= nil then EventMonitorStop("TreasureChest") break end retry_count = retry_count + 1; end printf("Chest opens. continuing.\n") end -- Function whait for command to twink function PauseTwink() EventMonitorStart("PausePARTY", "CHAT_MSG_PARTY") repeat local time, moreToCome, name, msg = EventMonitorCheck("PausePARTY", "4,1") if time ~= nil then if string.find(msg,"All Ok") then break end end yrest(5) until false end -- Change Profile Option changeProfileOption("RES_AUTOMATIC_AFTER_DEATH", false) changeProfileOption("TARGET_LEVELDIF_BELOW", 40) changeProfileOption("LOOT_IN_COMBAT", false) changeProfileOption("AUTO_ELITE_FACTOR", 15) changeProfileOption("LOOT_ALL", true) -- Check if Twink then whait for Main character kill all mobs near chests if(MainLevel > player.Level) then PauseTwink() end -- Enable Swimhack fly(); -- Change Profile Option for combat __WPL:setForcedWaypointType("NORMAL") -- open chest getTreasureChest() -- open chest getTreasureChest() -- open chest getTreasureChest() -- open chest getTreasureChest() -- Kill process for Twink if(MainLevel > player.Level) then yrest(2000); local PID = findProcessByWindow(getWin()); os.execute("TASKKILL /PID " .. PID .. " /F"); os.exit end -- Check Number Party Members RoMScript('SendChatMessage("All Ok", "PARTY", 0);'); if(RoMScript('GetNumPartyMembers()') > 2) then flyoff(); RoMScript("LeaveParty();"); repeat yrest(5000);loggedin = RoMScript("UnitName('player');"); until loggedin player:update(); error("Bot finished."); else error("\a\a\Bot finished. You are in Goblin Mines"); end