Biroskak4

Tem sim, amigo. Acabei de criar:
function onUse(cid, item, frompos, item2, topos) -- 5 = MasterSorc, 6 = ElderDruid, 7 = RoyalPally, 8 = EliteKina -- local t = {[1] = {newvoc = 5, stor = 15161}, [2] = {newvoc = 6, stor = 15162}, [3] = {newvoc = 7, stor = 15163}, [4] = {newvoc = 8, stor = 15164}} local voc = t[getPlayerVocation(cid)] if item.uid == 15157 then if voc then if getPlayerStorageValue(cid, voc.stor) == -1 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'Você foi promovido!') doPlayerSetVocation(cid, voc.newvoc) doSendMagicEffect(getPlayerPosition(cid), 49) setPlayerStorageValue(cid, voc.stor, 1) else doPlayerSendCancel(cid, "Você já fez essa quest.") end end return TRUE end end

Olá povin
Esse é meu primeiro tópico. Eu sei que já existem vários Skull Removers pelo site, mas já que estou aprendendo a linguagem .lua, eu acho que nada melhor do que mostrar como eu estou indo. Se quiserem dar sugestões do que poderia ser melhorado ou resumido, podem falar :3
Mas bora lá.
 
 
Vá até Seu OT\data\talkactions\scripts, e lá copie algum arquivo qualquer, e renomeie-o para "skullremover.lua". Abra-o, apague tudo o que estiver dentro, e cole isso:
function onSay(cid, words, param, channel) custo_redskull = 3000000 -- Preço para remover o RedSkull (1.000.000 GPs = 100 Crystal Coins) custo_blackskull = 5000000 -- Preço para remover o BlackSkull texto1_redskull = "Você removeu seu Red Skull por 3kk!" -- Texto ao ser removido o RedSkull texto2_redskull = "Você precisa de 3kk para remover seu Red Skull." -- Texto quando faltar dinheiro para remover o RedSkull texto1_blackskull = "Você removeu seu Black Skull por 5kk!" -- Texto ao ser removido o BlackSkull texto2_blackskull = "Você precisa de 5kk para remover seu Black Skull" -- Texto quando faltar dinheiro para remover o BlackSkull texto_noneskull = "Você não tem Skull para remover" -- Texto quando o player não tem PK Red/Black if (getCreatureSkullType(cid) == 4) then if doPlayerRemoveMoney(cid, custo_redskull) == true then doCreatureSetSkullType(cid, 0) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, texto1_redskull) doSendMagicEffect(getPlayerPosition(cid), 14) else doSendMagicEffect(getPlayerPosition(cid), 2) doPlayerSendTextMessage(cid, 22, texto2_redskull) end end if (getCreatureSkullType(cid) == 5) then if doPlayerRemoveMoney(cid, custo_blackskull) == true then doCreatureSetSkullType(cid, 0) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, texto1_blackskull) doSendMagicEffect(getPlayerPosition(cid), 14) else doSendMagicEffect(getPlayerPosition(cid), 2) doPlayerSendTextMessage(cid, 22, texto2_blackskull) end end if (getCreatureSkullType(cid) == SKULL_NONE) then if doPlayerRemoveMoney(cid, 0) == true then doPlayerSendTextMessage(cid, 22, texto_noneskull) end end return TRUE end  
Feito isso, feche e salve.
Agora vá até Seu OT\data\talkactions e abra o arquivo talkactions.xml como bloco de notas. Procure a seção de Players, e cole isso lá:
<talkaction words="!remove" script="skullremover.lua"/>   Fecha, salva.
Caso seu OT estiver aberto, basta o comando /reload talkactions
 
Flws :3 o/

Olá de novo!
Ontem mesmo eu tinha postado um script de Red/Black remover (http://www.tibiaking.com/forum/topic/48210-redblack-skull-remover/). Mas o script ficou muito longo, então o sr. Suicide resumiu meu script de 56 linhas em 18 (Vlww Suicide uheauhe). '------'
Mas com isso eu aprendi algumas coisas, então fiquem aí com o script:
 
 
Como ele funciona?
Simples. Se baseia em somente 1 baú, mas, para cada vocation, vem um prêmio diferente.
 
 
Vá até a pasta de actions do seu OT, abra a pasta scripts. Copie qualquer arquivo .lua e renomeie-o para "vocquest.lua", abra-o, delete tudo o que estiver dentro e cole isso:
function onUse(cid, item, frompos, item2, topos) -- 1 = Sorc, 2 = Druid, 3 = Pally, 4 = Kina -- local t = {[1] = {id = 2190, quant = 1, stor = 15152}, [2] = {id = 2182, quant = 1, stor = 15153}, [3] = {id = 2455, quant = 1, stor = 15154}, [4] = {id = 2383, quant = 1, stor = 15155}} local voc = t[getPlayerVocation(cid)] if item.uid == 15156 then if voc then if getPlayerStorageValue(cid, voc.stor) == -1 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'Você ganhou '..voc.quant..' '..getItemNameById(voc.id)..'!') doPlayerAddItem(cid, voc.id, voc.quant) setPlayerStorageValue(cid, voc.stor, 1) else doPlayerSendCancel(cid, "Você já fez essa quest.") end end return TRUE end end Feito isso, feche e salve.
Agora abra o seu "actions.xml" e coloque isso lá:
<action uniqueid="15156" script="vocquest.lua" /> Fecha e salva.
Agora é só dar um /reload actions e colocar no server

Olá de novo!
Ontem mesmo eu tinha postado um script de Red/Black remover (http://www.tibiaking.com/forum/topic/48210-redblack-skull-remover/). Mas o script ficou muito longo, então o sr. Suicide resumiu meu script de 56 linhas em 18 (Vlww Suicide uheauhe). '------'
Mas com isso eu aprendi algumas coisas, então fiquem aí com o script:
 
 
Como ele funciona?
Simples. Se baseia em somente 1 baú, mas, para cada vocation, vem um prêmio diferente.
 
 
Vá até a pasta de actions do seu OT, abra a pasta scripts. Copie qualquer arquivo .lua e renomeie-o para "vocquest.lua", abra-o, delete tudo o que estiver dentro e cole isso:
function onUse(cid, item, frompos, item2, topos) -- 1 = Sorc, 2 = Druid, 3 = Pally, 4 = Kina -- local t = {[1] = {id = 2190, quant = 1, stor = 15152}, [2] = {id = 2182, quant = 1, stor = 15153}, [3] = {id = 2455, quant = 1, stor = 15154}, [4] = {id = 2383, quant = 1, stor = 15155}} local voc = t[getPlayerVocation(cid)] if item.uid == 15156 then if voc then if getPlayerStorageValue(cid, voc.stor) == -1 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'Você ganhou '..voc.quant..' '..getItemNameById(voc.id)..'!') doPlayerAddItem(cid, voc.id, voc.quant) setPlayerStorageValue(cid, voc.stor, 1) else doPlayerSendCancel(cid, "Você já fez essa quest.") end end return TRUE end end Feito isso, feche e salve.
Agora abra o seu "actions.xml" e coloque isso lá:
<action uniqueid="15156" script="vocquest.lua" /> Fecha e salva.
Agora é só dar um /reload actions e colocar no server

Bom, esse script funciona da seguinte maneira.
Uma quest que ao clicar no baú, cada vocação ganha o Item configurável por voce.

Ex: Mage ganha wand, Kina ganha Sword, Pally Bolt etc...
Isso tudo em só 1 Chest.



actions/scripts/script.lua



Créditos: J.Dre

Meu primeiro trabalho com uma ilha natural vejam e avaliem por favor , isso é bastante importante para min . 
 
Primeira Parte :

Segunda Parte :

 
 
Se gostou não se esqueça de dar um +REP 

Olá de novo!
Ontem mesmo eu tinha postado um script de Red/Black remover (http://www.tibiaking.com/forum/topic/48210-redblack-skull-remover/). Mas o script ficou muito longo, então o sr. Suicide resumiu meu script de 56 linhas em 18 (Vlww Suicide uheauhe). '------'
Mas com isso eu aprendi algumas coisas, então fiquem aí com o script:
 
 
Como ele funciona?
Simples. Se baseia em somente 1 baú, mas, para cada vocation, vem um prêmio diferente.
 
 
Vá até a pasta de actions do seu OT, abra a pasta scripts. Copie qualquer arquivo .lua e renomeie-o para "vocquest.lua", abra-o, delete tudo o que estiver dentro e cole isso:
function onUse(cid, item, frompos, item2, topos) -- 1 = Sorc, 2 = Druid, 3 = Pally, 4 = Kina -- local t = {[1] = {id = 2190, quant = 1, stor = 15152}, [2] = {id = 2182, quant = 1, stor = 15153}, [3] = {id = 2455, quant = 1, stor = 15154}, [4] = {id = 2383, quant = 1, stor = 15155}} local voc = t[getPlayerVocation(cid)] if item.uid == 15156 then if voc then if getPlayerStorageValue(cid, voc.stor) == -1 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'Você ganhou '..voc.quant..' '..getItemNameById(voc.id)..'!') doPlayerAddItem(cid, voc.id, voc.quant) setPlayerStorageValue(cid, voc.stor, 1) else doPlayerSendCancel(cid, "Você já fez essa quest.") end end return TRUE end end Feito isso, feche e salve.
Agora abra o seu "actions.xml" e coloque isso lá:
<action uniqueid="15156" script="vocquest.lua" /> Fecha e salva.
Agora é só dar um /reload actions e colocar no server

Tem sim, amigo. Acabei de criar:
function onUse(cid, item, frompos, item2, topos) -- 5 = MasterSorc, 6 = ElderDruid, 7 = RoyalPally, 8 = EliteKina -- local t = {[1] = {newvoc = 5, stor = 15161}, [2] = {newvoc = 6, stor = 15162}, [3] = {newvoc = 7, stor = 15163}, [4] = {newvoc = 8, stor = 15164}} local voc = t[getPlayerVocation(cid)] if item.uid == 15157 then if voc then if getPlayerStorageValue(cid, voc.stor) == -1 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'Você foi promovido!') doPlayerSetVocation(cid, voc.newvoc) doSendMagicEffect(getPlayerPosition(cid), 49) setPlayerStorageValue(cid, voc.stor, 1) else doPlayerSendCancel(cid, "Você já fez essa quest.") end end return TRUE end end

Olá de novo!
Ontem mesmo eu tinha postado um script de Red/Black remover (http://www.tibiaking.com/forum/topic/48210-redblack-skull-remover/). Mas o script ficou muito longo, então o sr. Suicide resumiu meu script de 56 linhas em 18 (Vlww Suicide uheauhe). '------'
Mas com isso eu aprendi algumas coisas, então fiquem aí com o script:
 
 
Como ele funciona?
Simples. Se baseia em somente 1 baú, mas, para cada vocation, vem um prêmio diferente.
 
 
Vá até a pasta de actions do seu OT, abra a pasta scripts. Copie qualquer arquivo .lua e renomeie-o para "vocquest.lua", abra-o, delete tudo o que estiver dentro e cole isso:
function onUse(cid, item, frompos, item2, topos) -- 1 = Sorc, 2 = Druid, 3 = Pally, 4 = Kina -- local t = {[1] = {id = 2190, quant = 1, stor = 15152}, [2] = {id = 2182, quant = 1, stor = 15153}, [3] = {id = 2455, quant = 1, stor = 15154}, [4] = {id = 2383, quant = 1, stor = 15155}} local voc = t[getPlayerVocation(cid)] if item.uid == 15156 then if voc then if getPlayerStorageValue(cid, voc.stor) == -1 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'Você ganhou '..voc.quant..' '..getItemNameById(voc.id)..'!') doPlayerAddItem(cid, voc.id, voc.quant) setPlayerStorageValue(cid, voc.stor, 1) else doPlayerSendCancel(cid, "Você já fez essa quest.") end end return TRUE end end Feito isso, feche e salve.
Agora abra o seu "actions.xml" e coloque isso lá:
<action uniqueid="15156" script="vocquest.lua" /> Fecha e salva.
Agora é só dar um /reload actions e colocar no server

Olá de novo!
Ontem mesmo eu tinha postado um script de Red/Black remover (http://www.tibiaking.com/forum/topic/48210-redblack-skull-remover/). Mas o script ficou muito longo, então o sr. Suicide resumiu meu script de 56 linhas em 18 (Vlww Suicide uheauhe). '------'
Mas com isso eu aprendi algumas coisas, então fiquem aí com o script:
 
 
Como ele funciona?
Simples. Se baseia em somente 1 baú, mas, para cada vocation, vem um prêmio diferente.
 
 
Vá até a pasta de actions do seu OT, abra a pasta scripts. Copie qualquer arquivo .lua e renomeie-o para "vocquest.lua", abra-o, delete tudo o que estiver dentro e cole isso:
function onUse(cid, item, frompos, item2, topos) -- 1 = Sorc, 2 = Druid, 3 = Pally, 4 = Kina -- local t = {[1] = {id = 2190, quant = 1, stor = 15152}, [2] = {id = 2182, quant = 1, stor = 15153}, [3] = {id = 2455, quant = 1, stor = 15154}, [4] = {id = 2383, quant = 1, stor = 15155}} local voc = t[getPlayerVocation(cid)] if item.uid == 15156 then if voc then if getPlayerStorageValue(cid, voc.stor) == -1 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'Você ganhou '..voc.quant..' '..getItemNameById(voc.id)..'!') doPlayerAddItem(cid, voc.id, voc.quant) setPlayerStorageValue(cid, voc.stor, 1) else doPlayerSendCancel(cid, "Você já fez essa quest.") end end return TRUE end end Feito isso, feche e salve.
Agora abra o seu "actions.xml" e coloque isso lá:
<action uniqueid="15156" script="vocquest.lua" /> Fecha e salva.
Agora é só dar um /reload actions e colocar no server

Legal, amigo.
Mas dá pra simplificar, não acha?
function onSay(cid)     local t = {[5] = {cost = 500, name = 'Black'}, [4] = {cost = 300, name = 'Red'}, [3] = {cost = 100, name = 'White'}}     local skull = t[getCreatureSkullType(cid)]          if skull then         if doPlayerRemoveMoney(cid, skull.cost*10000) then             doCreatureSetSkullType(cid, 0)             doSendMagicEffect(getThingPos(cid), 14)             doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'Você removeu seu '..skull.name..' Skull por '..skull.cost..' crystal coins!')         else             doPlayerSendCancel(cid, 'Você precisa de '..skull.cost..' crystal coins para remover seu '..skull.name..' Skull.')         end     else         doPlayerSendCancel(cid, 'Você não tem Skull para remover.')     end          return true end
Continue assim. E quando desenvolvê-los, poste aqui no fórum sempre que possível, você vai estar contribuindo muito ;]

PS: Adicionei o white skull à tabela por impulso rs

opa amigo, fico bacana o script, continue postando os que você criar...
eu deixa uma pequena organizada no script só pra te dar uma luz, acho que fica um pouquinho melhor assim

Olá povin
Esse é meu primeiro tópico. Eu sei que já existem vários Skull Removers pelo site, mas já que estou aprendendo a linguagem .lua, eu acho que nada melhor do que mostrar como eu estou indo. Se quiserem dar sugestões do que poderia ser melhorado ou resumido, podem falar :3
Mas bora lá.
 
 
Vá até Seu OT\data\talkactions\scripts, e lá copie algum arquivo qualquer, e renomeie-o para "skullremover.lua". Abra-o, apague tudo o que estiver dentro, e cole isso:
function onSay(cid, words, param, channel) custo_redskull = 3000000 -- Preço para remover o RedSkull (1.000.000 GPs = 100 Crystal Coins) custo_blackskull = 5000000 -- Preço para remover o BlackSkull texto1_redskull = "Você removeu seu Red Skull por 3kk!" -- Texto ao ser removido o RedSkull texto2_redskull = "Você precisa de 3kk para remover seu Red Skull." -- Texto quando faltar dinheiro para remover o RedSkull texto1_blackskull = "Você removeu seu Black Skull por 5kk!" -- Texto ao ser removido o BlackSkull texto2_blackskull = "Você precisa de 5kk para remover seu Black Skull" -- Texto quando faltar dinheiro para remover o BlackSkull texto_noneskull = "Você não tem Skull para remover" -- Texto quando o player não tem PK Red/Black if (getCreatureSkullType(cid) == 4) then if doPlayerRemoveMoney(cid, custo_redskull) == true then doCreatureSetSkullType(cid, 0) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, texto1_redskull) doSendMagicEffect(getPlayerPosition(cid), 14) else doSendMagicEffect(getPlayerPosition(cid), 2) doPlayerSendTextMessage(cid, 22, texto2_redskull) end end if (getCreatureSkullType(cid) == 5) then if doPlayerRemoveMoney(cid, custo_blackskull) == true then doCreatureSetSkullType(cid, 0) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, texto1_blackskull) doSendMagicEffect(getPlayerPosition(cid), 14) else doSendMagicEffect(getPlayerPosition(cid), 2) doPlayerSendTextMessage(cid, 22, texto2_blackskull) end end if (getCreatureSkullType(cid) == SKULL_NONE) then if doPlayerRemoveMoney(cid, 0) == true then doPlayerSendTextMessage(cid, 22, texto_noneskull) end end return TRUE end  
Feito isso, feche e salve.
Agora vá até Seu OT\data\talkactions e abra o arquivo talkactions.xml como bloco de notas. Procure a seção de Players, e cole isso lá:
<talkaction words="!remove" script="skullremover.lua"/>   Fecha, salva.
Caso seu OT estiver aberto, basta o comando /reload talkactions
 
Flws :3 o/

Olá povin
Esse é meu primeiro tópico. Eu sei que já existem vários Skull Removers pelo site, mas já que estou aprendendo a linguagem .lua, eu acho que nada melhor do que mostrar como eu estou indo. Se quiserem dar sugestões do que poderia ser melhorado ou resumido, podem falar :3
Mas bora lá.
 
 
Vá até Seu OT\data\talkactions\scripts, e lá copie algum arquivo qualquer, e renomeie-o para "skullremover.lua". Abra-o, apague tudo o que estiver dentro, e cole isso:
function onSay(cid, words, param, channel) custo_redskull = 3000000 -- Preço para remover o RedSkull (1.000.000 GPs = 100 Crystal Coins) custo_blackskull = 5000000 -- Preço para remover o BlackSkull texto1_redskull = "Você removeu seu Red Skull por 3kk!" -- Texto ao ser removido o RedSkull texto2_redskull = "Você precisa de 3kk para remover seu Red Skull." -- Texto quando faltar dinheiro para remover o RedSkull texto1_blackskull = "Você removeu seu Black Skull por 5kk!" -- Texto ao ser removido o BlackSkull texto2_blackskull = "Você precisa de 5kk para remover seu Black Skull" -- Texto quando faltar dinheiro para remover o BlackSkull texto_noneskull = "Você não tem Skull para remover" -- Texto quando o player não tem PK Red/Black if (getCreatureSkullType(cid) == 4) then if doPlayerRemoveMoney(cid, custo_redskull) == true then doCreatureSetSkullType(cid, 0) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, texto1_redskull) doSendMagicEffect(getPlayerPosition(cid), 14) else doSendMagicEffect(getPlayerPosition(cid), 2) doPlayerSendTextMessage(cid, 22, texto2_redskull) end end if (getCreatureSkullType(cid) == 5) then if doPlayerRemoveMoney(cid, custo_blackskull) == true then doCreatureSetSkullType(cid, 0) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, texto1_blackskull) doSendMagicEffect(getPlayerPosition(cid), 14) else doSendMagicEffect(getPlayerPosition(cid), 2) doPlayerSendTextMessage(cid, 22, texto2_blackskull) end end if (getCreatureSkullType(cid) == SKULL_NONE) then if doPlayerRemoveMoney(cid, 0) == true then doPlayerSendTextMessage(cid, 22, texto_noneskull) end end return TRUE end  
Feito isso, feche e salve.
Agora vá até Seu OT\data\talkactions e abra o arquivo talkactions.xml como bloco de notas. Procure a seção de Players, e cole isso lá:
<talkaction words="!remove" script="skullremover.lua"/>   Fecha, salva.
Caso seu OT estiver aberto, basta o comando /reload talkactions
 
Flws :3 o/