Blazingfire

Nome: Lucca Vinicius. Idade: 15 anos. Cargo: Scripter. Skype: soulofdeath8 Horas que podem ser dedicadas ao Projeto: 5h/dia ou mais (nas férias). Nível de Experiência: mais de 5 anos. Anexar algum trabalho 100% seu: [clica aqui] Já trabalhou em algum outro servidor: Já tive meus próprios servidores e já fiz vários scripts para outros servidores. Adicional: Andei meio inativo na comunidade e faz um bom tempo que não mexo com Poketibia, mas scripting é sempre scripting xD

Eu particulamente não curto bots, começei fazendo o programa para uso próprio mas achei que pudesse ser útil e mais prático para alguns jogadores...

Fiz esse programa pra salvar minhas hotkeys e configurações de cada char e versão do jogo, já que muitos servers não tem client próprio e todas as versões do client do Tibia usam o mesmo arquivo CFG para armazenar as configurações do jogo. Tibia CM.rar Scan: clique aqui Senha para extrair: xtibia

Na pasta actions, abra o arquivo actions.xml e coloque junto com as outras: <action uniqueid="UNIQUEID" script="troca.lua" /> Aonde está "UNIQUEID" você deve colocar o número que desejar. Depois entre na pasta scripts, crie um arquivo .lua com o nome de troca e coloque isso dentro: function onUse(cid, item, frompos, item2, topos) -- criado por blazingfire. ------------------------------------------------ local itens = {item1,item2} -- id dos itens do jogador. local newitem = item -- id do item que ele irá ganhar. local success = "Troca efetuada com sucesso!" local fail = "Você não tem os itens necessários para realizar a troca." ------------------------------------------------ for _, playeritens in pairs(itens) do if doPlayerRemoveItem(cid,playeritens) then doPlayerAddItem(cid,newitem) doPlayerSendTextMessage(cid,22,success) else doPlayerSendTextMessage(cid,22,fail) end return TRUE end end Aí dentro do script você configura os itens.

Caramba.. Agora, se não funcionar é porque o seu vip system é diferente do qual estou pensando, passa o script dele por pm pra eu ver. Tente esse: --50% kung lao %50 Vodkart function onSay(cid, words, param) local S = { [3] = {price = 1000000,cobrar = true,msg = "Você perdeu seu white skull e frags.", premium = true}, [4] = {price = 3000000,cobrar = true,msg = "Você perdeu seu red skull e frags", premium = true}, [5] = {price = 5000000,cobrar = true,msg = "Você perdeu seu black skull e frags", premium = true}, } local storage = 88888 local skull = S[getCreatureSkullType(cid)] if(not skull) then doPlayerSendCancel(cid,"Você nao está com nenhum tipo de skull.") return TRUE elseif skull.premium == true and not isPremium(cid) then doPlayerSendCancel(cid,"Apenas players premium podem remover skull.") return TRUE elseif skull.cobrar == true and doPlayerRemoveMoney(cid, skull.price) == FALSE then doPlayerSendCancel(cid,"Você não tem " .. skull.price .. " gps para remover sua skull.") doSendMagicEffect(getPlayerPosition(cid), 2) return TRUE elseif getPlayerStorageValue(cid,storage) - os.time() <= 0 then doPlayerSendCancel(cid,"Você precisa ser vip para remover sua skull.") return TRUE end db.executeQuery("UPDATE `killers` SET `unjustified` = 0 WHERE `id` IN (SELECT `kill_id` FROM `player_killers` WHERE `player_id` = " .. getPlayerGUID(cid) .. ")") doCreatureSetSkullType(cid, 0) doRemoveCreature(cid) doPlayerSendTextMessage(cid, 22,skull.msg) doSendMagicEffect(getPlayerPosition(cid), 26) return TRUE end

--50% kung lao %50 Vodkart function onSay(cid, words, param) local S = { [3] = {price = 1000000,cobrar = true,msg = "Você perdeu seu white skull e frags.", premium = true}, [4] = {price = 3000000,cobrar = true,msg = "Você perdeu seu red skull e frags", premium = true}, [5] = {price = 5000000,cobrar = true,msg = "Você perdeu seu black skull e frags", premium = true}, } local storage = 88888 local skull = S[getCreatureSkullType(cid)] if(not skull) then doPlayerSendCancel(cid,"Você nao está com nenhum tipo de skull.") return TRUE elseif skull.premium == true and not isPremium(cid) then doPlayerSendCancel(cid,"Apenas players premium podem remover skull.") return TRUE elseif skull.cobrar == true and doPlayerRemoveMoney(cid, skull.price) == FALSE then doPlayerSendCancel(cid,"Você não tem " .. skull.price .. " gps para remover sua skull.") doSendMagicEffect(getPlayerPosition(cid), 2) return TRUE elseif getPlayerStorageValue(cid,storage) - os.time() <= 0 then doPlayerSendCancel(cid,"Você precisa ser vip para remover sua skull.") end db.executeQuery("UPDATE `killers` SET `unjustified` = 0 WHERE `id` IN (SELECT `kill_id` FROM `player_killers` WHERE `player_id` = " .. getPlayerGUID(cid) .. ")") doCreatureSetSkullType(cid, 0) doRemoveCreature(cid) doPlayerSendTextMessage(cid, 22,skull.msg) doSendMagicEffect(getPlayerPosition(cid), 26) return TRUE end Ei, o outro que continua com problema, tente fazer isso: Substitua if (config.vip == "yes") and getPlayerStorageValue(cid,config.storage) - os.time() <= 0 then Por if getPlayerStorageValue(cid,config.storage) - os.time() <= 0 then

Entre na pasta lib e abra o arquivo 050-function, e coloque isso em qualquer lugar: function isWalkable(pos, creature, proj, pz)-- by Nord if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end if getTopCreature(pos).uid > 0 and creature then return false end if getTileInfo(pos).protection and pz then return false, true end local n = not proj and 3 or 2 for i = 0, 255 do pos.stackpos = i local tile = getTileThingByPos(pos) if tile.itemid ~= 0 and not isCreature(tile.uid) then if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then return false end end end return true end Agora pode testar o script..

@Mulizeu, não precisa disso tudo. @ADM_Forever, tente esse: local config = { vip = "yes", priceForEachMessage = 0, storage = 88888 } function onSay(cid, words) if not getHouseByPlayerGUID(getPlayerGUID(cid)) then if (config.vip == "yes") and getPlayerStorageValue(cid,config.storage) - os.time() <= 0 then doPlayerSendCancel(cid,"Você não possui vip.") return TRUE end function isWalkable(pos, creature, proj, pz) if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end if getTopCreature(pos).uid > 0 and creature then return false end if getTileInfo(pos).protection and pz then return false, true end local n = not proj and 3 or 2 for i = 0, 255 do pos.stackpos = i local tile = getTileThingByPos(pos) if tile.itemid ~= 0 and not isCreature(tile.uid) then if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then return false end end end return true end return doPlayerSendCancel(cid, "Voce nao tem casa.") end local pos = getHouseEntry(getHouseByPlayerGUID(getPlayerGUID(cid))) if getCreatureCondition(cid, CONDITION_INFIGHT) then return doPlayerSendCancel(cid, "Voce tem que estar sem battle.") end if not getTilePzInfo({x=pos.x-1, y=pos.y, z=pos.z}) and isWalkable({x=pos.x-1, y=pos.y, z=pos.z}) then pos = {x=pos.x-1, y=pos.y, z=pos.z} elseif not getTilePzInfo({x=pos.x+1, y=pos.y, z=pos.z}) and isWalkable({x=pos.x+1, y=pos.y, z=pos.z}) then pos = {x=pos.x+1, y=pos.y, z=pos.z} elseif not getTilePzInfo({x=pos.x, y=pos.y+1, z=pos.z}) and isWalkable({x=pos.x, y=pos.y+1, z=pos.z}) then pos = {x=pos.x, y=pos.y+1, z=pos.z} elseif not getTilePzInfo({x=pos.x, y=pos.y-1, z=pos.z}) and isWalkable({x=pos.x, y=pos.y-1, z=pos.z}) then pos = {x=pos.x, y=pos.y-1, z=pos.z} end doTeleportThing(cid, pos) end

Nome: Lucca Vinicius. Idade: 13. Tempo De Experiência: 3 anos e 8 meses. Tempo dísponivel ao dia: 5 horas por dia, final de semana 8 horas. Area: Scripting. Mostre Algum trabalho: Tá na minha assinatura.

Entra aqui: http://vapus.net/canihost Entra em www.meuip.com.br, vai aparecer o seu ip, pega esse ip, bota no outro site e clica em "Can I host?" Se ele mostrar que os jogadores não podem entrar no jogo você tem que desbloquear as portas 7171 e 7172 do seu roteador, aqui no forum tem tutorial ensinando a fazer isso.

Não vi nenhuma função assim então fis . Essa função verifica a condição de battle do jogador: function isInBattle(cid) -- blazingfire return isPlayer(cid) and getCreatureCondition(cid, CONDITION_INFIGHT) end Exemplo de uso por talkaction: function onSay(cid, words, param) local speed = 100 if isInBattle(cid) == TRUE then doPlayerSendCancel(cid,"Você não pode fazer isso enquanto batalha.") else doPlayerSendCancel(cid,"Sua velocidade foi modificada!") doChangeSpeed(cid, speed) end return TRUE end

Aqui no fórum ja tem esse script basta pegar e configurá-lo.

Esse aqui é melhor, não precisa de baú, o jogador já começa com eles: Abra o arquivo creaturescripts.xml e coloque essa tag: <event type="login" name="FirstItems" event="script" value="firstitems.lua"/> Entre na pasta scripts, crie um novo arquivo .lua com o nome de firstitems e coloque isso dentro: local commonItems = { {itemid=2120, count=1}, -- rope {itemid=5710, count=1}, -- shovel {itemid=2160, count=1}, -- 10k {itemid=2173, count=1}, -- aol {itemid=2789, count=10}, -- brown mushrooms } local firstItems = { { -- SORC ITEMS {itemid=2323, count=1}, -- hat of the mad {itemid=8870, count=1}, -- spirit cloak {itemid=2647, count=1}, -- plate legs {itemid=3982, count=1}, -- crocodile boots {itemid=2175, count=1}, -- spellbook {itemid=2190, count=1}, -- wand of vortex {itemid=2268, count=1}, -- sd {itemid=2273, count=1}, -- uh {itemid=7620, count=1}, -- mapa potions }, { -- DRUID ITEMS {itemid=2323, count=1}, -- hat of the mad {itemid=8870, count=1}, -- spirit cloak {itemid=2647, count=1}, -- plate legs {itemid=3982, count=1}, -- crocodile boots {itemid=2175, count=1}, -- spellbook {itemid=2182, count=1}, -- snakebite rod {itemid=2268, count=1}, -- sd {itemid=2273, count=1}, -- uh {itemid=7620, count=1}, -- mana potion }, { -- PALADIN ITEMS {itemid=2457, count=1}, -- steel helmet {itemid=8872, count=1}, -- belted cape {itemid=2647, count=1}, -- plate legs {itemid=3982, count=1}, -- crocodile boots {itemid=2525, count=1}, -- dwarven shield {itemid=2389, count=1}, -- spear {itemid=2268, count=1}, -- sd {itemid=2273, count=1}, -- uh {itemid=7620, count=1}, -- mana potion }, { -- KNIGHT ITEMS {itemid=2457, count=1}, -- steel helmet {itemid=2463, count=1}, -- plate armor {itemid=2647, count=1}, -- plate legs {itemid=3982, count=1}, -- crocodile boots {itemid=2525, count=1}, -- dwarven shield {itemid=2409, count=1}, -- serpent sword {itemid=2428, count=1}, -- orcish Axe {itemid=2417, count=1}, -- battle hammer {itemid=7620, count=1}, -- mana potion {itemid=2273, count=1}, -- uh } } for _, items in ipairs(firstItems) do for _, item in ipairs(commonItems) do table.insert(items, item) end end function onLogin(cid) if getPlayerGroupId(cid) < 2 then local hasReceivedFirstItems = getPlayerStorageValue(cid, 67708) if hasReceivedFirstItems == -1 then --[[local backpack = ]]doPlayerAddItem(cid, 1988, 1) local giveItems = firstItems[getPlayerVocation(cid)] if giveItems ~= nil then for _, v in ipairs(giveItems) do --doAddContainerItem(backpack, v.itemid, v.count or 1) doPlayerAddItem(cid, v.itemid, v.count or 1) end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Bem Vindo você acaba de receber seus primeiros equipamentos,e promotion automaticamente") setPlayerStorageValue(cid, 67708, 1) end end end return TRUE end