Sex System

[skyline3005 0]

huauhauhauhuhahua

Eu sempre olhava para isso e achava que era uma camisinha... :)

 

Mas nunca tive essa ideia... gostei, parabéns

[1600088 0]

Vlw... gostei mesmuh do topico....

 

ja arrumei o bug e tudo....

 

Vlw..

[Thiaggo 0]

Alguem manda o script direitinho por favor;;;;;

[BlueAvenger 0]

Parabens, muito bom script quando lancei no meu ot o povo adoro, tá de parabens. Sensacional

 

Aprovado

[Tchichan 0]

botem uma screen ai

 

Se for legal eu boto lah

[Creuza321 0]

UASDHusahdAHSUDHUashud

Otima criatividad msm NOTA:9/10

[Cabral 2]

Num Funfo NAo

Eu Arrumei O Erro Do Getcre.....

Mas Depois Num Funfo MAis NAo

Se Aalguem Puder Me Ajudar

MAnde PM Plz

Uso Aries 0.4.0

[Raphael Carnaúba 1]

Arrumei as cores, coloquei somente se forem sexos opostos e o oposto é 1 mulher, somente homen da creu na mina, nao pode vice versa e nem homo, lesbs ... kkkk, e consertei o negoso de criar o bebê. eu ja tinha citado na primeira pagina mais acho que muitos nao viram

 

--[[
Secure Sex 1.0 (talkaction)

Caso o player possua um item de id 6527, ao qual considerei como camisinha, no slot de munição, e dizer 'craw', o mesmo terá um

sexo seguro.
Caso contrário, ele poderá correr o risco de adquirir AIDS e ir morrendo aos poucos, ou mesmo ter um filho, e perder todo

dinheiro para sustentá-lo.

Para fazer sexo, basta chegar em frente a um jogador e dizer 'craw'

Observação: código estruturado segundo os padrões oficiais do LUA, segundo o site lua.org
]]--

--[[
Declaração de variáveis e constantes

As variáveis 'damage e 'times', determinam o dano e a quantidade de vezes que o mesmo ocorrerá.

]]--
local ITEM_CONDON = 6527
local ITEM_GOLD = 2148
local ITEM_PLATINUM = 2152
local ITEM_CRYSTAL = 2160
local ITEM_CHILD = 6579
local damage = 50
local times = 50

--[[
Combate

Usado para caso o jogador pegue AIDS, o mesmo, perder vida
]]--
local combat = createCombatObject()
local condition = createConditionObject(CONDITION_DROWN)
setConditionParam(condition, CONDITION_PARAM_DELAYED, 1)
addDamageCondition(condition, times, 100, -damage)
setCombatCondition(combat, condition)

function onSay(cid, words, param)
   --A variável 'noCondon' estipula um interger que pode ser de 1 a 4, conforme a execução do script.
   local noCondon = math.random(1,4)
   local playerPos = getCreaturePosition(cid)
   -- Pegando-se o alvo, caso o mesmo exista
   if (getPlayerLookDir(cid) == 1) then
       target = {x = playerPos.x + 1, y = playerPos.y, z = playerPos.z, stackpos = 253}
   elseif (getPlayerLookDir(cid) == 2) then
       target = {x = playerPos.x, y = playerPos.y + 1, z = playerPos.z, stackpos = 253}
   elseif (getPlayerLookDir(cid) == 3) then
       target = {x = playerPos.x - 1, y = playerPos.y, z = playerPos.z, stackpos = 253}
   else
       target = {x = playerPos.x, y = playerPos.y - 1, z = playerPos.z, stackpos = 253}
   end
   target = getThingfromPos(target)
   -- Checando se o alvo anteriormente pego é um jogador
   if (isPlayer(target.uid) == TRUE and getPlayerSex(target.uid) == 0 and getPlayerSex(cid) == 1) then
       -- Checando se o alvo está de costas, ou seja, da mesma direção que o jogador que executa tal ação
       if (getPlayerLookDir(target.uid) == getPlayerLookDir(cid)) then
           -- Checando se existe alguma camisinha
           if (getPlayerItemCount(cid, ITEM_CONDON) > 0) then
               -- Exibindo efeitos e removendo camisinha
               doSendAnimatedText(playerPos, 'Craw!!!', TEXTCOLOR_YELLOW)
               doSendAnimatedText(getThingPos(target.uid), 'Oh God!!', TEXTCOLOR_LIGHTGREEN)
               doPlayerRemoveItem(cid, ITEM_CONDON, 1)
           else
               -- Utilizando a variável 'noCondon' estipulando que se o valor for menor que 3, o jogador pegará AIDS e então a execução do 'combat' começará
               if (noCondon < 3) then
                   doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, 'You got AIDS!')
                   doCombat(0,combat,numberToVariant(cid))
               else
                   -- Pegando os valores restantes (3,4 e 5) e estipulando que caso a variável 'noCondon' retorne tais valores, o jogador então terá um filho, e perderá todo seu dinheiro.
                   doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, 'You got a child!')
                   local child = doCreateItem(ITEM_CHILD, 1, getThingPos(target.uid))
                   doSetItemSpecialDescription(child,'It is a son of '..getCreatureName(cid)..' and '..getCreatureName(target.uid)..'.')
                   local gps = getPlayerItemCount(cid, ITEM_GOLD)
                   local pcs = getPlayerItemCount(cid, ITEM_PLATINUM)
                   local ccs = getPlayerItemCount(cid, ITEM_CRYSTAL)
                   if (gps > 0 or pcs > 0 or ccs > 0) then
                       doPlayerRemoveItem(cid, ITEM_GOLD, gps)
                       doPlayerRemoveItem(cid, ITEM_PLATINUM, pcs)
                       doPlayerRemoveItem(cid, ITEM_CRYSTAL, ccs)
                   else
                       return TRUE
                   end
               end
           end
       else
           return TRUE
       end
   else
       return TRUE
   end
   -- não retornando a fala do jogador, já que a mesma é falada nos efeitos e isso poderia gerar uma certa 'poluição visual'.
   return FALSE
end

[ianfontes 0]

Rox veio, continua assim...

[marcoantoni 0]

mt rox est skript

aprovado

[wesley Machado 0]

so novo aki e queria sabe onde boto a script SexSystem.lua?

[Coyoty 0]

respondendo a duvida acima:

crie um arquivo no bloco de notas.

coloque todos o script salve como

"SexSystem.lua" em data/talkactions/scritpts

depois abra a pasta data/talkactions e abra o arquivo talkactions com o bloco de notas, adcione antes de </talkactions> o seguinte

<talkaction words="craw" script="SexSystem.lua" />

[Potter Maniac 0]

Caraca Mew muito ROX mesmo irei colocar em meu Server =D

 

ROX MESMO !!!

 

[zafirus 0]

achei um bug:

 

Antes dito "só pode usar a camisinha se ela tiver o lugar onde poe munição(flechas)"

 

mexendo aqui eu percebi que msm se a camisinha tiver no dedo do pé do char ele usa a camisinha normal :S

 

tem fix?

[Master Caximbu 0]

aki nao funciono...so n posso fala a palavr "craw"...ps: scripts do talkactions ne?

[CIAKILLES 0]

Meu muito bom mesmo este script,

ja tinha visto akele id e realmente parece uma camisinha, naum sei pra que servia na real, masi agora tem uma funçao util

xD

adorei

implantado no meu ot!

[Yeek 0]

impressao ou isso vai almetar 100x a quantidade de shemale?

[ianfontes 0]

Oo

 

Que louco brown

 

Eu numca tinha eprcebido, parece uma camisinha auhehuaheaaea

[Print Screen 1]

kkkkk

muito bom!

pena q o ot fica cheio de poça branca

xD

 

Yaap~•

[junihor123 0]

HUASHUhausuhAHUShu script muito rox e bem engraçado.