TibiaScript Brasil

Dropar determinado item - iBot

2013-05-18T18:05:00.001-03:00


if Drophalberds == true then
moveitems("halberd",ground(posx,posy,posz),100)  
end

Checkar localização - iBot

2013-05-18T17:51:00.001-03:00


if not islocation()
then gotolabel("FalandoComBuddel") 
end

Trocar Spear/Assassin por Espada - iBot

2013-05-18T17:49:00.003-03:00

local ArmaPraUsar = "serpent sword"
local ArmaDePally = "spear"

if weapon ~= ArmaDePally and itemcount(ArmaDePally) >= 2 and maround(0) == 0
then moveitems(ArmaDePally, "all", "weapon", 100)
wait(1000)
elseif weaponamount <= 1 and maround(0) == 0
then moveitems(ArmaPraUsar, "all", "weapon", 100)
end

Hotkey Avançada: Soft Boots - iBot

2013-05-18T17:46:00.003-03:00

local CONFIG = {
DEFAULT_BOOTS = "boots of haste",
CONSIDER_TYPE = mppc,
CONSIDER_EQUIP = {48, 52},
CONSIDER_UNEQUIP = {88, 92},
}

-- ENGINE
-- DON'T CHANGE NOTHING BELOW THIS LINE

local SCRIPT = SCRIPT or {
NAME = "Soft Boots Changer",
VERSION = "1.0",
}

CONFIG.DEFAULT_BOOTS = Item.GetID(CONFIG.DEFAULT_BOOTS, 1)

local RANDOM_EQUIP = math.random(CONFIG.CONSIDER_EQUIP[1], CONFIG.CONSIDER_EQUIP[2])
local RANDOM_UNEQUIP = math.random(CONFIG.CONSIDER_UNEQUIP[1], CONFIG.CONSIDER_UNEQUIP[2])

if Boots.ID() == 3549 and (Self.isInProtectionZone() or CONFIG.CONSIDER_TYPE >= RANDOM_UNEQUIP) then
if itemcount(CONFIG.DEFAULT_BOOTS) > 0 then
Self.EquipBoots(CONFIG.DEFAULT_BOOTS)
wait(1100, 1200)
else
Self.UnequipItem("boots")
wait(1100, 1200)
end
elseif Boots.ID() == 6530 or Boots.ID() == 0 then
if CONFIG.CONSIDER_TYPE <= RANDOM_EQUIP and itemcount(6529) > 0 and (not Self.isInProtectionZone()) then
Self.EquipBoots(6529)
wait(1100, 1200)
elseif itemcount(CONFIG.DEFAULT_BOOTS) > 0 then
Self.EquipBoots(CONFIG.DEFAULT_BOOTS)
wait(1100, 1200)
elseif Boots.ID() > 0 then
Self.UnequipItem("boots")
wait(1100, 1200)
end
elseif Boots.ID() == CONFIG.DEFAULT_BOOTS and CONFIG.CONSIDER_TYPE <= RANDOM_EQUIP and itemcount(6529) > 0 and (not Self.isInProtectionZone()) then
Self.EquipBoots(6529)
wait(1100, 1200)
end

Precisa da library do Ropiderz e Sirmate!

Usar 'Exori' com 'X' bichos em volta - iBot

2013-05-18T17:44:00.000-03:00

local Creatures = {"eu", "tu", "ele"} -- Criaturas a considerar para usar Exori
local QtdExori = 3 -- Quantidade para usar Exori
local PVP = false -- true ou false

-- Engine
if maround(1, unpack(Creatures)) >= QtdExori and mp > 115 and cancast("Exori") and PVP == false then
cast("Exori")
elseif maround(1, unpack(Creatures)) >= QtdExori and mp > 115 and cancast("Exori") and PVP == true and paround(2) == 0 then
cast("Exori")
end

Alerta se o alvo for "healado" (Monstro) - iBot

2013-05-18T17:39:00.000-03:00

local lastid = 0
local lasthp = 0

if target.id ~= lastid then
lastid = target.id
lasthp = target.hppc
elseif target.hppc-lasthp <= 15 then
lasthp = target.hppc
else playsound("monster.wav")
end

Fechar Tibia se morrer e estiver no templo - iBot

2013-05-18T17:34:00.001-03:00

local ListTempleNpcs = {"Alia", "Tyrias", "Brewster", "Rahkem", "Kasmir", "Amanda", "Isimov", "Yberius", "Maealil", "Quentin", "Lynda", "Lorietta", "Prezil", "Kjesse", "Asralius"}

if ((pzone) and (maround(7, unpack(ListTempleNpcs)) >= 1))
then
wait(500)
closetibia()
end

Dropar item em cima de outro item - iBot

2013-05-18T17:31:00.001-03:00

local ItemDropped = 'parcel' --Nome do item q ta no chão
local ItemToDrop = 'label' --Nome do item pra dropar

reachgrounditem(ItemDropped)
wait(500,1000)
dropitems(itemid(ItemToDrop))

Atenção: so funciona se o primeiro item ja estiver no chão.

'Utani hur' se nao tiver monstro ou nao estiver em PZ zone - iBot

2013-05-17T21:56:00.003-03:00

if not hasted and not pzone and maround(7) == 0 then
cast("utani hur")
wait(1000)
end

Mudar de 'Loot afer all death' para 'Loot after kill' se dropar item raro - iBot

2013-05-17T21:54:00.002-03:00

--[[
Name: Change Loots Style if loot X item
Version: v1.0.0
Status: Working
Author: Sayild
]]--

-- [[ Items Configuration ]] --
-- // below you need set the items for change the style mode.

local item1 = 'gold coin'
local item2 = 'knight legs'
local item3 = 'crown armor'
local item4 = 'zaoan helmet'
local item5 = 'zaoan legs'
local item6 = 'zaoan armor'
local item7 = 'royal helmet'
local item8 = 'dragon scale mail'
local item9 = 'dragon slayer'
local item10 = 'boots of haste'

--// end of items configuration

local index = 0
local msgs = getmessages("Server Log")
local qtd = msgs.count-1
for i=0,qtd do
if msgs[qtd-i].type == 19 and msgs[qtd-i].text:find(item1) then
setsettings("Settings\\Looting\\Style", "After melee kill")
else
setsettings("Settings\\Looting\\Style", "After all death")
end
end

Ant - Push para iBot

2013-05-17T21:49:00.004-03:00

local itemdrop = 'gold coin' -- first antipush item
local itemdrop2 = 'worm' -- second antipush item
local itemdrop2id = 3492 -- id of your itemdrop2 item
local container = 'bag' -- name of your container with antipush

----- DON'T CHANGE BELOW! -----
if toptileitem(posx, posy, posz) ~= itemdrop2id then
moveitems(itemdrop, container, 'ground', 2)
wait(200,400)
moveitems(itemdrop2, container, 'ground', 2)
wait(200,400)
end

Usar 'Stealth Ring com' "X" bixo na tela - iBot

2013-05-17T21:46:00.002-03:00

if maround(7, "Minotaur Mage") >= 1 then
moveitems("stealth ring", "all", "ring", 1)
elseif maround(7, "Minotaur Mage") == 0 then
moveitems("stealth ring", "ring", "all", 1)
end

Alerta se tiver player morto na tela - iBot

2013-05-17T21:43:00.002-03:00

-- Alert Dead Human Body - Bad Robot Scripts - {by: JuvereOcules} --

-- Use at your scripts paid or not, but remember to give proper credit! - Use em seus scripts pagos ou não, mas lembre-se de dar os devidos créditos! --

local itemstocheck = {4240} -- ID of items to check - ID dos items a ser checados.
local n = 1 -- Number of items to check - Quantidade de Items a ser checados.

-------------------- Do not Change Below - Não Editar abaixo --------------------

local coordx = {...}
local coordy = {...}
local coordz = {...}
local check = {...}
local qtditem = {...}
local m = 0 or nill
local totalitems = 0 or nill

for i = -7, 7 do
for u = -7, 7 do
m = m + 1
coordx[m] = posx + i
coordy[m] = posy + u
coordz[m] = posz
for k = 1, n do
if toptileitem(coordx[m], coordy[m], coordz[m]) == itemstocheck[k] then
totalitems = totalitems + 1
if qtditem[k] ~= nill then
qtditem[k] = qtditem[k] + 1
else

Pegar itens do chão - iBot

2013-05-17T21:39:00.001-03:00

-- Pickup Items from Ground - Bad Robot Scripts - {by: JuvereOcules} --

-- Use at your scripts paid or not, but remember to give proper credit! - Use em seus scripts pagos ou não, mas lembre-se de dar os devidos créditos! --

local LootBP = "Orange Backpack" -- BP to loot Dead Human Body -- BP para pegar os items do Corpo.
local itemstocheck = {3031} -- ID of items to check - ID dos items a ser checados.
local n = 1 -- Number of items to check - Quantidade de Items a ser checados.

-------------------- Do not Change Below - Não Editar abaixo --------------------

local coordx = {...}
local coordy = {...}
local coordz = {...}
local check = {...}
local qtditem = {...}
local m = 0 or nill
local totalitems = 0 or nill

for i = -7, 7 do
for u = -7, 7 do
m = m + 1
coordx[m] = posx + i
coordy[m] = posy + u
coordz[m] = posz
for k = 1, n do
if toptileitem(coordx[m], coordy[m], coordz[m]) == itemstocheck[k] then
totalitems = totalitems + 1
if qtditem[k] ~= nill then
qtditem[k] = qtditem[k] + 1
else

Tirar uma foto quando o char morrer - iBot

2013-05-17T21:34:00.003-03:00

local printscreen = true

if hppc == 0 then
if (printscreen == true) then
screenshot()
end
printscreen = false
else
printscreen = true
end

Tirar foto se upar de level - iBot

2013-05-17T21:33:00.000-03:00

if currentLevel == nil then
currentLevel = level
end

if level > currentLevel then
screenshot()
wait(500,1000)
currentLevel = currentLevel+1
end

Curar de 'Paralize' só se nao tiver monstro ao redor - iBot

2013-05-17T21:28:00.002-03:00

if (paralyzed == true) and maround(5) == 0 and hppc >= 50 then
cast("exura ico")
wait(1000,1500)
end

Se mover se ficar 'trapado' - iBot

2013-05-17T21:23:00.001-03:00

if maround(7) > 0 and pzone == false and ((maround(1) == 0 and target.id > 0 and standtime >= 5000) or standtime >= 60000) then
local rand = math.random(1,8)
if (rand == 1) then move('w')
elseif (rand == 2) then move('e')
elseif (rand == 3) then move('n')
elseif (rand == 4) then move('s')
elseif (rand == 5) then move('nw')
elseif (rand == 6) then move('ne')
elseif (rand == 7) then move('sw')
elseif (rand == 8) then move('se')
end
wait(1000)
end

Hotkey para Reconect ( simples ) - iBot

2013-05-17T21:11:00.001-03:00

local accountName = "123456"
local password = "abcdef"
local characterName = "Character"

--DO NOT EDIT BELOW!

if (connected == false) then
while (connected == false) do
connect(accountName, password, characterName)
wait(3000,5000)
end
end

Auto Reconect - iBot

2013-05-17T20:58:00.001-03:00

--[[
Name: Auto Safe Reconnect by BlakW
Version: v4.0.0
]]--

--Reopen backpacks:
local reopenBps = ("yes")

--Main Backpack Name:
local mainBackpackName = ("Backpack of Holding")

--Loot Backpack Name:
local lootBackpackName = ("Blue Backpack")

--Supplies Backpack Name:
local supBackpackName = ("Green Backpack")

--Gold Backpack Name:
local goldBackpackName = ("Golden Backpack")

--Temple NPCs:
local templeNpcNames = {"Alia", "Tyrias", "Brewster", "Rahkem", "Kasmir", "Amanda", "Isimov", "Yberius", "Maealil", "Quentin", "Lynda", "Lorietta", "Prezil", "Kjesse", "Asralius"}

--Temple Position Range (sqm):
local templePositionRange = 7

if (connected == false)
then
reconnect()
wait(600, 1800)
pausewalking(10000)

Usar 'The Noxious Spawn' se envenenado - iBot

2013-05-17T20:21:00.002-03:00

local MainBp = 'Backpack of holding' --name of your main backpack
while poisoned do
moveitems("claw of 'The Noxious Spawn'",'all','ring',1)
wait(2000)
moveitems("claw of 'The Noxious Spawn'",'ring',MainBp,1)
end

Ant-KS ( Não atacar o monstro de outro player ) - iBot

2013-05-17T20:03:00.001-03:00

local r = 5 -- Range.
local safelist = {'Bubble', 'Eternal Oblivion'} -- The bot WILL KS this players. Add more to this if you want.
table.insert(safelist, name) -- Do not edit it.
local ppos = {}
local pinfo = _getcreatures("psf")
local cinfo = _getcreatures("msf")

for a = 1, pinfo.count do
local ab=a-1
if not table.find(safelist, pinfo[ab].name) then
table.insert(ppos, {x = pinfo[ab].x, y = pinfo[ab].y})
end
end

for b = 1, cinfo.count do
local ignore = false
local bb=b-1
if cinfo[bb].id ~= target.id then
for i = 1, #ppos do
local difx, dify = ppos[i].x - cinfo[bb].x, ppos[i].y - cinfo[bb].y
if math.abs(difx) <= r and math.abs(dify) <= r then
ignore = true
if cinfo[bb].ignored == false then
ignorecreature(cinfo[bb].id,true)
stopattack()
end
break
end
end
end
if ignore == false and cinfo[bb].ignored == true then
ignorecreature(cinfo[bb].id, true)
stopattack()
end
end
if target.id ~= 0 then
if target.ignored then
stopattack()
end
end

Usar 'Desintegrate Rune' - iBot

2013-05-17T19:57:00.000-03:00

local MONSTERS = {'dead medusa', 'dead serpent spawn'}
local RUNE = 'Desintegrate Rune'
local CHECK_TILE = gettile(posx, posy, posz).count

if lootbodies > 0 then
settargeting('no')
reachgrounditem(unpack(MONSTERS))
if CHECK_TILE == 1 then
settargeting('yes')
end
end
else
if lootbodies > 0 then
if windowcount(unpack(MONSTERS)) < 0 then
settargeting('no')
reachgrounditem(unpack(MONSTERS))
while CHECK_TILE > 2 do
useitemon(RUNE, posx, posy, posz)
openitem(unpack(MONSTERS), posx, posz, posy)
settargeting('yes')
end
end
end

Deslogar quando 'X' player entrar na tela - iBot

2013-05-17T19:12:00.002-03:00

local msgs = getnewmessages("Server Log")
local CharName = "Liva" -- Name of char to log
local qtd = msgs.count-1
for i=0,qtd do
if msgs[qtd].text:find(CharName.." has logged in.") then
logout()
end
end

Ant - idle ( Não deixa você desconectar ) - iBot

2013-05-17T19:10:00.001-03:00

useIdle = true -- se você quer usar

if useIdle then
turn('n')
wait(15000)
turn('s')
wait(15000)
turn('e')
wait(15000)
turn('w')
wait(15000)
end