[Talkactions] Sistema De Sexo

rogeriocene
em Actions e Talkactions

rogeriocene

ADM KAMIKAZE
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 17/12/10Posts: 59Char no Tibia: Pala Of Shadow

VA EM DATA/TALKACTIONS /SCRIPTS

CRIA UM ARQUIVO CHAMADO sexy E DIGITE ISSO

-- Sexy System(Funny) by Cobraa.

function prepareToSexy(ela, ele)

doCreatureSetLookDir(ela, 3)

pos = getThingPos(ela)

doTeleportThing(ele, {x=pos.x+3, y=pos.y, z=pos.z})

doCreatureSetLookDir(ele, 3)

mayNotMove(ele, true)

mayNotMove(ela, true)

end

 

function Sexy(ela, ele, rounds)

if rounds < 1 then

mayNotMove(ele, false)

mayNotMove(ela, false)

setPlayerStorageValue(ele, 8958, -1)

setPlayerStorageValue(ela, 8958, -1)

return true

end

msg = {"OOHH!", "OMG", "FAST", "FUCK ME"}

pos = getThingPos(ela)

doTeleportThing(ele, {x=pos.x+1, y=pos.y, z=pos.z})

addEvent(doTeleportThing, 500, ele, {x=pos.x+3, y=pos.y, z=pos.z})

doSendAnimatedText(pos, msg[math.random(#msg)], math.random(255))

setPlayerStorageValue(ele, 8958, 1)

setPlayerStorageValue(ela, 8958, 1)

addEvent(Sexy, 1000, ela, ele, rounds-1)

end

 

function onSay(cid, words, param)

if words == "!sex" then

x = getPlayerByName(param)

if x then

if getPlayerSex(cid) == 0 then

return doPlayerSendTextMessage(cid, 27, "Uma garota tem que ser convidada.")

end

if param == getCreatureName(cid) then

return doPlayerSendTextMessage(cid, 27, "Isto não é possivel")

end

if getDistanceBetween(getThingPos(cid), getThingPos(x)) > 4 then

return doPlayerSendTextMessage(cid, 27, "Este player está muito longe para tranzar.")

end

if getPlayerStorageValue(x, 8958) == 1 or getPlayerStorageValue(cid, 8958) == 1 then

return doPlayerSendTextMessage(cid, 27, "Você ou a pessoa que convidou está tranzando neste momento.")

end

setPlayerStorageValue(x, 8956, cid)

setPlayerStorageValue(x, 8957, 1)

doPlayerSendTextMessage(x, 19, getCreatureName(cid)..", te convidou para tranzar, diga !aceitar ou !recusar")

doPlayerSendTextMessage(cid, 19, getCreatureName(x)..", foi convidado(a) para tranzar aguarde sua resposta.")

else

doPlayerSendTextMessage(x, 27, "Player Not Found.")

end

elseif words == "!aceitar" then

if getPlayerStorageValue(cid, 8957) == 1 then

if getDistanceBetween(getThingPos(cid), getThingPos(getPlayerStorageValue(cid, 8956))) > 4 then

return doPlayerSendTextMessage(cid, 27, "Este player está muito longe para dar uma resposta.")

end

doPlayerSendTextMessage(cid, 19, "Você aceitou o convite de "..getCreatureName(getPlayerStorageValue(cid, 8956))..".")

doPlayerSendTextMessage(getPlayerStorageValue(cid, 8956), 19, "Seu convite foi aceito.")

setPlayerStorageValue(cid, 8957, -1)

prepareToSexy(cid, getPlayerStorageValue(cid, 8956))

addEvent(Sexy, 800, cid, getPlayerStorageValue(cid, 8956), 20)

else

doPlayerSendTextMessage(cid, 27, "Você não tem nenhum convite de tranza para aceitar.")

end

elseif words == "!recusar" then

if getPlayerStorageValue(cid, 8957) == 1 then

if getDistanceBetween(getThingPos(cid), getThingPos(getPlayerStorageValue(cid, 8956))) > 4 then

return doPlayerSendTextMessage(cid, 27, "Este player está muito longe para dar uma resposta.")

end

doPlayerSendTextMessage(cid, 19, "Você recusou o convite de "..getCreatureName(getPlayerStorageValue(cid, 8956))..".")

doPlayerSendTextMessage(getPlayerStorageValue(cid, 8956), 19, "Seu convite foi recusado.")

setPlayerStorageValue(cid, 8957, -1)

else

doPlayerSendTextMessage(cid, 27, "Você não tem nenhum convite de tranza para recusar.")

end

end

return true

end

 

CREDITOS : COBRAA

 

dps vá em data/talkactions e abra talkaction.xml e adicione essa tag

<talkaction words="!sex;!aceitar;!recusar" event="script" value="sexy.lua"/>

Dai para aceitar transar com o player e so dizer !aceitar ou !recusar

para mandar o convite e so falar !sex name

TE AJUDEI DA +REP xD

Mais Novos Trabalhos:

http://www.xtibia.com/forum/topic/217409-war-editeds/

http://www.xtibia.com/forum/topic/179760-lancamento-2013-subwat-kamikaze/

 

MEUS TRABALHOS:
Mapa Subwat Kamikaze ATUALIZADO 13/12/12 http://www.xtibia.co...__fromsearch__1
Mapa Subwat Kamikaze VERSAO 1.0 http://www.xtibia.co...__fromsearch__1
Mapa Subwat Kamikaze 2.0 http://www.xtibia.co...__fromsearch__1
[Talkactions] Mana Scroll http://www.xtibia.co...__fromsearch__1
[Talkactions] Sistema De Sexo http://www.xtibia.co...__fromsearch__1
[Spells] Spells Editados By Adm Kamikaze http://www.xtibia.co...__fromsearch__1

 

Ajudei ou Curtiu? Rep+ Thanks

Pikenoh

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 02/02/10Posts: 40Char no Tibia: Xindih Kama (char novo)

esse script ja existia fais tempo coloque os devidos créditos

AJUDEI?? REP+ AE TE JURO QUE NUM CAI O DEDO
[x] 50 posts [ ] 100 posts [ ] 200 posts [ ] 250 posts [ ] 300 posts [ ] 350 posts [ ] 400 posts [ ] 450 posts
[ ] 500 posts [ ] 550 posts [ ] 600 posts [ ] 650 posts [ ] 700 posts [ ] 750 posts [ ] 800 posts [ ] 850 posts
[ ] 900 posts [ ] 950 posts [ ] 1000 posts [ ] 1500 posts [ ] 2000 posts [ ] 2500 posts [ ] 3000 posts [ ] 3500 posts
[ ] 4000 posts [ ] 4500 posts [ ] 5000 posts [ ] 6000 posts [ ] 7000 posts [ ] 8000 posts [ ] 9000 posts [ ] 10000 posts
[ ] Ter Um Mapa Propio [ ] Ter um tópico aprovado [ ] Ter um tópico FIXO
[ ] Ser Reconhecido Pelo Xtibia

rogeriocene

ADM KAMIKAZE
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 17/12/10Posts: 59Char no Tibia: Pala Of Shadow

ta eu n sabia que tinha que coloca creditos

Mais Novos Trabalhos:

http://www.xtibia.com/forum/topic/217409-war-editeds/

http://www.xtibia.com/forum/topic/179760-lancamento-2013-subwat-kamikaze/

 

MEUS TRABALHOS:
Mapa Subwat Kamikaze ATUALIZADO 13/12/12 http://www.xtibia.co...__fromsearch__1
Mapa Subwat Kamikaze VERSAO 1.0 http://www.xtibia.co...__fromsearch__1
Mapa Subwat Kamikaze 2.0 http://www.xtibia.co...__fromsearch__1
[Talkactions] Mana Scroll http://www.xtibia.co...__fromsearch__1
[Talkactions] Sistema De Sexo http://www.xtibia.co...__fromsearch__1
[Spells] Spells Editados By Adm Kamikaze http://www.xtibia.co...__fromsearch__1

 

Ajudei ou Curtiu? Rep+ Thanks

EduziTow

C ) D ( N
avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 06/08/11Posts: 110

FuNFo Ake N

D u u H Y o u r s ° ~

rogeriocene

ADM KAMIKAZE
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 17/12/10Posts: 59Char no Tibia: Pala Of Shadow

como nao??qual e a versao de seu ot

Mais Novos Trabalhos:

http://www.xtibia.com/forum/topic/217409-war-editeds/

http://www.xtibia.com/forum/topic/179760-lancamento-2013-subwat-kamikaze/

 

MEUS TRABALHOS:
Mapa Subwat Kamikaze ATUALIZADO 13/12/12 http://www.xtibia.co...__fromsearch__1
Mapa Subwat Kamikaze VERSAO 1.0 http://www.xtibia.co...__fromsearch__1
Mapa Subwat Kamikaze 2.0 http://www.xtibia.co...__fromsearch__1
[Talkactions] Mana Scroll http://www.xtibia.co...__fromsearch__1
[Talkactions] Sistema De Sexo http://www.xtibia.co...__fromsearch__1
[Spells] Spells Editados By Adm Kamikaze http://www.xtibia.co...__fromsearch__1

 

Ajudei ou Curtiu? Rep+ Thanks

JuninhoSimao

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 12/12/11Posts: 41Char no Tibia: Dizzarlysa Deonwinth

Tenho Outro Tipo Faça Assim

va em data/talkactions/script crie um arquivo chamado Trocadesexo.lua la vc poe isso

 

 

local config = {

costPremiumDays = 7

}

 

function onSay(cid, words, param, channel)

if(getPlayerSex(cid) >= 2) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You cannot change your gender.")

return TRUE

end

 

if(getPlayerPremiumDays(cid) < config.costPremiumDays) then

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Sorry, not enough premium time- changing gender costs " .. config.costPremiumDays .. " days.")

doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)

return TRUE

end

 

if(getPlayerPremiumDays(cid) < 65535) then

doPlayerAddPremiumDays(cid, -config.costPremiumDays)

end

 

if(getPlayerSex(cid) == PLAYERSEX_FEMALE) then

doPlayerSetSex(cid, PLAYERSEX_MALE)

else

doPlayerSetSex(cid, PLAYERSEX_FEMALE)

end

 

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Vc Troko Seu Sexo " .. config.costPremiumDays .. " days of premium time.")

doSendMagicEffect(getCreaturePosition(cid), CONST_ME_MAGIC_RED)

return TRUE

end

 

pronto agr va em daa/talkaction/talkactions.xml

e cole essa tag <talkaction words="!trocarsexo" event="script" value="Trocadesexo.lua.lua"/>

 

Ajudei ? Da uma Rep ae e seja feliz

 

 

 

Ajudas contato: Afonsosimao2008@hotmail.com

0Shinoda0

Mapper
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 11/02/12Posts: 5Char no Tibia: Milk Sheeik

esse dai eh pra trocar sexo e o outro e pra... se sabe pra q ;e

LucasCastro

Lucks
avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 15/01/12Posts: 100Char no Tibia: Leon Of Pandoria

Bem Massa!

 

;D

 

Vlw's

Gostou ? REP++

whichsouthpark.jpg

I like the character Stan Marsh !! ;D

ThiagoMartinsMR

M N P
avatar
Cavaleiro
Cavaleiro

INFOS

Grupo: CavaleiroRegistrado: 22/10/11Posts: 193Char no Tibia: _l_

Coloque os créditos.. existe mais uns 3 tópicos sobre a mesma talkaction aki no Xtibia.

Meu mais novo trabalho no Xtibia

 

Aqui

 

Att. Thiago Mr

josewitiuk

Catador De Frags...Vo te Killa!
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 15/08/11Posts: 38Char no Tibia: BuzzY

vlww tem gente q conseguiu mas eu nao......8.6...

Ajudei da REP+...nao custa nenhum KK...

 

Sem Sign D:

AlexandreKG

Estudante de TI
avatar
Marquês
Marquês

INFOS

Grupo: MarquêsRegistrado: 30/10/11Posts: 1153Gênero: Masculino

kkkkkkkkkkkkkkkkkkkkkk

esse script é pros tarados kkkkkkkkkkkkkkk,

mais eu vo usar tambem kkkkkkk