glife/locations/selfplay

# selfplay

$d_self_ass_fingering = {

}


if $ARGS[0] = 'start':
	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 <<$set_imgh>> src="images/shared/sex/mast/start.jpg"></center>'
	if $loc = 'vanrPar':'<center><video src="images/shared/sex/mast/startvann.mp4"></center>'

	if sisboytrio > 0 and sis_watch = 0 and $loc = 'bedrPar':
		sis_watch = 1
		if sisterHere > 0:sis_watch = 2 & 'Anya smiles and lets you carry on.'
	end

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

	gs 'selfplay', 'sis_prov'

	! 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 ''selfplay'', ''start''">Stop</a> using the 10cm long dildo.'
			else
				*pl '<a href="exec:dildohand = 10 & gt ''selfplay'', ''start''">Start</a> using the 10cm long dildo.'
			end
		end

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

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

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

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

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

		if maddildo = 1:
			if dildohand = 40:
				*pl '<a href="exec:dildohand = 0 & gt ''selfplay'', ''start''">Stop</a> using the 40cm long dildo.'
			else
				*pl '<a href="exec:dildohand = 40 & gt ''selfplay'', ''start''">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><video src="images/shared/sex/mast/klit.mp4"></center>'

			if $loc = 'vanrPar':
				'<center><img <<$set_imgh>> src="images/shared/sex/mast/klitvann.jpg"></center>'
			else
				'<center><video src="images/shared/sex/mast/klit.mp4"></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

			$orgasm_txt = '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.'
			gs 'arousal', 'masturbate', 20
			minut -= 15
			gs 'stat'

			act 'Stop touching yourself':gt $loc, $metka

			if pcs_horny > 0:gs 'selfplay', 'fingering'
		end
	end

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

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

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

			if $loc = 'vanrPar' and selfplaytime >= 60:gs 'selfplay', 'van_vtor'

			gs 'selfplay', 'sis_prov'
			gs 'stat'

			act 'Stop touching yourself':gt $loc, $metka

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

				gs 'arousal', 'masturbate', 5
				gs 'stat'
				
				if pcs_ass >= 10:
					'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 >= 5 and pcs_ass < 10:
					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
				else
					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

				gs 'selfplay', 'sis_prov'

				act 'Stop touching yourself':gt $loc, $metka

				if $loc = 'vanrPar' and selfplaytime >= 60:gs 'selfplay', 'van_vtor'


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

						gs 'arousal', 'masturbate', 5
						gs 'stat'
				
						if pcs_ass >= 15:
							'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 >= 10 and pcs_ass < 15:
							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
						else
							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

						gs 'selfplay', 'sis_prov'

						act 'Stop touching yourself':gt $loc, $metka

						if $loc = 'vanrPar' and selfplaytime >= 60:gs 'selfplay', 'van_vtor'

						gs 'stat'

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

								gs 'arousal', 'masturbate', 5
								gs 'stat'
				
								if pcs_ass >= 20:
									'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 >= 15 and pcs_ass < 20:
									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
								else
									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

								gs 'selfplay', 'sis_prov'

								act 'Stop touching yourself':gt $loc, $metka

								if $loc = 'vanrPar' and selfplaytime >= 60:gs 'selfplay', 'van_vtor'

								gs 'stat'

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

										gs 'arousal', 'masturbate', 5
										gs 'stat'
				
										if pcs_ass >= 25:
											'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 >= 20 and pcs_ass < 25:
											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
										else
											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

										gs 'selfplay', 'sis_prov'

										act 'Stop touching yourself':gt $loc, $metka

										if $loc = 'vanrPar' and selfplaytime >= 60:gs 'selfplay', 'van_vtor'
									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 $loc = 'bedr': gt 'husbsex','husb_mastr_vtor'
						
						dick = dildohand

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

						dynamic $d_vag_sex_dildo
						gs 'arousal', 'vaginal_dildo', 15
						gs 'stat'

						act 'Stop using the dildo':gt 'selfplay', 'start'
					end
				end

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

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

						dynamic $d_analsex_dildo
						gs 'arousal', 'anal_dildo', 15
						gs 'stat'

						act 'Stop using the dildo':gt 'selfplay', 'start'
					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 'selfplay', 'start'
				end

				if middildo = 1:
					act 'Take the 15cm long dildo':dildohand = 15 & gt 'selfplay', 'start'
				end

				if largedildo = 1:
					act 'Take the 20cm long dildo':dildohand = 20 & gt 'selfplay', 'start'
				end

				if bigdildo = 1:
					act 'Take the 25cm long dildo':dildohand = 25 & gt 'selfplay', 'start'
				end

				if extradildo = 1:
					act 'Take the 30cm long dildo':dildohand = 30 & gt 'selfplay', 'start'
				end

				if superdildo = 1:
					act 'Take the 35cm long dildo':dildohand = 35 & gt 'selfplay', 'start'
				end

				if maddildo = 1:
					act 'Take the 40cm long dildo':dildohand = 40 & gt 'selfplay', 'start'
				end
			}!
			end
		end
	end

	if pcs_horny > 0:gs 'selfplay', '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:gs 'selfplay', 'van_vtor'

	if $loc = 'Gadsarai':
		npc_horny['A66'] += 1
		'Bandit the dog is watching you curiously.'
	end
end

if $ARGS[0] = 'sis_prov':
	if $loc = 'bedrPar' and (hour >= 7 or hour < 23):
		gs 'family'

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

			if sisterHere > 0:
				cls
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/shared/sex/mast/start.jpg"></center>'

				if sisboytrio > 0 and sis_watch = 1:
					sis_watch = 2
					'Anya smiles as she enters the room and waves at you to carry on.'
				else
					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
	end
end

! WD: Masturbating at night only has 10% chance to be discovered
if $ARGS[0] = '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
end

if $ARGS[0] = 'fingering':
	act 'Put a finger inside your vagina':
		cls
		selfplaytime += 2
		gs 'stat'
		'<center><img <<$set_imgh>> 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 feel your hymen stretch a little as you slide first one and then a second finger inside.'

			gs 'arousal', 'masturbate', 2
			gs 'stat'
			gs 'selfplay', 'fingering2'
		elseif pcs_vag > 0:
			'You slide one finger into your vagina, and then another.'
			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

			gs 'arousal', 'masturbate', 2
			gs 'stat'

			gs 'selfplay', 'fingering2'
		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

		act 'Stop touching yourself':gt $loc, $metka
	end
end

if $ARGS[0] = 'fingering2':

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

		'<center><img <<$set_imgh>> src="images/shared/sex/mast/finger.jpg"></center>'
		if args[1] = 1:
			'You continue fucking yourself with your fingers, massaging and squeezing your breasts.'
		else
			'You start moving your fingers in and out, softly pinching your nipples as you play with yourself.'
		end

		*nl

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

		gs 'arousal', 'masturbate', 10
		gs 'stat'

		if pcs_vag < 12:vaginaTemp += 1

		gs 'selfplay', 'fingering2', 1

		if pcs_horny > 0 and pcs_vag > 0:gs 'selfplay', 'fingering3'
			
		act 'Stop touching yourself':gt $loc, $metka
	end
end

if $ARGS[0] = 'fingering3':
	act 'Thrust all of your fingers into your vagina':
		cls
		selfplaytime += 2
		'<center><img <<$set_imgh>> src="images/shared/sex/mast/hand.jpg"></center>'

		'You shove all your fingers inside your pussy.'
		
		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

		gs 'arousal', 'masturbate', 2
		gs 'stat'

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

			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 <<$set_imgh>> 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', 10
			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

			gs 'selfplay', 'fingering3'
			
			act 'Stop touching yourself':gt $loc, $metka
		end
	end

	act 'Stop touching yourself':gt $loc, $metka
end

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