talkaction [TalkAction] Removedor De Skulls

Henrique Moura · Dezembro 7, 2009

Skull remover

Dentro da pasta data/talkactions/scripts copie algum arquivo, cole, renomei-o para skullclean.lua e abra-o. Apague tudo o que estiver dentro e cole o seguinte:

--- skull remover by kakilo - quinto script

function onSay(cid, words, param, channel)

if (getCreatureSkullType(cid) == SKULL_BLACK) then

if doPlayerRemoveMoney(cid, 200000) then

doCreatureSetSkullType(cid, SKULL_NONE)

doPlayerSendTextMessage(cid, 22, "Your soul was been cleaned.")

else

doPlayerSendTextMessage(cid, 22, "You need 200.000 gold pieces to remove the black skull")

end

end

if (getCreatureSkullType(cid) == SKULL_RED) then

if doPlayerRemoveMoney(cid, 100000) then

doCreatureSetSkullType(cid, SKULL_NONE)

doPlayerSendTextMessage(cid, 22, "Your soul was been cleaned.")

else

doPlayerSendTextMessage(cid, 22, "You need 100.000 gold pieces to remove the red skull")

end

end

if (getCreatureSkullType(cid) == SKULL_WHITE) then

if doPlayerRemoveMoney(cid, 10000) then

doCreatureSetSkullType(cid, SKULL_NONE)

doPlayerSendTextMessage(cid, 22, "Your soul was been cleaned.")

else

doPlayerSendTextMessage(cid, 22, "You need 10.000 gold pieces to remove the white skull")

end

end

if (getCreatureSkullType(cid) == SKULL_NONE) then

doPlayerSendTextMessage(cid, 22, "Your soul clean like water!")

end

return TRUE

end

Explicação:

Vermelho - Mensagem que o jogador receberá quando limpar alguma skull, configure cada uma correspondendo à skull que será removida.

Verde - Valor para remover a skull, se souber pode configurar cada uma por cada skull, se não deixe do jeito que estiver

Azul - Mensagem que o jogador receberá se não tiver dinheiro suficiente

Colocando o script original os preços ficam assim:

200k = Black Skull

100k = Red Skull

10k = White Skull

Entre na pasta data/talkactions e abra um arquivo chamado talkactions.xml, cole isto abaixo de alguma linha:

QUOTE

<talkaction words="!removerpk" script="skullclean.lua"/>

Explicação:

Laranja - O que será dito pelo jogador para que as skulls sejam removidas.

Qualquer erro poste no tópico

Abração!

Créditos : KaKilo

Editado Fevereiro 14, 2010 por Henrique Moura

$\Mattheus ~*$ · Dezembro 7, 2009

Esta excelente, nunca tinha visto algo do tipo aqui no XTibia, parabéns por trazer novos conteúdos ao XTibia, parece que você vai ser uns dos inovadores por aqui.

Abraços.

Killua · Dezembro 7, 2009

Nossa! Parece que vc ta realmente aprendendo a mecher em scripts

Tenta faze ele só funciona pra premmium pra mi ae xD PS: Encare como um exercício!

O que mais me impreciona é a sua criatividade, eu jamais pensaria em fazer algo do tipo! Continue assim, tá de parabéns.

---->Edit<----

Ele nao está funcionando aqui =/

Editado Dezembro 7, 2009 por amoeba13

rockstar96 · Dezembro 7, 2009

mano usando tabelas diminuia E

identa isso q fica l0ko

Henrique Moura · Dezembro 7, 2009

#Amoeba

--- skull remover by kakilo - quinto script

function onSay(cid, words, param, channel)

if (getCreatureSkullType(cid) == SKULL_BLACK) then

if getPlayerPremiumDays(cid) >= 1 then

doPlayerRemoveMoney(cid, 200000)

doCreatureSetSkullType(cid, SKULL_NONE)

doPlayerSendTextMessage(cid, 22, "Your soul was been cleaned.")

else

doPlayerSendTextMessage(cid, 22, "You need 200.000 gold pieces to remove the black skull")

end

end

if (getCreatureSkullType(cid) == SKULL_RED) then

if getPlayerPremiumDays(cid) >= 1 then

doPlayerRemoveMoney(cid, 100000)

doCreatureSetSkullType(cid, SKULL_NONE)

doPlayerSendTextMessage(cid, 22, "Your soul was been cleaned.")

else

doPlayerSendTextMessage(cid, 22, "You need 100.000 gold pieces to remove the red skull")

end

end

if (getCreatureSkullType(cid) == SKULL_WHITE) then

if getPlayerPremiumDays(cid) >= 1 then

doPlayerRemoveMoney(cid, 10000)

doCreatureSetSkullType(cid, SKULL_NONE)

doPlayerSendTextMessage(cid, 22, "Your soul was been cleaned")

else

doPlayerSendTextMessage(cid, 22, "You need 10.000 gold pieces to remove the white skull")

end

end

if (getCreatureSkullType(cid) == SKULL_NONE) then

doPlayerSendTextMessage(cid, 22, "Your soul is clean like water!")

end

return TRUE

end

#Irockstar

Acho melhor assim, quem sabe mais tarde eu possa fazer com tabelas.

Abraços.

Editado Dezembro 8, 2009 por KaKilo

rockstar96 · Dezembro 7, 2009

como acha melhor assim mano

ahhh N aprendeu a mexer com tabelas ainda ta perdoado

darklighty · Dezembro 7, 2009

ae, assim só pra fazer uma melhorinha no script

pra tira cada skull, eu acho que devia tirar soul

tipo

Wihte: cost 30 soul

Red: 70 soul

Black: 200 soul

ia fica r0x

mas o script tá ótimo cara, parabéns, nunca vi nada como isso aqui no xt

LorDz · Dezembro 8, 2009

Gostei também é uma otima idéia,

pra quem usa servidor de "POINTS" também é bom.

O que o Dark falou também .-.

Boa sorte com seus script's cara.

Abraços

gkaonicx72 · Dezembro 8, 2009

Opa parabéns me alegro ao ver que você esta mostrando uma aprendizagem rapida e eficaz no assunto. Como venho dito você tem futuro ainda mais ao saber que vai se especializar com isso em sua carreira. Porem seu ingles deve melhorar um pouco, não sei se estou falando coisas erradas mais "You soul are clean" esta errado meu amigo.

-You é singular e "are" é usado para plural.

Alternativas:

-Your soul is clean.

-Your soul has been clean(deleted se quiser).

-Your skull has been removed

Ou senão misturar essas idéias para formular uma ao seu gosto. Qualquer outra duvida só me avisar.

Lembrando que se estiver errado, favor me informar.

Até mais e continue assim Kakilo.

sauvadur2 · Dezembro 10, 2009

Seu script nao funciona.

Se o player nao tiver grana remove do mesmo jeito.

Script adaptado:

--- skull remover by kakilo - quinto script - Adptado by XxSauvadurxX

function onSay(cid, words, param, channel)

if (getCreatureSkullType(cid) == SKULL_BLACK) then
if doPlayerRemoveMoney(cid,200000) then
doCreatureSetSkullType(cid, SKULL_NONE)
doPlayerSendTextMessage(cid, 22, "Your soul was been cleaned.")
else
doPlayerSendTextMessage(cid, 22, "You need 200.000 gold pieces to remove the black skull")
end
end

if (getCreatureSkullType(cid) == SKULL_RED) then
if doPlayerRemoveMoney(cid, 100000) then
doCreatureSetSkullType(cid, SKULL_NONE)
doPlayerSendTextMessage(cid, 22, "Your soul was been cleaned.")
else
doPlayerSendTextMessage(cid, 22, "You need 100.000 gold pieces to remove the red skull")
end
end

if (getCreatureSkullType(cid) == SKULL_WHITE) then
if doPlayerRemoveMoney(cid, 10000) then
doCreatureSetSkullType(cid, SKULL_NONE)
doPlayerSendTextMessage(cid, 22, "Your soul was been cleaned.")
else
doPlayerSendTextMessage(cid, 22, "You need 10.000 gold pieces to remove the white skull")
end
end

if (getCreatureSkullType(cid) == SKULL_NONE) then
doPlayerSendTextMessage(cid, 22, "Your soul clean like water!")
end

return TRUE
end

Abraços.

Editado Dezembro 10, 2009 por XxSauvadurxX

Henrique Moura · Dezembro 10, 2009

if doPlayerRemoveMoney(cid, 10000) == TRUE then
if (getCreatureSkullType(cid) == SKULL_WHITE) then
doPlayerRemoveMoney(cid, 10000)

Você colocou duas vezes cara...

Kude Ampola · Dezembro 10, 2009

Bouaaa, testei aqui e funfo certin ;s

So falta agora aprende a usa tables ne pra pode diminui isso aí xD.

sauvadur2 · Dezembro 10, 2009

Pronto, ja concertei e ta funfando, aquela hora que eu coloquei 2 vezes foi desantençao e tinha um bug.

Agora ja removi este bug, testei as 3 skulls e ta perfeitim :smile_positivo:

Pow Cade meus creditos,

Pelo menos 10% :cry:

Editado Dezembro 10, 2009 por XxSauvadurxX

Henrique Moura · Dezembro 10, 2009

Já percebi o que você fez, estou colocando manualmente no tópico.

Abraços e obrigado.

f3li93darzan · Dezembro 24, 2009

nOssa mano Eu tava Procurando esse Sistema A mais de 1 mes

MUITO OBRIGADO :lol²:

Entrar

talkaction [TalkAction] Removedor De Skulls

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Quem Está Navegando 0 membros estão online

Conteúdo Similar