--=== User Options ===--
-- When_Finished = "charlist"
When_Finished = "charlist"
-- "end" to end script, "relog" to log next character and "waypointfilename" to load that waypointfile.
CharList = {
{account=31,chars={1}},
{account=26,chars={1}},
{account=37,chars={1}},
{account=38,chars={1}},
{account=32,chars={2}},
}
-- 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}},
-- }
--====================--
changeProfileOption("MAX_TARGET_DIST", 10);
function checkRelog()
if When_Finished == "relog" then
sendMacro("}LoginNextToon=true;a={")
sendMacro("Logout();");
waitForLoadingScreen();
loadPaths("cot_tele");
elseif When_Finished == "charlist" then
SetCharList(CharList)
LoginNextChar()
loadPaths("daylieStart");
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", _combat);
end
_combat = settings.profile.options.COMBAT_DISTANCE
__WPL:setForcedWaypointType("RUN")
fly()
teleportToWP("wall1")
teleportToWP("wall2")
flyoff()
yrest(500);
keyboardPress(settings.hotkeys.JUMP.key);
yrest(500);
--waterElementStart
waterElement = GetIdName(102101);
evelyn = GetIdName(102102);
changeProfileOption("TARGET_LEVELDIF_BELOW", 40);
changeOptionFriendMob("mob", waterElement, "Add")
changeOptionFriendMob("mob", evelyn, "Add")
changeProfileOption("MAX_TARGET_DIST", _combat);
changeProfileOption("LOOT_ALL", false);
changeProfileOption("LOOT", false);
__WPL:setForcedWaypointType("NORMAL")
changeProfileOption("MAX_TARGET_DIST", 50);
getTreasureChest();
--windElementStart
windElement = GetIdName(102098);
changeOptionFriendMob("mob", windElement, "Add")
changeProfileOption("MAX_TARGET_DIST", 50);
getTreasureChest();
--fireElementStart
fireElement = GetIdName(102099);
changeOptionFriendMob("mob", fireElement, "Add")
changeProfileOption("MAX_TARGET_DIST", 50);
getTreasureChest();
--
--earthElementStart
earthElement = GetIdName(102100);
changeOptionFriendMob("mob", earthElement, "Add")
changeProfileOption("MAX_TARGET_DIST", 50);
getTreasureChest();
--checkForLastElement
if player:target_NPC({102200,113245}) then
sendMacro("ChoiceOption(1);");
yrest(1111);
sendMacro("ChoiceOption(1);");
end
RoMScript("StaticPopup_OnClick(StaticPopup1, 1);");--this line is copied from botromka's script :)
waitForLoadingScreen();
inventory:useItem(203487);
inventory:useItem(203487);
inventory:useItem(203487);
item = inventory:findItem("Master's Simple Repair Hammer")
if item then
item:moveTo("itemshop")
end
checkRelog();