= 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 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
changeProfileOption("WAYPOINT_DEVIATION", 25)
__WPL:setWaypointIndex(__WPL:findWaypointTag("merchant"))
end
changeProfileOption("WAYPOINT_DEVIATION", 75)
changeProfileOption("WAYPOINT_DEVIATION", 0)
player:faceDirection(math.atan2(-5124 - player.Z, 1667 - player.X))
waitForLeader()
__WPL:setForcedWaypointType("RUN")
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()
waitForLeader()
__WPL:setForcedWaypointType("TRAVEL")
end
fly()
__WPL:setForcedWaypointType("TRAVEL")
teleportToWP()
teleportToWP()
teleportToWP()
flyoff()
teleportToWP()
if __WPL.Direction == WPT_FORWARD then
waitForMain()
mentos = inventory:itemTotalCount("Ancient Memento")
end
__WPL:setForcedWaypointType("NORMAL")
changeProfileOption("LOOT_ALL",true)
changeProfileOption("LOOT",true)
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))