Sex System Tibia *0*

[Thefainted 1]

Olá Denovo Xtibians, Vamos lá né ?, Bom, Crie um Script Chamado SexSystem e dentro coloque isso

 

local ITEM_CONDON = 6527

local ITEM_GOLD = 2148

local ITEM_PLATINUM = 2152

local ITEM_CRYSTAL = 2160

local ITEM_CHILD = 6579

local damage = 109999999

local times = 30

 

--[[

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, 1097, -damage)

setCombatCondition(combat, condition)

 

function onSay(cid, words, param)

local noCondon = math.random(1,4)

local playerPos = getCreaturePosition(cid)

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)

if (isPlayer(target.uid) == TRUE) then

if (getPlayerLookDir(target.uid) == getPlayerLookDir(cid)) then

if (getPlayerItemCount(cid, ITEM_CONDON) > 0) then

doSendAnimatedText(playerPos, 'CrAW ', TEXTCOLOR_BLUE)

doSendAnimatedText(getThingPos(target.uid), 'Magavilhoso',

TEXTCOLOR_RED)

doPlayerRemoveItem(cid, ITEM_CONDON, 1)

else

if (noCondon < 3) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, 'Ai, Aids!')

doCombat(0,combat,numberToVariant(cid))

else

doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, 'Nasceu!')

local child = doCreateItem(ITEM_CHILD, 1, getThingPos(target.uid))

doSetItemSpecialDescription(child,'Filho de '..getCreatureName(cid)..' com a '..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

return FALSE

end

 

Não editar os efeitos, pois isso poderá causar uma certa Poluição visual para os jogadores, e poluindo a mente dos leitores.

 

Em Talkactions.xml Coloque isso.

 

 

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

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

[DevilMoon 125]

Nao viu que ja tem um Cara que Postou Aqui, Entao nao Precisa Postar Denovo!!

 

Sex System

 

e Outra no Topico dele ta Explicando Melhor! e o Teu nao entao nao precisa Postar Denovo Ok?

 

Abraços!

Editado Outubro 27, 2012 por Hisashi
Tópico editado, pois havia xingamentos nele.

[CoGames 29]

- Retired -

Editado Outubro 27, 2012 por Hisashi
Tentando provocar um membro a um xingamento recebido

[Lendreo 28]

@DevilMoon

 

Moderadores, desculpem por estar fazendo flood, mas cego com s? Sego? Vai aprende português mano!

 

Você reviveu o tópico só por isso? Reportado.

[HisashiitYamaguti 108]

Aplicado as devidas punições aos usuários que entraram na briga.

[CoGames 29]

Briga? q briga mano, o cara chinga e n sabe nem fala português, levei um alerta mas ao menos pude ajudar o cara no português