What's new

Sex (kondomy, dzieci)

Status
Not open for further replies.

Meferot

Advanced User
Joined
May 5, 2008
Messages
232
Reaction score
9
Age
32
?wi?ski scrypt, 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:
PHP:
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:
PHP:
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:
PHP:
	<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:
PHP:
	<item id="6579" article="a" name="child">
		<attribute key="weight" value="5000"/>
	</item>

Scrypt autorstwa Elfa.
 
Last edited:

Bizi159

Active User
Joined
May 20, 2008
Messages
139
Reaction score
6
Odp: Sex (kondomy, dzieci)

XD! Wywalisty skrypt, wprowadzi?em go w ?ycie :s... Mi wywala mae bugi w konsoli, ale da rade :D
 

johny5608

Active User
Joined
May 16, 2008
Messages
61
Reaction score
4
Odp: Sex (kondomy, dzieci)

Twoj Skrypt ?

Credits to Elf
 

Meferot

Advanced User
Joined
May 5, 2008
Messages
232
Reaction score
9
Age
32
Odp: Sex (kondomy, dzieci)

Tak, tak Elfa.
Przepraszam, zapomnia?em doda?.
 

AoW2

Active User
Joined
Dec 26, 2008
Messages
131
Reaction score
8
Odp: Sex (kondomy, dzieci)

Nie Mam tibi 8.4 ale kiedy? mia?em podobny skrypt... i by? ciekawy ;]
M?g?by? wrzuci? jakis s's albo filmik na
 

mbbm8

Advanced User
Joined
Jan 18, 2009
Messages
180
Reaction score
4
Odp: Sex (kondomy, dzieci)

Bardzo ladny juz wrzucilem dziala bez zarzut?w
ELF TO GENIUSZ:up::up::up:
 

Shadiasd

New User
Joined
Apr 12, 2009
Messages
7
Reaction score
0
Odp: Sex (kondomy, dzieci)

Podoba mi si? ten pomys? :p ju? da?em do mojego ots. Polecam !
 

Runemaker

Advanced User
Joined
Nov 13, 2008
Messages
346
Reaction score
38
Odp: Sex (kondomy, dzieci)

Moze jakie? screeny bo nie wiem czy brac czy nie ;ppp
 

Arturer

User
Joined
Dec 16, 2008
Messages
18
Reaction score
1
Odp: Sex (kondomy, dzieci)

No spoko ?adny temat. Przyda si? do mojego ots.
 

baambaaam

Active User
Joined
Jun 21, 2008
Messages
100
Reaction score
2
Odp: Sex (kondomy, dzieci)

mo?e kto? da? ip do otsa z tym skryptem? bo nigdy nie gra?em na takim ;p
 

rafix146

User
Joined
Jul 24, 2008
Messages
10
Reaction score
0
Odp: Sex (kondomy, dzieci)

Mam 3 pytania.
1. To dzia?a przez komend? !sex?
2. To AIDS zaiera nam hp czy co?
3. Dzia?a na 8.1?
 
Status
Not open for further replies.
Top