talkaction [Talkaction]Sexy System (Funny)

[meubkk 8]

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.

Editado Abril 12, 2011 por Cobraa

[pok302010 5]

Legal cara,

 

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

tipo que regenaravam life e tals.

 

continue assim!

[tinfer3 6]

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

good job

[sejameuamigo 5]

funcionou aqui ! oqe ta sendo mt dificil utimamente

ow , cria um char female lá no meu ot e agente curte uma

[dustot 24]

Tae meu REP+ pra ti. Gostei

[306295 3]

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

 

 

obs:É TRANSAR NAO TRANZAR

[elitevini 1]

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

PORRA KARA VC ME AJUDOU MT TOMA REP+

[caraiomaluko 0]

Ae Cara sistema rox raxei kkk!

 

Tibia Vs Rag 2

[ofrog 0]

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

POw MT legal...

coloquei no meu ot funfo 100%!!!!

 

Vlww Levo meu REP+++

[roriscrave 21]

coloquei no ot certim vlw rep

[HadesBR 21]

tem um problema

da pra invadir casas dos outros players com esse script

Editado Novembro 19, 2011 por HadesBR

[Deadpool 862]

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