--=== User Options ===-- MY_CHAR_IS_VERY_STRONG=true; --[[ true - if you have no problem killing Fortifying Elementals when they all aggro on you false - if you need a special skill/combo to kill Fortifying Elemental and not aggro other mobs if false then you have to adjust oneHiter() function to your class combination ]] When_Finished = "end" -- "end" to end script, "relog" to log next character and "waypointfilename" to load that waypointfile. CharList = {} -- Character list to use when using the "charlist" option above. Requires my "userfunction_LoginNextChar" userfunction. -- Find it here. http://www.solarstrike.net/phpBB3/viewtopic.php?p=10350 -- eg. -- CharList = { -- {account=4,chars={}}, -- {account=8,chars={1}}, -- {account=7,chars={1,2,5}}, -- } --====================-- --Some of these options are copied from botromka's script changeProfileOption("RES_AUTOMATIC_AFTER_DEATH", false) changeProfileOption("TARGET_LEVELDIF_BELOW", 40); changeProfileOption("AUTO_ELITE_FACTOR", 10) --don't know why 10 but it works :) changeProfileOption("COMBAT_DISTANCE", 170) changeProfileOption("MAX_TARGET_DIST", 170) changeProfileOption("LOOT", false); changeProfileOption("LOOT_IN_COMBAT", false); changeProfileOption("LOOT_ALL", false) CLEAR=true; EventMonitorStart("sys", "SYSTEM_MESSAGE"); ------------------------ --Language settings myLang=sendMacro("GetLanguage()") if myLang=="DE" then myLang=2 else myLang=1 end langString={ fire={"fire furnace","Feuerofens"}, earth={"earth furnace","Erdofens"}, water={"water furnace","Wasserofens"}, wind={"wind furnace","Windofens"}, circle={"central transport circle","Haupt-Transportkreis-Ausgang"} } -------------------- --checkRelog is copied from cot_tele waypoint if logentry==nil then logentry=" " end; if numshells==nil then numshells=inventory:getItemCount(240181) end; function checkRelog() -- Log result local filename = getExecutionPath() .. "/logs/cot.log"; local file, err = io.open(filename, "a+"); if file then file:write("Account: "..RoMScript("GetAccountName()").."\tName: " ..string.format("%-10s",player.Name ).." \tDate: " .. os.date() .. " \tShells gained/total: "..inventory:getItemCount(240181) - numshells.."/".. inventory:getItemCount(240181).. "\t" ..logentry .. "\n") file:close(); end if When_Finished == "relog" then sendMacro("}LoginNextToon=true;a={") sendMacro("Logout();"); waitForLoadingScreen(); loadPaths("gobs try 2"); elseif When_Finished == "charlist" then SetCharList(CharList) LoginNextChar() loadPaths("gobs try 2"); elseif When_Finished == "end" then error("Ending script",2) else if not string.find(When_Finished,".", 1, true) then When_Finished = When_Finished .. ".xml" end local filename = getExecutionPath() .. "/waypoints/" .. When_Finished local file, err = io.open(filename, "r"); if file then file:close(); loadPaths(When_Finished) else error("'When_Finished' option is invalid",0) end end end ------------------- function getTreasureChest() i=nil; shellsBefore=inventory:getItemCount(240181); repeat if i==nil then i=1 end player:update(); local tChest = player:findNearestNameOrId(113137); if tChest~=nil then printf("Chest found."); else printf("Chest not found. This was "..i.." of "..n.." tries."); keyboardHold(key.VK_SPACE); yrest(999); keyboardRelease(key.VK_SPACE); i=i+1; end shellsAfter=inventory:getItemCount(240181); until ((tChest~=nil) or (i>=10) or (shellsAfter>shellsBefore)) repeat player:target_Object(113137,3000,nil,true) player:update() until not player.Casting printf("Chest opens. continuing.\n"); changeProfileOption("MAX_TARGET_DIST", 17); CLEAR=true; changeProfileOption("LOOT", false); fly(); end ----------- function sysCheck(phrase) repeat local time, moreToCome, msg = EventMonitorCheck("sys") if msg==nil then return false elseif string.find(msg,phrase) then return true end until moreToCome==false return false end --------------- --fire - Raging Elemental 102099 --air Howling Elemental 102098 ; lastOne = player:findNearestNameOrId(102098); --earth Fortifying Elemental 102100 --water Surging Elemental 102101 function lastAttack(elementalID) if elementalID~=nil then local lastOne = player:findNearestNameOrId(elementalID); if lastOne~=nil then player:target(lastOne); for i=1,5 do Attack(); printf("lastAttack\n"); yrest(999); end end end end --------------------- function clearIgnored() player.Last_ignore_target_ptr=nil; return end -- Default 10 secs is too long. Bot can pass a mob and then the chest will not spawn. registerTimer("clearIgnored", secondsToTimer(2), clearIgnored); ------------ function oneHiter() if MY_CHAR_IS_VERY_STRONG==true then return end; --[[ If not all of your attacking skills will 1-hit a mob then you should disable those weak skills and leave only the strong skills + healing/buffing skills Example below cheks if your class is a Mage and then disables all skils and then enables only Flame skill (the strongest) and healing skills You must adjust this code to suit your character's skills/classes ]] repeat myClass=RoMScript("UnitClass('player')"); until myClass if myClass=="Mage" then local myOneHitSkills={"MAGE_FLAME","PRIEST_URGENT_HEAL","PRIEST_REGENERATE","PRIEST_HOLY_AURA"} for k,v in pairs(settings.profile.skills) do for l,m in pairs(myOneHitSkills) do --printf(v.Name) if v.Name==m then printf(v.Name.."=true\n") v.AutoUse = true; break; else v.AutoUse = false; end end end elseif myClass=="Rogue" then local myOneHitSkills={} --put here your best skill for k,v in pairs(settings.profile.skills) do for l,m in pairs(myOneHitSkills) do if v.Name==m then printf(v.Name.."=true\n") v.AutoUse = true; break; else v.AutoUse = false; end end end end end __WPL:setDirection(WPT_FORWARD); if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; changeProfileOption("MAX_TARGET_DIST", 100); if sysCheck(langString.fire[myLang])==true then getTreasureChest(); else CLEAR=false; changeProfileOption("LOOT", true); __WPL:setDirection(WPT_BACKWARD); end __WPL:setDirection(WPT_FORWARD); oneHiter(); changeProfileOption("MAX_TARGET_DIST", 170); if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; if CLEAR==false then lastAttack(102100) end; changeProfileOption("MAX_TARGET_DIST", 100); if sysCheck(langString.earth[myLang])==true then getTreasureChest(); else CLEAR=false; __WPL:setDirection(WPT_BACKWARD); end __WPL:setDirection(WPT_FORWARD); changeProfileOption("MAX_TARGET_DIST", 170); if CLEAR==false then lastAttack(102101) end; if CLEAR==false then lastAttack(102101) end; if CLEAR==false then lastAttack(102101) end; if CLEAR==false then lastAttack(102101) end; if CLEAR==false then lastAttack(102101) end; if CLEAR==false then lastAttack(102101) end; if CLEAR==false then lastAttack(102101) end; if CLEAR==false then lastAttack(102101) end; if CLEAR==false then lastAttack(102101) end; changeProfileOption("MAX_TARGET_DIST", 100); if sysCheck(langString.water[myLang])==true then getTreasureChest(); else CLEAR=false; __WPL:setDirection(WPT_BACKWARD); end __WPL:setDirection(WPT_FORWARD); changeProfileOption("MAX_TARGET_DIST", 170); if CLEAR==false then lastAttack(102098) end; if CLEAR==false then lastAttack(102098) end; if CLEAR==false then lastAttack(102098) end; if CLEAR==false then lastAttack(102098) end; if CLEAR==false then lastAttack(102098) end; if CLEAR==false then lastAttack(102098) end; if CLEAR==false then lastAttack(102098) end; if CLEAR==false then lastAttack(102098) end; if CLEAR==false then lastAttack(102098) end; if CLEAR==false then lastAttack(102098) end; if CLEAR==false then lastAttack(102098) end; changeProfileOption("MAX_TARGET_DIST", 100); if sysCheck(langString.wind[myLang])==true then getTreasureChest(); else CLEAR=false; __WPL:setDirection(WPT_BACKWARD); end __WPL:setDirection(WPT_FORWARD); changeProfileOption("MAX_TARGET_DIST", 170) if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; if CLEAR==false then lastAttack(102099) end; changeProfileOption("MAX_TARGET_DIST", 100); if sysCheck(langString.circle[myLang])==true then CLEAR=true; else CLEAR=false; __WPL:setDirection(WPT_BACKWARD); end fly(); __WPL:setDirection(WPT_FORWARD); HammertoothIsInTheHouse=true --added to make hammertooth always there if HammertoothIsInTheHouse==nil then HammertoothIsInTheHouse=false end if HammertoothIsInTheHouse==true then for i=1,5 do player:target_NPC({102200,113245}); -- Sirius Hammertooth/Hammerzahn --player:target_NPC("Sirius Hammertooth"); end sendMacro("ChoiceOption(1);"); yrest(1111); sendMacro("ChoiceOption(1);"); HammertoothIsInTheHouse=false; __WPL:setDirection(WPT_BACKWARD); else flyoff(); unregisterTimer("clearIgnored"); EventMonitorStop("sys"); RoMScript("StaticPopup_OnClick(StaticPopup1, 1);");--this line is copied from botromka's script :) waitForLoadingScreen(); checkRelog(); end