talkaction

[Talkactions] Sistema De Sexo

By rogeriocene, 02 de fev. de 2012 in Actions e Talkactions

[talkactions]

script

2.2k

rogerioceneADM KAMIKAZERCampones

info

Group: Campones

Joined: 17/12/10

Posts: 59

Reputation: +126

Tibia Character: Pala Of Shadow

02 de fevereiro de 2012 às 19:43

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

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

Edited Fevereiro 2 by Afeez

Pikenoh PCampones

info

Group: Campones

Joined: 02/02/10

Posts: 40

Reputation: +3

Tibia Character: Xindih Kama (char novo)

02 de fevereiro de 2012 às 19:54

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

rogerioceneADM KAMIKAZERCampones

info

Group: Campones

Joined: 17/12/10

Posts: 59

Reputation: +126

Tibia Character: Pala Of Shadow

02 de fevereiro de 2012 às 21:42

ta eu n sabia que tinha que coloca creditos

EduziTowC ) D ( NEArtesão

info

Group: Artesão

Joined: 06/08/11

Posts: 110

Reputation: -2

02 de fevereiro de 2012 às 22:48

FuNFo Ake N

rogerioceneADM KAMIKAZERCampones

info

Group: Campones

Joined: 17/12/10

Posts: 59

Reputation: +126

Tibia Character: Pala Of Shadow

02 de fevereiro de 2012 às 22:49

como nao??qual e a versao de seu ot

JuninhoSimao JCampones

info

Group: Campones

Joined: 12/12/11

Posts: 41

Reputation: +5

Tibia Character: Dizzarlysa Deonwinth

04 de fevereiro de 2012 às 12:27

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

Edited Fevereiro 4 by JuninhoSimao

2 weeks later...

0Shinoda0Mapper0Campones

info

Group: Campones

Joined: 11/02/12

Posts: 5

Reputation: 0

Tibia Character: Milk Sheeik

11 de fevereiro de 2012 às 15:07

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

LucasCastroLucksLArtesão

info

Group: Artesão

Joined: 15/01/12

Posts: 100

Reputation: +9

Tibia Character: Leon Of Pandoria

13 de fevereiro de 2012 às 00:04

Bem Massa!

Vlw's

2 weeks later...

ThiagoMartinsMRM N PTCavaleiro

info

Group: Cavaleiro

Joined: 22/10/11

Posts: 193

Reputation: +32

Tibia Character: _l_

22 de fevereiro de 2012 às 12:11

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

josewitiukCatador De Frags...Vo te Killa!JCampones

info

Group: Campones

Joined: 15/08/11

Posts: 38

Reputation: 0

Tibia Character: BuzzY

24 de fevereiro de 2012 às 14:23

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

AlexandreKGEstudante de TIAMarquês

info

Group: Marquês

Joined: 29/10/11

Posts: 1.2k

Reputation: +134

Gender: Masculino

26 de fevereiro de 2012 às 16:42

kkkkkkkkkkkkkkkkkkkkkk

esse script é pros tarados kkkkkkkkkkkkkkk,

mais eu vo usar tambem kkkkkkk