glife/locations/selfplay

# selfplay
$d_self_ass_fingering = {

}

$d_self_fingering = {
	act 'Poke a finger in the vagina':
		cls
		minut += 2
		selfplaytime += 2
		'<center><img src="images/qwest/selfplay/finger.jpg"></center>'

		if vagina = 0 and mesec <= 0:
			'You caress fingers on his lips soft and wet pussy and began to gradually introduce his finger in the pussy, but you stumble upon a resilient barrier their hymen.'

			act 'Pierce the hymen':
				cls
				horny -= 25
				vagina += 1
				minut += 5
				selfplaytime += 5
				manna -= 100
				gs 'stat'
				'<center><img src="images/qwest/selfplay/finger.jpg"></center>'
				'You stuck my finger in the pussy and forcefully pressed the hymen, it is a little bent inside your body and suddenly broke your finger and went inside completely. Inside was a little pussy hurt, you got yourself out of his finger and saw that he was in the blood.'

				act 'Rest':gt $curloc
			end
		elseif vagina > 0:
			'You have entered my finger into the vagina and then another.'

			if vagina < 5:
				horny += rand(2, 5)
				'Slippery walls of your pussy very tightly clasped fingers.'
			elseif vagina >= 5 and vagina < 10:
				horny += rand(5, 10)
				'You feel your pussy slippery wall around your fingers.'
			elseif vagina >= 10:
				horny += rand(2, 5)
				'Your pussy is quite spacious for a couple of fingers sliding your fingers and you feel your pussy slippery wall.'
			elseif vagina < 5:
				vaginaTemp += 1
			end

			act 'Fuck her fingers':
				cls
				minut += 5
				selfplaytime += 5

				if vagina <= 10:horny += rand(5, 10)
				if vagina > 10:horny += rand(2, 5)

				'<center><img src="images/qwest/selfplay/finger.jpg"></center>'
				'You started to fuck her pussy fingers typing them in his bosom, and moving them.'

				if vagina <= 10:'Your pussy gently grabs your fingers and you feel pleasant warmth spreads in the abdomen.'
				if vagina > 10:'Snatch quite spacious and you have to work pretty hard, that would at least feel something from their fingers.'

				gs 'stat'

				if vagina < 10:vaginaTemp += 1

				if horny >= 100:
					orgasm += 1
					horny = 0
					manna = mannamax
					'Suddenly, as if you hit in the abdomen and shock began pleasant spasms, you squirm biting her lip, that would not scream with pleasure.'
				end

				if horny > 0:dynamic $d_self_fingering2

				act 'Break':gt $curloc
			end
		elseif mesec > 0:
			manna -= 5
			'Vagina slightly covered with dried blood from your period. You tried to shove a finger, but you will immediately become not nice.'
		end

		gs 'stat'

		act 'Break':gt $curloc
	end
}

$d_self_fingering2 = {
	act 'Thrust his hand into the vagina':
		cls
		minut += 2
		selfplaytime += 2
		'<center><img src="images/qwest/selfplay/hand.jpg"></center>'

		if vagina > 0:
			'You have entered yourself whole hand into the vagina.'

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

				vgapetime = totminut
				horny -= 10
				manna -= 10
				'You shoved all the fingers in the pussy and you will immediately become very painful.'
			elseif vagina >= 10 and vagina < 15:
				horny += rand(1, 3)
				'You all stuck his fingers in your pussy and feel like your vagina is very tight wraps fingers seem just a little bit and you have something broken.'
			elseif vagina >= 15 and vagina < 20:
				horny += rand(3, 6)
				'You all stuck his fingers in your pussy and feel how your vagina tight wraps his fingers hot and wet walls.'
			elseif vagina >= 20:
				horny += rand(6, 12)
				'You all stuck his fingers in your pussy and feel how your vagina grabs his fingers hot and wet walls. You cover a pleasant feeling of fullness.'
			elseif vagina < 15:
				vaginaTemp += 1
			end

			act 'Fuck her palm':
				cls
				minut += 5
				selfplaytime += 5

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

					vgapetime = totminut
					horny -= 10
					manna -= 10
				end

				'<center><img src="images/qwest/selfplay/hand.jpg"></center>'
				'You started to fuck her pussy fingers typing them in his bosom, and moving them.'

				if vagina <= 15:horny -= 10 & manna -= 10 & 'Does it hurt when you''re trying to fuck her pussy with his palm.'
				if vagina > 10:horny += rand(10, 20) & 'Snatch quite spacious and you have to work pretty hard, that would at least feel something from their fingers.'

				gs 'stat'

				if vagina < 20:vaginaTemp += 1

				if horny >= 100:
					orgasm += 1
					horny = 0
					manna = mannamax
					'Suddenly, as if you hit in the abdomen and shock began pleasant spasms, you squirm biting her lip, that would not scream with pleasure.'
				end

				dynamic $d_self_fingering2

				act 'Break':gt $curloc
			end
		end

		gs 'stat'

		act 'Break':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
		horny -= 50
		manna -= 10
		gs 'stat'
		'In the bathroom chattering "<<$name>>! Are you, drowned or something? Get out of the bath!"'

		act 'Get out of the bath':
			analplay = 0
			selfplaytime = 0
			mastrOnce = 0
			proverkasisterhere = 0

			if vaginaTemp > vagina * 2:vagina += 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:mastr += 1 & mastrOnce = 1

gs 'stat'

if $loc = 'bedrPar' or $loc = 'Gadsarai':'<center><img src="images/qwest/selfplay/start.jpg"></center>'
if $loc = 'vanrPar':'<center><img src="images/qwest/selfplay/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/qwest/selfplay/start.jpg"></center>'

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

			if proverkasisterhere = 2:
				SisterKnowMastr += 1
				'<font color="red"><b>Anja saw that 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:'Do you have a small long dildo 10 cm.'
if middildo = 1:'Do you have a long dildo 15 cm.'
if largedildo = 1:'Do you have a long dildo 20 cm.'
if bigdildo = 1:'Do you have a long dildo 25 cm.'
if extradildo = 1:'Do you have a long dildo 30 cm.'
if superdildo = 1:'Do you have a long dildo 35 cm.'
if maddildo = 1:'Do you have a long dildo 40 cm.'
}!
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 a 10cm long dildo.'
		else
			*pl '<a href="exec:dildohand = 10 & gt $curloc">Start</a> using a 10cm long dildo.'
		end
	end

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

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

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

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

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

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


if horny > 0:
	act 'caress the clitoris':
		cls
		minut += 5
		selfplaytime += 5

		!!if $loc = 'bedrPar':'<center><img src="images/qwest/selfplay/klit.jpg"></center>'

		if $loc = 'vanrPar':
			'<center><img src="images/qwest/selfplay/klitvann.jpg"></center>'
		else
			'<center><img src="images/qwest/selfplay/klit.jpg"></center>'
		end

		if manna >= mannamax / 2:
			horny += rand(5, 10)
			'You put your hand down between her legs and groped in the folds of her soft and wet pussy touch a small bump which is very pleasant, you started to caress her fingers this hump and enjoy the feeling of pleasant warmth covering between your legs.'
		else
			horny += rand(0, 1)
			'You caress the clitoris fingers, you feel good and nice, but your bad mood affects, you just can not get away from his thoughts, and you can not get excited.'
		end

		if horny >= 100:
			orgasm += 1
			horny = 0
			manna = mannamax
			'Suddenly, as if you hit in the abdomen and shock began pleasant spasms, you squirm biting her lip, that would not scream with pleasure.'
		end

		gs 'stat'

		act 'Break':gt $curloc

		if horny > 0:dynamic $d_self_fingering
	end
end

if horny > 0 and agape < 3:
	act 'Poke a finger in the ass':
		cls
		minut += 5
		selfplaytime += 5

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

		if anus >= 3:
			'You stuck a finger in his ass and he freely slipped into your anus.'
		elseif anus >= 1 and anus < 3:
			anus += 1
			'You stuck a finger in his ass and felt as tight ass grabbed your finger.'
		elseif anus = 0:
			anus = 1
			'You stuck a finger in her virgin ass and felt as tight ass grabbed your finger.'
		end

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

		dynamic $d_sis_prov
		gs 'stat'

		act 'rest':gt $curloc

		act 'Stick two fingers':
			cls
			minut += 5
			selfplaytime += 5
			'<center><img src="images/qwest/selfplay/2.jpg"></center>'

			if anus >= 5:
				'You calmly stuck two fingers in your ass.'

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

					agapetime = totminut
					horny -= 50

					if anus > 1:anus -= 1

					'Do you have a sore ass and shoved two fingers you even more damage it.'
				end
			elseif anus >= 3 and anus < 5:
				analplay += 1
				'You stuck two fingers in his ass and your anus tightly clasped their.'

				if agape > 0:
					if agape = 2:agape = 3
					if agape = 1:agape = 2
					agapetime = totminut
					horny -= 50
					anus += 1
					'Do you have a sore ass and shoved two fingers you even more damage it.'
				end
			elseif anus >= 1 and anus < 3:
				anus += 1

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

				horny -= 50
				agapetime = totminut
				'You stuck two fingers in his ass and felt a sharp pain in your anus.'
			end

			gs 'stat'

			act 'rest':gt $curloc

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

			dynamic $d_sis_prov

			if horny > 0 and agape < 3:
				act 'Thrust three fingers':
					cls
					minut += 5
					selfplaytime += 5
					'<center><img src="images/qwest/selfplay/3.jpg"></center>'

					if anus >= 10:
						'You quietly shoved three fingers in your ass.'

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

							agapetime = totminut
							horny -= 50

							if anus > 1:anus += 1

							'Do you have a sore ass and shoved three fingers you even more damage it.'
						end
					elseif anus >= 5 and anus < 10:
						analplay += 1
						'You stuck three fingers in his ass and your ass grabbed them tightly.'

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

							agapetime = totminut
							horny -= 50
							anus += 1
							'Do you have a sore ass and shoved three fingers you even more damage it.'
						end
					elseif anus < 5:
						anus += 1

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

						horny -= 50
						agapetime = totminut
						'You stuck three fingers in his ass and felt a sharp pain in your anus.'
					end

					act 'rest':gt $curloc

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

					dynamic $d_sis_prov
					gs 'stat'

					if horny > 0 and agape < 3:
						act 'Stick four fingers':
							cls
							minut += 5
							selfplaytime += 5
							'<center><img src="images/qwest/selfplay/4.jpg"></center>'

							if anus >= 15:
								'You quietly stuck his hand in your ass.'

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

									agapetime = totminut
									horny -= 50

									if anus > 1:anus -= 1

									'Do you have a sore ass and thrust four fingers you even more damage it.'
								end
							elseif anus >= 10 and anus < 15:
								analplay += 1
								'You have thrust his hand into his ass and your anus tightly clasped their.'

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

									agapetime = totminut
									horny -= 50
									anus += 1
									'Do you have a sore ass and thrust his hand you even more damage it.'
								end
							elseif anus < 10:
								anus += 1

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

								horny -= 50
								agapetime = totminut
								'You have thrust his hand into his ass and felt a sharp pain in your anus.'
							end

							act 'rest':gt $curloc

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

							dynamic $d_sis_prov
							gs 'stat'

							if horny > 0 and agape < 3:
								act 'Stick your whole hand':
									cls
									SelfFisting += 1
									minut += 5
									selfplaytime += 5
									'<center><img src="images/qwest/selfplay/5.jpg"></center>'

									if anus >= 20:
										'You quietly put his hand in your ass.'

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

											agapetime = totminut
											horny -= 50

											if anus > 1:anus -= 1

											'Do you have a sore ass and thrust his hand you even more damage it.'
										end
									elseif anus >= 15 and anus < 20:
										analplay += 1
										'You reached into his ass and your anus tightly clasped their.'

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

											agapetime = totminut
											horny -= 50
											anus += 1
											'Do you have a sore ass and thrust his hand you even more damage it.'
										end
									elseif anus < 15:
										anus += 1

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

										horny -= 50
										agapetime = totminut
										'You reached into his ass and felt a sharp pain in your anus.'
									end

									act 'rest':gt $curloc

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

									dynamic $d_sis_prov
									gs 'stat'
								end
							end
						end
					end
				end
			end
		end
	end
end

if 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 'Dildo in pussy':
					cls
					minut += 15
					selfplaytime += 15
					dick = dildohand

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

					dynamic $d_vag_sex_dildo
					gs 'stat'

					act 'rest':gt $curloc
				end
			end

			if agape <= 0:
				act 'Dildo in the ass':
					cls
					minut += 15
					selfplaytime += 15
					dick = dildohand

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

					dynamic $d_analsex_dildo
					gs 'stat'

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

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

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

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

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

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

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

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

if horny > 0:dynamic $d_self_fingering

act 'Abandon this venture':
	analplay = 0
	selfplaytime = 0
	mastrOnce = 0
	proverkasisterhere = 0

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

	gt $loc, $metka
end

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

if $loc = 'Gadsarai':
	piratHorny += 1
	'Dog named Pirate with curiosity looks at , what you do.'
end

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