--=== Version 5.1 ===--
settings.profile.events.onDeath = function()
RoMScript("BrithRevive();");
waitForLoadingScreen();
yrest(3000)
sendMacro("LeaveParty();");
player:update();
__WPL:setWaypointIndex(__WPL:findWaypointTag("rerun"));
end
setwindow("gold")
ToPancer = 1
changeProfileOption("LOOT_SIGILS", false)
changeProfileOption("INV_AUTOSELL_ENABLE",true)
changeProfileOption("LOOT_ALL", false)
changeProfileOption("LOOT", false)
changeProfileOption("COMBAT_TYPE", "melee")
for i, skill in pairs(settings.profile.skills) do
if skill.Name == "MAGE_PURGATORY_FIRE" then
settings.profile.skills[i].AutoUse = true
end
if skill.Name == "MAGE_FLAME" then
settings.profile.skills[i].AutoUse = false
end
if skill.Name == "MAGE_PLASMA_ARROW" then
settings.profile.skills[i].AutoUse = true
end
end
function bagcheck()
if inventory:itemTotalCount(0) == 0 then
sendMacro("LeaveParty();");
waitForLoadingScreen();
yrest(3000)
player:update();
__WPL:setWaypointIndex(__WPL:findWaypointTag("rerun"));
end
end
function unStick3()
if getZoneId() == 6 then
__WPL:setForcedWaypointType("RUN")
else
sendMacro("LeaveParty();");
waitForLoadingScreen();
yrest(3000)
player:update();
__WPL:setWaypointIndex(__WPL:findWaypointTag("rerun"));
end
end
function CleanBagKS()
for i, item in pairs(inventory.BagSlot) do
if item.SlotNumber >= settings.profile.options.INV_AUTOSELL_FROMSLOT + 60 and
settings.profile.options.INV_AUTOSELL_TOSLOT + 60 >= item.SlotNumber then
if item:isType("Runes") or item:isType("Monster Cards") then
item:delete()
end
if ( item:isType("Weapons") or item:isType("Armor") ) and (100 > item.Worth and 3 > item.Quality) then
item:delete()
end
if item:isType("Production Runes") then
item:delete()
end
if item:isType("Potions") and (45 > item.RequiredLvl and item.RequiredLvl > 10) then
item:delete()
end
end
end
end
changeProfileOption("QUICK_TURN", true)
changeProfileOption("MAX_TARGET_DIST", 100);
changeProfileOption("USE_PHIRIUS_POTION", true);
CleanBagKS()
bagcheck()
bagcheck()
bagcheck()
changeProfileOption("LOOT_ALL", true)
changeProfileOption("LOOT", true)
CleanBagKS()
bagcheck()
bagcheck()
CleanBagKS()
bagcheck()
changeProfileOption("LOOT_ALL", false)
changeProfileOption("LOOT", false)
bagcheck()
bagcheck()
bagcheck()
CleanBagKS()
bagcheck()
bagcheck()
bagcheck()
bagcheck()
bagcheck()
bagcheck()
bagcheck()
CleanBagKS()
bagcheck()
bagcheck()
CleanBagKS()
bagcheck()
bagcheck()
changeOptionFriendMob("friend", "Iron Rune Warrior", "Add")
fly()
flyoff()
changeProfileOption("MAX_TARGET_DIST", 110);
changeProfileOption("MAX_TARGET_DIST", 150); bagcheck()
changeProfileOption("LOOT_ALL", true)
changeProfileOption("LOOT", true)
changeProfileOption("MAX_TARGET_DIST", 110);
bagcheck()
changeProfileOption("LOOT_ALL", false)
changeProfileOption("LOOT", false)
changeProfileOption("LOOT_ALL", true)
changeProfileOption("LOOT", true)
changeProfileOption("LOOT_ALL", false)
changeProfileOption("LOOT", false)
yrest(1000)
sendMacro("LeaveParty();");
waitForLoadingScreen();
yrest(3000)
player:update();
__WPL:setWaypointIndex(__WPL:findWaypointTag("rerun"));
if not player:hasBuff(506841) then
inventory:useItem(202879);
yrest(5000)
SlashCommand("ILG inv")
else
SlashCommand("ILG inv")
end
yrest(3000)
if GetPartyMemberName(1) == "" then player:sleep() end --invite didn't work, other char must have disconnected
yrest(1000)
player:mount();
player:update()
if not player.Mounted then
inventory:useItem(203033)
yrest(2000)
inventory:update()
player:mount();
end
changeProfileOption("LOOT_ALL", false)
changeProfileOption("LOOT", false)
if ToPancer == 1 then
__WPL:setWaypointIndex(__WPL:findWaypointTag("Pancer1"));
end
if ToPancer == 2 then
__WPL:setWaypointIndex(__WPL:findWaypointTag("Pancer2"));
end
changeProfileOption("HARVEST_DISTANCE", 200);
yrest(100);
if inventory:itemTotalCount(0) == 0 then -- make sure to get pet xtras
player:merchant("Pancer");
yrest(100);
end
player:merchant("Pancer");
yrest(100);
ToPancer = 1
__WPL:setWaypointIndex(__WPL:findWaypointTag("toKS"));
changeProfileOption("HARVEST_DISTANCE", 200);
yrest(100);
if inventory:itemTotalCount(0) == 0 then -- make sure to get pet xtras
player:merchant("Pancer");
yrest(100);
end
player:merchant("Pancer");
yrest(100);
ToPancer = 1
__WPL:setWaypointIndex(__WPL:findWaypointTag("toKS"));
changeProfileOption("USE_PHIRIUS_POTION", false);
player:mount();
changeProfileOption("QUICK_TURN", false)
repeat
waitForLoadingScreen(20);
if getZoneId() == 6 then
__WPL:setWaypointIndex(__WPL:findWaypointTag("enter"));
end
until getZoneId() ~= 6
yrest(3000)