1 ) do RoMScript("LeaveParty()") yrest(2000) end for i = 1, 3 do if( RoMScript("GetNumPartyMembers()") < 2 ) then RoMScript("InviteByName('"..DOD_SOLO_JOIN_NAME.."')") 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(_checkdist) local warncount = 0 repeat local we_ready = true cprintf(cli.lightred,"\nWaiting for:\t") for i = 1, #DOD_PARTY_MEMBERS do local _partymember = player:findNearestNameOrId(DOD_PARTY_MEMBERS[i]) if _checkdist then if not _partymember or (_partymember and distance(player.X,player.Z,player.Y,_partymember.X,_partymember.Z,_partymember.Y) > _checkdist) then we_ready = false cprintf(cli.lightred,DOD_PARTY_MEMBERS[i].."\t") end else if not _partymember then we_ready = false cprintf(cli.lightred,DOD_PARTY_MEMBERS[i].."\t") end end end printf("\n") yrest(2000) player:update() warncount = warncount + 1 if warncount > 10 and not we_ready then printf("\a") end until we_ready cprintf(cli.lightgreen,"Party is ready!\n") end function lootBoss(_nameOrId) local mentos = inventory:itemTotalCount(206879) local boss = player:findNearestNameOrId(_nameOrId) if boss then repeat yrest(500*math.random(4)) boss = player:findNearestNameOrId(_nameOrId) if not boss then break end player:target(boss) player:update() Attack() printf("Looting...\n") yrest(1000) player:update() until inventory:itemTotalCount(206879) > mentos or inventory:itemTotalCount(206879) > 2993 end cprintf(cli.lightgreen,GetIdName(206879)..": ") cprintf(cli.yellow,tostring(inventory:itemTotalCount(206879)).."\n") end function GoThroughPortalDialog(_range,_portalid) GoToPortal(_range,_portalid) yrest(500) local acceptPortal = RoMScript("StaticPopup_Visible('SET_REQUESTDIALOG')") if acceptPortal then RoMScript("StaticPopup_EnterPressed("..acceptPortal..")") waitForLoadingScreen(15) yrest(3000) player:update() end __WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y)) 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 useGoodie("matt3") end function PingCheck(_ping,_wait) if _ping == nil or type(_ping) ~= "number" then _ping = 250 end local cur_ping = RoMScript("GetPing()") repeat if cur_ping > _ping then if _wait then cprintf(cli.yellow,"Ping is "..cur_ping.."...waiting for 5 seconds.\n") yrest(5000) cur_ping = RoMScript("GetPing()") else cprintf(cli.yellow,"Ping is "..cur_ping..".\n") return true end else return false end until cur_ping <= _ping end npcName = GetIdName(115536) -- Isaac Haden function visitmerchant() while inventory:getMainHandDurability() < 95 or inventory:itemTotalCount(0) < 12 do player:merchant(npcName) inventory:update() player:clearTarget() RoMScript("CloseAllWindows()") yrest(500) end end startGMDetect() if getZoneId() == 127 or getZoneId() == 128 then -- we pretty much always fly in DoD, so turn on fly hack if waypoint is started in DoD fly() end boss1 = GetIdName(103169) -- Okander "Mad Man" Mallen boss2 = GetIdName(103170) -- Experiment No.81 boss3 = GetIdName(103153) -- Experiment No.203 boss4 = 103171 -- Prototype No. 114 boss5 = GetIdName(103155) -- Maxim Erekat III ]]> __WPL:setDirection(WPT_FORWARD) visitmerchant() if not DOD_SOLO then waitForParty() end __WPL:setForcedWaypointType("RUN") autoInvite() if not DOD_SOLO then sendPartyChat("enter") end GoThroughPortal() __WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y)) PingCheck(250,true) ApplyPots() if not DOD_SOLO then waitForParty() end if not DOD_SOLO then sendPartyChat("ready") end __WPL:setForcedWaypointType("NORMAL") PingCheck(250,true) if not DOD_SOLO then waitForParty(100) sendPartyChat("boss") end lootBoss(boss1) if not DOD_SOLO then waitForParty(100) sendPartyChat("ready") end __WPL:setForcedWaypointType("RUN") fly() __WPL:setForcedWaypointType("NORMAL") flyoff() ApplyPots() PingCheck(250,true) if not DOD_SOLO then waitForParty(100) sendPartyChat("boss") end lootBoss(boss2) if not DOD_SOLO then waitForParty(100) sendPartyChat("ready") end __WPL:setForcedWaypointType("RUN") fly() __WPL:setForcedWaypointType("NORMAL") flyoff() ApplyPots() PingCheck(250,true) if not DOD_SOLO then waitForParty(100) sendPartyChat("boss") end lootBoss(boss3) if not DOD_SOLO then waitForParty(100) sendPartyChat("ready") end __WPL:setForcedWaypointType("RUN") fly() __WPL:setForcedWaypointType("NORMAL") flyoff() ApplyPots() PingCheck(250,true) if not DOD_SOLO then waitForParty(100) sendPartyChat("boss") end lootBoss(boss4) if not DOD_SOLO then waitForParty(100) sendPartyChat("ready") end __WPL:setForcedWaypointType("RUN") fly() __WPL:setForcedWaypointType("NORMAL") flyoff() ApplyPots() PingCheck(250,true) if not DOD_SOLO then waitForParty(100) sendPartyChat("boss") end lootBoss(boss5) GoThroughPortalDialog(300,103889) -- need to use id as there are fake portals in last boss room __WPL:setForcedWaypointType("RUN") player:mount() GoThroughPortal() __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))