glife/locations/selfplay

# selfplay
$d_self_ass_fingering = {

}

$d_self_fingering = {
	act 'Put a finger inside your vagina':
		cls
		if spdirtyf > 0: dirtyplay = 1
		selfplaytime += 2
		'<center><img src="images/shared/sex/mast/finger.jpg"></center>'

		if pcs_vag = 0 and mesec <= 0:
			'You let your fingers dart over your soft and wet pussy lips, before gradually attempting to slide your finger into your pussy. You can''t get your finger all the way in, stumbling on a barrier which you figure must be your hymen.'

			gs 'arousal', 'masturbate', 2
			gs 'stat'
			
			act 'Break your hymen':
				cls
				pcs_horny -= 25
				pcs_vag += 1
				minut += 5
				selfplaytime += 5
				pcs_mood -= 60
				gs 'stat'
				'<center><img src="images/shared/sex/mast/finger.jpg"></center>'
				'You press harder, forcing your finger against your hymen. It gives in, and suddenly your finger slides all the way in. Your pussy hurts a little now, and your finger has some blood on it when you pull it out.'

				act 'Stop touching yourself and rest for a while':gt $curloc
			end
		elseif pcs_vag > 0:
			'You slide one finger into your vagina, and then another.'
			
			gs 'arousal', 'masturbate', 2
			gs 'stat'

			if pcs_vag < 5:
				pcs_horny += rand(2, 5)
				'You feel your pussy clasping around your fingers very tightly.'
			elseif pcs_vag < 10:
				pcs_horny += rand(5, 10)
				'You feel your slippery pussy walls around your fingers. It feels nice and tight.'
			else
				pcs_horny += rand(2, 5)
				'Having your fingers in your pussy feels nice, but it doesn''t feel very tight. You feel like you can take more.'
			end
			if pcs_vag < 5:vaginaTemp += 1

			act 'Fuck your fingers':
				cls
				selfplaytime += 5

				if pcs_vag <= 10:pcs_horny += rand(5, 10)
				if pcs_vag > 10:pcs_horny += rand(2, 5)

				'<center><img src="images/shared/sex/mast/finger.jpg"></center>'
				'You start moving your fingers in and out, softly pinching your nipples as you play with yourself.'

				gs 'arousal', 'masturbate', 5
				gs 'stat'
			
				if pcs_vag <= 10:'Your pussy walls are stretched nicely from the finger fucking, and you feel a pleasant warmth spread in your lower body.'
				if pcs_vag > 10:'Your pussy is quite loose, and you have to work hard to get much enjoyment out of it.'

				gs 'stat'

				if pcs_vag < 10:vaginaTemp += 1

				if pcs_horny >= 100:
					pcs_horny = 0
					pcs_mood = 100
					'Suddenly, you hit just the right spot and your whole body starts to shiver in orgasm. The intensity of the orgasm nearly makes you scream, but you bite down on your lip and do your best to stifle down the moans so no one hears you.'
					$orgasm_or = 'yes'
					
				end

				if pcs_horny > 0:dynamic $d_self_fingering2
					
				act 'Stop touching yourself':gt $curloc
			end
		elseif mesec > 0:
			pcs_mood -= 5
			'Your vagina has some dried up blood from your period on it. You attempt to shove your finger in, but then are kind of grossed out by the idea and reconsider.'
		end

		gs 'stat'

		act 'Stop touching yourself':gt $curloc
	end
}

$d_self_fingering2 = {
	act 'Thrust all fingers into your vagina':
		cls
		selfplaytime += 2
		'<center><img src="images/shared/sex/mast/hand.jpg"></center>'

		if pcs_vag > 0:
			'You shove all your fingers inside your pussy.'

			gs 'arousal', 'masturbate', 2
			gs 'stat'
			
			if pcs_vag < 10:
				if vgape = 2:vgape = 3
				if vgape = 1:vgape = 2
				if vgape = 0:vgape = 1

				pcs_horny -= 10
				pcs_mood -= 10
				'You shove all your fingers inside your tight pussy, and feel it stretch out way more more than it should. It''s rather painful.'
			elseif pcs_vag < 15:
				pcs_horny += rand(1, 3)
				'You shove all your fingers inside your tight pussy, feeling your pussy grip them tightly. It doesn''t hurt, but doesn''t feel very good either.'
			elseif pcs_vag < 20:
				pcs_horny += rand(3, 6)
				'You shove all your fingers inside your tight pussy, feeling your pussy grip them tightly.'
			else
				pcs_horny += rand(6, 12)
				'You stick all of your fingers in your pussy, and feel how your vagina envelops them nicely. You get a pleasant feeling of fullness.'
			end
			if pcs_vag < 15:vaginaTemp += 1

			act 'Fuck yourself with your fingers':
				cls
				selfplaytime += 5

				if pcs_vag < 10:
					if vgape = 2:vgape = 3
					if vgape = 1:vgape = 2
					if vgape = 0:vgape = 1

					pcs_horny -= 10
					pcs_mood -= 10
				end

				'<center><img src="images/shared/sex/mast/hand.jpg"></center>'
				'You start to slowly move your hand, thrusting your fingers into your pussy again and again.'

				gs 'arousal', 'masturbate', 5
				gs 'stat'
			
				if pcs_vag <= 15:pcs_horny -= 10 & pcs_mood -= 10 & 'You''re stretching your pussy to the point where it becomes rather painful, and don''t get any enjoyment out of it.'
				if pcs_vag > 10:pcs_horny += rand(10, 20) & 'Your pussy walls are stretched nicely from the finger fucking, and you feel a pleasant warmth spread in your lower body.'

				gs 'stat'

				if pcs_vag < 20:vaginaTemp += 1

				if pcs_horny >= 100:
					orgasm += 1
					pcs_horny = 0
					pcs_mood = 100
					'Suddenly, you hit just the right spot and your whole body starts to shiver in orgasm. The intensity of the orgasm nearly makes you scream, but you bite down on your lip and do your best to stifle down the moans so no one hears you.'
					$orgasm_or = 'yes'
				end

				dynamic $d_self_fingering2
				
				act 'Stop touching yourself':gt $curloc
			end
		end

		gs 'stat'

		act 'Stop touching yourself':gt $curloc
	end
}

! WD: Masturbating at night only has 10% chance to be discovered
$d_van_vtor = {
	if indorf = 0 and (hour >= 6 or Rand(1, 10) = 1):
		cls
		pcs_horny -= 50
		pcs_mood -= 10
		gs 'stat'
		'You hear shouting from outside the bathroom: "<<$pcs_nickname>>! Are you drowning in there or something? What''s taking so long? Get out of there!"'

		act 'Get out of the bath and dry yourself off':
			analplay = 0
			selfplaytime = 0
			mastrOnce = 0
			proverkasisterhere = 0

			if vaginaTemp > pcs_vag * 2:pcs_vag += 1 & vaginaTemp = 0

			gt $loc, $metka
		end

		exit
	else
		selfplaytime -= 15
	end
}

!!if $loc = 'vanrPar' and selfplaytime> = 60:dynamic $d_van_vtor
!!dynamic $d_sis_prov

$d_sis_prov = {
	if sister_indorf = 0:
		if $loc = 'bedrPar':
			gs 'family'

			if sisterHere = 0 and proverkasisterhere = 0:proverkasisterhere = 1
			if sisterHere > 0 and proverkasisterhere = 2:gt $curloc
		end
	end
}

if mastrOnce = 0:
	stat['mast'] += 1
	mastrOnce = 1
	if pcs_exhibition < 30:exhibition_exp += rand(1,3)
end

gs 'stat'

if $loc = 'bedrPar' or $loc = 'Gadsarai':'<center><img src="images/shared/sex/mast/start.jpg"></center>'
if $loc = 'vanrPar':'<center><img src="images/shared/sex/mast/startvann.jpg"></center>'

!!then the calculation invasion
if $loc = 'vanrPar':
	if selfplaytime >= 60:
	end
end

if $loc = 'bedrPar':
	gs 'family'

	if sister_indorf = 0:
		if sisterHere = 0 and proverkasisterhere = 0:proverkasisterhere = 1

		if sisterHere > 0:
			cls
			gs 'stat'

			!!if $loc = 'bedrPar':'<center><img src="images/shared/sex/mast/start.jpg"></center>'

			if $loc = 'vanrPar':
				'<center><img src="images/shared/sex/mast/startvann.jpg"></center>'
			else
				'<center><img src="images/shared/sex/mast/start.jpg"></center>'
			end

			if proverkasisterhere = 2:
				SisterKnowMastr += 1
				'<font color="red"><b>Anja saw you masturbate.</b></font>'
			end

			if proverkasisterhere = 1:
				proverkasisterhere = 2
				'<font color="red"><b>You hear footsteps approaching your room.</b></font>'
			end
		end
	end
end

! WD: Fix Dildo choice Code
!{
if dildo = 1:'You have a small dildo, which is 10 cm long.'
if middildo = 1:'You have a dildo, which is 15 cm long.'
if largedildo = 1:'You have a dildo, which is 20 cm long.'
if bigdildo = 1:'You have a large dildo, which is 25 cm long.'
if extradildo = 1:'You have a large dildo, which is 30 cm long.'
if superdildo = 1:'You have a huge dildo, which is 35 cm long.'
if maddildo = 1:'You have a humongous dildo, which is 40 cm long.'
}!
if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo ! 0:
	if dildohand ! 0: *pl & *pl 'You are using a <<dildohand>>cm long dildo.'

	*pl

	if dildo = 1:
		if dildohand = 10:
			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using the 10cm long dildo.'
		else
			*pl '<a href="exec:dildohand = 10 & gt $curloc">Start</a> using the 10cm long dildo.'
		end
	end

	if middildo = 1:
		if dildohand = 15:
			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using the 15cm long dildo.'
		else
			*pl '<a href="exec:dildohand = 15 & gt $curloc">Start</a> using the 15cm long dildo.'
		end
	end

	if largedildo = 1:
		if dildohand = 20:
			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using the 20cm long dildo.'
		else
			*pl '<a href="exec:dildohand = 20 & gt $curloc">Start</a> using the 20cm long dildo.'
		end
	end

	if bigdildo = 1:
		if dildohand = 25:
			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using the 25cm long dildo.'
		else
			*pl '<a href="exec:dildohand = 25 & gt $curloc">Start</a> using the 25cm long dildo.'
		end
	end

	if extradildo = 1:
		if dildohand = 30:
			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using the 30cm long dildo.'
		else
			*pl '<a href="exec:dildohand = 30 & gt $curloc">Start</a> using the 30cm long dildo.'
		end
	end

	if superdildo = 1:
		if dildohand = 35:
			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using the 35cm long dildo.'
		else
			*pl '<a href="exec:dildohand = 35 & gt $curloc">Start</a> using the 35cm long dildo.'
		end
	end

	if maddildo = 1:
		if dildohand = 40:
			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using the 40cm long dildo.'
		else
			*pl '<a href="exec:dildohand = 40 & gt $curloc">Start</a> using the 40cm long dildo.'
		end
	end
end


if pcs_horny > 0:
	act 'Caress your clitoris':
		cls
		selfplaytime += 5

		!!if $loc = 'bedrPar':'<center><img src="images/shared/sex/mast/klit.jpg"></center>'

		gs 'arousal', 'masturbate', 5
		gs 'stat'
			
		if $loc = 'vanrPar':
			'<center><img src="images/shared/sex/mast/klitvann.jpg"></center>'
		else
			'<center><img src="images/shared/sex/mast/klit.jpg"></center>'
		end

		if pcs_mood >= 20:
			pcs_horny += rand(5, 10)
			'You put your hand down between your legs and gently rub your fingers over your groin. Running your fingers between your pussy lips, you scout out your clitoris and lightly run your finger over it repeatedly. The feeling you get out of this is great, and you feel a pleasant warmth spreading in your lower area.'
		else
			pcs_horny += rand(0, 1)
			'You caress your clit with your fingers. It feels nice, but you''re in such a bad mood that you''re too distracted to really enjoy it.'
		end

		if pcs_horny >= 100:
			orgasm += 1
			pcs_horny = 0
			pcs_mood = 100
			'Suddenly, you rub your clit just right and your whole body starts to shiver in orgasm. The intensity of the orgasm nearly makes you scream, but you bite down on your lip and do your best to stifle down the moans so no one hears you.'
			$orgasm_or = 'yes'
		end

		act 'Stop touching yourself':gt $curloc

		if pcs_horny > 0:dynamic $d_self_fingering
	end
end

if pcs_horny > 0 and agape < 3:
	act 'Put a finger in your ass':
		cls
		selfplaytime += 5

		!!if $loc = 'bedrPar':'<center><img src="images/shared/sex/mast/klit.jpg"></center>'
		!!if $loc = 'vanrPar':'<center><img src="images/shared/sex/mast/klitvann.jpg"></center>'
		'<center><img src="images/shared/sex/mast/1.jpg"></center>'

		gs 'arousal', 'masturbate', 5
		gs 'stat'
			
		if pcs_ass >= 3:
			'You press a finger against your asshole and push it in. It slides in quite easily.'
		elseif pcs_ass >= 1 and pcs_ass < 3:
			pcs_ass += 1
			'You press a finger against your tight asshole and push it in. Your anus is squeezing your finger tightly.'
		elseif pcs_ass = 0:
			pcs_ass = 1
			'You press a finger against your virgin asshole and gently push it in. Your anus is squeezing your finger tightly.'
		end

		if $loc = 'vanrPar' and selfplaytime >= 60:dynamic $d_van_vtor

		dynamic $d_sis_prov
		gs 'stat'

		act 'Stop touching yourself':gt $curloc

		act 'Add a second finger':
			cls
			selfplaytime += 5
			'<center><img src="images/shared/sex/mast/2.jpg"></center>'

			gs 'arousal', 'masturbate', 5
			gs 'stat'
			
			if pcs_ass >= 5:
				'You relax and squeeze a second finger in, alongside the first. It slides in fairly easily.'

				if agape > 0:
					if agape = 2:agape = 3
					if agape = 1:agape = 2

					pcs_horny -= 50

					if pcs_ass > 1:pcs_ass -= 1

					'Pushing a second finger into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
				end
			elseif pcs_ass >= 3 and pcs_ass < 5:
				analplay += 1
				'You slide a second finger into your asshole. You can feel your anus squeezing your fingers tightly.'

				if agape > 0:
					if agape = 2:agape = 3
					if agape = 1:agape = 2
					pcs_horny -= 50
					pcs_ass += 1
					'Pushing a second finger into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
				end
			elseif pcs_ass >= 1 and pcs_ass < 3:
				pcs_ass += 1

				if agape = 2:agape = 3
				if agape = 1:agape = 2
				if agape = 0:agape = 1

				pcs_horny -= 50
				'When you slide in the second finger, you feel a sharp pain in your anus. You may have tried too much, too fast.'
			end

			act 'Stop touching yourself':gt $curloc

			if $loc = 'vanrPar' and selfplaytime >= 60:dynamic $d_van_vtor

			dynamic $d_sis_prov

			if pcs_horny > 0 and agape < 3:
				act 'Thrust three fingers in':
					cls
					selfplaytime += 5
					'<center><img src="images/shared/sex/mast/3.jpg"></center>'

					gs 'arousal', 'masturbate', 5
					gs 'stat'
			
					if pcs_ass >= 10:
						'Your asshole is fairly loose, and you manage to slide three fingers in without much effort.'

						if agape > 0:
							if agape = 2:agape = 3
							if agape = 1:agape = 2

							pcs_horny -= 50

							if pcs_ass > 1:pcs_ass += 1

							'Pushing three fingers into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
						end
					elseif pcs_ass >= 5 and pcs_ass < 10:
						analplay += 1
						'You slide three fingers into your asshole. You can feel your anus squeezing your fingers tightly.'

						if agape > 0:
							if agape = 2:agape = 3
							if agape = 1:agape = 2

							pcs_horny -= 50
							pcs_ass += 1
							'Pushing three fingers into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
						end
					elseif pcs_ass < 5:
						pcs_ass += 1

						if agape = 2:agape = 3
						if agape = 1:agape = 2
						if agape = 0:agape = 1

						pcs_horny -= 50
						'When you slide in three fingers, you feel a sharp pain in your anus. You may have tried too much, too fast.'
					end

					act 'Stop touching yourself':gt $curloc

					if $loc = 'vanrPar' and selfplaytime >= 60:dynamic $d_van_vtor

					dynamic $d_sis_prov
					gs 'stat'

					if pcs_horny > 0 and agape < 3:
						act 'Push four fingers into your asshole':
							cls
							selfplaytime += 5
							'<center><img src="images/shared/sex/mast/4.jpg"></center>'

							gs 'arousal', 'masturbate', 5
							gs 'stat'
			
							if pcs_ass >= 15:
								'Your asshole is very loose, and you manage to push four fingers into it.'

								if agape > 0:
									if agape = 2:agape = 3
									if agape = 1:agape = 2

									pcs_horny -= 50

									if pcs_ass > 1:pcs_ass -= 1

									'Pushing four fingers into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
								end
							elseif pcs_ass >= 10 and pcs_ass < 15:
								analplay += 1
								'You manage to push four fingers into your asshole. You can feel your anus squeezing your fingers tightly.'

								if agape > 0:
									if agape = 2:agape = 3
									if agape = 1:agape = 2

									pcs_horny -= 50
									pcs_ass += 1
									'Pushing four fingers into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
								end
							elseif pcs_ass < 10:
								pcs_ass += 1

								if agape = 2:agape = 3
								if agape = 1:agape = 2
								if agape = 0:agape = 1

								pcs_horny -= 50
								'When you slide in four fingers, you feel a sharp pain in your anus. You may have tried too much, too fast.'
							end

							act 'Stop touching yourself':gt $curloc

							if $loc = 'vanrPar' and selfplaytime >= 60:dynamic $d_van_vtor

							dynamic $d_sis_prov
							gs 'stat'

							if pcs_horny > 0 and agape < 3:
								act 'Put your whole hand in':
									cls
									SelfFisting += 1
									selfplaytime += 5
									'<center><img src="images/shared/sex/mast/5.jpg"></center>'

									gs 'arousal', 'masturbate', 5
									gs 'stat'
			
									if pcs_ass >= 20:
										'Slowly but surely, you manage to get your entire hand into your ass.'

										if agape > 0:
											if agape = 2:agape = 3
											if agape = 1:agape = 2

											pcs_horny -= 50

											if pcs_ass > 1:pcs_ass -= 1

											'Pushing your whole hand into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
										end
									elseif pcs_ass >= 15 and pcs_ass < 20:
										analplay += 1
										'It takes a lot of effort, but over the course of several minutes you manage to work your whole hand into your ass. You feel your anus squeeze your wrist tightly.'

										if agape > 0:
											if agape = 2:agape = 3
											if agape = 1:agape = 2

											pcs_horny -= 50
											pcs_ass += 1
											'Pushing your whole hand into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
										end
									elseif pcs_ass < 15:
										pcs_ass += 1

										if agape = 2:agape = 3
										if agape = 1:agape = 2
										if agape = 0:agape = 1

										pcs_horny -= 50
										'When you push your hand into your asshole, you feel a sharp pain in your anus. You may have tried too much, too fast.'
									end

									act 'Stop touching yourself':gt $curloc

									if $loc = 'vanrPar' and selfplaytime >= 60:dynamic $d_van_vtor

									dynamic $d_sis_prov
								end
							end
						end
					end
				end
			end
		end
	end
end

if pcs_horny > 10:
	if dildo >= 1 or middildo = 1 or largedildo = 1 or bigdildo = 1 or extradildo = 1 or superdildo = 1 or maddildo = 1:

		if dildohand > 0:
			! WD: Fix Dildo choice Code ~ refer above
			! 'In your hands <<dildohand>>five inch dildo'
			if vgape <= 0:
				act 'Use the dildo on your pussy':
					cls
					selfplaytime += 15
					if husband > 0 and housrA = 1 and husbandrink ! 10 and $locM = 'bedr': gt 'husbsex','husb_mastr_vtor'
					
					dick = dildohand

					!!if $loc = 'bedrPar':'<center><img src="images/shared/sex/mast/dildo.jpg"></center>'
					if $loc = 'vanrPar':
						'<center><img src="images/shared/sex/mast/dildovann.jpg"></center>'
					else
						'<center><img src="images/shared/sex/mast/dildo.jpg"></center>'
					end

					dynamic $d_vag_sex_dildo
					gs 'arousal', 'vaginal_dildo', 15
					gs 'arousal', 'masturbate', 15
					minut -15
					gs 'stat'

					act 'Stop using the dildo':gt $curloc
				end
			end

			if agape <= 0:
				act 'Use the dildo on your ass':
					cls
					minut += 15
					selfplaytime += 15
					dick = dildohand

					!!if $loc = 'bedrPar':'<center><img src="images/shared/sex/mast/dildoanal.jpg"></center>'
					if $loc = 'vanrPar':
						'<center><img src="images/shared/sex/mast/dildovann.jpg"></center>'
					else
						'<center><img src="images/shared/sex/mast/dildoanal.jpg"></center>'
					end

					dynamic $d_analsex_dildo
					gs 'arousal', 'anal_dildo', 15
					gs 'arousal', 'masturbate', 15
					minut -15
					gs 'stat'

					act 'Stop using the dildo':gt $curloc
				end
			end
		! WD: Fix Dildo choice Code  ~ refer above
		!{
		elseif dildohand = 0:
			'You do not have a dildo in your hand.'

			if dildo = 1:
				act 'Take the 10cm long dildo':dildohand = 10 & gt $curloc
			end

			if middildo = 1:
				act 'Take the 15cm long dildo':dildohand = 15 & gt $curloc
			end

			if largedildo = 1:
				act 'Take the 20cm long dildo':dildohand = 20 & gt $curloc
			end

			if bigdildo = 1:
				act 'Take the 25cm long dildo':dildohand = 25 & gt $curloc
			end

			if extradildo = 1:
				act 'Take the 30cm long dildo':dildohand = 30 & gt $curloc
			end

			if superdildo = 1:
				act 'Take the 35cm long dildo':dildohand = 35 & gt $curloc
			end

			if maddildo = 1:
				act 'Take the 40cm long dildo':dildohand = 40 & gt $curloc
			end
		}!
		end
	end
end

if pcs_horny > 0:dynamic $d_self_fingering

act 'Stop masturbating':
	analplay = 0
	selfplaytime = 0
	mastrOnce = 0
	proverkasisterhere = 0

	if vaginaTemp > pcs_vag * 2:pcs_vag += 1 & vaginaTemp = 0

	gt $loc, $metka
	gs 'arousal', 'end'
	gs 'stat'
end

if $loc = 'vanrPar' and selfplaytime >= 60:dynamic $d_van_vtor

if $loc = 'Gadsarai':
	npc_horny['A66'] += 1
	'The dog named Bandit is curiously looking at what you''re doing.'
end

--- selfplay ---------------------------------