[Talkaction]Sexy System (Funny)

meubkk
Por meubkk
em Actions e Talkactions

meubkk

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 12/04/11Posts: 3
Nome: Sexy System

Autor: Cobraa

Testado: 8.5 +

 

Não tem muito oque explicar pelo nome, vocês já sabem.

 

Vá na pasta talkactions/script e crie um arquivo com nome de sexy.lua e cole o seguinte script:

 

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

 

Depois na pasta talkactions procure o arquivo talkactions.xml e adicione a seguinte tag:

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

 

Para convidar alguem para fazer sexo , use o comando:

!sex Nome do Player

Para responder use

!aceitar ou !recusar

 

Obrigado a todos.

6rk0ef.png

pok302010

Tibia!O osso mais famoso do mundo!
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 26/01/11Posts: 56Char no Tibia: Samanthaa Runlsh

Legal cara,

 

Gostei muito do seu trabalho!você tabem podia montar um sistema de prostitutas,

tipo que regenaravam life e tals.

 

continue assim!

Sing:

singt.png

 

Fanbar:

fanbarhu.png

Me ama?Me odeia? quer se casar comigo'-'?Use isso^^

 

ajude quem te ajuda clique em

 

REP++ : DDD

 

Meta Xtibia e WC: 10 posts[x] 50[x] 100[x] 200[]

 

500[] 1000[] 2000[] 3750[] 5000[]

 

 

Pokemon Cloud!O melhor serv de Pokemon Online que você já viu! SITE Pokemon Cloud

tinfer3

Normaly they are the same.
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 06/04/11Posts: 34

kkkkkkkkkkkkkkkkkk' pessoal não tem mais oque inventar mesmo ótimo rapaz!

good job

The Joker



Eu não quero fazer o que eu posso,eu posso fazer o que eu quero.

dustot

Forever Alone
avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 14/01/11Posts: 116Char no Tibia: Não tenho

Tae meu REP+ pra ti. Gostei

Bom Dia/Boa Tarde/Boa Noite.



Nós Do Dust Otserv Estamos Aqui Para convidar você para jogar

neste mundo maravilhoso, cheio de coisas novas.

Para criar sua acc acesse: www.dustserver.com

w1bviu.jpg

Alexandre -

DustServer

Se ti ajudei me ajude também. Me dê um REP+



 

 

 

306295

?? ?? ?? ?? ?? ??
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 10/01/11Posts: 35Char no Tibia: Megasef

oia, script "enovador" ;d gostei da sua ideia

 

 

obs:É TRANSAR NAO TRANZAR :D

"Só é teimosia se estiver errado.Se estiver certo é seguir seus princípios."

 

Meus Atributos

 

 

 

Actions = 3

Mapper = 9

Talk Actions = 1

Monster = 3

Global Events = 1

Npcs = 1

 

 

elitevini

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 11/05/11Posts: 31

kra olha só o erro q da quando só fala o comando !sex sem o nome do jogador não tem como arruma isso num e coloca quando o kra fala só !sex sem o nome do jogador desejado aparecer uma msg q tem q escolher quem ele quer tranzar ?

adelso10

Sou Snowsz.
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 29/05/11Posts: 17Char no Tibia: None

PORRA KARA VC ME AJUDOU MT TOMA REP+

ae galera de eu ajudei REP+ ali no cantinho podem aperta no + n cai a mao eu juro ^^

caraiomaluko

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 31/08/11Posts: 7Char no Tibia: Sub Humano

Ae Cara sistema rox raxei kkk!

 

Tibia Vs Rag 2

1z65iq.gif

sing0010.jpg

MEU FAN ? SÉRIO ? USE ISSO :D

ruffy%2Bone%2Bpiece.jpg

TE AJUDEI DA UM REP AI NÃO CAI O DEDO...

ofrog

Linux
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 27/06/11Posts: 36

Legal cara,

 

Gostei muito do seu trabalho!você tabem podia montar um sistema de prostitutas,

tipo que regenaravam life e tals.

 

continue assim!

 

 

 

hUEHUheuHUEHu

rafaorshabaal

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 12/11/11Posts: 21

POw MT legal...

coloquei no meu ot funfo 100%!!!!

 

Vlww Levo meu REP+++

roriscrave

avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 18/07/08Posts: 545Char no Tibia: Nem eu sei

coloquei no ot certim vlw rep

HadesBR

The Jackrabbit
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 24/07/07Posts: 31Char no Tibia: Grey Warden

tem um problema

da pra invadir casas dos outros players com esse script :/

eu534p.gif

Deadpool

!!!
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 25/10/11Posts: 2175Gênero: MasculinoChar no Tibia: Sociopata

Muito Bom esse sistema ta ai um sistema util para otserve de tibia

Não respondo PMs solicitando suporte. Já existem seções no fórum para isto.

 

 

 

 

DICA

Utilize botão @UP, no início de seu tópico, para atualizar o destaque de seu tópico em "Tópicos Recentes" na index, fará com que mais pessoas o vejam.