Jump to content
Close

Search the Community

Showing results for tags 'bug'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Community
    • Rules
    • Portal
    • Resources
    • Commerce
    • Clubs
  • OTServers
    • Discussion
    • Support
    • Tutorial
    • Download
    • Code Development
    • Contests and Events
    • Form Team
    • Advertise your Server
  • Tibia Bots
    • Discussion
  • League of Legends's Geral
  • League of Legends's Suporte
  • Jogos Gerais's Geral
  • Nto New Season's Tópicos
  • Fakes's Fakes
  • Tibia's Geral
  • Tibia's Notícias
  • Tibia's Media
  • Tibia's Life Thread
  • Gráficos's Geral
  • Gráficos's Tutoriais
  • Gráficos's Recursos
  • Gráficos's Aprendizagem & Recursos
  • Gráficos's Galeria
  • Gráficos's Duelos & Batalhas
  • Gráficos's Suporte
  • Desenvolvimento e Programação's Geral
  • Desenvolvimento e Programação's Tutoriais
  • Desenvolvimento e Programação's Trabalhos
  • Desenvolvimento e Programação's Suporte
  • Computação's Geral
  • Computação's Dicas e Tutoriais
  • Computação's Suporte
  • Roleplaying's Roleplaying
  • Playground's (Off-topic)
  • Divulgações's Tópicos

Calendars

  • Official Calendar
  • OTServs Calendar
  • Several Calendars

Product Groups

  • Advertisements in Top
  • Advertisements In Signatures
  • Advertisements in Topics
  • Others Advertisements

Categories

  • Sales Section
    • Scripting Sales
    • Codes Sales
    • Mapping Sales
    • Websites Sales
    • Design/Sprites Sales
    • Bots Sales
  • Look Jobs
  • Looking for Freelancers
  • Team Formation

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Localization


My character


Favorite OTServ


Bot preferred


Interests

Found 258 results

  1. Bom dia, tudo bem? Cara, eu estou com uma duvida um pouco relativa... Sempre que eu finalizo uma compra no meu site com o seu sistema de pagamento, os pontos não são entregues a conta... Pq? Poderia me dizer se estou fazendo alguma coisa errada? # Pagseguro config By IVENSPONTES $config['pagSeguro']['email'] = "meu email"; //Email Pagseguro $config['pagSeguro']['token'] = "TOKEN TA CORRETO"; // TOKEN $config['pagSeguro']['urlRedirect'] = 'ipdoserver/?subtopic=donate&action=final'; //turn off redirect and notifications in pagseguro.com.br $config['pagSeguro']['urlNotification'] = 'ipdoserver/retpagseguro.php'; //your return location $config['pagSeguro']['productName'] = 'Premium Points'; $config['pagSeguro']['productValue'] = 1.00; // 1.50 = R$ 1,50 etc... $config['pagSeguro']['doublePoints'] = true; ## Double points - true is on / false is off $config['pagSeguro']['host'] = 'localhost'; ## YOUR HOST <--------------- Essa é minha duvida, pois uso servidor/site criado pela otmanager, deixo localhost ou tenho q colocar ( IpDoHost/phpmyadmin-secure) ??????? $config['pagSeguro']['database'] = 'MINHADB'; ## DATABASE $config['pagSeguro']['databaseUser'] = 'root'; ## USER $config['pagSeguro']['databasePass'] = ''; ## PASSWORD Meu retpagseguro.php
  2. Olá amigos,bom venho aqui para pedir ajuda aos adeptos do compartilhamento de informação. Seguinte meu gesior tem um problema 'segue a imagem abaixo'. Imagem abaixo,abas abertas. Se alguém saber resolver,ficarei grato..
  3. Visualizar Anúncio Procuro Freelance para arrumar Bug Boa tarde procuro freelancer para arrumar bug que persiste em meu servidor [Error - Monsters::deserialize Spell] Bulbasaur - Unknown spell name: Razor Leaf esse bug esta fazendo com que meu servidor feche quem souber resolver me manda msg. pago pelos serviços Anunciante Etherious Date 02/12/2018 Preço R$ 20,00 Categoria Procura-se Freelancers  
  4. THIS ADVERT HAS EXPIRED!

    • Looking for Freelancers
    • To combine

    Boa tarde procuro freelancer para arrumar bug que persiste em meu servidor [Error - Monsters::deserialize Spell] Bulbasaur - Unknown spell name: Razor Leaf esse bug esta fazendo com que meu servidor feche quem souber resolver me manda msg. pago pelos serviços

    20.00 USD

  5. Galera preciso da ajuda de vcs!! Tem um cara no meu sv clonando itens com o account manager, tipo ele loga vários chars com o nome de Account Manager e muito estranho nunca vi isso, alguém sabe oque é???
  6. Olá pessoal, não sei se esta é a area correta, se não for mova obg. É o seguinte eu tenho um servidor Baiak, que estava rodando em TFS 0.3.6 v2 edited by cyko, Perfeitamente. Porém após 38-39 horas de uptime ele começou a dar varias travadas e debugs nos players, até que caiu... Eu não sei se foi algum player ou erro na configuração do distro mesmo. Sei que depois disso todas as vezes que eu iniciava, pouco tempo depois ele caia e sempre dava o mesmo erro no distro... Algo relacionado a C++ Então decidi trocar de distro, coloquei um TFS 0.4 3777. Fiz várias adaptações para ficar compativel e talz, e claro o TFS 0.4 é muito melhor e superior ao 0.3.6. Só que de lá para cá vem ocorrendo alguns bugs no distro principalmente com o arquivo "init.lua" no globalevents. Já troquei várias vezes esse init de outros distros e talz e nada adianta, sempre ocorre o mesmo erro... Tentei colocar o start.lua também, mas ele inicia o server, também ocorre o erro e não dá para sequer logar algum character. Enfim esse erro não atrapalha em muito até agora... Só que a única coisa que percebi de mais encomodativo foi que sempre quando alguem morre, ou kila outro jogador aparece um erro no distro com esse init.lua relacionando a ids da database, como se ele não encontrasse... não entendi muito bem. Com isso os jogadores não ganham frag ao matar outro, e aquele sistema de frags no look também não muda nada, ou seja o player nunca ficará red ou ganhará frags... Será que alguem pode me ajudar? Vou mandar um anexo com a imagem do erro que aparece no distrom, quando inicia e quando algum player mata outro!
  7. Galera, é o seguinte, venho pedir ajuda, estou criando um servidor de um mapa baixado aqui e alterando ele totalmente pra ficar único, gosto muito da velocidade do fast atack q deixei, porem, andei fazendo alguns testes e notei diferença quando vc fica parado batendo e se movendo... Quando o char se move pra cima e pra baixo, sai mais ataques... Queria saber se tem como arrumar isso? E como faço pra arrumar isso?? Os testes foram feito com um Knight Matando um Juggernaut, Parado ele demora em torno de 45 segundos a 55 segundos. Já se eu ficar me mexendo pra cima e pra baixo ele acaba em 25 segundos a 30 segundos... No pvp isso vai fazer muita diferença, e não gostaria dessa desigualdade. Se alguem souber como ajudar, Grato desde já. Qualquer informações que precisarem do meu ot, é só pedir que posto aqui para uma melhor resolução do post.
  8. Oi, preciso de ajuda estou fazendo meu primeiro OTserv. Compilei o TFS svn 0.4 rev 3884 meu server as vezes fecha sem nenhum erro. eu restarto ele sem problemas mas as vezes determinado player quando loga novamente, trava o servidor inteiro. só consigo voltar o server on após reiniciar a vm. quando verifico os skills dos players ele estao com uma skill absurda como 1237129371923. desconfio que existe algum bug quando o servidor cai e fica alguem batendo em algum monstro quando reinicia ele volta batendo e isso acontece o problema é que trava completamente o servidor. o jogador bugado só para de dar problema quando eu mudo ele para outra parte do mapa.... eu já tentei: -recompilar versão de ot usava a 3777 agora 3884 -desligar o continue attacking at logout. -desligar o global save (para o servidor não cair). alguem ja viu isso? procurei em tudo que é lugar e nada!. o otfecha sem erro nenhum. por favor estou completamente perdido 0 Quote MultiQuote Editar
  9. Galera meu ot esta mudando as vocações dos players sozinho por exemplo kina vira druid, druid vira kina, e com isso ou buga o ml vai pra 84854154 ou os skills do kina vai 548548 e o ml tbm sobe, O QUE PDOE SER ISSO?
  10. Boa Noite galera do Tibia King.. Vim aqui pedir ajuda em um problema. Criei o tópico em "Suporte de Scripts" porque o problema se modifica quando eu altero algumas actions, e nao sei como reverter. No meu server 8.6 [TFS 0.4], quando um player usa uma porta aberta, ela fecha com o player no meio, como pode ser visto na SEGUNDA IMAGEM.. Eu tentei alterar a pasta ACTIONS inteira por outras pastas, de outros OT servers, e aparece "You cannot use this object", como pode ser visto na TERCEIRA IMAGEM. Nao estou certo se o problema é nas Actions, mas aí estão as três imagens:
  11. Fala galera eu de novo mas agora com muitos pedidos dessa hk de elf o bug de anel de ml do pally resolvi Disponibilizar aqui no tk vamos ao script 1 = Vá ate alguma hunt de warlock e cate o anel que dropa dele 2 = Abra o elf e coloque está hotkey 3 = Sua hotkey esta feita o sempre fique com a bp aberta se não o anel não funciona esta programado para usar o anel quando voçe estiver com 50% da sua vida Até mais galera fui
  12. Olá galera, estou com o seguinte problema, tenho cast no meu servidor 8.60 TFS 0.4, até ai tudo bem consigo utilizar /cast on, porém quando abro outro tibia e dou enter não aparece a lista de CASTS, aparece "Invalid Account Name", alguém ajuda?
  13. Pessoal quando abro o server nao aparece nenhum erro no distro , e ao executar o comando o evento inicia normalmente , porem na hora de sumonar os zumbis aparece isso no distro e não sumona os zumbis , alguem pra me ajudar ?
  14. Queria saber se tem como desbugar os slot das bag quem contem muito slot... Exemplo tenho uma bag no meu servidor com 150 slot mais só aparece 36 o resto entra dentro da bolsa mais não aparece, mais quando você retira um item o próximo item reaparece. OBS: Desde já obrigado e REP++ para quem conseguir me esclarecer essa duvida e caso consiga resolver esse bug!
  15. Bom, eu passei por um problema quando estava testando o Gesior no meu OTServer: mesmo com o server online e portas liberadas o site continuava mostrando como offline. Eu vi que algumas pessoas sugeriram trocar no arquivo layout.php isto: if($config['status']['serverStatus_online'] == 1) por isto: if($config['status']['serverStatus_online'] >= 0) mas eu vi que estava errado, pois ele iria mostrar o server como online mesmo que não estivesse. Então eu andei olhando os códigos, mexendo nos arquivos e acabei achando o erro. No arquivo load.compat.php, dentro da pasta system, na linha #254 (pelo menos aqui) eu encontrei o seguinte código: $statusInfo = new ServerStatus($config['server']['ip'], $config['server']['statusPort'], 1); onde está escrito 'statusPort' eu percebi que no config.lua não tinha isto, pois lá estava 'statusProtocolPort'. Então basta trocar esta linha por: $statusInfo = new ServerStatus($config['server']['ip'], $config['server']['statusProtocolPort'], 1); Espero ter ajudado!
  16. Estou com um problema que já tentei de diversas maneiras corrigir, antes de tudo é bom dizer que no ot que estou desenvolvendo possuo uma classe que usa apenas itens de fist fighting, as garras, e quando tento refinar alguns itens ele refina alguns itens e outros não. O grande problema é que ele não retorna o valor do atributo attack de itens como espadas ou machados, e as proprias garras eu consigo refinar algumas e outras não, por exemplo tenho uma garra que foi refinada, mas se eu tentar refinar o mesmo modelo de garra o script retorna o valor do attack como nil, gostaria de saber onde posso estar errando para melhorar, fora que ainda esta no inicio o script ainda nao fiz o reforço de itens de defesa nem itens magicos. Grato desde já. Obs.: para refinar um item é necessário usar uma anvil(bigorna) e colocar o item a ser melhorado no lado direito dela. function onUse(cid, item, frompos, item2, topos) if getPlayerItemCount(cid, 2160) < 5 then doPlayerSendTextMessage(cid, 25, "Para que seja possivel o refinamento e necessario 5 cristal coins") doSendMagicEffect(getCreaturePosition(cid), 2) return true end local itemRefine = getThingFromPos({x=4928, y=4957, z=7, stackpos=2}) chance = math.random(0,100) local tipo = getItemWeaponType(itemRefine.uid) if getPlayerItemCount(cid, 2155) >= 1 then chance = chance+25 doPlayerRemoveItem(cid, 2155, 1) end local function isWeapon(uid) uid = uid or 0 if tipo == 1 or tipo == 2 or tipo == 3 or tipo == 8 then return true end return false end function setItemAttack(uid,name) return doItemSetAttribute(uid,'attack',name) end function getItemAttack(uid) return getItemAttribute(uid,'attack') end function getItemArmor(uid) return getItemAttribute(uid,'attack') end function doItemAddAttack(uid, count) if uid > 0 and tonumber(count) > 0 then return doItemSetAttribute(uid, "attack", getItemAttack(uid) + count) end return false end function doItemRemoveAttack(uid, count) if uid > 0 and tonumber(count) > 0 then return doItemSetAttribute(uid, "attack", getItemAttack(uid) - count) end return false end function getItemLevel(uid) if uid > 0 then return getItemAttribute(uid, "lvl") or 0 end return false end function doItemAddLevel(uid, count) if uid > 0 and tonumber(count) > 0 then return doItemSetAttribute(uid, "lvl", getItemLevel(uid) + count) end return false end function doItemRemoveLevel(uid, count) if uid > 0 and tonumber(count) >= 0 then return doItemSetAttribute(uid, "lvl", getItemLevel(uid) - count) end return false end function setItemLevel(uid) if uid > 0 and tonumber(count) >= 0 then return doItemSetAttribute(uid, "lvl",count) end return false end function setItemDesc(uid, lvl) if uid > 0 then return doItemSetAttribute(uid, "description", lvl) end end if isWeapon(itemRefine.uid) then if chance > 75 then doPlayerRemoveItem(cid, 2160, 5) doSendMagicEffect(getCreaturePosition(cid), 12) doItemAddAttack(itemRefine.uid, 1) doItemAddLevel(itemRefine.uid, 1) setItemDesc(itemRefine.uid,"Upgraded +"..getItemLevel(itemRefine.uid)) doPlayerSendTextMessage(cid, 25, "Parabens, seu item foi melhorado com sucesso para o nivel: +"..getItemLevel(itemRefine.uid)) return true end if chance > 25 and chance <=75 then --doPlayerRemoveItem(cid, 2160, 5) doPlayerSendTextMessage(cid, 25, "Que pena, o refinamento nao obteve sucesso +"..getItemLevel(itemRefine.uid)) doSendMagicEffect(getCreaturePosition(cid), 2) return true end if chance <=25 then --doPlayerRemoveItem(cid, 2160, 5) doSendMagicEffect(getCreaturePosition(cid), 2) doItemRemoveAttack(itemRefine.uid, 1) doItemRemoveLevel(itemRefine.uid, 1) doPlayerSendTextMessage(cid, 25, "Que pena, seu refinamento falhou! Retornou ao nivel +"..getItemLevel(itemRefine.uid)) return true end end end
  17. Pessoal esse sistema de Autoloot, pode causa algum lag no servidor? Já que o mesmo não apresenta limite de loot que o player pode adicionar.... <?xml version="1.0" encoding="ISO-8859-1"?> <mod name="Loot System" version="1.0" author="Vodkart And Mkalo" contact="none.com" enabled="yes"> <config name="Loot_func"><![CDATA[ info = { OnlyPremium = true, AutomaticDeposit = true, BlockMonsters = {}, BlockItemsList = {2123,2515} } function setPlayerStorageTable(cid, storage, tab) local tabstr = "&" for i,x in pairs(tab) do tabstr = tabstr .. i .. "," .. x .. ";" end setPlayerStorageValue(cid, storage, tabstr:sub(1, #tabstr-1)) end function getPlayerStorageTable(cid, storage) local tabstr = getPlayerStorageValue(cid, storage) local tab = {} if type(tabstr) ~= "string" then return {} end if tabstr:sub(1,1) ~= "&" then return {} end local tabstr = tabstr:sub(2, #tabstr) local a = string.explode(tabstr, ";") for i,x in pairs(a) do local b = string.explode(x, ",") tab[tonumber(b[1]) or b[1]] = tonumber(b[2]) or b[2] end return tab end function isInTable(cid, item) for _,i in pairs(getPlayerStorageTable(cid, 27000))do if tonumber(i) == tonumber(item) then return true end end return false end function addItemTable(cid, item) local x = {} for i = 1,#getPlayerStorageTable(cid, 27000) do table.insert(x,getPlayerStorageTable(cid, 27000)[i]) end if x ~= 0 then table.insert(x,tonumber(item)) setPlayerStorageTable(cid, 27000, x) else setPlayerStorageTable(cid, 27000, {item}) end end function removeItemTable(cid, item) local x = {} for i = 1,#getPlayerStorageTable(cid, 27000) do table.insert(x,getPlayerStorageTable(cid, 27000)[i]) end for i,v in ipairs(x) do if tonumber(v) == tonumber(item) then table.remove(x,i) end end return setPlayerStorageTable(cid, 27000, x) end function ShowItemsTabble(cid) local str,n = "-- My Loot List --\n\n",0 for i = 1,#getPlayerStorageTable(cid, 27000) do n = n + 1 str = str..""..n.." - "..getItemNameById(getPlayerStorageTable(cid, 27000)[i]).."\n" end return doShowTextDialog(cid, 2529, str) end function getContainerItems(containeruid) local items = {} local containers = {} if type(getContainerSize(containeruid)) ~= "number" then return false end for slot = 0, getContainerSize(containeruid)-1 do local item = getContainerItem(containeruid, slot) if item.itemid == 0 then break end if isContainer(item.uid) then table.insert(containers, item.uid) end table.insert(items, item) end if #containers > 0 then for i,x in ipairs(getContainerItems(containers[1])) do table.insert(items, x) end table.remove(containers, 1) end return items end function getItemsInContainerById(container, itemid) -- Function By Kydrai local items = {} if isContainer(container) and getContainerSize(container) > 0 then for slot=0, (getContainerSize(container)-1) do local item = getContainerItem(container, slot) if isContainer(item.uid) then local itemsbag = getItemsInContainerById(item.uid, itemid) for i=0, #itemsbag do table.insert(items, itemsbag[i]) end else if itemid == item.itemid then table.insert(items, item.uid) end end end end return items end function doPlayerAddItemStacking(cid, itemid, quant) -- by mkalo local item = getItemsInContainerById(getPlayerSlotItem(cid, 3).uid, itemid) local piles = 0 if #item > 0 then for i,x in pairs(item) do if getThing(x).type < 100 then local it = getThing(x) doTransformItem(it.uid, itemid, it.type+quant) if it.type+quant > 100 then doPlayerAddItem(cid, itemid, it.type+quant-100) end else piles = piles+1 end end else return doPlayerAddItem(cid, itemid, quant) end if piles == #item then doPlayerAddItem(cid, itemid, quant) end end function AutomaticDeposit(cid,item,n) local deposit = item == tonumber(2160) and (n*10000) or tonumber(item) == 2152 and (n*100) or (n*1) return doPlayerDepositMoney(cid, deposit) end function corpseRetireItems(cid, pos) local check = false for i = 0, 255 do pos.stackpos = i tile = getTileThingByPos(pos) if tile.uid > 0 and isCorpse(tile.uid) then check = true break end end if check == true then local items = getContainerItems(tile.uid) for i,x in pairs(items) do if isInArray(getPlayerStorageTable(cid, 27000), tonumber(x.itemid)) then if isItemStackable(x.itemid) then doPlayerAddItemStacking(cid, x.itemid, x.type) if info.AutomaticDeposit == true and isInArray({"2148","2152","2160"},tonumber(x.itemid)) then AutomaticDeposit(cid,x.itemid,x.type) end else doPlayerAddItem(cid, x.itemid) end doRemoveItem(x.uid) end end end end ]]></config> <event type="login" name="LootLogin" event="script"><![CDATA[ function onLogin(cid) registerCreatureEvent(cid, "MonsterAttack") return true end]]></event> <event type="death" name="LootEventDeath" event="script"><![CDATA[ domodlib('Loot_func') function onDeath(cid, corpse, deathList) local killer,pos = deathList[1],getCreaturePosition(cid) addEvent(corpseRetireItems,1,killer,pos) return true end]]></event> <event type="combat" name="MonsterAttack" event="script"><![CDATA[ domodlib('Loot_func') if isPlayer(cid) and isMonster(target) and not isInArray(info.BlockMonsters,string.lower(getCreatureName(target))) then registerCreatureEvent(target, "LootEventDeath") end return true]]></event> <talkaction words="!autoloot;/autoloot" event="buffer"><![CDATA[ domodlib('Loot_func') local t = string.explode(string.lower(param), ",") if info.OnlyPremium == true and not isPremium(cid) then doPlayerSendCancel(cid, "you must be a premium account.") return true elseif not t[1] then ShowItemsTabble(cid) return true elseif tonumber(t[1]) or tonumber(t[2]) then doPlayerSendCancel(cid, "enter!autoloot add,name or !autoloot remove,name") return true elseif isInArray({"add","remove"}, tostring(t[1])) then local func,check = tostring(t[1]) == "add" and addItemTable or removeItemTable, tostring(t[1]) == "add" and true or false local item = getItemIdByName(tostring(t[2]), false) if not item then doPlayerSendCancel(cid, "This item does not exist.") return true elseif check == true and isInArray(info.BlockItemsList, item) then doPlayerSendCancel(cid, "You can not add this item in the list!") return true elseif isInTable(cid, item) == check then doPlayerSendCancel(cid, "This Item "..(check == true and "already" or "is not").." in your list.") return true end func(cid, item) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,check == true and "you added the item "..t[2].." in the list" or "you removed the item "..t[2].." from the list") return true end return true]]></talkaction> </mod>
  18. Quando tento vender um item que é possivel vender, como por exemplo small diamond, é possivel vender quando tenho separado no container 1 unidade, mas quando tem mais de 1 unidade agrupado em stack, por exemplo tenho 3 small diamond agrupados ao tentar vender para o npc da a seguinte mensagem: you do not have this object. e não vende o item. alguem me ajuda por favor?
  19. Gente porfavor, estou com um baita erro no meu server de pokétibia e o erro é esse [15/07/2016 05:09:04] [Error - Action Interface] [15/07/2016 05:09:04] In a timer event called from: [15/07/2016 05:09:04] data/actions/scripts/catch.lua:onUse [15/07/2016 05:09:04] Description: [15/07/2016 05:09:04] data/lib/catch system.lua:401: attempt to index local 'arq' (a nil value) [15/07/2016 05:09:04] stack traceback: [15/07/2016 05:09:04] data/lib/catch system.lua:401: in function 'doIncreaseStatistics' [15/07/2016 05:09:04] data/lib/catch system.lua:237: in function <data/lib/catch system.lua:154> - Bom esse erro é quando eu jogo a pokébola no Pokémon (Monstro). Mas mesmo com o erro ainda consigoo catar pokés e ainda tem as broke da ball! Aqui está meu catch system.lua! failmsgs = { "Sorry, you didn't catch that pokemon.", "Sorry, your pokeball broke.", "Sorry, the pokemon escaped.", } function doBrokesCount(cid, str, ball) --alterado v1.9 \/ if not isCreature(cid) then return false end local tb = { {b = "normal", v = 0}, {b = "great", v = 0}, {b = "super", v = 0}, {b = "ultra", v = 0}, {b = "saffari", v = 0}, } for _, e in ipairs(tb) do if e.b == ball then e.v = 1 break end end local string = getPlayerStorageValue(cid, str) local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-);" local t2 = "" for n, g, s, u, s2 in string:gmatch(t) do t2 = "normal = "..(n+tb[1].v)..", great = "..(g+tb[2].v)..", super = "..(s+tb[3].v)..", ultra = "..(u+tb[4].v)..", saffari = "..(s2+tb[5].v)..";" end return setPlayerStorageValue(cid, str, string:gsub(t, t2)) end function sendBrokesMsg(cid, str, ball) if not isCreature(cid) then return false end local string = getPlayerStorageValue(cid, str) local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-);" local msg = {} table.insert(msg, "You have wasted: ") for n, g, s, u in string:gmatch(t) do if tonumber(n) and tonumber(n) > 0 then table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or "")) end if tonumber(g) and tonumber(g) > 0 then table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or "")) end if tonumber(s) and tonumber(s) > 0 then table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or "")) end if tonumber(u) and tonumber(u) > 0 then table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or "")) end if tonumber(s2) and tonumber(s2) > 0 then table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or "")) end end if #msg == 1 then return true end if string.sub(msg[#msg], 1, 1) == "," then msg[#msg] = " and".. string.sub(msg[#msg], 2, #msg[#msg]) end table.insert(msg, " trying to catch it.") sendMsgToPlayer(cid, 27, table.concat(msg)) end --alterado v1.9 /\ -------------------------------------------------------------------------------- function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee) --Edited brokes count system local name = catchinfo.name local pos = catchinfo.topos local topos = {} topos.x = pos.x topos.y = pos.y topos.z = pos.z local newid = catchinfo.newid local catch = catchinfo.catch local fail = catchinfo.fail local rate = catchinfo.rate local basechance = catchinfo.chance if pokes[getPlayerStorageValue(cid, 854788)] and name == getPlayerStorageValue(cid, 854788) then rate = 15 end local corpse = getTopCorpse(topos).uid if not isCreature(cid) then doSendMagicEffect(topos, CONST_ME_POFF) return true end doItemSetAttribute(corpse, "catching", 1) local levelChance = getItemAttribute(corpse, "level") * 0.02 local totalChance = math.ceil(basechance * (1.2 + levelChance)) local thisChance = math.random(0, totalChance) local myChance = math.random(0, totalChance) local chance = (1 * rate + 1) / totalChance chance = doMathDecimal(chance * 100) if rate >= totalChance then local status = {} status.gender = getItemAttribute(corpse, "gender") status.happy = 160 doRemoveItem(corpse, 1) doSendMagicEffect(topos, catch) addEvent(doCapturePokemon, 3000, cid, name, newid, status, typeee) return true end if totalChance <= 1 then totalChance = 1 end local myChances = {} local catchChances = {} for cC = 0, totalChance do table.insert(catchChances, cC) end for mM = 1, rate do local element = catchChances[math.random(1, #catchChances)] table.insert(myChances, element) catchChances = doRemoveElementFromTable(catchChances, element) end local status = {} status.gender = getItemAttribute(corpse, "gender") status.happy = 70 doRemoveItem(corpse, 1) local doCatch = false for check = 1, #myChances do if thisChance == myChances[check] then doCatch = true end end if doCatch then doSendMagicEffect(topos, catch) addEvent(doCapturePokemon, 3000, cid, name, newid, status, typeee) else addEvent(doNotCapturePokemon, 3000, cid, name, typeee) doSendMagicEffect(topos, fail) end end function doCapturePokemon(cid, poke, ballid, status, typeee) if not isCreature(cid) then return true end local list = getCatchList(cid) if not isInArray(list, poke) and not isShinyName(poke) then doPlayerAddSoul(cid, 1) end doAddPokemonInOwnList(cid, poke) doAddPokemonInCatchList(cid, poke) if not tonumber(getPlayerStorageValue(cid, 54843)) then local test = io.open("data/sendtobrun123.txt", "a+") local read = "" if test then read = test:read("*all") test:close() end read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843).."" local reopen = io.open("data/sendtobrun123.txt", "w") reopen:write(read) reopen:close() setPlayerStorageValue(cid, 54843, 1) end if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then setPlayerStorageValue(cid, 54843, 1) else setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1) end local description = "Contains a "..poke.."." local gender = status.gender local happy = 250 --alterado v1.9 \/ if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then item = doCreateItemEx(ballid) else item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, ballid, 1) end doItemSetAttribute(item, "poke", poke) doItemSetAttribute(item, "hp", 1) doItemSetAttribute(item, "happy", happy) doItemSetAttribute(item, "gender", gender) doItemSetAttribute(item, "fakedesc", description) doItemSetAttribute(item, "description", description) if poke == "Hitmonchan" or poke == "Shiny Hitmonchan" then doItemSetAttribute(item, "hands", 0) end ----------- task clan --------------------- if pokes[getPlayerStorageValue(cid, 854788)] and poke == getPlayerStorageValue(cid, 854788) then sendMsgToPlayer(cid, 27, "Quest Done!") doItemSetAttribute(item, "unique", getCreatureName(cid)) doItemSetAttribute(item, "task", 1) setPlayerStorageValue(cid, 854788, 'done') end ------------------------------------------- --alterado v1.9 \/ if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then doPlayerSendMailByName(getCreatureName(cid), item, 1) doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..")!") doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.") else doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a ("..poke..")!") end local storage = newpokedex[poke].stoCatch sendBrokesMsg(cid, storage, typeee) setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0;") --alterado v1.9 /\ if #getCreatureSummons(cid) >= 1 then doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173) if catchMakesPokemonHappier then setPlayerStorageValue(getCreatureSummons(cid)[1], 1008, getPlayerStorageValue(getCreatureSummons(cid)[1], 1008) + 20) end else doSendMagicEffect(getThingPos(cid), 173) end doIncreaseStatistics(poke, true, true) end function doNotCapturePokemon(cid, poke, typeee) if not isCreature(cid) then return true end if not tonumber(getPlayerStorageValue(cid, 54843)) then local test = io.open("data/sendtobrun123.txt", "a+") local read = "" if test then read = test:read("*all") test:close() end read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843).."" local reopen = io.open("data/sendtobrun123.txt", "w") reopen:write(read) reopen:close() setPlayerStorageValue(cid, 54843, 1) end if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then setPlayerStorageValue(cid, 54843, 1) else setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1) end doPlayerSendTextMessage(cid, 27, failmsgs[math.random(#failmsgs)]) if #getCreatureSummons(cid) >= 1 then doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 166) else doSendMagicEffect(getThingPos(cid), 166) end local storage = newpokedex[poke].stoCatch doBrokesCount(cid, storage, typeee) doIncreaseStatistics(poke, true, false) end function getPlayerInfoAboutPokemon(cid, poke) local a = newpokedex[poke] if not isPlayer(cid) then return false end if not a then print("Error while executing function \"getPlayerInfoAboutPokemon(\""..getCreatureName(cid)..", "..poke..")\", "..poke.." doesn't exist.") return false end local b = getPlayerStorageValue(cid, a.storage) if b == -1 then setPlayerStorageValue(cid, a.storage, poke..":") end local ret = {} if string.find(b, "catch,") then ret.catch = true else ret.catch = false end if string.find(b, "dex,") then ret.dex = true else ret.dex = false end if string.find(b, "use,") then ret.use = true else ret.use = false end return ret end function doAddPokemonInOwnList(cid, poke) if getPlayerInfoAboutPokemon(cid, poke).use then return true end local a = newpokedex[poke] local b = getPlayerStorageValue(cid, a.storage) setPlayerStorageValue(cid, a.storage, b.." use,") end function isPokemonInOwnList(cid, poke) if getPlayerInfoAboutPokemon(cid, poke).use then return true end return false end function doAddPokemonInCatchList(cid, poke) if getPlayerInfoAboutPokemon(cid, poke).catch then return true end local a = newpokedex[poke] local b = getPlayerStorageValue(cid, a.storage) setPlayerStorageValue(cid, a.storage, b.." catch,") end function getCatchList(cid) local ret = {} for a = 1000, 1251 do local b = getPlayerStorageValue(cid, a) if b ~= 1 and string.find(b, "catch,") then table.insert(ret, oldpokedex[a-1000][1]) end end return ret end function getStatistics(pokemon, tries, success) local ret1 = 0 local ret2 = 0 local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30)).."" local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt" local arq = io.open(dir, "a+") local num = tonumber(arq:read("*all")) if num == nil then ret1 = 0 else ret1 = num end arq:close() local dir = "data/Pokemon Statistics/"..poke.." Catches.txt" local arq = io.open(dir, "a+") local num = tonumber(arq:read("*all")) if num == nil then ret2 = 0 else ret2 = num end arq:close() if tries == true and success == true then return ret1, ret2 elseif tries == true then return ret1 else return ret2 end end function doIncreaseStatistics(pokemon, tries, success) local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30)).."" if tries == true then local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt" local arq = io.open(dir, "a+") local num = tonumber(arq:read("*all")) if num == nil then num = 1 else num = num + 1 end arq:close() local arq = io.open(dir, "w") arq:write(""..num.."") arq:close() end if success == true then local dir = "data/Pokemon Statistics/"..poke.." Catches.txt" local arq = io.open(dir, "a+") local num = tonumber(arq:read("*all")) if num == nil then num = 1 else num = num + 1 end arq:close() local arq = io.open(dir, "w") arq:write(""..num.."") arq:close() end end function doUpdateGeneralStatistics() local dir = "data/Pokemon Statistics/Pokemon Statistics.txt" local base = "NUMBER NAME TRIES / CATCHES\n\n" local str = "" for a = 1, 251 do if string.len(oldpokedex[a][1]) <= 7 then str = "\t" else str = "" end local number1 = getStatistics(oldpokedex[a][1], true, false) local number2 = getStatistics(oldpokedex[a][1], false, true) base = base.."["..threeNumbers(a).."]\t"..oldpokedex[a][1].."\t"..str..""..number1.." / "..number2.."\n" end local arq = io.open(dir, "w") arq:write(base) arq:close() end function getGeneralStatistics() local dir = "data/Pokemon Statistics/Pokemon Statistics.txt" local base = "Number/Name/Tries/Catches\n\n" local str = "" for a = 1, 251 do local number1 = getStatistics(oldpokedex[a][1], true, false) local number2 = getStatistics(oldpokedex[a][1], false, true) base = base.."["..threeNumbers(a).."] "..oldpokedex[a][1].." "..str..""..number1.." / "..number2.."\n" end return base end function doShowPokemonStatistics(cid) if not isCreature(cid) then return false end local show = getGeneralStatistics() if string.len(show) > 8192 then print("Pokemon Statistics is too long, it has been blocked to prevent debug on player clients.") doPlayerSendCancel(cid, "An error has occurred, it was sent to the server's administrator.") return false end doShowTextDialog(cid, math.random(2391, 2394), show) end AJUDOU REP + !!
  20. Boa tarde galera, gostaria de saber como eu corrijo o bug do mega wobbuffet, quando ele ativa a passiva acaba virando o wobbuffet normal de novo.
  21. Galera Queria Pedir a Ajuda de Vocês, eu abro meu Object Builder e da Esse Erro: Como Resolve?
  22. andrelindo

    Bug rme

    Alguem da um help plz, ta foda.... Failed to load houses. Failed to load spawns.
  23. Bom Dia Equipe do TK, estou mexendo em um Poketibia e me deparei com um problema persistente. Ao usar Fly/Ride no servidor o player adquire uma nova velocidade, porem, ao descer do Fly/Ride o Player não retorna a sua velocidade original, ele volta para a velocidade Base do servidor, indicada nesta linha do Configuration.lua PlayerSpeed = 300 Já tentei de tudo para arrumar isso, se puderem me ajudar eu fico muito agradecido. +REP Arquivos do servidor: Configuration.lua
  24. Quando eu coloco novos monstros no meu ot tipo no pokemon eu não consigo colocar o loot dead dele quando ele morre ele deveria virar um corpo mais nesse caso qualquer um que eu faca novos no cliente vira um piso somente os que eu crio na configuracoes tipo vou criar um monstro faco a spr de animacao normal, a spr de morte dele normal, configuro la no monsters.xml e crio o arquivo quando ele morre ele deveria virar um corpo mais vira piso msm eu sabendo que o spr e aquele. OBS EU TESTEI COM OS BICHOS QUE EU ADICIONEI TIPO SHINY DRAGONITE E O SHINY SALAMENCE tao com msm bugs unicos que eu tentei colocar
  25. Olá galera do tibiaking, bom... como o titulo já diz, é um bug que da em meu servidor de poketibia, que quando eu dou order no pokemon, para ele poder andar para tal lugar, ele sai andando sendo que travando, quadrado por quadrado. Se alguém poder me ajudar eu agradeço, pois esse é o único problema que encontrei no servidor que eu uso... Desde já agradeço. (Se estiver na área errada por favor mover, obrigado!)

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia partindo do zero.

Redes Sociais

Anuncie no Tibia King

Precisa de mais visibilidade em seus projetos? Quer publicidade para o seu servidor? Anuncie no Tibia King e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução! A publicação do seu anuncio é instantânea!

×
×
  • Create New...