= settings.profile.options.INV_AUTOSELL_FROMSLOT + 60 and settings.profile.options.INV_AUTOSELL_TOSLOT + 60 >= item.SlotNumber then if item:isType("Materials") then item:delete() end if item:isType("Arrows") then item:delete() end if item:isType("Projectiles") then item:delete() end if ( item:isType("Weapons") or item:isType("Armor") ) and (1000 > item.Worth and 5 > item.Quality)then item:delete() end if item:isType("Equipment Enhancement") then item:delete() end if item.Name == "Wild Boar Meat" then item:delete() end if item:isType("Potions") then item:delete() end end end end function autoInvite() if DOD_SOLO then while ( RoMScript("GetNumPartyMembers()") > 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(500) until we_ready cprintf(cli.lightgreen,"Party is ready!\n") end function ApplyPots() if Magic_Tambourine == true then if inventory:itemTotalCount(204463) >= 1 then inventory:useItem(204463) -- 3 days yrest(5500) elseif inventory:itemTotalCount(204571) >= 1 then inventory:useItem(204571) -- 7 days yrest(5500) elseif inventory:itemTotalCount(206420) >= 1 then inventory:useItem(206420) -- 30 days yrest(5500) end elseif Magic_Tambourine == party_true then yrest(5500) end if Magic_Guitar == true then if inventory:itemTotalCount(204461) >= 1 then inventory:useItem(204461) -- 3 days yrest(5500) elseif inventory:itemTotalCount(206418) >= 1 then inventory:useItem(206418) -- 7 days yrest(5500) elseif inventory:itemTotalCount(204569) >= 1 then inventory:useItem(204569) -- 30 days yrest(5500) end elseif Magic_Tambourine == party_true then yrest(5500) end changeProfileSkill("MAGE_FLAME", "AutoUse", true); changeProfileSkill("MAGE_FIREBALL", "AutoUse", true); changeProfileSkill("MAGE_FLAME", "Priority", 90); changeProfileSkill("MAGE_FIREBALL", "Priority", 100); useGoodie("mdmg1"); useGoodie("mdmg2"); useGoodie("mdmg1"); useGoodie("casting"); useGoodie("speed"); useGoodie("matt1"); useGoodie("matt2"); useGoodie("matt3"); useGoodie("defense"); player:cast("MAGE_ESSENCE_OF_MAGIC"); player:cast("PRIEST_MAGIC_BARRIER"); player:cast("MAGE_ENERGY_INFLUX"); player:cast("MAGE_ELECTROSTATIC_CHARGE"); player:cast("MAGE_INTENSIFICATION"); player:cast("MAGE_ELEMENTAL_CATALYSIS"); player:cast("PRIEST_REGENERATE"); end function trash_boss() local target = player:getTarget() local _tb = false local spawnboss = player:findNearestNameOrId("Okander \"Mad Man\" Mallen") if spawnboss then ApplyPots() player:target(spawnboss) cprintf(cli.pink, "!!! Papatayin kita hayop ka !!!\n") if target.HP > 0 then player:update(); player:cast("MAGE_FLAME"); yrest(500); cprintf(cli.pink, "Kame Hame Wave!!!\n") if( arg1.Name == "MAGE_FLAME" ) then player:cast("MAGE_FLAME"); cprintf(cli.pink, "Kame Hame Wave!!!!!\n") end player:cast("MAGE_FLAME"); yrest(500); cprintf(cli.pink, "Kame Hame Wave!!!\n") player:cast("MAGE_FLAME"); yrest(500); keyboardPress( key.VK_1 ); _tb = false else _tb = true end else _tb = true end return _tb 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(__WPL:findWaypointTag("merchant")) 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 if not DOD_SOLO then waitForParty() end if not DOD_SOLO then sendPartyChat("ready") end __WPL:setForcedWaypointType("TRAVEL") end fly() __WPL:setForcedWaypointType("TRAVEL") teleportToWP() teleportToWP() teleportToWP() flyoff() teleportToWP() CleanBagDOD() __WPL:setForcedWaypointType("NORMAL") settings.profile.friends = {"Incomplete Bloody Beast"} changeProfileOption("LOOT_ALL",true) changeProfileOption("LOOT",true) 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(__WPL:findWaypointTag("okander")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("out")) 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 settings.profile.friends = {"Incomplete Bloody Beast"} useGoodie("godspeed"); CleanBagDOD() fly() teleportToWP() teleportToWP() teleportToWP() teleportToWP() flyoff() speed(73) GoThroughPortal(200) player:update() local zoneid = RoMScript("GetZoneID()") if zoneid == zid then ireset() waitForLoadingScreen() __WPL:setWaypointIndex(__WPL:findWaypointTag("return")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("start")) end CleanBagDOD() local bcount = inventory:getItemCount(0) player:update() player:merchant(115536) --== no more works on Chapter IV ==-- yrest(500) local cbcount = inventory:getItemCount(0) if bcount == cbcount then if player:openStore(115536) then 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 item:use() -- sells it to the store end end end end __WPL:setWaypointIndex(__WPL:findWaypointTag("start")) __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))