Tricoder

-- max lines to display at once local maxindex = 20 -- spacing between lines local spacing = 10 local index = 0 local msgs = getmessages("Local Chat") local qtd = msgs.count-1 for i=0,qtd do if msgs[qtd-i].type == 6 then setfontcolor("cyan") addtext(msgs[qtd-i].text, worldwin.left+10,worldwin.top+30+(index*spacing)) index=index+1 if index == maxindex then break end end end Créditos: tibiascripts

Uma dúvida, você usa sqlite ou mysql? Se for sqlite > database > Open SQL query editor: DROP TABLE IF EXISTS z_shop_history_item; CREATE TABLE z_shop_history_item ( id INT( 11 ) NOT NULL, to_name VARCHAR( 255 ) NOT NULL DEFAULT '0', to_account INT( 11 ) NOT NULL DEFAULT '0', from_nick VARCHAR( 255 ) NOT NULL, from_account INT( 11 ) NOT NULL DEFAULT '0', price INT( 11 ) NOT NULL DEFAULT '0', offer_id VARCHAR( 255 ) NOT NULL DEFAULT '', trans_state VARCHAR( 255 ) NOT NULL, trans_start INT( 11 ) NOT NULL DEFAULT '0', trans_real INT( 11 ) NOT NULL DEFAULT '0', PRIMARY KEY ( id ) ); Se for mysql:DROP TABLE IF EXISTS `z_shop_history_item`; CREATE TABLE IF NOT EXISTS `z_shop_history_item` ( `id` int(11) NOT NULL AUTO_INCREMENT, `to_name` varchar(255) NOT NULL DEFAULT '0', `to_account` int(11) NOT NULL DEFAULT '0', `from_nick` varchar(255) NOT NULL, `from_account` int(11) NOT NULL DEFAULT '0', `price` int(11) NOT NULL DEFAULT '0', `offer_id` varchar(255) NOT NULL DEFAULT '', `trans_state` varchar(255) NOT NULL, `trans_start` int(11) NOT NULL DEFAULT '0', `trans_real` int(11) NOT NULL DEFAULT '0', PRIMARY KEY (`id`) ) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ; ___________________________________________________ SQLITE:DROP TABLE IF EXISTS z_shop_history_pacc; CREATE TABLE z_shop_history_pacc ( id INT( 11 ) NOT NULL, to_name VARCHAR( 255 ) NOT NULL DEFAULT '0', to_account INT( 11 ) NOT NULL DEFAULT '0', from_nick VARCHAR( 255 ) NOT NULL, from_account INT( 11 ) NOT NULL DEFAULT '0', price INT( 11 ) NOT NULL DEFAULT '0', pacc_days INT( 11 ) NOT NULL DEFAULT '0', trans_state VARCHAR( 255 ) NOT NULL, trans_start INT( 11 ) NOT NULL DEFAULT '0', trans_real INT( 11 ) NOT NULL DEFAULT '0', PRIMARY KEY ( id ) ); MYSQL:DROP TABLE IF EXISTS `z_shop_history_pacc`; CREATE TABLE IF NOT EXISTS `z_shop_history_pacc` ( `id` int(11) NOT NULL AUTO_INCREMENT, `to_name` varchar(255) NOT NULL DEFAULT '0', `to_account` int(11) NOT NULL DEFAULT '0', `from_nick` varchar(255) NOT NULL, `from_account` int(11) NOT NULL DEFAULT '0', `price` int(11) NOT NULL DEFAULT '0', `pacc_days` int(11) NOT NULL DEFAULT '0', `trans_state` varchar(255) NOT NULL, `trans_start` int(11) NOT NULL DEFAULT '0', `trans_real` int(11) NOT NULL DEFAULT '0', PRIMARY KEY (`id`) ) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;Veja se saiu o erro.

local MainBP = 'Backpack of Holding' local LootBP = 'Crystal Backpack' local MainDPBP = 'yellow Backpack' local StackDPBP = 'Beach Backpack' local LootDPBP = 'Purple Backpack' while windowcount() > 0 do closewindows() wait(300,500) setsettings("Settings\\CaveBot\\Settings\\OpenNextBp", "no") updateworld() end while windowcount(MainBP) == 0 do openitem(MainBP,'back') wait(1000) updateworld() end while windowcount(LootBP) == 0 do openitem(LootBP,MainBP) wait(1000) resizewindows() updateworld() end while windowcount("locker") == 0 do reachgrounditem("depot") wait(1000) openitem("depot") wait(1000) updateworld() end while windowcount("depot chest") == 0 do openitem("depot chest", "locker") wait(1000) updateworld() end while windowcount(MainDPBP) == 0 do openitem(MainDPBP, "depot chest") wait(1000) updateworld() end for i=1,2 do local ItemToDeposit = getlootitems() for i=0,ItemToDeposit.count-1 do if ItemToDeposit[i].iscumulative then if ItemToDeposit[i].id ~= 3035 and ItemToDeposit[i].id ~= 3031 then depotdeposit(StackDPBP, ItemToDeposit[i].name) wait(300,500) end end end for i=0,ItemToDeposit.count-1 do if not ItemToDeposit[i].iscumulative then depotdeposit(LootDPBP, ItemToDeposit[i].name) wait(300,500) end end openitem(LootBP, LootBP) wait(1000) end Créditos: tibiascripts

local ItemToBuy = 'Brown mushroom' --Item to buy local AmountToBuy = 100 --Amount to buy local MaxPrice = 15 --Wont buy anything more expensive than this local ItemBP = 'Backpack of Holding' --Backpack where to move item setsettings("Settings\\Input\\OpenMenuPolicy", "Do nothing") setsettings("Settings\\CaveBot\\Settings\\OpenNextBp", "no") reachgrounditem("depot") wait(1500,2000) openitem("depot") wait(1500,2000) useitem(12903,"locker") wait(1500, 2000) buyitemmarket(ItemToBuy, (AmountToBuy-itemcount(ItemToBuy)), MaxPrice) setsettings("Settings\\Input\\OpenMenuPolicy", "Confirm if cavebotting") wait(2500) while windowcount(12902) == 0 do openitem(12902, "locker") wait(500,800) end while itemcount(ItemToBuy, ItemBP) < AmountToBuy and itemcount(ItemToBuy, 12902) > 0 do moveitems(ItemToBuy, ItemBP, 100) wait(200,500) end Créditos: tibiascripts

local FirstItem = 'Mana Potion' local FirstAmount = 1000 local FirstPrice = 50 local SecondItem = 'Great health potion' local SecondAmount = 55 local SecondPrice = 210 local First = positive(FirstAmount - itemcount(FirstItem)) * FirstPrice local Second = positive(SecondAmount - itemcount(SecondItem)) * SecondPrice local Total = First + Second say("hi") wait(1500,2500) npcsay("deposit all") wait(200,300) npcsay("yes") wait(200,300) if Total > 0 then npcsay("withdraw "..Total) wait(200,300) npcsay("yes") wait(200,300) npcsay("Balance") wait(200,300) end Créditos: tibiascripts

local FirstItem = 'Mana Potion' local FirstAmount = 1000 local FirstPrice = 50 local SecondItem = 'Great health potion' local SecondAmount = 55 local SecondPrice = 210 local First = positive(FirstAmount - itemcount(FirstItem)) * FirstPrice local Second = positive(SecondAmount - itemcount(SecondItem)) * SecondPrice local Total = First + Second say("hi") wait(1500,2500) npcsay("deposit all") wait(200,300) npcsay("yes") wait(200,300) if Total > 0 then npcsay("withdraw "..Total) wait(200,300) npcsay("yes") wait(200,300) npcsay("Balance") wait(200,300) end Créditos: tibiascripts

local waterIDs = {4597,4598,4599,4600,4601,4602,4603} local range = 7 local captostop = 50 for i=-range,range do for j=-range,range do if toptileitem(posx+i,posy+j,posz) == waterIDs[random(1,#waterIDs)] and itemcount('worm') > 0 and cap > captostop then useitemon('fishing rod',posx+i,posy+j,posz) wait(500,800) end end end Créditos: tibiascripts

local maxdamage = 1 -- configure aqui o maximo de dano para use exana pox local msgs = getnewmessages("Server Log") local qtd = msgs.count-1 local msgsgot = msgs[qtd].text local numeros = {} for w in string.gfind(msgsgot, "%d+") do if msgsgot:find("You lose (.+) hitpoints.") then table.insert(numeros, w) end end local damage = tonumber(numeros[#numeros]) if #numeros > 0 then if poisoned == true then if damage > maxdamage and maround(4) == 0 then if cancast("exana pox") then cast("exana pox") end end end end Créditos: tibiascripts

local serverlog_lines = getnewmessages("Server Log") local serverlog_q = serverlog_lines.count - 1 for i = 0, serverlog_q do if (serverlog_lines[serverlog_q - i].text:find("due to an attack by a stalker.")) and paround() == 0 and maround(3,false,"Stalker") == 0 then usehotkey("F12") -- Rune Yourself. end end Créditos: tibiascripts

--[[ Name: Logout x HOUR Version: v1.0.0 Status: Working Author: Sayild ]]-- local LOGOUT_TIME = '4:55' -- hour to logout -- Dont change below local LOGOUT = tosec(LOGOUT_TIME) local CURRENT_TIME = tosec(time()) if CURRENT_TIME == LOGOUT then if pzone then wait(500) logout() end end Créditos: tibiascripts

if maround(9) == 0 then skin(7,true) end Créditos: tibiascripts

-- [[ INIT START ]] -- local CONFIG = { PLAYERS = { {NAME = "NAME 1", HPPC = 40}, {NAME = "NAME 2", HPPC = 50}, }, } -- [[ INIT END ]] -- local CREATURE_TO_HEAL, HPPC_TO_HEAL = nil, 101 for CREATURE in Creature.GetAll("ps") do local PLAYER_FOUND = table.find(CONFIG.PLAYERS, CREATURE:Name(), "NAME") if (CREATURE:isValid() and CREATURE:isAlive() and PLAYER_FOUND and CREATURE:HealthPercent() < CONFIG.PLAYERS[PLAYER_FOUND].HPPC and CREATURE:HealthPercent() < HPPC_TO_HEAL) then CREATURE_TO_HEAL, HPPC_TO_HEAL = CREATURE, CREATURE:HealthPercent() end end if (Creature.isInstance(CREATURE_TO_HEAL)) then Spell.GetByWordsOrName("heal friend"):CastSpell(CREATURE_TO_HEAL, CREATURE_TO_HEAL:Name()) System.Wait(200) end Créditos: tibiascripts

local serverlog_lines = getnewmessages("Server Log") local serverlog_q = serverlog_lines.count - 1 for i = 0, serverlog_q do if (serverlog_lines[serverlog_q - i].text:find("was not justified.")) then closetibia() end end Créditos: tibiascripts

minimizewindows('equip') Créditos: tibiascripts

if not manashielded and cooldown('utamo vita') == 0 and mp >= 50 then cast('utamo vita') updateworld() end Créditos: tibiascripts

local lifeforequip = 80 -- Quantidade de life em % que o char vai equipar o ring local ringid = 3052 -- Id do ring que vai equipar, ex 3052 = life ring local bpofring = 'backpack' -- BP que esta o ring if mppc == 80 then moveitems(ringid, bpofring, ring, 1) end Créditos: tibiascripts

local label = 'correr' -- Label que o char vai correr se o pk atacar. if underattack('p') then settargeting('off') gotolabel(label) end Créditos: tibiascripts

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 Créditos: tibiascripts

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 Créditos: tibiascripts

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 Créditos: tibiascripts

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 Créditos: tibiascripts

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 Créditos: tibiascripts

--[[ 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) Créditos: tibiascripts

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 Créditos: tibiascripts

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 Créditos: tibiascripts