-- MailSenders Names MailSender1 = "Name1" MailSender2 = "Name2" MailSender3 = "Name3" MailSender4 = "Name4" MailSender5 = "Name5" -- Tier Receivers Names TierRecs = {"TierRec1", "TierRec2", "TierRec2"} --TierRecs = {"TierRec4", "TierRec5", "TierRec6"} TierReceiver2 = "TierReceiver2" -- Stone Receivers Charstone1 = "Charstone1" Charstone2 = {"Charstone2", "Charstone3", "Charstone4", "Charstone5", "Charstone6", "Charstone7", "Charstone8"} -- Messages text1 = "SendMe" text2 = "Go." WhaitTime = 1200; TierTwinkClient = "C_TwinkClient" -- Set Ignored Chars IgnoredChars = {"1", "2", "21", "3", "4", "5", "6", "7", "8", "9", "10", "11", "P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8"} -- Set CharList SetCharList({ { {account=8,chars={}}, {account=9,chars={}}, {account=10,chars={}}, {account=11,chars={}}, {account=12,chars={}}, {account=13,chars={}}, {account=14,chars={}}, }, { {account=27,chars={}}, {account=28,chars={}}, {account=29,chars={}}, {account=30,chars={}}, {account=31,chars={}}, {account=32,chars={}}, {account=33,chars={}}, }, { {account=78,chars={}}, {account=79,chars={}}, {account=80,chars={}}, {account=81,chars={}}, {account=82,chars={}}, {account=83,chars={}}, {account=84,chars={}}, }, { {account=97,chars={}}, {account=98,chars={}}, {account=99,chars={}}, {account=100,chars={}}, {account=101,chars={}}, {account=102,chars={}}, {account=103,chars={}}, }, { {account=52,chars={1, 2}}, }, { {account=105,chars={1, 2, 3, 4}}, }, }) PrintCharList(); -- Variables for onClientCrash local currAcc = RoMScript("LogID"); local currChar = RoMScript("CHARACTER_SELECT.selectedIndex"); local dirPath = string.gsub( getExecutionPath()," ","\" \"" ); local currPath = __WPL.FileName; local Clientlink = TierTwinkClient; -- specify you client shortcut links name if it not contains *client* local AfterAllError = false; -- set to false or true for restart after all error -- set Clientlink if not specify if( Clientlink == false or Clientlink == nil ) then local romdir = getDirectory(dirPath); for i,v in pairs(romdir) do local match = string.match(string.lower(v), "client(.*)%.lnk") if( match ~= nil ) then Clientlink = v break end end end; cprintf(cli.white, "Current Acc: %s, Char: %s, Path: %s, dirPath: %s, Client: %s\n\n", currAcc, currChar, currPath, dirPath, Clientlink) -- onClientCrash function onClientCrash() if AfterAllError then killClient() else yrest(5000) end if( not windowValid(getAttachedHwnd()) or AfterAllError ) then -- write Crash Log local filename = ""..dirPath.."/logs/CrashLog.log"; local file, err = io.open(filename, "a+"); if file then file:write("Account: "..currAcc.." \tName: " ..string.format("%-10s",player.Name ).." \tDate: "..os.date().." \tPath: "..currPath.." \n") file:close() end -- Restart client and Bot os.execute("START "..dirPath.."/../../micromacro.exe "..dirPath.."/login acc:"..currAcc.." char:"..currChar.." client:"..Clientlink.." path:"..currPath.."") os.exit() end end; -- check Clientlink if( Clientlink ) then atError(onClientCrash) end; -- Start Crash Window Killer local name, version = "Crash Window Killer", "v0.1" local windowname = name.." ["..version.."] started." local crashwinkiller = findWindow(windowname) if( crashwinkiller == 0 ) then local a,b,c = os.execute("START "..dirPath.."/../../micromacro.exe "..dirPath.."/CrashWindowKiller.lua") if not a then error("Trouble executing file. Values returned were: "..(a or "nil")..", "..(b or "nil")..", "..(c or "nil")) end end; include("waypoints/Tier_Maker_onLoad.lua",true) KampelTownMailbox(); FreudDinksStore(); __WPL:setWaypointIndex(__WPL:findWaypointTag("KampelTownMailbox")); SasciliaSteppesMailbox(); SpiderfootStore(); if( CheckTierItems() >= 9 ) then WailingFjordMailbox(); end; __WPL:setWaypointIndex(__WPL:findWaypointTag("SpiderfootStore")); StartTwink(); -- Check for Error if( player.free_counter1 > 10 ) then error("\a\a\a\a\a\a\aError. Error. Error. Error. Error."); end; -- Elven Island Mailbox ElvenIslandMailbox() -- Tp to Varanas player:target_NPC(118002); yrest(1000); -- Упрямый снуп RoMScript("ChoiceOption(1);"); yrest(1000); RoMScript("StaticPopup_OnClick(StaticPopup1, 1);"); print(" Tp to Varanas"); waitForLoadingScreen(60); player:update(); -- Check error Cur_Gold = memoryReadInt( getProc(), addresses.moneyPtr ) if( 20 > Cur_Gold ) then inventory:update(); inventory:useItem(201843); -- 1 Lvl Giftbag inventory:useItem(201844); -- 2 Lvl Giftbag yrest(1500); end; if ( getZoneId() ~= 2 and getZoneId() ~= 1002 ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("CoastOpp")); end; inventory:update(); player:mount(); -- Check for Varanas Error if not player:findNearestNameOrId(110755) then TirodelUnstick() end local LieveA = player:findNearestNameOrId(110755) if (LieveA.Y-player.Y) > 30 then TirodelUnstick() end -- Tp to XBZ if RoMScript("AdvancedMagicBoxFrame == true") or RoMScript("MagicBoxFrame == true") then player:target_NPC(110755); yrest(1500); -- Лив RoMScript("ChoiceOption(2);"); yrest(1500); RoMScript("ChoiceOption(2);"); waitForLoadingScreen(60); player:update() __WPL:setWaypointIndex(__WPL:findWaypointTag("MakeMS")); else player:target_NPC(110755); yrest(1500); -- Лив RoMScript("ChoiceOption(1);"); waitForLoadingScreen(60); player:update() __WPL:setWaypointIndex(__WPL:findWaypointTag("Transmutor")); end; __WPL:setWaypointIndex(__WPL:findWaypointTag("Escape")); __WPL:setWaypointIndex(__WPL:findWaypointTag("Escape")); __WPL:setWaypointIndex(__WPL:findWaypointTag("Escape")); __WPL:setWaypointIndex(__WPL:findWaypointTag("StartTwink")); -- Move to first WP if not receive 10 Level or Excellent Belt. player:update(); inventory:update(); Cur_Gold = memoryReadInt( getProc(), addresses.moneyPtr ) if( ErrorSendStone ~= true ) then if( 8 > inventory:itemTotalCount(202999) and 15840 > Cur_Gold ) or ( 10 > player.Level ) or ( 8 > CheckTierItems() ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("Rove")); end end; player:mount(); -- Tp to Varanas player:target_NPC(112797);player:rest(1); -- Сидкло RoMScript("ChoiceOption(1);"); waitForLoadingScreen(30); yrest(2500); player:update(); -- Take Giftbags --inventory:useItem(201849); -- 7 Lvl Giftbag -- Check for Error Send Stone if( ErrorSendStone == true ) then if( player.Class1 == CLASS_ROGUE ) then player:target_NPC(110008); yrest(1000); -- Энгер RoMScript("ChoiceOption(1);"); yrest(500); RoMScript("ChoiceOption(1);"); else player:target_NPC(110307); yrest(1000); -- Эльсон RoMScript("ChoiceOption(1);"); yrest(500); RoMScript("ChoiceOption(1);"); end __WPL:setWaypointIndex(__WPL:findWaypointTag("ErrorSendMail")); end; -- Check for Varanas Error if not player:findNearestNameOrId(111367) then TirodelUnstick() end local Lehman = player:findNearestNameOrId(111367) if( Lehman.Y-player.Y ) > 30 then TirodelUnstick() end; -- Take Giftbags --inventory:useItem(201849); -- 8 Lvl Giftbag -- Varanas Charges VaranasCharges(); VaranasLyeve(); __WPL:setWaypointIndex(__WPL:findWaypointTag("VaranasBuyFusionStone")); -- Check for Varanas Error if not player:findNearestNameOrId(110576) then TirodelUnstick() end local Odeley = player:findNearestNameOrId(110576) if (Odeley.Y - player.Y) > 30 then TirodelUnstick() end -- Varanas Buy Fusion Stone VaranasBuyFusionStone() __WPL:setWaypointIndex(__WPL:findWaypointTag("VaranasMailbox")); -- Check for Error Send Stone if( ErrorSendStone == true ) then LoginNextChar() settings.load() -- settings.loadProfile("Tirodel_Pr") yrest (4000) loadPaths(__WPL.FileName) end; -- Check for Varanas Error if not player:findNearestNameOrId(110538) then TirodelUnstick() end local Mailbox = player:findNearestNameOrId(110538) if( Mailbox.Y - player.Y ) > 30 then TirodelUnstick() end -- Varanas Mailbox VaranasMailbox(); -- Set faceDirection and Rotation local angle = math.atan2(31925 - player.Z, 3391 - player.X) player:faceDirection(angle) camera:setRotation(angle) -- Elven Island Mailbox2 ElvenIslandMailbox2();