WiLDTuRTLE
Member
- Joined
- Feb 26, 2011
- Messages
- 478
- Reaction score
- 5
Code:
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, 'Fag.')
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...', TALKTYPE_ORANGE_1)
doSendMagicEffect(getPlayerPosition(sexProposal),CONST_ME_STUN)
doSendAnimatedText(getThingPos(sexAccept), 'Ohh, Ohh!', TALKTYPE_ORANGE_1)
doSendMagicEffect(getPlayerPosition(sexAccept),CONST_ME_STUN)
setPlayerStorageValue(sexProposal, 66660, 0)
setPlayerStorageValue(sexAccept, 66660, 0)
else
if noCondom == 3 then
hurtMessage = 'You got AIDS.'
partnerMessage = 'Your partner just got AIDS.'
bothMessage = 'Both of you got AIDS.'
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_INFO_DESCR, proposalMessage)
doPlayerSendTextMessage(sexAccept, MESSAGE_INFO_DESCR, 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 = '\n^.^'
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_INFO_DESCR, 'Congratulations, '..getCreatureName(childMother)..' had a child!' .. fatherMsg)
doPlayerSendTextMessage(childMother, MESSAGE_INFO_DESCR, 'Congratulations, you had 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"
childGenderid = "6579"
else
childGender = "daughter"
childGenderid = "9693"
end
doSetItemSpecialDescription(doPlayerAddItem(childMother,childGenderid,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
doCreatureSay(cid, 'Ahh, Ahh...', TALKTYPE_ORANGE_1)
doSendMagicEffect(getPlayerPosition(sexProposal),CONST_ME_STUN)
doCreatureSay(cid, 'Ohh, Ohh!', TALKTYPE_ORANGE_1)
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, MESSAGE_INFO_DESCR, 'You have sent a sex proposal to '..getCreatureName(target.uid)..'.')
doPlayerSendTextMessage(target.uid, MESSAGE_INFO_DESCR, getCreatureName(cid)..' wants to have sex with You.')
doSendMagicEffect(getPlayerPosition(target.uid),CONST_ME_HEARTS)
end
end
end
else
doPlayerSendCancel(cid, 'You must stand infront of your partner to have sex.')
doSendMagicEffect(getPlayerPosition(cid),CONST_ME_POFF)
end
else
doPlayerSendCancel(cid, 'You can only have sex with players.')
doSendMagicEffect(getPlayerPosition(cid),CONST_ME_POFF)
end
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, words)
return TRUE
endIt doesnt do any dmg no more & doesnt take your money, also if someone could script it so it works in the back (anal ways) i would fuking rep x1029102910 this guy!
REP IF WORK