Sex (Kondony,Dzieci) Skrypty !!!

[Fikusek]

Witam wszystkich chcia?bym wam przedstawi? Fajny Skrypt lecz troche
?wi?ski , ale lubiany
U mnie na serwerze przyj?? si? bardzo dobrze i nie traci na popularno?ci.
Polega g??wnie na talkactions, kt?ra imituje stosunek p?ciowy
Gdy zrobisz to zbyt cz?sto mo?esz urodzi? dziecko (kobieta), albo, co gorsza, zarazi? si? AIDS (oboje).

1) Talkactions
W data/talkactions/scripts/ utw?rz plik o nazwie sex.lua, a jako tre?? wklej:

local combat = createCombatObject()
local condition = createConditionObject(CONDITION_DROWN)
setConditionParam(condition, CONDITION_PARAM_DELAYED, 1)
addDamageCondition(condition, 20, 2000, -10)
setCombatCondition(combat, condition)
function onSay(cid, words, param)
sexProposal = getPlayerStorageValue(cid, 66600)
sexAccept = cid
noCondom = math.random(4)
aidsEffect = math.random(3)
local playerPos = getCreaturePosition(cid)
if getPlayerLookDir(cid) == 1 then
posDir = {x = playerPos.x + 1, y = playerPos.y, z = playerPos.z, stackpos = 253}
elseif getPlayerLookDir(cid) == 2 then
posDir = {x = playerPos.x, y = playerPos.y + 1, z = playerPos.z, stackpos = 253}
elseif getPlayerLookDir(cid) == 3 then
posDir = {x = playerPos.x - 1, y = playerPos.y, z = playerPos.z, stackpos = 253}
else
posDir = {x = playerPos.x, y = playerPos.y - 1, z = playerPos.z, stackpos = 253}
end
target = getThingfromPos(posDir)
if isPlayer(target.uid) == TRUE then
if getPlayerLookDir(target.uid) == getPlayerLookDir(cid)-2 then
sameLookDir = TRUE
elseif getPlayerLookDir(target.uid) == getPlayerLookDir(cid)+2 then
sameLookDir = TRUE
else
sameLookDir = FALSE
end
if sameLookDir == TRUE then
if getPlayerSex(target.uid) == getPlayerSex(cid) then
doPlayerSendCancel(cid, 'You cannot make sex with same gender as self, pervert!')
doSendMagicEffect(getPlayerPosition(cid),CONST_ME_POFF)
else
if getPlayerGroupId(cid) > 3 and getPlayerGroupId(cid) >= getPlayerGroupId(target.uid) then
sexProposal = cid
sexAccept = target.uid
allowSex = TRUE
elseif target.uid == sexProposal then
allowSex = TRUE
else
allowSex = FALSE
end
if allowSex == TRUE then
if getPlayerStorageValue(sexProposal, 66660) > 0 or getPlayerStorageValue(sexAccept, 66660) > 0 then
doSendAnimatedText(getCreaturePosition(sexProposal), 'Ahh, Ahh...', TEXTCOLOR_YELLOW)
doSendMagicEffect(getPlayerPosition(sexProposal),CONST_ME_STUN)
doSendAnimatedText(getThingPos(sexAccept), 'Ohh, Ohh!', TEXTCOLOR_TEAL)
doSendMagicEffect(getPlayerPosition(sexAccept),CONST_ME_STUN)
setPlayerStorageValue(sexProposal, 66660, 0)
setPlayerStorageValue(sexAccept, 66660, 0)
else
if noCondom == 3 then
hurtMessage = 'Sex without condoms brings consequences - You just got AIDS!\nYour sickness will hurt alot...'
partnerMessage = 'Sex without condoms brings consequences - Your partner just got AIDS!'
bothMessage = 'Sex without condoms brings consequences - You and Your partner just got AIDS!\nYour sickness will hurt alot...'
if aidsEffect == 1 then
proposalMessage = hurtMessage
acceptMessage = partnerMessage
hurtPlayer = sexProposal
elseif aidsEffect == 2 then
proposalMessage = partnerMessage
acceptMessage = hurtMessage
hurtPlayer = sexAccept
else
proposalMessage = bothMessage
acceptMessage = bothMessage
hurtPlayer = FALSE
end
doPlayerSendTextMessage(sexProposal, MESSAGE_STATUS_WARNING, proposalMessage)
doPlayerSendTextMessage(sexAccept, MESSAGE_STATUS_WARNING, acceptMessage)
if hurtPlayer == FALSE then
doSendMagicEffect(getPlayerPosition(sexProposal),CONST_ME_YELLOW_RINGS)
doCombat(0,combat,numberToVariant(sexProposal))
doSendMagicEffect(getPlayerPosition(sexAccept),CONST_ME_YELLOW_RINGS)
doCombat(0,combat,numberToVariant(sexAccept))
else
doSendMagicEffect(getPlayerPosition(hurtPlayer),CONST_ME_YELLOW_RINGS)
doCombat(0,combat,numberToVariant(hurtPlayer))
end
elseif noCondom == 2 then
payMessage = '\nAs a good parent You spend whole Your gold for the child.'
if getPlayerSex(sexProposal) == 0 then
childMother = sexProposal
childFather = sexAccept
motherMsg = payMessage
fatherMsg = ""
elseif getPlayerSex(sexProposal) == 1 then
childMother = sexAccept
childFather = sexProposal
motherMsg = ""
fatherMsg = payMessage
else
if getPlayerSex(sexAccept) == 0 then
childMother = sexAccept
childFather = sexProposal
motherMsg = ""
fatherMsg = payMessage
else
childMother = sexProposal
childFather = sexAccept
motherMsg = payMessage
fatherMsg = ""
end
end
doPlayerSendTextMessage(childFather, MESSAGE_STATUS_WARNING, 'Sex without condoms brings consequences - '..getCreatureName(childMother)..' just born a child!' .. fatherMsg)
doPlayerSendTextMessage(childMother, MESSAGE_STATUS_WARNING, 'Sex without condoms brings consequences - You have just born a child!' .. motherMsg)
doSendMagicEffect(getPlayerPosition(childFather), CONST_ME_FIREWORK_YELLOW)
doSendMagicEffect(getPlayerPosition(childMother), CONST_ME_FIREWORK_RED)
if math.random(2) == 1 then
childGender = "son"
else
childGender = "daughter"
end
doSetItemSpecialDescription(doPlayerAddItem(childMother,6579,1),'It is a '..childGender..' of '..getCreatureName(childFather)..' and '..getCreatureName(childMother)..'.')
local gps = getPlayerItemCount(sexProposal, ITEM_GOLD)
local pcs = getPlayerItemCount(sexProposal, ITEM_PLATINUM)
local ccs = getPlayerItemCount(sexProposal, ITEM_CRYSTAL)
if gps > 0 or pcs > 0 or ccs > 0 then
doPlayerRemoveItem(sexProposal, ITEM_GOLD, gps)
doPlayerRemoveItem(sexProposal, ITEM_PLATINUM, pcs)
doPlayerRemoveItem(sexProposal, ITEM_CRYSTAL, ccs)
end
else
doSendAnimatedText(getCreaturePosition(sexProposal), 'Ahh, Ahh...', TEXTCOLOR_YELLOW)
doSendMagicEffect(getPlayerPosition(sexProposal),CONST_ME_STUN)
doSendAnimatedText(getThingPos(sexAccept), 'Ohh, Ohh!', TEXTCOLOR_TEAL)
doSendMagicEffect(getPlayerPosition(sexAccept),CONST_ME_STUN)
end
end
setPlayerStorageValue(sexProposal, 66600, 0)
setPlayerStorageValue(sexAccept, 66600, 0)
else
if getPlayerStorageValue(target.uid, 66600) == cid then
doPlayerSendCancel(cid, 'You have already sent a sex proposal to '..getCreatureName(target.uid)..'.')
doSendMagicEffect(getPlayerPosition(cid),CONST_ME_POFF)
else
setPlayerStorageValue(target.uid, 66600, cid)
doPlayerSendTextMessage(cid, 22, 'You have sent a sex proposal to '..getCreatureName(target.uid)..'.')
doPlayerSendTextMessage(target.uid, 22, getCreatureName(cid)..' wants to have a sex with You.')
doSendMagicEffect(getPlayerPosition(target.uid),CONST_ME_HEARTS)
end
end
end
else
doPlayerSendCancel(cid, 'You must stand after your partner to do sex.')
doSendMagicEffect(getPlayerPosition(cid),CONST_ME_POFF)
end
else
doPlayerSendCancel(cid, 'You may do sex only with players.')
doSendMagicEffect(getPlayerPosition(cid),CONST_ME_POFF)
end
doPlayerSendTextMessage(cid, 25, words)
return FALSE
end

W data/talkactions/ otw?rz talkactions.xml i dodaj w dowolnym miejscu:

<talkaction words="!sex" script="sex.lua"/>

2) Actions
W data/actions/scripts utw?rz plik condom.lua, a do niego wklej:

function onUse(cid, item, fromPosition, itemEx, toPosition)
local exhaust = getPlayerStorageValue(cid, 66660) + 300
if (os.time() >= exhaust) then
setPlayerStorageValue(cid, 66660, os.time())
doSendMagicEffect(toPosition, CONST_ME_GIFT_WRAPS)
doPlayerSendTextMessage(cid, 22, 'You are now wearing a condom for next 5 minutes.')
doRemoveItem(item.uid, 1)
else
doPlayerSendCancel(cid, 'You are already safe for sex!')
end
return TRUE
end

W data/actions otw?rz actions.xml i dodaj w dowolnym miejscu:

<action itemid="6527" script="condom.lua" />

3) Items
W data/items/ otw?rz items.xml i znajd?:

<item id="6527" article="a" name="christmas token" plural="christmas tokens">
<attribute key="weight" value="5"/>
</item>

Podmie? to na:

<item id="6527" article="a" name="condom" plural="condoms">
<attribute key="weight" value="5"/>
<attribute key="description" value="May be used for safe sex, last 5 minutes."/>
</item>

Nast?pnie znajd?:

<item id="6579" article="a" name="tibia doll">
<attribute key="weight" value="750"/>
</item>

I zn?w podmie? na:

<item id="6579" article="a" name="child">
<attribute key="weight" value="5000"/>
</item>

skrypt autorstwa : elfa
Ja go troche przerobi?em ;d
a moze i nawet wiecej niz troche !!! ;D ;D

 

[Szaki]

Odp: Sex (Kondony,Dzieci) Skrypty !!!

Fajne te skrypty s?, ale 100% for fun i jak jest sporo graczy obu p?ci. Na ma?e serwery (5 lub mniej graczy) to si? nie nadaje. Szkoda, ?e nie twoje. Moja ocenka to 7/10.

Pozdrawiam.

 

[NinjaLP]

Odp: Sex (Kondony,Dzieci) Skrypty !!!

Skrypcik spoko sie zapowiada ale z szakim to sie troche zgodze
Ale moja ocena 8/10
Takiego czego? nie widzia?em w s?sie ?e AIDS ITD

 

[wikioniszk]

Odp: Sex (Kondony,Dzieci) Skrypty !!!

praca na 10 na moim serwie bardzo sie przyj??

 

[kamids]

Odp: Sex (Kondony,Dzieci) Skrypty !!!

Bardzo mi sie podoba fajny skrypt niewiem co ty da?es do tego skrypta ale dzieki ze go wogule podales moja ocenka za skrypt 10/10

 

[kamids]

Odp: Sex (Kondony,Dzieci) Skrypty !!!

A wogule co robi te AIDS wiem ze to choroba ;d ale co ona robi na otsie deda czy co??

 

[Fikusek]

Odp: Sex (Kondony,Dzieci) Skrypty !!!

@NinjaLP
Dziekuje za komentarz

@wikioniszk
Ciesze ze si? podoba no i ze si? komu? przyda?o

@kamids
Dzi?kuje Za Komentarz


~~Refresh ~~ Komentowa? Komentowa? Dalej !

Pozdrawiam Fikusek