[TalkAction] Removedor De Skulls

Henrique Moura
em Actions e Talkactions
  • 1
  • 2

Henrique Moura

Ex-administrador
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 17/02/08Posts: 2541

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

KaKilo ~
 


Lom14fD.png

\Mattheus ~*

Ex Moderador
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 11/02/09Posts: 559Char no Tibia: Deep Druid

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.

[/ Construçãao .

Killua

Vivendo e Aprendendo
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 29/04/09Posts: 904Char no Tibia: Jabuti Selvagem

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

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

Henrique Moura

Ex-administrador
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 17/02/08Posts: 2541

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

KaKilo ~
 


Lom14fD.png

darklighty

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 06/12/09Posts: 4Char no Tibia: Dekoow

ae, assim só pra fazer uma melhorinha no script

 

pra tira cada skull, eu acho que devia tirar soul :D

 

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




Volto em 2 dias :D

LorDz

Emo cheio de Glitter/ Moderador de OTserv
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 13/05/07Posts: 778Char no Tibia: Shea Fald

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

Att,

Carlos "LorDz" Alberto



mplz1ajaxizt5mzcdc6n.png

Email: LorDz@XTibia.com

gkaonicx72

avatar
Marquês
Marquês

INFOS

Grupo: MarquêsRegistrado: 16/07/08Posts: 1130Char no Tibia: -

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.

Atenciosamente, Kaonic

Trabalhando para um futuro melhor do Xtibia - By Kaonic, não use sem colocar os créditos.

Email (não uso como msn): kaonic@xtibia.com

MSN: Envie MP

Mapping Teacher: Koddy

 

Copa XTibia Design - Participante #2 do Grupo A



1277160188-U5886.jpg

 

 

Gifts:



Moskitinho ** -Reji * -Dj Sky * -ShadowDemon** -NightAdams **

sauvadur2

Cavaleiro
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 29/11/09Posts: 62Char no Tibia: Misstter Emme

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.

Sauvadur Server!

Exp 200

Loot 2

Skill 100

Ml 100

SpawnR 1

 

NoLag

24/7 ONLINE!

 

Sistemas:

Reset

Vip

1kk p/skill

e Muito mais!

 

Map: styller yourots 8.6 Sem teleports (Sem modificações por enquanto)

1234322_2.png

Henrique Moura

Ex-administrador
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 17/02/08Posts: 2541

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

 

Você colocou duas vezes cara...

KaKilo ~
 


Lom14fD.png

Kude Ampola

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 25/01/07Posts: 65

Bouaaa, testei aqui e funfo certin ;s

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

Falso virus em c++, Ja vem pronto apenas baixar e zuar!!

Download :Aqui

sauvadur2

Cavaleiro
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 29/11/09Posts: 62Char no Tibia: Misstter Emme

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:

Sauvadur Server!

Exp 200

Loot 2

Skill 100

Ml 100

SpawnR 1

 

NoLag

24/7 ONLINE!

 

Sistemas:

Reset

Vip

1kk p/skill

e Muito mais!

 

Map: styller yourots 8.6 Sem teleports (Sem modificações por enquanto)

1234322_2.png

Henrique Moura

Ex-administrador
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 17/02/08Posts: 2541

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

 

Abraços e obrigado.

KaKilo ~
 


Lom14fD.png

f3li93darzan

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 21/04/08Posts: 72Char no Tibia: custelah

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

MUITO OBRIGADO :lol²:

Duas coisas são infinitas: o universo e a estupidez humana. Mas, no que respeita ao universo, ainda não adquiri a certeza absoluta. Albert Einstein

 

x-men_200_cover-1.jpg

 

 

 

2zqv9km.jpg

  • 1
  • 2