Kemmlly

Ha um tempo atrás eu procurei um Pet System bem simples pro meu servidor, e achei um muito bacana.
 
TFS: 0.4
Tibia: 8.6
 
O sistema original foi postado pelo @Luquinha no tópico:
O script funciona corretamente, eu fiz apenas algumas alterações e queria compartilhar caso vocês tenham as mesmas exigências que eu;
 
* Ao tentar usar o PET em PZ não da mais erro na distro, sobe um efeito FAILED! no player e manda uma mensagem.
* Agora cada PET precisa de um storage para ser usado, no meu caso, cada PET tem sua quest individual.
 
O script modificado:
function onUse(cid, item, frompos, item2, topos) local dolls = { [11256] = {pet = "Rat"}, [11207] = {pet = "Demon"}, [5791] = {pet = "Dragon"}, } local go = dolls[item.itemid] local summon = getCreatureSummons(cid) --------------------------------------------------- if not (getTilePzInfo(getCreaturePosition(cid))) then if #summon >= 1 then for _, pid in ipairs(summon) do doRemoveCreature(pid) doCreatureSay(cid, ""..go.pet..", Recuar!", TALKTYPE_ORANGE_1) end return true end if item.itemid == 5791 then if getPlayerStorageValue(cid, 6666) == 1 then doConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid))) doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1) else doPlayerSendTextMessage(cid, 19, "Voce precisa da quest para usar esse PET!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) end end if item.itemid == 11256 then if getPlayerStorageValue(cid, 4444) == 1 then doConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid))) doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1) else doPlayerSendTextMessage(cid, 19, "Voce precisa da quest para usar esse PET!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) end end if item.itemid == 11207 then if getPlayerStorageValue(cid, 4445) == 1 then doConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid))) doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1) else doPlayerSendTextMessage(cid, 19, "Voce precisa fazer a quest para usar esse PET!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) end end else doPlayerSendTextMessage(cid, 19, "Voce nao pode sumonar seu PET em Protect Zone!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) return true end end Creditos: @Luquinha @Roksas @Kemmlly

Vi alguns tópicos antigos com a seguinte dúvida; "Quando um jogador fica vip e adicionar o nome [VIP] na frente, outros jogadores conseguem criar um cha com o mesmo nome que o dele, assim, quando acaba a VIP e o nome vai voltar ao normal da erro na distro, como corrigir isso?" e não achei solução, então, criei uma, para quem precisa está aqui:
 
accountmanagement.php, procure por:
$newchar_errors[] .= 'You have too many characters on your account <b>('.$number_of_players_on_account.'/'.$config['site']['max_players_per_account'].')</b>!'; Adicione embaixo:
$check_name_in_database->find("[vip] $newchar_name"); if($check_name_in_database->isLoaded()) $newchar_errors[] .= 'Esse nome ja esta sendo usado, por favor, escolha outro!'; Em:
("[vip] $newchar_name") Se sua abreviação do vip for difetene como (vip) ou só VIP você altera.

arquivo /data/creaturescripts/scripts/double.lua
function onLogin(cid) local storage = 998899 -- STORAGE QUE QUER USAR local xp = 2 -- QUANTIDADE QUE VAI MULTIPLICAR O XP if getPlayerStorageValue(cid, storage) == 1 then local rates = getPlayerRates(cid) doCreatureSay(cid, "Voce esta com o XP dobrado, aproveite!", TALKTYPE_ORANGE_1, true, cid) doPlayerSetExperienceRate(cid, rates[SKILL__LEVEL]*xp) end return true end tag /data/creaturescripts/creaturescripts.xml
<event type="login" name="double" event="script" value="double.lua"/>  

Ha um tempo atrás eu procurei um Pet System bem simples pro meu servidor, e achei um muito bacana.
 
TFS: 0.4
Tibia: 8.6
 
O sistema original foi postado pelo @Luquinha no tópico:
O script funciona corretamente, eu fiz apenas algumas alterações e queria compartilhar caso vocês tenham as mesmas exigências que eu;
 
* Ao tentar usar o PET em PZ não da mais erro na distro, sobe um efeito FAILED! no player e manda uma mensagem.
* Agora cada PET precisa de um storage para ser usado, no meu caso, cada PET tem sua quest individual.
 
O script modificado:
function onUse(cid, item, frompos, item2, topos) local dolls = { [11256] = {pet = "Rat"}, [11207] = {pet = "Demon"}, [5791] = {pet = "Dragon"}, } local go = dolls[item.itemid] local summon = getCreatureSummons(cid) --------------------------------------------------- if not (getTilePzInfo(getCreaturePosition(cid))) then if #summon >= 1 then for _, pid in ipairs(summon) do doRemoveCreature(pid) doCreatureSay(cid, ""..go.pet..", Recuar!", TALKTYPE_ORANGE_1) end return true end if item.itemid == 5791 then if getPlayerStorageValue(cid, 6666) == 1 then doConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid))) doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1) else doPlayerSendTextMessage(cid, 19, "Voce precisa da quest para usar esse PET!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) end end if item.itemid == 11256 then if getPlayerStorageValue(cid, 4444) == 1 then doConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid))) doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1) else doPlayerSendTextMessage(cid, 19, "Voce precisa da quest para usar esse PET!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) end end if item.itemid == 11207 then if getPlayerStorageValue(cid, 4445) == 1 then doConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid))) doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1) else doPlayerSendTextMessage(cid, 19, "Voce precisa fazer a quest para usar esse PET!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) end end else doPlayerSendTextMessage(cid, 19, "Voce nao pode sumonar seu PET em Protect Zone!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) return true end end Creditos: @Luquinha @Roksas @Kemmlly

Ha um tempo atrás eu procurei um Pet System bem simples pro meu servidor, e achei um muito bacana.
 
TFS: 0.4
Tibia: 8.6
 
O sistema original foi postado pelo @Luquinha no tópico:
O script funciona corretamente, eu fiz apenas algumas alterações e queria compartilhar caso vocês tenham as mesmas exigências que eu;
 
* Ao tentar usar o PET em PZ não da mais erro na distro, sobe um efeito FAILED! no player e manda uma mensagem.
* Agora cada PET precisa de um storage para ser usado, no meu caso, cada PET tem sua quest individual.
 
O script modificado:
function onUse(cid, item, frompos, item2, topos) local dolls = { [11256] = {pet = "Rat"}, [11207] = {pet = "Demon"}, [5791] = {pet = "Dragon"}, } local go = dolls[item.itemid] local summon = getCreatureSummons(cid) --------------------------------------------------- if not (getTilePzInfo(getCreaturePosition(cid))) then if #summon >= 1 then for _, pid in ipairs(summon) do doRemoveCreature(pid) doCreatureSay(cid, ""..go.pet..", Recuar!", TALKTYPE_ORANGE_1) end return true end if item.itemid == 5791 then if getPlayerStorageValue(cid, 6666) == 1 then doConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid))) doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1) else doPlayerSendTextMessage(cid, 19, "Voce precisa da quest para usar esse PET!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) end end if item.itemid == 11256 then if getPlayerStorageValue(cid, 4444) == 1 then doConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid))) doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1) else doPlayerSendTextMessage(cid, 19, "Voce precisa da quest para usar esse PET!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) end end if item.itemid == 11207 then if getPlayerStorageValue(cid, 4445) == 1 then doConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid))) doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1) else doPlayerSendTextMessage(cid, 19, "Voce precisa fazer a quest para usar esse PET!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) end end else doPlayerSendTextMessage(cid, 19, "Voce nao pode sumonar seu PET em Protect Zone!") doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180) return true end end Creditos: @Luquinha @Roksas @Kemmlly

E aí galera. Alguns membros do TK vieram me pedir ajuda para corrigir um erro no evento Snow Ball, que os jogadores ficam presos na sala de espera e não inicia o evento, em alguns da um erro relacionado ao "Position".
Bem, em todos os casos até agora resolvi dessa forma:
 
No script SBW.lua tanto em globalevents quanto em talkactions, troque essa parte:
posti = Position(math.random(t_l.x,b_r.x), math.random(t_l.y, b_r.y), 7) Por essa:
posti = ({x=math.random(t_l.x,b_r.x), y=math.random(t_l.y, b_r.y), z=math.random(t_l.z, b_r.z)})  
Em todos os casos o problema foi resolvido, acredito que esteja relacionado a versão do servidor para que foi criado o evento e a versão diferente de alguns jogadores que o usa.
Se tiver com o mesmo problema e isso não resolver, me falem que vejo o que posso fazer.
 
@helix758 @BobStyle10 @matheuzinowned
 
 
 

Sources a grosso modo são os arquivos individuais de programação que compilados formam o executável "TheForgotenServer.exe" por exemplo. Você edita a programação do jogo nas sources e com o programa de compilar transforma em .EXE, assim que são criados os "Poketibias, dragon ball, naruto e etc..." Se seu ot não veio com as sources, procura na net que provavelmente terá em algum lugar.
 
A importância de ter as sources do seu server é que tem coisas que só da pra mudar por ela, algumas aparencias, fuções do jogo, a jogabilidade em si e etc.
 
Não da pra começar um OT do "zero" pq de qualquer forma você ja vai pegar as sources prontas, mas, você pode modificar para ficar do jeito que voce quer, fazendo assim um jogo "derivado", claro que com um certo conhecimento em programação, principalmente em C.  

Ainda precisa?

Especifica o erro que da, se sua internet é compartilhada ou IP fixo, se usa hamachi ou outro programa do genero.

Se vc já tem os sprites do personagem com o equipamento o script só precisa mudar de outfit e equipar os mesmos. Vc passa os ids dos itens e o id do outfit q explico como funciona.

As sources sem compilar são arquivos independentes, elas não vão alterar em nada seu jogo, você pode mexer nelas como quiser. Elas só fazer diferença se forem alteradas, no caso abrir elas e mudar a programação e depois disso compilar para um EXE, que seria o arquivo que você usa como servidor para acessar o jogo, ai sim mudaria algo. 
 
Mas elas vem acompanhando os arquivos do jogo justamente para você editar e compilar se quiser, sem compilação elas não alteram seu jogo em nada.

Peguei um script do Avuenja e adaptei de acordo com o q vc pediu.
 
local config = { --[vocation id] = { level, storage, looktype, efeito} [1] = { 50, 89748, 261, 32}, [2] = { 50, 89748, 261, 32}, [3] = { 50, 89748, 261, 32}, [4] = { 50, 89748, 261, 32}, [5] = { 50, 89748, 261, 32}, [6] = { 50, 89748, 261, 32}, [7] = { 50, 89748, 261, 32}, [8] = { 50, 89748, 261, 32} } function onSay(cid, words, param, channel) local voc = config[getPlayerVocation(cid)] if voc then if getPlayerLevel(cid) >= voc[1] and getPlayerStorageValue(cid, voc[2]) == 1 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, "Voce Transformou!") local outfit = {lookType = voc[3]} doCreatureChangeOutfit(cid, outfit) doSendMagicEffect(getCreaturePosition(cid), voc[4]) elseif getPlayerLevel(cid) >= voc[1]and getPlayerStorageValue(cid, voc[2]) ~= 1 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, "Voce precisa fazer a quest para se Transformar!") elseif getPlayerLevel(cid) < voc[1] then doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, "Voce precisa estar no level " .. voc[1] .. " e fazer a quest para transformar.") end end return true end  
Nesse eu nao coloquei para mudar de vocação como o script original dele, apenas muda o outfit se o jogador tiver o storage da quest. Creio que voce saiba mudar o outfit, vocação, level e efeito no script. Testa e me fala.
 
Creditos: Avuenja - Script original.

Vi alguns tópicos antigos com a seguinte dúvida; "Quando um jogador fica vip e adicionar o nome [VIP] na frente, outros jogadores conseguem criar um cha com o mesmo nome que o dele, assim, quando acaba a VIP e o nome vai voltar ao normal da erro na distro, como corrigir isso?" e não achei solução, então, criei uma, para quem precisa está aqui:
 
accountmanagement.php, procure por:
$newchar_errors[] .= 'You have too many characters on your account <b>('.$number_of_players_on_account.'/'.$config['site']['max_players_per_account'].')</b>!'; Adicione embaixo:
$check_name_in_database->find("[vip] $newchar_name"); if($check_name_in_database->isLoaded()) $newchar_errors[] .= 'Esse nome ja esta sendo usado, por favor, escolha outro!'; Em:
("[vip] $newchar_name") Se sua abreviação do vip for difetene como (vip) ou só VIP você altera.

@Baned 
if getCreaturePosition(cid).z == 10 then  

@ivs6556740
Tenta esse:
local config = { broadcast = {120, 30}, shallow = "no", delay = 120, events = 30 } config.shallow = getBooleanFromString(config.shallow) local function executeSave(seconds) if(seconds > 0) then addEvent(executeSave, config.events * 1000, seconds - config.events) else doSaveServer(config.shallow) end end function onThink(interval) if(table.maxn(config.broadcast) == 0) then doSaveServer(config.shallow) else executeSave(config.delay) end return true end  

Vi alguns tópicos antigos com a seguinte dúvida; "Quando um jogador fica vip e adicionar o nome [VIP] na frente, outros jogadores conseguem criar um cha com o mesmo nome que o dele, assim, quando acaba a VIP e o nome vai voltar ao normal da erro na distro, como corrigir isso?" e não achei solução, então, criei uma, para quem precisa está aqui:
 
accountmanagement.php, procure por:
$newchar_errors[] .= 'You have too many characters on your account <b>('.$number_of_players_on_account.'/'.$config['site']['max_players_per_account'].')</b>!'; Adicione embaixo:
$check_name_in_database->find("[vip] $newchar_name"); if($check_name_in_database->isLoaded()) $newchar_errors[] .= 'Esse nome ja esta sendo usado, por favor, escolha outro!'; Em:
("[vip] $newchar_name") Se sua abreviação do vip for difetene como (vip) ou só VIP você altera.

@Baned 
if getCreaturePosition(cid).z == 10 then  

Vi alguns tópicos antigos com a seguinte dúvida; "Quando um jogador fica vip e adicionar o nome [VIP] na frente, outros jogadores conseguem criar um cha com o mesmo nome que o dele, assim, quando acaba a VIP e o nome vai voltar ao normal da erro na distro, como corrigir isso?" e não achei solução, então, criei uma, para quem precisa está aqui:
 
accountmanagement.php, procure por:
$newchar_errors[] .= 'You have too many characters on your account <b>('.$number_of_players_on_account.'/'.$config['site']['max_players_per_account'].')</b>!'; Adicione embaixo:
$check_name_in_database->find("[vip] $newchar_name"); if($check_name_in_database->isLoaded()) $newchar_errors[] .= 'Esse nome ja esta sendo usado, por favor, escolha outro!'; Em:
("[vip] $newchar_name") Se sua abreviação do vip for difetene como (vip) ou só VIP você altera.

Vi alguns tópicos antigos com a seguinte dúvida; "Quando um jogador fica vip e adicionar o nome [VIP] na frente, outros jogadores conseguem criar um cha com o mesmo nome que o dele, assim, quando acaba a VIP e o nome vai voltar ao normal da erro na distro, como corrigir isso?" e não achei solução, então, criei uma, para quem precisa está aqui:
 
accountmanagement.php, procure por:
$newchar_errors[] .= 'You have too many characters on your account <b>('.$number_of_players_on_account.'/'.$config['site']['max_players_per_account'].')</b>!'; Adicione embaixo:
$check_name_in_database->find("[vip] $newchar_name"); if($check_name_in_database->isLoaded()) $newchar_errors[] .= 'Esse nome ja esta sendo usado, por favor, escolha outro!'; Em:
("[vip] $newchar_name") Se sua abreviação do vip for difetene como (vip) ou só VIP você altera.

Porcura as colunas:
PLAYERS
ACCOUNTS
PLAYER_STORAGE
GUILDS
 
Seleciona todos os players que quer excluir e exclua, lembrando de não excluir ou alterar os personagens SAMPLE. Se o jogador tiver house ou guild, lembre de deletar elas primeiro.
 
Se quiser poupar o trabalho, procure uma DB limpa, tem alguns topicos aqui que tem, tanto SQL como MYSQL.

Crie um chá pelo site, escolha uma vocação mas n entre no jogo, vá no banco de dados e procure o player e olhe sua vocação se está definido corretamente, se sim, acredito que n seja quey e sim algum script, se não, vá na página create character procure a função vocations e mande pra mim q edito pra você .

@Xaraziinho
["cyclops"] = {monster_race={"cyclops","cyclops smith","cyclops drone"}, storage_start = 200204, storage = 91004,count = 500,exp = 50000,money = 30000},
 
800 era o dinheiro q iria receber

Mande o seu shop.lua

<li><a href="{$path}"><font color="white">Novidades</font></a></li>

item = {2123,1} Mude para o id do item e a quantidade que você quer
exp = 200 Mude para a quantidade de XP que você quer q o player receba quando terminar a task