Sayild Library

        000001111111
        000001111111
        00000
        00000
        00000
111     00000
111111111
111111111
111111111
--[[
Name: Sayild's Library
Author: Sayild
Version: 1.0.0 (updated 14/09/2012)
Last Changes: nothing at moment
--]]

-- [ Potions cust session ] --
Item = Item or {}

function Item.MpCust()
local a = itemcost('mana potion')
        return a
end

function Item.HpCust()
local b = itemcost('health potion')
        return b
end

function Item.ShpCust()
local c = itemcost('strong health potion')
        return c
end

function Item.SmpCust()
local d = itemcost('strong mana potion')
        return d
end

function Item.GhpCust()
local e = itemcost('great health potion')
        return e
end

function Item.GmpCust()
local f = itemcost('great mana potion')
        return f
end

function Item.GspCost()
local g = itemcost('great spirit potion')
        return g
end

function Item.UhpCust()
local m = itemcost('ultimate health potion')
        return m
end

-- [ End of Potions.Cust session ] --

-- ____________________________________ --

-- [ Bot Functions] --

Self = Self or {}

function Self.Travel(city, npc)
local city = city or nill
local npc = npc or nill
reachcreature(npc)
say('hi')
wait(500,1000)
npcsay(city)
wait(500,1000)
npcsay('yes')
end

function Self.poxRemove()
if poisoned and cancast('exana pox') then
        wait(500)
                cast('exana pox')
        end
end

function Item.refillSoft()
say('hi')
wait(1000)
        while itemcount(6530) > 0 do
                npcsay('repair')
                        wait(1000)
                npcsay('yes')
                end
end

function Self.ScreenAdvance()
local index = 0
local msgs = getmessages('Server Log')
local qtd = msgs.count-1
for i=0,qtd do
   if msgs[qtd].text:find('You advanced') then
                screenshot(name.."advance to"..level)
      break
   end
end
end

function Self.Withdraw(qtd)
local qttd = qtd or nill
        npcsay('withdraw '..qttd)
                wait(1000, 1200)
        npcsay('yes')
end

function Self.MasVis()
if mp > 610 and cancast('exevo gran mas vis') then
        cast('exevo gran mas vis')
                wait(45000)
        end
end

function Self.MasFrigo()
if mp > 1060 and cancast('exevo gran mas frigo') then
        cast('exevo gran mas frigo')
                wait(45000)
        end
end

function Self.OpenDepot()
reachgrounditem("depot")
        wait(1000,2000)
                openitem("depot")
        wait(700,900)
                openitem(3502, "locker")
end

function Item.MoveSupplies(suptomove, bptomove, qtd)
local suptomovee = suptomove
local bptomovee = bptomove
local qttd = qtd

while itemcount(suptomovee) > 0 do
        moveitems(suptomovee, "all", bptomovee, qttd)
                wait(1000, 1500)
end

function Self.Bank()
local index = 0
local msgs = getmessages("NPCs")
local qtd = msgs.count-1
for i=0,qtd do
   if msgs[qtd].text:find('There is not enough gold on your account.') then
      setcavebot('off')
      wait(5000,10000)
      closetibia()
   end
end
end

function Self.OpenDoor(idofdoor, x,y,z) -- Credits to Nightcrawler.
local x = x
local y = y
local z = z
local id = id

if toptileitem(x, y, z) == id then
  while toptileitem(x, y, z) == id do
    useitem(id, x, y, z)
    wait(1000)
  end
end
end

function Item.FirewalkerRefill()
if itemcount("worn firewalker boots") > 0 and itemcount("small enchanted ruby") > 0 then
        useitemon("small enchanted ruby", "worn firewalker boots", MainBP)
                wait(200, 400)
        end
end

function Self.BreakSilks(weaponuse,x,y,z) -- Credits to Nosekim
local X = x
local Y = y
local Z = z
local weaponTOuse = weaponuse

local Break = { 183, 2295, 2296, 7538, 7539 }
while toptileitem(X,Y,Z) ~= 183 and toptileitem(X,Y,Z) ~= 189 do
moveitems(toptileitem(X,Y,Z), ground(X,Y,Z), ground(posx,posy,posz), 100)
wait(500)
toptileitem(X,Y,Z)
end

for i,j in pairs(Break) do
   while toptileitem(X,Y,Z) == Break[i] do
      useitemon(weaponTOuse,X,Y,Z)
      wait(400,500)
   end
end
end

function Item.OpenBps(...)
        local bps = {...}
        for i,j in ipairs(bps) do
                openitem(j[1],j[2],j[3],j[4])
                wait(1000)
                resizewindows()
        end
end

function Self.RingEquip(ringtoequip)
local ringtoequip = ringtoequip
if itemcount(ringtoequip) > 0 then
        wait(1000)
                moveitems(ringtoequip, "all", 'ring', 1)
                        wait(1000)
                                end
end

function Self.AmuletEquip(amuletforequip)
local amuletforequip = amuletforequip
if itemcount(amuletforequip) > 0 then
        wait(1000)
                moveitems(amuetforequip, "all", 'amulet', 1)
                        wait(1000)
                                end
end

Sistem = Sistem or {}

function Sistem.CheckAllEngines()
if cavebot == false or looting == false or targeting == false then
        setcavebot('on')
                wait(1000)
        setlooting('on')
                wait(1000)
        settargeting('on')
        end
end

function Item.ItemCount(itemid)
local itemid = itemid
local counter = servercountitem(itemid)
        return counter
end

function Self.TradeSpeak(message)
local messagee = message
local index = 0
        say(message, "Trade")
                wait(130000)
end

function Self.PlayersAround()
local check = paround(12, true)
        return check
end

function Self.Exori(world, ammount, monstertouse, hotkey)
local world = world
local ammount = ammount
local monstertouse = monstertouse
local hotkey = hotkey

if world == ('pvp') then
        if paround(10, true) == 0 and maround(1, monstertouse) >= ammount then
                hotkey(hotkey)
                end
end
if world == ('opt-pvp') then
        if maround(1, monstertouse) >= ammount then
                hotkey(hotkey)
                end
        end
end

function Self.FollowCreature(name)
local name = name or nill
        followcreature(name)
        end

function Self.RenewAmulet(amuletname)
local amuletname = amuletname or nill
if itemcount(amuletname) >=1 then
        if amulet ~= amuletname then
                moveitems(amuletname, "all", "amulet", 1)
                end
        end
end

function Self.RenewRing(ringname, backpack)
local ringname = ringname or nill
local bp = backpack
if itemcount(ringname) >=1 and not pzone then
        if ring ~= ringname then
                moveitems(ringname, "all", "ring", 1)
        else
                moveitems(ringname, "ring", bp, 1)
                end
        end
end

function Self.RenewMagicShield()
if not manashielded and mp > 55 and not pzone and cancast('utamo vita') then
        cast('utamo vita')
                wait(200000)
        end
end

function Self.Haste()
if not pzone and not hasted and mp >= 65 and cancast('utani hur') then
        cast('utani hur')
                wait(35000)
        end
end

function Self.StrongHaste()
if not pzone and not hasted and mp >= 105 and cancast('utani gran hur') then
        cast('utani hur')
                wait(24000)
        end
end

function Self.StaminaLow()
if pzone and not battlesigned and stamina < 860 then
        wait(1000)
                setcavebot('off')
                        wait(5000)
                                closetibia()
        end
end