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.