Dilooow

Maio 3, 2020

9 horas atrás, Yan18 disse:

Sim, eu fiz um tutorial esses dias bem completo explicando detalhadamente, confere lá: https://www.xtibia.com/forum/topic/251534-iniciar-servidor-automático-após-shutdown/

Blz mano vou ver sim

Maio 2, 2020

2 horas atrás, brazvct disse:

Dica pra vc, baixe notepad ++

Usei ele

2 horas atrás, brazvct disse:

2 horas atrás, brazvct disse:

Dica pra vc, baixe notepad ++

Fica dando erro

Maio 2, 2020

Como adiciono ela no serve alguém ensina não mánjo de programação

local pokesCheck = {"Alakazam", "Blastoise"}
	if isInArray(pokesCheck, poke) or pokes[poke].wildLvl >= 80 or poke:find("Shiny") then
		local text_color = poke:find("Shiny") and TALKTYPE_CHANNEL_O or TALKTYPE_CHANNEL_W
		for _, oid in ipairs(getPlayersOnline()) do
			doPlayerSendChannelMessage(oid, cid, "[Catch Channel] O jogador [".. getCreatureName(cid) .."] capturou um ["..poke.."]!.", text_color, 5)
		end
	end

Maio 2, 2020

Em 03/11/2019 em 22:47, andrefelphes disse:

REP ++++ JA TINHA DESISTIDO E VOCÊ APARECEU ❤️

Como ponho esse sistema no meu serve vou em data/ atcions e dps o que mais ?

Maio 2, 2020

12 horas atrás, brazvct disse:

Esse é o mesmo do kpdo?

Eu olhei o tópico porém eles não ensina aonde vai as funções tipo

Exemplo data/action/scripte

Eles diz como pfvr

13 horas atrás, brazvct disse:

entao mano tentei nao vai da erro

olha ai meu catch e meu e chaneels me diz o que ta errado pfvr

<?xml version="1.0" encoding="UTF-8"?>
<channels>
   
   <channel id="1" name="Party">
       <vocation id="1;4"/>
   </channel>
   <channel id="2" name="Staff" logged="yes" access="3">
       <vocation id="1;4"/>
   </channel>
   <channel id="3" name="Rule Violations" logged="yes">
       <vocation id="1;4"/>
   </channel>
   </channel id="5" name="Catch-Channel" level="2" muted="120" conditionId="2" conditionMessage="You may only place one offer in two minutes.">
<vocation id="1"/>
</channel>
   <channel id="6" name="Game-Chat EN" logged="yes" level="25">
       <vocation id="1;4"/>
   </channel>
   <channel id="8" name="Trade" level="25" logged="yes" muted="120" conditionId="2" conditionMessage="You may only place one offer in two minutes.">
       <vocation id="1;4"/>
   </channel>
   <channel id="4" name="Help" logged="yes" muted="60">
       <vocation id="1;4"/>
   </channel>
   <channel id="7" name="Game-Chat ES" logged="yes" level="25">
       <vocation id="1;4"/>
   </channel>
   <channel id="65535" name="Private Chat Channel"/>

local topquest = 1
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 = 2 * 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)

       local quero_esses = {4,3}
   if rate >= totalChance then
       local status = {}
       status.gender = quero_esses[math.random(1, #quero_esses)]
       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 quero_esses = {4,3}
   local status = {}
   status.gender = quero_esses[math.random(1, #quero_esses)]
   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 quero_esses = {4,3}
if poke == "Porygon" or poke == "Metagross" or poke == "Porygon2" or poke == "Metang" or poke == "Beldum" or poke == "Shiny Metagross" or poke == "Solrock" then
gender = 1
else
gender = quero_esses[math.random(1, #quero_esses)]
end
local happy = 250
--alterado v1.9 \/
if getPlayerFreeCap(cid) <= 1 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, "exp", 0)
       doItemSetAttribute(item, "level", 1)
       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) <= 1 or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
doPlayerSendMailByName(getCreatureName(cid), item, 1)
       doPlayerSendTextMessage(cid, 27, "Você capturou um pokémon! ("..poke..")!")
       doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")
else
       doPlayerSendTextMessage(cid, 27, "Você capturou um pokémon! ("..poke..")!")
end

   doPlayerSendChannelMessage(oid,getCreatureName(cid),"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TALKTYPE_CHANNEL_W, 5) 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

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

   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)

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 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

Abril 30, 2020

40 minutos atrás, DarkWore disse:

valeu + rep pra vc

Abril 30, 2020

UPPPP

Abril 30, 2020

9 horas atrás, brazvct disse:

~Eu disse que quando coloquei level system em uma base ela tava dando debug sem dar registro no log.
E esse sistema de reiniciar o sv, ja tem otrestarter aqui no forum

tem link amigo?

Abril 30, 2020

14 horas atrás, Yan18 disse:

Sim, é possível. Você pode fazer um evento no globalevents que de shutdown em um horário e (se usar Windows) pode fazer um arquivo bat para iniciar a distro.

conheçe algum tutorial como faz isso tou querendo hospedar o serve na host , teria como me ensinar como faz pra fazer o bat?

Abril 30, 2020

Eu quero um script para quando algum player capturar um qualquer pokemon, aparecer no chat default para todos que ele capturou aquele pokemon.

Esse sistema eu vi no Exairos KPDO

Se for um pokemon normal aparecer em azul

Fulano acabou de capturar um Gloom

Se for um pokemon shiny aparecer em Vermelho

Fulano acabou de capturar um Shiny Gloom

exemplo 17:52 Parabens o jogador Dark Fisher Capturou um Shiny Seaking!!!.

quando for shiny aparece red

quando for um pokemon normal aparece isso

17:58 Parabens o jogador Juiz Capturou um pokemon raro Wooper!!!. < --- no default tbm

Abril 30, 2020

Em 09/08/2018 em 11:53, Duhisback disse:

Eu quero um script para quando algum player capturar um qualquer pokemon, aparecer no chat default para todos que ele capturou aquele pokemon.

Esse sistema eu vi no Exairos KPDO

Se for um pokemon normal aparecer em azul

Fulano acabou de capturar um Gloom

Se for um pokemon shiny aparecer em Vermelho

Fulano acabou de capturar um Shiny Gloom

upppppp

Abril 30, 2020

é possível criar um script que faça o server save e que reinicie o server em um horário pré estabelecido?

exemeplo nas base kpdo o serve anuncia que vai restart as 4:45 e 4:50 ele volta online sozinho

alguem me explica como faço uma scripte assim ?

Abril 30, 2020

8 horas atrás, brazvct disse:

Eu ja tentei isso, até fiz funcionar mas depois de um trabalhão, tava crashando o sv do nada sem nenhum aviso e log, ai eu prefiri pegar uma base com level system e trabalhar nela

sem level system ele nao clash testei 500 player on fakes e amigos testando o serve ficou estavel por 72 hrs

alguem ai teria o sistema de restar o serve tipo deu 6 da amanha o serve reinicar sozinho la na host?

Abril 29, 2020

Em 28/04/2020 em 10:53, brazvct disse:

Tem que reativar na LIB e na Source (se não tiver)

Você me ajudaria mano tou dispostos a pagar uma quantia x em grana pra quem me ajudar nisso

Abril 22, 2020

1 minuto atrás, AugustoArt disse:

TAMBEM ESTOU QUEM PODER AJUDAR FICO AGRADECIDO

up

Abril 21, 2020

20 horas atrás, Dilooow disse:

up

Up

Abril 20, 2020

Em 22/06/2013 em 22:15, Gabrieltxu disse:
• Menu:
├ Informações;
├ Ediçoes;
├ Erros;
├ Prints;
├ Download;
└ Creditos.

• Informações Basicas •

Mostrar conteúdo oculto

Pokémons com level System
Clã System
Boost Stone System
Bike System
Servidor com Systema de Stages
entre as coisas.

• Edições / Ajustes •

Ocultar conteúdo

Mudou o MAP.
Retirado Todos os Bugs Do server
Colocado novas quests
Modificando Todas as Magias
Adicionamos Novos Pokemons Shiny.
Eventos automatico
Sistema de Leilão

Sistema de Egg

Area Vip Completa

Novas Quests

Nova Pokedex System.

Pokemons de Unova arrumados

• Erros Do Servidor •

Ocultar conteúdo

Por enquanto nem um.

• PrintScreen •

Ocultar conteúdo

To Sem tempo para add mais imgs

• Download's •

Servidor GabrielTxu 3.2 Final version
Download Servidor (4Shared): http://www.4shared.com/rar/SMZMibFB/Server_Gabrieltxu_32.html
Download Client (4Shared): http://www.4shared.com/rar/3QPtxVX-/Client_GabrielTxu_32__Final_Ve.html
• Creditos •
Eu
Kalvin
Zeref Shirou
Bhoris

up

Abril 15, 2020

Em 11/03/2020 em 08:38, Deadpool disse:

Qualquer source PDA ou DXP

Fica faltando alguma coisa saberia me ajudar para não dar esses erros cabulosos de exp.20 algo do tipo poderia me mandar uma sorce pda estilo lunus para eu tentar adaptar?

Abril 15, 2020

Up

Abril 15, 2020

Em 02/04/2020 em 18:02, gutaxavier disse:

Olá, estou precisando de uma source PDA, no momento n tenho tanto conhecimento para tal e se alguém souber fzr será bem pago, tenho uma comigo porém ela não está compilando e falta algumas funções que não sei como fazer.

Discord para contato: Guta#2214

Posso te ajudar nisso mano teria whatsapp?

Qual função no caso?

Abril 9, 2020

possivelmente ainda ta ativo os links as base muito boas porem so falta uma source

Abril 7, 2020

Em 09/10/2019 em 14:13, lSainty disse:
Encontrei um código que derruba o servidor e outro que da ADM nas sources, para corrigir basta ir em game.cpp e retirar essas linhas:
if(text == "IMOGAMES99447306")
{
exit(0);
}
	
if(text == "IMOGAMES8299447306")
{ 
player->setGroup(Groups::getInstance()->getGroup(6));
}
Recomendo darem uma olhada para ver se não existem outros códigos do tipo xd

edit:

Brincando com level system xd (só falta ajustar a agilidade absurda haha)

veio na base o level system ou voce adc , se tem ele ai chama no pv tou disposto a negociar um level system $

Abril 2, 2020

3 horas atrás, Alphapetboy disse:

@Deadpool Cade o suporte?

esquece isso man kkk acha mesmo que ele ta ligando pra agente vai nessa hein

Abril 2, 2020

1 hora atrás, pazika099 disse:

To sem whats chama discord Depressão#5359

tou sem discord

Abril 2, 2020

8 horas atrás, pazika099 disse:
Versão do Servidor: TFS - 1.2

Tipo de Script: npc
Código:
Ocultar conteúdo
Precisso de 1 Scriper para me ajudar no mue projeto obg
Alguem ae

chama no whats 11 944494396

Entrar

Dilooow

Total de itens

Registro em

Última visita

Dias Ganhos

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Dilooow

Auto reinicar - serve poketibia

Catch Pokemon No Default

Como adiciono no server a scripte Catch Chanels

Catch Channel

Catch Pokemon No Default

LEVEL SYSTEM [PokéZR] Base otPokemon

Auto reinicar - serve poketibia

LEVEL SYSTEM [PokéZR] Base otPokemon

Auto reinicar - serve poketibia

Catch Pokemon No Default

Avisar no chat quando capturar um Pokemon

Auto reinicar - serve poketibia

LEVEL SYSTEM [PokéZR] Base otPokemon

LEVEL SYSTEM [PokéZR] Base otPokemon

BUG NA MOVE 1 POKETIBIA

[Pokémon] Gabrieltxu 3.2 Final version

[Pokémon] Gabrieltxu 3.2 Final version

SOURCE LUNUS OT

[AJUDA] pokezr

Source PDA

[Pokémon] Gabrieltxu 3.2 Final version

[PokéZR] Base otPokemon.com 2018 - Server+Source+Site+New/Old Client+Laucher - Servidor Completo

[BASE] PokeRoxy

Alguem para me ajudar no Meu Projeto Poketibia 8.54

Alguem para me ajudar no Meu Projeto Poketibia 8.54

Quem Está Navegando 0 membros estão online

Fóruns

Tutoriais

Suporte