1 ) do
RoMScript("LeaveParty()")
yrest(2000)
end
for i = 1, 3 do
if( RoMScript("GetNumPartyMembers()") < 2 ) then
RoMScript("InviteByName('"..joinname.."')")
printf("Waiting for party join...\n")
end
yrest(2000)
if RoMScript("GetNumPartyMembers()") > 1 then
break
end
if i == 3 then
error("Party join failed!",0)
end
end
else
while RoMScript("GetNumPartyMembers()") > 1 do
SlashCommand("ILG destroy")
cprintf(cli.yellow,"ILG destroy\n")
yrest(2000)
end
SlashCommand("ILG inv")
cprintf(cli.yellow,"ILG inv\n")
yrest(2000)
if RoMScript("GetNumPartyMembers()") <= #DOD_PARTY_MEMBERS then
for i = 1, #DOD_PARTY_MEMBERS do
cprintf(cli.yellow,"Inviting "..DOD_PARTY_MEMBERS[i].."\n")
RoMScript("InviteByName('"..DOD_PARTY_MEMBERS[i].."')")
yrest(2000)
end
end
end
RoMScript("SetInstanceLevel('normal')")
end
function waitForParty()
repeat
local we_ready = true
player:update()
for i = 1, #DOD_PARTY_MEMBERS do
local _partymember = player:findNearestNameOrId(DOD_PARTY_MEMBERS[i])
if not _partymember or (_partymember and distance(player.X,player.Z,player.Y,_partymember.X,_partymember.Z,_partymember.Y) > 150) then
we_ready = false
cprintf(cli.lightred,"Waiting for "..DOD_PARTY_MEMBERS[i].."\n")
end
end
yrest(2000)
until we_ready
cprintf(cli.lightgreen,"Party is ready!\n")
end
function ApplyPots()
useGoodie("speed") -- Unbridled Enthusiasm
useGoodie("casting") -- Clear Thought
useGoodie("luck") --Turn of Luck Powder Dust
useGoodie("defense") --Scarlet Love
useGoodie("godspeed") --Godspeed
useGoodie("pdmg") -- Housekeeper Special Salted Fish with Sauce
useGoodie("critp") -- Housekeeper Special Caviar Sandwich
useGoodie("patt2") -- Housekeeper Special Spicy Meatsauce Burrito
useGoodie("patt3") -- Housekeeper Special Unimaginable Salad
end
function CountObjectsNearPoint(_nameorid, _point, inrange, printnames)
if type(_point) ~= "table" then _point = {player.X,player.Z,player.Y} end
local objectList = CObjectList();
local detected = {}
objectList:update()
for i = 0,objectList:size() do
local obj = objectList:getObject(i)
if obj ~= nil and (obj.Id == _nameorid or obj.Name == _nameorid) and obj.Address ~= player.Address and obj.Name ~= "" and (inrange == nil or inrange >= distance(_point.X,_point.Z,_point.Y,obj.X,obj.Z,obj.Y) ) then
if printnames then
table.insert(detected,obj.Name)
end
end
end
if #detected > 0 then
cprintf(cli.yellow,"Objects in range:\n")
for i = 1, #detected do
cprintf(cli.pink,detected[i].."\t")
end
printf("\n")
end
return #detected
end
npcName = GetIdName(115536) -- Isaac Haden
function visitmerchant()
if inventory:getMainHandDurability() < 95 or inventory:itemTotalCount(0) < 12 then
return true
else
return false
end
end
mentos = 0
]]>
__WPL:setDirection(WPT_FORWARD)
if visitmerchant() then
__WPL:setWaypointIndex(11)
end
if not DOD_SOLO then waitForParty() end
__WPL:setForcedWaypointType("RUN")
autoInvite()
if not DOD_SOLO then sendPartyChat("enter") end
GoThroughPortal(200)
__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
if __WPL.Direction == WPT_BACKWARD then
__WPL:setForcedWaypointType("RUN")
GoThroughPortal(200)
player:update()
if getZoneId() ~= 209 then
if RoMScript("GetNumPartyMembers()") > 1 then
RoMScript("LeaveParty()")
waitForLoadingScreen(15)
else
RoMScript("SendWedgePointReport()")
waitForLoadingScreen(75)
end
__WPL:setDirection(WPT_FORWARD)
end
__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
else
ApplyPots()
if not DOD_SOLO then waitForParty() end
if not DOD_SOLO then sendPartyChat("ready") end
__WPL:setForcedWaypointType("NORMAL")
end
if __WPL.Direction == WPT_FORWARD then
mentos = inventory:itemTotalCount("Ancient Memento")
if not DOD_SOLO then
waitForParty()
sendPartyChat("okander")
end
end
if CountObjectsNearPoint("Okander") > 0 then
if not player.Battling then
yrest(250)
end
__WPL:setWaypointIndex(10)
else
__WPL:setDirection(WPT_BACKWARD)
repeat
yrest(500*math.random(4))
local okander = player:findNearestNameOrId("Okander")
if not okander then break end
player:target(okander)
player:update()
player:loot()
until inventory:itemTotalCount("Ancient Memento") > mentos
end
player:merchant(npcName)
RoMScript("CloseAllWindows()")
__WPL:setWaypointIndex(2)
__WPL:setForcedWaypointType("RUN")
player:mount()
GoThroughPortal(200)
__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
local jake = GetIdName(115572)
NPCTeleport(jake,"Please transport me.")
__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))