Browse Source

add `quest_mother_virgin` content

Stephan Fuchs 3 months ago
parent
commit
7842f43dfa

+ 1 - 1
sugarcube/src/items/Inventory.ts

@@ -111,7 +111,7 @@ class Inventory{
         let current = this.get(item,container);
         this.set(item,current+count);
     }
-    set(item,count=1,container='default',metadata=undefined){
+    set(item:string,count=1,container='default',metadata=undefined){
 		this._containers[container] ??= {}
 
 		if(count == 0){

+ 41 - 363
sugarcube/src/locations/pavlov/pav_clinic.tw

@@ -1,7 +1,45 @@
 :: pav_clinic[indoors public hospital]
+	<<ConnectedLocation 'Leave' 'pav_commercial' '' 'locations/pavlovsk/gorodok.jpg' 5>>
+	
 	<h2>Clinic</h2>
 	<<image "locations/shared/clinic/poli.jpg">>
 
+	<p>
+		You are standing inside the lobby of Pavlovsk General Hospital, the medical facility located in the heart of the city.
+		You reckognize the faint scent of antiseptic mingling with the aroma of freshly brewed coffee from a nearby cafeteria.
+	</p>
+	<p>
+		The lobby is spacious and well-lit, with polished marble floors gleaming under the soft glow of overhead chandeliers.
+		A reception desk stands to your right, manned by staff ready to assist patients and visitors alike.
+	</p>
+	<p>
+		Down the corridor to your left, you'll find the emergency department,
+		where skilled medical professionals care to those in urgent need.
+		The sound of beeping monitors and hushed voices echoes from within.
+	</p>
+	<p>
+		Further along, the main corridors branch out like arteries, leading to various departments and wards.
+	</p>
+	<<if $quest('therapist')?.therapistday != $time.daystart>>
+		<<act 'Visit the therapist'>>
+			<<gt 'therapist'>>
+		<</act>>
+	<<else>>
+		<<debug>>
+			<<actCLA 'DEBUG: Visit the therapist' 1>>
+				<<gt 'therapist'>>
+			<</actCLA>>
+		<</debug>>
+	<</if>>
+
+	<<if $q.questIsActive("mother_virgin")>>
+		<<act 'Go to the gynaecologist for a referral'>>
+			<<gt 'quest_mother_virgin_gyn'>>
+		<</act>>
+	<</if>>
+
+:: pav_clinic_deprecated[deprecated]
+
 	<<if (getvar("$lactation['active']") > 0 or $pc.thinkpreg == 1 or $pc.knowpreg == 1) and getvar("$pcs_know_mward") <= 0>>
 		<p>A sign catches your attention. It reads "Maternity ward".</p>
 		<<act 'Maternity ward'>><<setn $time.minutes += 5>><<gt  'pav_clinic'  'maternity_ward'>><</act>>
@@ -10,7 +48,7 @@
 	<<if getvar("$pcs_ask_mward_help") >= 1 and getvar("$pcs_know_mward") <= 0>>
 		<<act 'Ask for help with your breasts'>><<setn $time.minutes += 5>><<gt  'pav_clinic'  'reception'>><</act>>
 	<</if>>
-	<<ConnectedLocation 'Leave' 'pav_commercial' '' 'locations/pavlovsk/gorodok.jpg' 5>>
+	
 
 	<<if $pc.preg == 2>>
 		<<actCLA 'Give birth'>>
@@ -316,17 +354,7 @@
 				<</act>>
 			<</actCLA>>
 		<</if>>*/
-		<<if $quest('therapist')?.therapistday != $time.daystart>>
-			<<act 'Visit the therapist (1:00)'>>
-				<<gt 'therapist'>>
-			<</act>>
-		<<else>>
-			<<debug>>
-				<<actCLA 'DEBUG: Visit the therapist (1:00)' 1>>
-					<<gt 'therapist'>>
-				<</actCLA>>
-			<</debug>>
-		<</if>>
+		
 		<<if getvar("$pcs_know_mward") > 0>>
 			<<act 'Visit the maternity ward (0:05)'>>
 				<<gt 'pav_clinic' 'maternity_ward'>>
@@ -635,12 +663,7 @@
 				<</actCLA>>
 			<</actCLA>>
 		<</if>>
-		<<if $q.questIsActive("mother_virgin")>>
-			/*<<act 'Go to the gynaecologist for a referral'>>
-				<<gt 'pav_clinic' 'referral'>>
-			<</act>>*/
-
-		<</if>>
+		
 	<<else>>
 		The clinic is closed. It's open every day between 06:00 and 21:00.
 	<</if>>
@@ -767,138 +790,7 @@
 		<<gt 'pav_clinic'>>
 	<</act>>
 <</if>>
-<<if $location_var[$here][0] == 'referral'>>
-	<<set $menu_off = 1>>
-	<<if $pc.pcs_vag == 0>>
-		<<set $time.minutes = $time.minutes + 15>>
-		<<image "locations/pavlovsk/clinic/gyno/gin.jpg">>
-		<p>You quickly undress and climb into the chair, spreading your legs and resting them in the stirrups. The leather-like surface feels strangely warm on your bottom, and it takes you a second to realize that it's heated. The gynaecologist examines your vagina carefully with a speculum, and silently mumbles something to himself.</p>
-		<<set $Gspravka = 30>>
-		<<set $GspravkaT = 1>>
-		<<set $Gspassed = 1>>
-		He confirms that you're still a virgin and tells you to get dressed while he prepares your referral. While you put your clothes back on, he fills out the form at his desk and stamps it before handing it to you. This should keep your mother happy for another month...
-		<<actCLA 'Leave'>>
-			<<gt $curloc>>
-		<</actCLA>>
-	<<else>>
-		<<set $time.minutes += 5>>
-		<<image "locations/pavlovsk/clinic/gyno/gpoli_1.jpg">>
-		<<if $pc.thinksIsVirgin and $pc.pcs_vag > 0>>
-			<p>You quickly undress and climb into the chair, spreading your legs and resting them in the stirrups. The leather-like surface feels strangely warm on your bottom, and it takes you a second to realize that it's heated. The gynaecologist examines your vagina carefully with a speculum, and silently mumbles something to himself.</p>
-			<<act 'Have the check-up'>>
-				<<gt 'pav_clinic' 'referral2'>>
-			<</act>>
-		<<else>>
-			<p>You're a bit nervous as you enter the gynaecologist's office. Your mother expects you to get a referral from him that states you're still a virgin, except there's one small problem... you're not a virgin any more! Maybe you can work something out with him?</p>
-			<<if getvar("$gpoliuborka") == 2>>
-				<p>"Hello $pc.name_nick. What brings you in today?" Dr. Petrovich asks with a smile.</p>
-				<p>"Hello, doctor. It's time for my monthly check-up again. My mother needs a referral from you to make sure I'm still a virgin," you reply.</p>
-				<p>"Ah, yes. For... school, right? Let's take a look," he replies with a chuckle.</p>
-			<<else>>
-				<p>"Hello, young lady. I'm Dr. Petrovich. Do you have specific complaints, or are you simply here for a check-up?" the doctor asks as he walks into the examination room.</p>
-				"Hello sir. I'm here for my monthly referral. My mother needs one from you to establish I'm still a virgin. It's for school," you explain.
-				<p>"For... school?" he asks, a little confused. "Okay, let's take a look, shall we?" He gestures for you to stand next to the examination table.</p>
-			<</if>>
-			<<actCLA 'Have the check-up'>>
-				<<set $time.minutes += 5>>
-				<<image "locations/pavlovsk/clinic/gyno/gpoli_2.jpg">>
-				The doctor breathes on his stethoscope to warm it up. "Lift your shirt, please."
-				<p>He sees your hesitation, and reassures you. "I'm just doing some basic check-ups while you're here. Now... your shirt, please?"</p>
-				<p>You expose your $pc.titsize breasts to him when you lift your shirt up. You're no medical professional, but you're fairly certain that he's not supposed to put the stethoscope on your breast like that!</p>
-				You decide to humour him and just let him play with your breasts for several minutes, after which he happily nods. "Everything seems to be in order."
-				There''s an eager sparkle in his eyes when he looks at your bare breasts. "Now get undressed and have a seat in the chair, please. You can put your feet in the stirrups."
-				<<actCLA 'Undress'>>
-					<<set $time.minutes += 5>>
-					<<image "locations/pavlovsk/clinic/gyno/gpoli_3.jpg">>
-					You reluctantly take your clothes off, trying to put the moment off as long as you can. You know he'll find out about your secret, but you don't have any other option.
-					<<act 'Sit in the chair'>>
-						<<gt 'pav_clinic' 'referral2'>>
-					<</act>>
-				<</actCLA>>
-			<</actCLA>>
-			<<actCLA 'Admit that you`re no longer a virgin'>>
-				<<set $time.minutes += 5>>
-				<<image "locations/pavlovsk/clinic/gyno/gpoli_1.jpg">>
-				<<if getvar("$gpoliuborka") == 2>>
-					You pause for a second, and then decide to just confess. He's going to find out anyway.
-					"Doctor Petrovich, I have something to ask of you..." you hesitantly say. "You see, I... I'm no longer a virgin."
-					He nods understandingly. "I see." This likely isn''t the first time one of his patients has told him that.
-					<p>You continue. "But... My mother thinks I'm still a virgin, and I'd really like to keep it that way. Could you please help me?"</p>
-					<p>He looks puzzled for a second, and his eyes widen when he realizes what you're asking of him. "You mean... Fake your referral? That's fraud! Do you have any idea how much trouble I could end up in if I do that?"</p>
-				<<else>>
-					You pause for a second, and then decide to just confess. He's going to find out anyway.
-					"Doctor Petrovich, I have something to ask of you..." you hesitantly say. "You see, I... I'm no longer a virgin."
-					He nods understandingly. "I see." This likely isn''t the first time one of his patients has told him that.
-					<p>You continue. "But... My mother thinks I'm still a virgin, and I'd really like to keep it that way. Could you please help me?"</p>
-					<p>He nods again. "I see what you're getting at. I might be able to help you, but I'm running a big risk by doing that. What's in it for me?"</p>
-				<</if>>
-				<<act 'Offer him money'>>
-					<<gt 'pav_clinic' 'spravka_money'>>
-				<</act>>
-				<<act 'Try to negotiate'>>
-					<<gt 'pav_clinic' 'spravka_arrange'>>
-				<</act>>
-				<<act 'Just accept the referral as is'>>
-					<<gt 'pav_clinic' 'badend'>>
-				<</act>>
-			<</actCLA>>
-		<</if>>
-	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'referral2'>>
-	<<set $time.minutes += 5>>
-	<<image "locations/pavlovsk/clinic/gyno/gpoli_4.jpg">>
-	<p>Once you're naked, you have a seat in the gynaecologist's chair and spread your legs in the stirrups before the doctor gives you a thorough check-up. He spends a bit more time on your asshole than he probably should, but maybe he's just being thorough.</p>
-	<<set $gpoli_sick = ''>>
-	<<if $pc.preg > 0>>
-		<<set $pc.thinkpreg = 1>>
-		<<set $pc.knowpreg = 1>>
-		<<set $gpoli_sick = 'are pregnant'>>
-	<</if>>
-	<<if getvar("$venera") > 0 or getvar("$Kandidoz") > 10>>
-		<<if $gpoli_sick != ''>>
-			<<set $gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'>>
-
-		<</if>>
-		<<if $gpoli_sick == ''>>
-			<<set $gpoli_sick = 'have a sexually transmitted disease'>>
 
-		<</if>>
-	<</if>>
-	<<if $gpoli_sick == ''>>
-		"Well, you're completely healthy. However, you're also no longer a virgin." You see the corners of his mouth twitch and his pants look a little tighter in his crotch area than before. "Please get dressed while I write out the referral for your mother."
-		<<if $pc.thinksIsVirgin>>
-			<p>Your heart begins to race when you hear that. Your mother can't find out! How could this have happened? You've never even had sex!</p>
-		<<else>>
-			<p>Your heart begins to race when you hear that. Your mother can't find out! She would kill you if she finds out!</p>
-		<</if>>
-		<p>"Wait!" you quickly blurt out. "Could you please just write down that I'm still a virgin so I don't get in trouble? Please?"</p>
-		<p>He looks at you sternly and shakes his head. "I'm sorry $pc.name_nick, I can't do that, that's fraud! Do you have any idea how much trouble I could get into?"</p>
-	<<else>>
-		<p>The doctor frowns when he gives you the results. "I'm afraid I have some bad news, $pc.name_nick. You $gpoli_sick.</p>
-		<<if getvar("$venera") > 0 or getvar("$Kandidoz") > 10>>
-			<<gs 'pav_clinic' 'std_check'>>
-
-		<</if>>
-		You're also not a virgin any more, obviously."
-		<<if $pc.thinksIsVirgin>>
-			<p>Your heart begins to race when you hear that. Your mother can't find out! How could this have happened? You've never even had sex!</p>
-		<<else>>
-			<p>Your heart begins to race when you hear that. Your mother can't find out! She would kill you!</p>
-		<</if>>
-		<p>"Wait!" you quickly blurt out. "Could you please just write down that I'm still a virgin so I don't get in trouble? Please?"</p>
-		<p>He looks at you sternly and shakes his head. "I'm sorry $pc.name_nick, but you're not an adult. I need her permission to treat you. And I can't lie on a referral, that's fraud! Do you have any idea how much trouble I could get into?"</p>
-	<</if>>
-	<<act 'Offer him money'>>
-		<<gt 'pav_clinic' 'spravka_money'>>
-	<</act>>
-	<<act 'Try to negotiate'>>
-		<<gt 'pav_clinic' 'spravka_arrange'>>
-	<</act>>
-	<<act 'Just accept the referral as is'>>
-		<<gt 'pav_clinic' 'badend'>>
-	<</act>>
-<</if>>
 <<if $location_var[$here][0] == 'gynoblow'>>
 	<<if getvar("$gpoli_doctorhavesex") == 0>>
 		<<set $gpoli_doctorhavesex = 1>> <<setn $guy += 1>>
@@ -958,222 +850,8 @@
 		<</act>>
 	<</if>>
 <</if>>
-<<if $location_var[$here][0] == 'spravka_arrange'>>
-	<<set $time.minutes += 5>>
-	<<image "locations/pavlovsk/clinic/gyno/gpoli_1.jpg">>
-	<<if getvar("$gpoliuborka") == 2>>
-		<p>You really need this, but you understand you're not in a good position to negotiate. Nevertheless, you try to plead your case. "Please, Dr. Petrovich," you beg. "I don't have any money to offer you, but I really need that referral! My mother would kill me! Please?"</p>
-		He has a wolfish grin on his face as he gets up from his chair and walks over to you, putting his hands on your shoulders. "Well, if you really need it that badly... I think we can work out a deal. It''d just be between us, no one else has to know..." he says softly in a soothing voice.
-		<p>You become hopeful, even though you feel a bit uncomfortable. "Erm... Okay, that's great! What kind of deal are you thinking of?"</p>
-		<p>He continues in his soothing voice. "You see, my wife is away on a business trip and won't be home for weeks. I'm a man with needs, and my job is very stressful as you can imagine. I need you to help me relax, relieve the tension, so to speak. Do you think you can help me with that?"</p>
-		<p>His grip on your shoulders intensifies a little, and he massages you while you think it over. You're perfectly clear on what he wants from you, but is it really worth it?</p>
-	<<else>>
-		<p>You really need this, but you understand you're not in a good position to negotiate. Nevertheless, you try to plea your case and beg: "Please, Dr. Petrovich. I really need that referral! My mother would kill me! Please?"</p>
-		He has a wolfish grin on his face as he gets up from his chair and walks over to you. "Well, if you really need it that badly... We all have needs. I bet we could work something out..." he says softly.
-		"But... what if..." you softly mutter.
-		<p>He playfully looks at you. "What if what?"</p>
-		<p>"What if I have no money?" you continue.</p>
-		He smiles jovially at you as he reaches out for you. He puts his hands on your shoulders and you automatically give in to him, slowly letting him push you down to your knees.
-		<p>He smirks at you. "I understand why you're no longer a virgin, you little minx! So eager to please..."</p>
-		Your face is at the same level as his crotch, and he slowly undoes his pants and drops them to his ankles. His erect cock is pointing at you eagerly, a bead of precum slowly dripping down from it. You can tell he wants you badly.
-		<<actCLA 'Grab a referral form and run out of the room' undefined `{willpower:['bj','resist','hard']}`>>
-				<<set $Gspravka = 30>>
-				<<set $GspravkaT = 1>>
-				<<set $Gspassed = 1>>
-				<<set $forge_referral = 1>>
-
 
-				<p>This is your chance! You quickly grab a nearly filled out form from his desk and run out of his examination room. Dr. Petrovich pulls up his pants again but doesn't even follow you, knowing this would be way too awkward to explain to anyone else in the clinic. Looks like you win this one!</p>
-				<p>A while later, you fill out the rest of the form and nod to yourself. <i>This should get <<=$npc('A29').nickname>> off my back for another month...</i></p>
-				<<act 'Leave'>>
-					<<gt 'pav_clinic'>>
-				<</act>>
-			<</actCLA>>
 
-	<</if>>
-	<<actCLA 'You really don`t want your mother to find out...'>>
-		<<set $time.minutes += 5>>
-		<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_6.jpg">>
-		You take another deep breath and slowly put your hands on his groin. To your surprise you feel that his cock is already fully erect. You massage it through his pants before dropping to your knees as he pulls his erection free from his pants.
-		You guide his stiff cock to your mouth with your hand and lick the tip teasingly before you slowly envelop his cock with your mouth and start sucking the head.
-		After a minute or two, you feel his hand at the back of your head. You want to raise your head and ask him what he wants, but he forces you to stay where you are and slowly pushes his hips forward, making you take more and more of his rod inside your mouth.
-		<<actCLA 'Give him a blowjob'>>
-			<<if getvar("$venera") > 0>>
-				<<gt 'pav_clinic' 'gynoblow' 'referral_blow'>>
-
-			<</if>>
-			<<if getvar("$gpoli_doctorhavesex") == 0>>
-				<<set $gpoli_doctorhavesex = 1>> <<setn $guy += 1>>
-
-			<</if>>
-			<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg">>
-			<p>You want to move back, but there's nowhere to go. His stiff cock is in front of you, and his powerful hand on the back of your head pulling you in closer. The masculine smell of his throbbing cock fills your nose as you breathe and you have to admit, it excites you!</p>
-			He begins to relax a little, letting you pull back until just the tip of his cock is between your lips before he pulls your head closer again, forcing his cock deeper each time. At first you're okay, but at a certain point you can't keep up any more and gag on his cock when he thrusts it in deep again. You can tell he's enjoying this from the sadistic grin on his face. "Try breathing through your nose."
-			You do as he says, and it does indeed make things a bit easier as he starts fucking your mouth, your saliva drooling down his shaft and over his hairy balls. The air of the office is filled with wet slurps and snorts as he pounds his cock into your mouth deeper and deeper, sometimes making you gag involuntarily as the head of his cock slips down your throat. With a sudden thrust, you can feel his curly pubic hair against your lips as he forces his cock down your throat as far as it'll go. You panic as you can't breathe, but he just as suddenly pulls his dick out of your mouth again. Thankfully, you get a chance to catch your breath.
-			"I think that got me lubed up properly," he says with a lusty voice. You can tell he's very excited now, and aren''t sure you want to find out what happens next. Nevertheless, you're too far in to back down now. "Come on, now it's time to go deep."
-			<p>"What do you mean?" you start to ask, but get your answer almost immediately as Dr. Petrovich pulls you up  from the floor and bends you over the chair. You can't help but let out a moan as he rubs the head of his slippery cock against your engorged clitoris.</p>
-			<<arouse 'bj' 5 `['sub','deepthroat']`>>
-			<<actCLA 'Continue'>>
-				<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_8.jpg">>
-				You can feel your arousal rising when his body touches yours. As Dr. Petrovich keeps massaging your clitoris with his cock, you can feel your juices start leaking from your swollen pussy and run down your quivering thighs. You can hear the wet squelching sounds as he plows his throbbing cock between your soaking wet pussy lips.
-				Your tender flesh resists for a moment, but then surrenders. You feel the walls of your vagina stretch open, letting the invader in as you let out a passionate groan.
-				<<arouse 'vaginal' 5 `['sub']`>>
-				<<actCLA 'Let him fuck you'>>
-					<<set $pc.pcs_vag += 1>>
-					<!-- Boy A68 -->
-					<<set $cumprecheck = 1>>
-					<<gs 'cum_manage'>>
-					<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_9.jpg">>
-					Your body feels like it's getting hotter and hotter as beads of sweat form on your forehead. With every thrust Dr. Petrovich fucks you faster and harder, and you can feel your excitement growing too. You start involuntarily moaning as his hard hot member penetrates you ever deeper without giving you any pause.
-					You can no longer control yourself and have a thunderous orgasm as the doctor keeps fucking you relentlessly. Waves of bliss sear your nerves and your mouth opens in a silent scream as you're consumed with pleasure.
-					He suddenly pulls his dick out of you and you almost fall to the floor, but he catches you with his powerful arms and lowers you onto a table where you feel his cock slide back into your quivering pussy.
-					<<set $orgasm_or = 'yes'>>
-					<<arouse 'vaginal' 5 `['sub']`>>
-					<<actCLA 'Sex on the table'>>
-						<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_10.jpg">>
-						He picks up the pace again and fucks you hard and fast like before. Your body no longer listens to you, and you find yourself eagerly bucking your hips against his thrusts. You feel that tingle starting up inside you again... If he keeps this up, you're going to cum all over his cock again.
-						The doctor smiles at you while he pulls his dick out. "I bet I could give you another type of orgasm, one that you maybe never had before. Wait here, I'll be right back."
-						<p>You kind of hear him say something, but at the same time you're still too stuck in your own world to realize what he just said. When the high from your orgasm wears off, you look around the room. Where did he go?</p>
-						Just as you're about to get off the table, he returns with a jar of lubricant in his hand and a latex glove on one hand. He motions for you to turn around, which you obediently do.
-						Several of his gloved fingers dip inside the jar, and when he pulls it up you see the lubricant slowly dripping from them. He puts them against your tight sphincter and spreads some of the lube over it before thrusting three fingers in.
-						<p>"Ouch!" you cry out when you feel his fingers stretch out your asshole. It hurts a little, and you feel a bit uncomfortable when he pulls his fingers away and spreads more lubricant over his cock. Before you can object, you feel the thick head of his cock pushing past your sphincter, stretching you out even further.</p>
-						<<arouse 'vaginal' 5 `['sub']`>>
-						<<arouse 'foreplay' 5 `['sub']`>>
-						<<arouse 'anal_finger' 5 `['sub']`>>
-						<<set $time.minutes -= 5>>
-						<<actCLA 'Anal sex'>>
-							<<set $pc.pcs_ass += 1>>
-							<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_11.jpg">>
-							You want to pull away from him, but you're trapped between Dr. Petrovich and a wall. He slowly moves his hips, letting you get used to the size of his thick rod inside your ass. Despite your best efforts you can't relax your anus, only slowly getting used to the size of him.
-							When he starts to speed up, you nearly cry and groan loudly with every thrust.
-							<p>"This won't do. You're going to alert the entire clinic if you keep screaming like that!" he mutters and takes his dick out of your ass.</p>
-							"Come on, get on the floor," he orders after he throws his coat down. He spreads some more lubricant over his gloved fingers and smears it over your throbbing asshole.
-							<<arouse 'anal' 5 `['sub']`>>
-							<<actCLA 'Sex on the floor'>>
-								<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_12.jpg">>
-								To your surprise, he ignores your ass and drives his dick back into your pussy instead. He fucks you with short, rough thrusts, almost as if he's fucking the annoyance out of his system. It doesn''t feel very pleasant at first, but you soon moan and start enjoying the feeling again when your body relaxes.
-								<p>When he notices you're gasping faster, he quickly pulls his cock out of your pussy and rams it inside your asshole in one fluent motion. You cry out loud, partially from the pain and partially because you're frustrated... You were so close! Despite the discomfort and pain you're experiencing, you rub your clitoris, hoping it will take your mind off the pain and hopfully getting that orgasm you're craving.</p>
-								<<arouse 'vaginal' 5 `['sub','rough']`>>
-								<<actCLA 'Anal'>>
-									<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_13.jpg">>
-									Now that you're so aroused, the anal sex doesn''t hurt quite as much. You furiously rub your clit while he roughly pounds your stretched asshole, slowly losing your mind when a second orgasm hits you. Dr. Petrovich must feel your anus contracting around his cock when you cum with it inside you.
-									He was close as well, and after you ride out your orgasm he gives it a few more thrusts before he pulls out and moves his hips towards your face. He grabs you by the hair and guides his cock towards your mouth, and you obediently open your mouth to let it in.
-									<<set $orgasm_or = 'yes'>>
-									<<arouse 'anal' 5 `['sub','rough']`>>
-									<<actCLA 'Let him cum in your mouth'>>
-										<<set $time.minutes += 5>>
-										<<set $pc.horny += 5>>
-										<!-- Boy A68 -->
-										<<cum 'mouth_swallow' $sex.npcId 1>>
-										<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg">>
-										You feel too tired to object, even if you wanted to, and have no choice but to take his load in your mouth. You obediently show it to him before swallowing it and licking your lips. He moves his slowly softening dick towards your mouth once more, letting you suck and lick it clean.
-										He lets out a satisfied sigh and starts putting his clothes back on as if nothing happened.
-										<<actCLA 'Get dressed'>>
-											<<set $time.minutes += 5>>
-											<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg">>
-											You follow his example, and also put your clothes back on.
-											When you're both fully dressed again, he has a wide grin on his face. "Well now, one good turn deserves another."
-											He takes place behind his desk and quickly writes out your referral, stating that you're still a virgin. He offers it to you: "I believe this is yours. Now if you don't mind, I have other patients to attend to."
-											<p>You feel cheap for a moment, when you accept the referral. Nevertheless, you're off the hook for another month... that's worth something, right?</p>
-											<<set $Gspravka = 30>>
-											<<set $GspravkaT = 1>>
-											<<set $Gspassed = 1>>
-											<<set $forge_referral = 1>>
-											
-											<<if $loc == 'kuhrPar'>>
-												<<act 'Leave'>>
-													<<gt 'mother' 'referral'>>
-												<</act>>
-											<<else>>
-												<<act 'Leave'>>
-													<<gt 'pav_clinic'>>
-												<</act>>
-											<</if>>
-										<</actCLA>>
-									<</actCLA>>
-								<</actCLA>>
-							<</actCLA>>
-						<</actCLA>>
-					<</actCLA>>
-				<</actCLA>>
-			<</actCLA>>
-		<</actCLA>>
-	<</actCLA>>
-	<<gs 'willpower' 'bj' 'resist'>>
-	<<if $will_cost <= $pc.pcs_willpwr>>
-		<<actCLA 'You can`t do that (will_cost Willpower)'>>
-			<<gs 'willpower' 'bj' 'resist'>>
-			<<gs 'willpower' 'pay' 'resist'>>
-			<p>You frown. You really don't want to have sex with him and decide to try one more time. "I can't do that, doctor. Please, show some compassion... Could you give me a break, just this once? I just need some time to figure out how to tell my <<=$npc('A29').nickname>> about all this!"</p>
-			<p>His gaze is stone cold, without any sign of compassion. "So be it. Sorry $pc.name_nick, but that's not how it works. I'm running a big enough risk as it is. If you're not helping me, I'm not helping you."</p>
-			<<act 'Try to negotiate'>>
-				<<gt 'pav_clinic' 'spravka_arrange'>>
-			<</act>>
-			<<act 'Just accept the referral as is'>>
-				<<gt 'pav_clinic' 'badend'>>
-			<</act>>
-		<</actCLA>>
-	<<else>>
-		<<actCLA `'You can""t do that ('+$will_cost+')'`>><font color=red><br/>You don`t have enough willpower to use this action.</font><</actCLA>>
-	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'spravka_money'>>
-	<<set $time.minutes += 5>>
-	<<if getvar("$gpoliuborka") == 2>>
-		<p>You don't want to have sex with him. Sex is what got you into this mess in the first place!</p>
-		<p>You think fast. "I can pay!" you blurt out. "Would that referral be the same if I were to pay you for your time? I can pay you well!"</p>
-		<p>The doctor strokes his chin as he thinks. "I don't know... I'm not here for the money. However, a private patient wouldn't count as a minor, so I would have no obligation to tell your mother. The standard consultancy fee is 2,000 <b>₽</b>."</p>
-		<<if $finances.cash >= 2000>>
-			<<actCLA 'Pay him the 2,000 <b>₽</b> (cash)'>>
-				<<set $time.minutes += 5>>
-				<<set $finances.cash -= 2000>>
-				<<set $Gspravka = 30>>
-				<<set $GspravkaT = 1>>
-				<<set $Gspassed = 1>>
-				<<set $forge_referral = 1>>
-				<p>"Deal!" you reply without giving it much thought.</p>
-				It's not cheap, but this way you get another month to think of a solution before your mother finds out you're no longer a virgin. Dr. Petrovich takes your money and fills out a form before stamping it and handing it over. You carefully put it in your pocket while thanking him.
-				<<act 'Leave'>>
-					<<gt 'pav_clinic'>>
-				<</act>>
-			<</actCLA>>
-		<</if>>
-		<<if $finances.bank >= 2000>>
-			<<actCLA 'Pay him the 2,000 <b>₽</b> (card)'>>
-				<<set $time.minutes += 5>>
-				<<set $finances.bank -= 2000>>
-				<<set $Gspravka = 30>>
-				<<set $GspravkaT = 1>>
-				<<set $Gspassed = 1>>
-				<<set $forge_referral = 1>>
-				<p>"Deal!" you reply without giving it much thought.</p>
-				It's not cheap, but this way you get another month to think of a solution before your mother finds out you are not a virgin. Dr. Petrovich produces a card reader and you make the payment before he fills out a form before stamping it and handing it over. You carefully put it in your pocket while thanking him.
-				<<act 'Leave'>>
-					<<gt 'pav_clinic'>>
-				<</act>>
-			<</actCLA>>
-		<</if>>
-		<<act 'Just accept the referral as is'>>
-			<<gt 'pav_clinic' 'badend'>>
-		<</act>>
-		<<act 'Try to negotiate'>>
-			<<gt 'pav_clinic' 'spravka_arrange'>>
-		<</act>>
-	<<else>>
-		<<image "locations/pavlovsk/clinic/gyno/gpoli_5.jpg">>
-		<p>"Well, what if I give you money?" you suggest.</p>
-		<p>Dr. Petrovich seems insulted by this suggestion. "Enough! I'm a professional doctor who swore an oath! You can't bribe me! It would go against everything I stand for!"</p>
-		<p>"Please? I could really use your help... Please..." you beg as tears fill your eyes. "I don't know what else to do..." you sob.</p>
-		He shakes his head resolutely and eyes you up and down. "I would like to help a pretty young girl in need, but taking a bribe could get me struck off the Medical Register."
-		He lets those words linger in the air for a while, talking in a tone as if he's not opposed to helping you. He's resolute about not accepting money though, and is pausing to see if you'll suggest something else instead.
-		<<act 'Just accept the referral as is'>>
-			<<gt 'pav_clinic' 'badend'>>
-		<</act>>
-		<<act 'Try to negotiate'>>
-			<<gt 'pav_clinic' 'spravka_arrange'>>
-		<</act>>
-	<</if>>
-<</if>>
 <<if $location_var[$here][0] == 'spravka_money_pale'>>
 	<<set $time.minutes += 5>>
 	<<if getvar("$gpoli_doctorhavesex") == 0>>

+ 19 - 111
sugarcube/src/npcs/family/mother/mother.tw

@@ -24,6 +24,25 @@
 	<<image "characters/pavlovsk/resident/mom/mother.jpg">>
 	<p>Your mother <<=$npc('A29').firstname>> is still quite young and attractive. She's only _motherAge years. She works at the station cafe.</p>
 
+	<<if $inventory.get('quest_mother_virgin_referral')>>
+		<<actCLA 'Present Virginity Referral'>>
+			<<addtime 3>>
+			<<set $quest('mother_virgin').certificateDeadline = $time.dayWithOffset(31)>>
+			<<run $inventory.set('quest_mother_virgin_referral',0)>>
+			<h2>Your mother, <<=$npc('A29').fullname>></h2>
+			<<image "characters/pavlovsk/resident/mom/mother.jpg">>
+			<<relationship 'A29' 'love'>>
+			<p>
+				You hand the referral to your mother.
+				She opens it, closes her eyes for a second, and breathes a sigh of relief. 
+				<<say 'A29' "I'm not even surprised, you're a good girl $pc.name_nick, just as I raised you to be.">>
+			</p>
+			<<act 'Continue'>>
+				<<gt 'mother'>>
+			<</act>>
+		<</actCLA>>
+	<</if>>
+
 	/*<p>
 		<<if _motherRel < 20>>
 			<<negative 2>>Your relationship with your mother is terrible.<</negative>>
@@ -431,118 +450,7 @@
 		<<warn "CONVERSION ERROR f11d1bd4c8390eedc638f2a733547270">>
 	<</if>>
 <</if>>
-<<if $location_var[$here][0] == 'referral'>>
-	<<set $menu_off = 1>>
-	<h2>Your mother, <<=$npc('A29').firstname>> <<=$npc('A29').lastname>></h2>
-	<<image "characters/pavlovsk/resident/mom/mother.jpg">>
-	<<if getvar("$GspravkaT") == 0 and getvar("$GspravkaTimes") >= 3 and $time.hour >= 6 and $time.hour <= 21>>
-		<<relationship 'A29' 'dislike'>>
-		<<if $wardrobe.clothingworntype != 'nude'>>
-			<p><<npc 'A29' undefined 'Your mother'>><</npc>> frowns and gets her handbag: "$pc.name_nick, why haven't you been to the gynaecologist like I asked you to? You don't have anything to hide, do you? Come on, we're going there right now." <<npc 'A29' undefined 'Your mother'>><</npc>> takes you by the hand and leads you to the clinic, ushering you into the gynaecologist's office.</p>
-			<<act 'Get a referral from the gynaecologist'>>
-				<<gt 'pav_clinic' 'referral'>>
-			<</act>>
-		<<else>>
-			<p><<npc 'A29' undefined 'Your mother'>><</npc>> frowns and gets her handbag: "$pc.name_nick, why haven't you been to the gynaecologist like I asked you to? You don't have anything to hide, do you? Come on, we're going there right now, go and get yourself dressed!" </p>
-			<<actCLA 'Hurry to your room and get dressed'>>
-				<h2>Your bedroom</h2>
-				<<video "pc/activities/misc/dress_1.mp4">>
-				<p>You rush to your room and get dressed, ready to go with <<npc 'A29' undefined 'your mother'>><</npc>> to the gynaecologist</p>
-				<<gs 'clothing' 'wear_last_worn'>>
-				<<actCLA 'Continue'>>
-					<h2>Your mother, <<=$npc('A29').firstname>> <<=$npc('A29').lastname>></h2>
-					<<image "characters/pavlovsk/resident/mom/mother.jpg">>
-					<p><<npc 'A29' undefined 'Your mother'>><</npc>> takes you by the hand and leads you to the clinic, ushering you into the gynaecologist's office.</p>
-					<<act 'Get a referral from the gynaecologist'>>
-						<<gt 'pav_clinic' 'referral'>>
-					<</act>>
-				<</actCLA>>
-			<</actCLA>>
-		<</if>>
-	<<elseif getvar("$GspravkaT") == 0 and getvar("$GspravkaTimes") < 3 and $GspravkaTalked != $time.daystart and getvar("$motherKnowDildo") != 1>>
-		<<set $GspravkaTalked = $time.daystart>>
-		<<set $GspravkaTimes += 1>>
-		<p>"$pc.name_nick, you need to go to the clinic. We need a written referral from the gynaecologist for school."</p>
-		<<act 'Continue'>>
-			<<gt 'mother'>>
-		<</act>>
-	<<elseif getvar("$GspravkaT") == 0 and getvar("$GspravkaTimes") < 3 and $GspravkaTalked != $time.daystart and getvar("$motherKnowDildo") == 1>>
-		<<set $GspravkaTalked = $time.daystart>>
-		<<set $GspravkaTimes += 1>>
-		<p>"$pc.name_nick, you need to go to the clinic. I really doubt that you are still a virgin, but we need a written referral from the gynaecologist for school anyway."</p>
-		<<act 'Continue'>>
-			<<gt 'mother'>>
-		<</act>>
-	<<elseif getvar("$dildo_gyno_fail") == 1>>
-		<<gt 'mother' 'dildo_gyno_fail'>>
-	<<elseif getvar("$dildo_gyno_pass") == 1>>
-		<<gt 'mother' 'dildo_gyno_pass'>>
-	<<elseif getvar("$GspravkaT") == 2 and getvar("$motherKnowSpravka") == 0>>
-		<<gt 'mother' 'referral_fail'>>
-	<<elseif getvar("$Gspassed") == 1>>
-		<<gt 'mother' 'referral_pass'>>
-	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'referral_fail'>>
-	<<set $menu_off = 1>>
-	<center><h2>Pavlovsk</h2></center>
-	<<if $time.isWinter>>
-		<<image "locations/pavlovsk/gorodokw.jpg">>
-	<<else>>
-		<<image "locations/pavlovsk/gorodok.jpg">>
-	<</if>>
-	<<if getvar("$motherKnowWhore") == 0>>
-		<<gs 'npc_relationship' 'set' 'A29' 0>>
-		<<set $motherKnowSpravka = 1>>
-		<<if $npc('A29').QW == 0>>
-			<<set $npc('A29').QW = 1>>
-
-		<</if>>
-		<<if getvar("$momslut") < 2>>
-			<!-- !counter for getting sent to Gadukino for the summer-->
-			<<set $delin_beh += 1>>
-			<p><<npc 'A29' undefined 'Your mother'>><</npc>> is furious and grabs you by the ear, pulling you out of the clinic and onto the street. "Oh, you slut! Your father and I worked so hard to raise you as a decent person, hoping you would find a good husband some day... and now it turns out you're a whore who has already put her pussy to work. Get out of my sight!" She storms off, leaving you to find your own way home. When you return home, you make sure you do it quietly so she can't give you another earful.</p>
-			<<act 'Walk home'>>
-				<<gt 'korrPar'>>
-			<</act>>
-		<<else>>
-			<p><<npc 'A29' undefined 'Your mother'>><</npc>> shakes her head sadly when she reads the referral. "Well... I guess I shouldn't be surprised." You head home in silence.</p>
-			<<act 'Walk home'>>
-				<<gt 'korrPar'>>
-			<</act>>
-		<</if>>
-	<<elseif getvar("$motherKnowWhore") > 0 and $npc('A29').QW < 2>>
-		<<gs 'npc_relationship' 'modify' 'A29' -10>>
-		<<set $motherKnowSpravka = 1>>
-		<!-- !counter for getting sent to Gadukino for the summer-->
-		<<set $delin_beh += 1>>
-		<<if $npc('A29').QW == 0>>
-			<<set $npc('A29').QW = 1>>
 
-		<</if>>
-		<p><<npc 'A29' undefined 'Your mother'>><</npc>> reads the referral and closes her eyes for a second, trying to suppress her anger. "To be honest, it's not even a surprise to me. Don't think that I haven't seen you sneaking around the house at weird times, and all the guys loitering near our apartment." You head home in silence.</p>
-		<<act 'Walk home'>>
-			<<gt 'korrPar'>>
-		<</act>>
-	<<elseif $npc('A29').QW >= 2>>
-		<<set $motherKnowSpravka = 2>>
-		<p>"Why are you showing me this, $pc.name_nick, do you think this is funny? Are you trying to rub it in my face? Even if you made photocopies of it and handed them out at school, I doubt it would change your reputation at all... everyone already knows." <<npc 'A29' undefined 'your mother'>><</npc>> says coldly. You head home in silence.</p>
-		<<act 'Walk home'>>
-			<<gt 'korrPar'>>
-		<</act>>
-	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'referral_pass'>>
-	<<set $menu_off = 1>>
-	<h2>Your mother, <<=$npc('A29').firstname>> <<=$npc('A29').lastname>></h2>
-	<<image "characters/pavlovsk/resident/mom/mother.jpg">>
-	<<set $Gspassed = 0>>
-	<<gs 'npc_relationship' 'modify' 'A29' 10>>
-	<p>You hand <<npc 'A29' undefined 'your mother'>><</npc>> the referral. She opens it, closes her eyes for a second, and breathes a sigh of relief. "I'm not even surprised, you're a good girl $pc.name_nick, just as I raised you to be."</p>
-	<<act 'Continue'>>
-		<<gt 'mother'>>
-	<</act>>
-<</if>>
 <<if $location_var[$here][0] == 'dildo_gyno_fail'>>
 	<<set $dildo_gyno_check = 0>>
 	<<set $dildo_gyno_fail = 0>>

+ 42 - 0
sugarcube/src/npcs/family/mother/virginity/certificate_event.tw

@@ -0,0 +1,42 @@
+:: quest_mother_virgin_event[event homeParents_events]
+<<if $time.hour >= 8 && $time.hour <= 20 && $quest('mother_virgin').active && !$time.isFuture($quest('mother_virgin').certificateDeadline) && $npc('A29').activity.location == 'home'>>
+	<<event 10000>>
+		<<eventFired>>
+		<h2>Your mother, <<=$npc('A29').fullname>></h2>
+		<<image "characters/pavlovsk/resident/mom/mother.jpg">>
+		<<relationship 'A29' 'dislike'>>
+		<<if $wardrobe.clothingworntype != 'nude'>>
+			<p>
+				<<npc 'A29' undefined 'Your mother'>><</npc>> frowns and gets her handbag: 
+				<<say 'A29' "$pc.name_nick, why haven't you been to the gynaecologist like I asked you to? You don't have anything to hide, do you? Come on, we're going there right now.">>
+				<<npc 'A29' undefined 'Your mother'>><</npc>> takes you by the hand and leads you to the clinic, ushering you into the gynaecologist's office.
+			</p>
+			<<act 'Get a referral from the gynaecologist'>>
+				<<addtime 30>>
+				<<set $quest('mother_virgin').motherWaitingInFrontOfGyn = true>>
+				<<gt 'quest_mother_virgin_gyn'>>
+			<</act>>
+		<<else>>
+			<p>
+				<<npc 'A29' undefined 'Your mother'>><</npc>> frowns and gets her handbag: 
+				<<say 'A29' "$pc.name_nick, why haven't you been to the gynaecologist like I asked you to? You don't have anything to hide, do you? Come on, we're going there right now, go and get yourself dressed!">>
+			</p>
+			<<actCLA 'Hurry to your room and get dressed'>>
+				<h2>Your bedroom</h2>
+				<<video "pc/activities/misc/dress_1.mp4">>
+				<p>You rush to your room and get dressed, ready to go with <<npc 'A29' undefined 'your mother'>><</npc>> to the gynaecologist</p>
+				<<gs 'clothing' 'wear_last_worn'>>
+				<<actCLA 'Continue'>>
+					<h2>Your mother, <<=$npc('A29').firstname>> <<=$npc('A29').lastname>></h2>
+					<<image "characters/pavlovsk/resident/mom/mother.jpg">>
+					<p><<npc 'A29' undefined 'Your mother'>><</npc>> takes you by the hand and leads you to the clinic, ushering you into the gynaecologist's office.</p>
+					<<act 'Get a referral from the gynaecologist'>>
+						<<addtime 30>>
+						<<set $quest('mother_virgin').motherWaitingInFrontOfGyn = true>>
+						<<gt 'quest_mother_virgin_gyn'>>
+					<</act>>
+				<</actCLA>>
+			<</actCLA>>
+		<</if>>
+	<</event>>
+<</if>>

+ 460 - 0
sugarcube/src/npcs/family/mother/virginity/gyn.tw

@@ -0,0 +1,460 @@
+:: quest_mother_virgin_gyn[event]
+<<switch $larg(0)>>
+	<<case undefined>>
+		<<set $location.passage = 'pav_clinic'>>
+		<<addtime 5>>
+		<<image 'locations/pavlovsk/clinic/gyno/gpoli_1.jpg'>>
+		<<if !$quest('mother_virgin').hadCheck>>
+			<p>
+				As you enter the office, you see an unfamiliar middle-aged man sitting behind the desk where your previous gynecologist used to sit.
+				You remember that the old lady who used to write your referrals retired a few weeks ago. This man must be her replacement.
+			</p>
+			<p>
+				<<say 'A68' `"Hello, young lady. I'm "+$npc('A68').usedname+". Do you have specific complaints, or are you simply here for a check-up?"`>> 
+				<<npc 'A68' '' 'the doctor'>><</npc>> asks with a smile.
+			</p>
+			<p>
+				<<say "Hello sir. I'm here for my monthly referral. My mother needs one from you to establish I'm still a virgin. It's for school,">> you explain.
+			</p>
+			<p>
+				<<say 'A68' "For... school?">> he asks, a little confused. <<say 'A68' "Okay, let's take a look, shall we?">> He gestures for you to stand next to the examination table.
+			</p>
+			<<act 'Have the check-up'>>
+				<<gt 'quest_mother_virgin_gyn' 'result'>>
+			<</act>>
+		<<elseif $quest('mother_virgin').docFakedCheck>>
+			<p><<say 'A68' "Hello $pc.name_nick. What brings you in today?">> <<npc 'A68'>><</npc>> asks with a smile.</p>
+			<p><<say "Hello, doctor. It's time for my monthly check-up again. My mother needs a referral from you to make sure I'm still a virgin,">> you reply.</p>
+			<p><<say 'A68' "Ah, yes. I suggest we skip the step where I figure out what we both know already. How do you intend on getting your referral this time?">></p>
+			<<gs 'quest_mother_virgin_gyn' 'action_bribe'>>
+			<<gs 'quest_mother_virgin_gyn' 'action_bj'>>
+			<<gs 'quest_mother_virgin_gyn' 'action_truth'>>
+		<<else>>
+			<p><<say 'A68' "Hello $pc.name_nick. What brings you in today?">> <<npc 'A68'>><</npc>> asks with a smile.</p>
+			<p><<say "Hello, doctor. It's time for my monthly check-up again. My mother needs a referral from you to make sure I'm still a virgin,">> you reply.</p>
+			<p><<say 'A68' "Ah, yes. For... school, right? Let's take a look,">> he replies with a chuckle.</p>
+
+			<<act 'Have the check-up'>>
+				<<gt 'quest_mother_virgin_gyn' 'result'>>
+			<</act>>
+		<</if>>
+				
+	/*
+			<<addtime 5>>
+			<<image "locations/pavlovsk/clinic/gyno/gpoli_1.jpg">>
+			<<if $pc.thinksIsVirgin>>
+				<p>You quickly undress and climb into the chair, spreading your legs and resting them in the stirrups. The leather-like surface feels strangely warm on your bottom, and it takes you a second to realize that it's heated. The gynaecologist examines your vagina carefully with a speculum, and silently mumbles something to himself.</p>
+				<<act 'Have the check-up'>>
+					<<gt 'quest_mother_virgin_gyn' 'results'>>
+				<</act>>
+			<<else>>
+				<p>You're a bit nervous as you enter the gynaecologist's office. Your mother expects you to get a referral from him that states you're still a virgin, except there's one small problem... you're not a virgin any more! Maybe you can work something out with him?</p>
+				<<actCLA 'Have the check-up'>>
+					<<set $time.minutes += 5>>
+					<<image "locations/pavlovsk/clinic/gyno/gpoli_2.jpg">>
+					The doctor breathes on his stethoscope to warm it up. "Lift your shirt, please."
+					<p>He sees your hesitation, and reassures you. "I'm just doing some basic check-ups while you're here. Now... your shirt, please?"</p>
+					<p>You expose your $pc.titsize breasts to him when you lift your shirt up. You're no medical professional, but you're fairly certain that he's not supposed to put the stethoscope on your breast like that!</p>
+					You decide to humour him and just let him play with your breasts for several minutes, after which he happily nods. "Everything seems to be in order."
+					There''s an eager sparkle in his eyes when he looks at your bare breasts. "Now get undressed and have a seat in the chair, please. You can put your feet in the stirrups."
+					<<actCLA 'Undress'>>
+						<<set $time.minutes += 5>>
+						<<image "locations/pavlovsk/clinic/gyno/gpoli_3.jpg">>
+						You reluctantly take your clothes off, trying to put the moment off as long as you can. You know he'll find out about your secret, but you don't have any other option.
+						<<act 'Sit in the chair'>>
+							<<gt 'pav_clinic' 'referral2'>>
+						<</act>>
+					<</actCLA>>
+				<</actCLA>>
+				<<actCLA 'Admit that you`re no longer a virgin'>>
+					<<set $time.minutes += 5>>
+					<<image "locations/pavlovsk/clinic/gyno/gpoli_1.jpg">>
+					<<if getvar("$gpoliuborka") == 2>>
+						You pause for a second, and then decide to just confess. He's going to find out anyway.
+						"Doctor Petrovich, I have something to ask of you..." you hesitantly say. "You see, I... I'm no longer a virgin."
+						He nods understandingly. "I see." This likely isn''t the first time one of his patients has told him that.
+						<p>You continue. "But... My mother thinks I'm still a virgin, and I'd really like to keep it that way. Could you please help me?"</p>
+						<p>He looks puzzled for a second, and his eyes widen when he realizes what you're asking of him. "You mean... Fake your referral? That's fraud! Do you have any idea how much trouble I could end up in if I do that?"</p>
+					<<else>>
+						You pause for a second, and then decide to just confess. He's going to find out anyway.
+						"Doctor Petrovich, I have something to ask of you..." you hesitantly say. "You see, I... I'm no longer a virgin."
+						He nods understandingly. "I see." This likely isn''t the first time one of his patients has told him that.
+						<p>You continue. "But... My mother thinks I'm still a virgin, and I'd really like to keep it that way. Could you please help me?"</p>
+						<p>He nods again. "I see what you're getting at. I might be able to help you, but I'm running a big risk by doing that. What's in it for me?"</p>
+					<</if>>
+					<<act 'Offer him money'>>
+						<<gt 'pav_clinic' 'spravka_money'>>
+					<</act>>
+					<<act 'Try to negotiate'>>
+						<<gt 'pav_clinic' 'spravka_arrange'>>
+					<</act>>
+					<<act 'Just accept the referral as is'>>
+						<<gt 'pav_clinic' 'badend'>>
+					<</act>>
+				<</actCLA>>
+			<</if>>
+		<</if>>
+
+		*/
+
+	<<case 'result'>>
+		<<set $quest('mother_virgin').hadCheck = 1>>
+		<<addtime 15>>
+		<<image "locations/pavlovsk/clinic/gyno/gin.jpg">>
+		<p>
+			You quickly undress and climb into the chair, spreading your legs and resting them in the stirrups.
+			The leather-like surface feels strangely warm on your bottom, and it takes you a second to realize that it's heated.
+			<<npc 'A68'>><</npc>> examines your vagina carefully with a speculum, and silently mumbles something to himself
+		</p>
+
+		<<if $pc.isVirgin>>
+			<p>
+				He confirms that you're still a virgin and tells you to get dressed while he prepares your referral.
+				While you put your clothes back on, he fills out the form at his desk and stamps it before handing it to you.
+				This should keep your mother happy for another month...
+			</p>
+			<<gs 'quest_mother_virgin_gyn' 'action_success'>>
+		<<else>>
+			<p>
+				<<say 'A68' "Well, you're completely healthy. However, you're also no longer a virgin.">>
+				You see the corners of his mouth twitch and his pants look a little tighter in his crotch area than before.
+				<<say 'A68' "Please get dressed while I write out the referral for your mother.">>
+			</p>
+			<<if $pc.thinksIsVirgin>>
+				<p>Your heart begins to race when you hear that. Your mother can't find out! How could this have happened? You've never even had sex!</p>
+			<<else>>
+				<p>Your heart begins to race when you hear that. Your mother can't find out! She would kill you if she finds out!</p>
+			<</if>>
+			<p><<say "Wait!">> you quickly blurt out. <<say "Could you please just write down that I'm still a virgin so I don't get in trouble? Please?">></p>
+			<p>He looks at you sternly and shakes his head. <<say 'A68' "I'm sorry $pc.name_nick, I can't do that, that's fraud! Do you have any idea how much trouble I could get into?">></p>
+
+			<<gs 'quest_mother_virgin_gyn' 'action_bribe'>>
+			<<gs 'quest_mother_virgin_gyn' 'action_bj'>>
+			<<gs 'quest_mother_virgin_gyn' 'action_truth'>>
+
+		<</if>>
+	<<case 'bribe'>>
+		<<addtime 5>>
+		<<image 'locations/pavlovsk/clinic/gyno/gpoli_1.jpg'>>
+		<p>You think fast. <<say "I can pay!">> you blurt out. <<say "Would that referral be the same if I were to pay you for your time? I can pay you well!">></p>
+		<p>
+			The doctor strokes his chin as he thinks.
+			<<say 'A68' "I don't know... I'm not here for the money. However, paying me would make you a private patient, so I would have no obligation to tell your mother.">>
+		</p>
+
+		<<actCLA 'Pay him' undefined `{cost:{both:2000}}`>>
+			<<set $quest('mother_virgin').docFakedCheck = true>>
+			<<set $quest('mother_virgin').fakedCheckBribe = true>>
+			<<image 'locations/pavlovsk/clinic/gyno/gpoli_1.jpg'>>
+			<p><<say "Deal!">> you reply without giving it much thought.</p>
+			<p>
+				It's not cheap, but this way you get another month to think of a solution before your mother finds out you're no longer a virgin.
+				<<npc 'A68'>><</npc>> takes your money and fills out a form before stamping it and handing it over. You carefully put it in your pocket while thanking him.
+			</p>
+			<<gs 'quest_mother_virgin_gyn' 'action_success'>>
+		<</actCLA>>
+
+		<<gs 'quest_mother_virgin_gyn' 'action_bj'>>
+		<<gs 'quest_mother_virgin_gyn' 'action_truth'>>
+	<<case 'negotiate'>>
+		<<addtime 5>>
+		<<image "locations/pavlovsk/clinic/gyno/gpoli_1.jpg">>
+		<p>
+			You really need this, but you understand you're not in a good position to negotiate.
+			Nevertheless, you try to plead your case.
+			<<say "Please,">> you beg. <<say "I don't have any money to offer you, but I really need that referral! My mother would kill me! Please?">>
+		</p>
+		<p>
+			He has a wolfish grin on his face as he gets up from his chair and walks over to you, putting his hands on your shoulders. 
+			<<say 'A68' "Well, if you really need it that badly... I think we can work out a deal. It'd just be between us, no one else has to know...">>
+			 he says softly in a soothing voice.
+		</p>
+		<p>You become hopeful, even though you feel a bit uncomfortable. <<say "Erm... Okay, that's great! What kind of deal are you thinking of?">></p>
+		<p>
+			He continues in his soothing voice. 
+			<<say 'A68' "You see, my wife is away on a business trip and won't be home for weeks. I'm a man with needs, and my job is very stressful as you can imagine. I need you to help me relax, relieve the tension, so to speak. Do you think you can help me with that?">>
+		</p>
+		<p>His grip on your shoulders intensifies a little, and he massages you while you think it over. You're perfectly clear on what he wants from you, but is it really worth it?</p>
+
+		<<act 'You really don`t want your mother to find out...' undefined `{template:'randomGuyBJ'}`>>
+			<<gt 'quest_mother_virgin_gyn' 'bj'>>
+		<</act>>
+
+		<<gs 'quest_mother_virgin_gyn' 'action_bribe'>>
+		<<gs 'quest_mother_virgin_gyn' 'action_truth'>>
+	<<case 'bj'>>
+		<<set $quest('mother_virgin').docFakedCheck = true>>
+		<<set $quest('mother_virgin').fakedCheckBJ = true>>
+		<<run $pc.sexEncounterRegister($npc('A68'),'bj','acquaintance',true,false,$time.now)>>
+		<<set $time.minutes += 5>>
+		<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_6.jpg">>
+		<p>
+			You take another deep breath and slowly put your hands on his groin. To your surprise you feel that his cock is already fully erect.
+			You massage it through his pants before dropping to your knees as he pulls his erection free from his pants.
+		</p>
+		<p>
+			You guide his stiff cock to your mouth with your hand and lick the tip teasingly before you slowly envelop his cock with your mouth and start sucking the head.
+			After a minute or two, you feel his hand at the back of your head. You want to raise your head and ask him what he wants, but he forces you to stay where you are and slowly pushes his hips forward,
+			making you take more and more of his rod inside your mouth.
+		</p>
+
+		<<actCLA 'Continue'>>
+			<<addtime 3>>
+			<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg">>
+			<p>
+				You want to move back, but there's nowhere to go.
+				His stiff cock is in front of you, and his powerful hand on the back of your head pulling you in closer.
+				The masculine smell of his throbbing cock fills your nose as you breathe.
+			</p>
+			<p>
+				He begins to relax a little, letting you pull back until just the tip of his cock is between your lips before he pulls your head closer again,
+				forcing his cock deeper each time. At first you're okay, but at a certain point you can't keep up any more and gag on his cock when he thrusts it in deep again.
+				You can tell he's enjoying this from the sadistic grin on his face. <<say 'A68' "Try breathing through your nose.">>
+			</p>
+			<p>
+				You do as he says, and it does indeed make things a bit easier as he starts fucking your mouth, your saliva drooling down his shaft and over his hairy balls.
+				The air of the office is filled with wet slurps and snorts as he pounds his cock into your mouth deeper and deeper,
+				sometimes making you gag involuntarily as the head of his cock slips down your throat.
+				With a sudden thrust, you can feel his curly pubic hair against your lips as he forces his cock down your throat as far as it'll go.
+				You panic as you can't breathe, but he just as suddenly pulls his dick out of your mouth again. Thankfully, you get a chance to catch your breath.
+			</p>
+			
+			<<actCLA 'Continue'>>
+				<<addtime 3>>
+				<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg">>
+				<p>
+					But not for long. He firmly grabs your head and forces himself deep down your throat for a final time.
+					You feel it pulsing and the taste of cum, but you are too exhausted to object, even if you wanted to.
+					You have no choice but to take his load in your mouth.
+				</p>
+				<p>
+					He moves his slowly softening dick outside your mouth, letting you suck and lick it clean and not wasting a drop of his cum.
+					He lets out a satisfied sigh before walking over to his disk and quickly preparing your papers.
+					He then releases you with one wave of his hand.
+				</p>
+				<<gs 'quest_mother_virgin_gyn' 'action_success'>>
+			<</actCLA>>
+		<</actCLA>>
+		/*<<actCLA 'Give him a blowjob'>>
+			<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg">>
+			<p>You want to move back, but there's nowhere to go. His stiff cock is in front of you, and his powerful hand on the back of your head pulling you in closer. The masculine smell of his throbbing cock fills your nose as you breathe and you have to admit, it excites you!</p>
+			He begins to relax a little, letting you pull back until just the tip of his cock is between your lips before he pulls your head closer again, forcing his cock deeper each time. At first you're okay, but at a certain point you can't keep up any more and gag on his cock when he thrusts it in deep again. You can tell he's enjoying this from the sadistic grin on his face. "Try breathing through your nose."
+			You do as he says, and it does indeed make things a bit easier as he starts fucking your mouth, your saliva drooling down his shaft and over his hairy balls. The air of the office is filled with wet slurps and snorts as he pounds his cock into your mouth deeper and deeper, sometimes making you gag involuntarily as the head of his cock slips down your throat. With a sudden thrust, you can feel his curly pubic hair against your lips as he forces his cock down your throat as far as it'll go. You panic as you can't breathe, but he just as suddenly pulls his dick out of your mouth again. Thankfully, you get a chance to catch your breath.
+			"I think that got me lubed up properly," he says with a lusty voice. You can tell he's very excited now, and aren''t sure you want to find out what happens next. Nevertheless, you're too far in to back down now. "Come on, now it's time to go deep."
+			<p>"What do you mean?" you start to ask, but get your answer almost immediately as Dr. Petrovich pulls you up  from the floor and bends you over the chair. You can't help but let out a moan as he rubs the head of his slippery cock against your engorged clitoris.</p>
+			<<arouse 'bj' 5 `['sub','deepthroat']`>>
+			<<actCLA 'Continue'>>
+				<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_8.jpg">>
+				You can feel your arousal rising when his body touches yours. As Dr. Petrovich keeps massaging your clitoris with his cock, you can feel your juices start leaking from your swollen pussy and run down your quivering thighs. You can hear the wet squelching sounds as he plows his throbbing cock between your soaking wet pussy lips.
+				Your tender flesh resists for a moment, but then surrenders. You feel the walls of your vagina stretch open, letting the invader in as you let out a passionate groan.
+				<<arouse 'vaginal' 5 `['sub']`>>
+				<<actCLA 'Let him fuck you'>>
+					<<set $pc.pcs_vag += 1>>
+					<!-- Boy A68 -->
+					<<set $cumprecheck = 1>>
+					<<gs 'cum_manage'>>
+					<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_9.jpg">>
+					Your body feels like it's getting hotter and hotter as beads of sweat form on your forehead. With every thrust Dr. Petrovich fucks you faster and harder, and you can feel your excitement growing too. You start involuntarily moaning as his hard hot member penetrates you ever deeper without giving you any pause.
+					You can no longer control yourself and have a thunderous orgasm as the doctor keeps fucking you relentlessly. Waves of bliss sear your nerves and your mouth opens in a silent scream as you're consumed with pleasure.
+					He suddenly pulls his dick out of you and you almost fall to the floor, but he catches you with his powerful arms and lowers you onto a table where you feel his cock slide back into your quivering pussy.
+					<<set $orgasm_or = 'yes'>>
+					<<arouse 'vaginal' 5 `['sub']`>>
+					<<actCLA 'Sex on the table'>>
+						<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_10.jpg">>
+						He picks up the pace again and fucks you hard and fast like before. Your body no longer listens to you, and you find yourself eagerly bucking your hips against his thrusts. You feel that tingle starting up inside you again... If he keeps this up, you're going to cum all over his cock again.
+						The doctor smiles at you while he pulls his dick out. "I bet I could give you another type of orgasm, one that you maybe never had before. Wait here, I'll be right back."
+						<p>You kind of hear him say something, but at the same time you're still too stuck in your own world to realize what he just said. When the high from your orgasm wears off, you look around the room. Where did he go?</p>
+						Just as you're about to get off the table, he returns with a jar of lubricant in his hand and a latex glove on one hand. He motions for you to turn around, which you obediently do.
+						Several of his gloved fingers dip inside the jar, and when he pulls it up you see the lubricant slowly dripping from them. He puts them against your tight sphincter and spreads some of the lube over it before thrusting three fingers in.
+						<p>"Ouch!" you cry out when you feel his fingers stretch out your asshole. It hurts a little, and you feel a bit uncomfortable when he pulls his fingers away and spreads more lubricant over his cock. Before you can object, you feel the thick head of his cock pushing past your sphincter, stretching you out even further.</p>
+						<<arouse 'vaginal' 5 `['sub']`>>
+						<<arouse 'foreplay' 5 `['sub']`>>
+						<<arouse 'anal_finger' 5 `['sub']`>>
+						<<set $time.minutes -= 5>>
+						<<actCLA 'Anal sex'>>
+							<<set $pc.pcs_ass += 1>>
+							<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_11.jpg">>
+							You want to pull away from him, but you're trapped between Dr. Petrovich and a wall. He slowly moves his hips, letting you get used to the size of his thick rod inside your ass. Despite your best efforts you can't relax your anus, only slowly getting used to the size of him.
+							When he starts to speed up, you nearly cry and groan loudly with every thrust.
+							<p>"This won't do. You're going to alert the entire clinic if you keep screaming like that!" he mutters and takes his dick out of your ass.</p>
+							"Come on, get on the floor," he orders after he throws his coat down. He spreads some more lubricant over his gloved fingers and smears it over your throbbing asshole.
+							<<arouse 'anal' 5 `['sub']`>>
+							<<actCLA 'Sex on the floor'>>
+								<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_12.jpg">>
+								To your surprise, he ignores your ass and drives his dick back into your pussy instead. He fucks you with short, rough thrusts, almost as if he's fucking the annoyance out of his system. It doesn''t feel very pleasant at first, but you soon moan and start enjoying the feeling again when your body relaxes.
+								<p>When he notices you're gasping faster, he quickly pulls his cock out of your pussy and rams it inside your asshole in one fluent motion. You cry out loud, partially from the pain and partially because you're frustrated... You were so close! Despite the discomfort and pain you're experiencing, you rub your clitoris, hoping it will take your mind off the pain and hopfully getting that orgasm you're craving.</p>
+								<<arouse 'vaginal' 5 `['sub','rough']`>>
+								<<actCLA 'Anal'>>
+									<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_13.jpg">>
+									Now that you're so aroused, the anal sex doesn''t hurt quite as much. You furiously rub your clit while he roughly pounds your stretched asshole, slowly losing your mind when a second orgasm hits you. Dr. Petrovich must feel your anus contracting around his cock when you cum with it inside you.
+									He was close as well, and after you ride out your orgasm he gives it a few more thrusts before he pulls out and moves his hips towards your face. He grabs you by the hair and guides his cock towards your mouth, and you obediently open your mouth to let it in.
+									<<set $orgasm_or = 'yes'>>
+									<<arouse 'anal' 5 `['sub','rough']`>>
+									<<actCLA 'Let him cum in your mouth'>>
+										<<set $time.minutes += 5>>
+										<<set $pc.horny += 5>>
+										<!-- Boy A68 -->
+										<<cum 'mouth_swallow' $sex.npcId 1>>
+										<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg">>
+										You feel too tired to object, even if you wanted to, and have no choice but to take his load in your mouth. You obediently show it to him before swallowing it and licking your lips. He moves his slowly softening dick towards your mouth once more, letting you suck and lick it clean.
+										He lets out a satisfied sigh and starts putting his clothes back on as if nothing happened.
+										<<actCLA 'Get dressed'>>
+											<<set $time.minutes += 5>>
+											<<image "locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg">>
+											You follow his example, and also put your clothes back on.
+											When you're both fully dressed again, he has a wide grin on his face. "Well now, one good turn deserves another."
+											He takes place behind his desk and quickly writes out your referral, stating that you're still a virgin. He offers it to you: "I believe this is yours. Now if you don't mind, I have other patients to attend to."
+											<p>You feel cheap for a moment, when you accept the referral. Nevertheless, you're off the hook for another month... that's worth something, right?</p>
+											<<set $Gspravka = 30>>
+											<<set $GspravkaT = 1>>
+											<<set $Gspassed = 1>>
+											<<set $forge_referral = 1>>
+											
+											<<if $loc == 'kuhrPar'>>
+												<<act 'Leave'>>
+													<<gt 'mother' 'referral'>>
+												<</act>>
+											<<else>>
+												<<act 'Leave'>>
+													<<gt 'pav_clinic'>>
+												<</act>>
+											<</if>>
+										<</actCLA>>
+									<</actCLA>>
+								<</actCLA>>
+							<</actCLA>>
+						<</actCLA>>
+					<</actCLA>>
+				<</actCLA>>
+			<</actCLA>>
+		<</actCLA>>*/
+	<<case 'referral_fail'>>
+		<<addtime 5>>
+		<h2>Your mother, <<=$npc('A29').fullname>></h2>
+		<<image "characters/pavlovsk/resident/mom/mother.jpg">>
+		
+		<<relationship 'A29' 'dissapointedPP'>>
+		<p>
+			<<npc 'A29' undefined 'Your mother'>><</npc>> has been waiting in front of the office of the gynaecologist.
+			You hand her the referral and she opens it.
+			As she reads it, her head turns read.
+		</p>
+		<p>
+			<<npc 'A29' undefined 'Your mother'>><</npc>> is furious and grabs you by the ear,
+			pulling you out of the clinic and onto the street.
+			<<say 'A29' "Oh, you slut! Your father and I worked so hard to raise you as a decent person, hoping you would find a good husband some day... and now it turns out you're a whore who has already put her pussy to work. Get out of my sight!">>
+			She storms off, leaving you to find your own way home.
+			When you return home, you make sure you do it quietly so she can't give you another earful.
+		</p>
+		<<questFail 'mother_virgin' 8000>>
+		<<act 'Walk home'>>
+			<<addtime 30>>
+			<<gt 'korrPar'>>
+		<</act>>
+	<<case 'referral_pass'>>
+		<<addtime 5>>
+		<<set $quest('mother_virgin').certificateDeadline = $time.dayWithOffset(31)>>
+		<h2>Your mother, <<=$npc('A29').fullname>></h2>
+		<<image "characters/pavlovsk/resident/mom/mother.jpg">>
+		<<relationship 'A29' 'love'>>
+		<p>
+			<<npc 'A29' undefined 'Your mother'>><</npc>> has been waiting in front of the office of the gynaecologist.
+			You hand her the referral.
+			She opens it, closes her eyes for a second, and breathes a sigh of relief. 
+			<<say 'A29' "I'm not even surprised, you're a good girl $pc.name_nick, just as I raised you to be.">>
+		</p>
+		<<act 'Go home'>>
+			<<addtime 30>>
+			<<gt 'korrPar'>>
+		<</act>>
+		<<act 'Stay at hospital'>>
+			<<addtime 1>>
+			<<gt $location>>
+		<</act>>
+
+<<case 'action_bj'>>
+	<<if $quest('mother_virgin').fakedCheckBJ>>
+		<<act 'Offer him another BJ' undefined `{template:'randomGuyBJ'}`>>
+			<<gt 'quest_mother_virgin_gyn' 'bj'>>
+		<<act>>
+	<<else>>
+		<<act 'Try to negotiate'>>
+			<<gt 'quest_mother_virgin_gyn' 'negotiate'>>
+		<</act>>
+	<</if>>
+<<case 'action_bribe'>>
+	<<if $quest('mother_virgin').fakedCheckBribe>>
+		<<actCLA 'Pay him again' undefined `{cost:{both:2000}}`>>
+			<<addtime 5>>
+			<<image 'locations/pavlovsk/clinic/gyno/gpoli_1.jpg'>>
+			<p>You pay him his fee and, without another word, he hands you the referral. He must have had it prepared in advance.</p>
+			<<gs 'quest_mother_virgin_gyn' 'action_success'>>
+		<<actCLA>>
+	<<else>>
+		<<act 'Offer him money'>>
+			<<gt 'quest_mother_virgin_gyn' 'bribe'>>
+		<</act>>
+	<</if>>
+<<case 'action_truth'>>
+	<<if $quest('mother_virgin').motherWaitingInFrontOfGyn>>
+		<<act 'Get truthful referral'>>
+			<<gt 'quest_mother_virgin_gyn' 'referral_fail'>>
+		<</act>>
+	<<else>>
+		<<ret 'Don\'t get a referral today'>>
+	<</if>>
+<<case 'action_success'>>
+	<<if $quest('mother_virgin').motherWaitingInFrontOfGyn>>
+		<<act 'Show the referral to your mother'>>
+			<<set $quest('mother_virgin').motherWaitingInFrontOfGyn = false>>
+			<<gt 'quest_mother_virgin_gyn' 'referral_pass'>>
+		<</act>>
+	<<else>>
+		<<act 'Take referral and leave'>>
+			<<run $inventory.set('quest_mother_virgin_referral',undefined,undefined,{time:$time.now})>>
+			<<gt $location>>
+		<</act>>
+	<</if>>
+<</switch>>
+
+:: gyn_old_stuff[deprecated]
+
+<<if $location_var[$here][0] == 'referral2'>>
+	<<set $time.minutes += 5>>
+	<<image "locations/pavlovsk/clinic/gyno/gpoli_4.jpg">>
+	<p>Once you're naked, you have a seat in the gynaecologist's chair and spread your legs in the stirrups before the doctor gives you a thorough check-up. He spends a bit more time on your asshole than he probably should, but maybe he's just being thorough.</p>
+	<<set $gpoli_sick = ''>>
+	<<if $pc.preg > 0>>
+		<<set $pc.thinkpreg = 1>>
+		<<set $pc.knowpreg = 1>>
+		<<set $gpoli_sick = 'are pregnant'>>
+	<</if>>
+	<<if getvar("$venera") > 0 or getvar("$Kandidoz") > 10>>
+		<<if $gpoli_sick != ''>>
+			<<set $gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'>>
+
+		<</if>>
+		<<if $gpoli_sick == ''>>
+			<<set $gpoli_sick = 'have a sexually transmitted disease'>>
+
+		<</if>>
+	<</if>>
+	<<if $gpoli_sick == ''>>
+		
+	<<else>>
+		<p>The doctor frowns when he gives you the results. "I'm afraid I have some bad news, $pc.name_nick. You $gpoli_sick.</p>
+		<<if getvar("$venera") > 0 or getvar("$Kandidoz") > 10>>
+			<<gs 'pav_clinic' 'std_check'>>
+
+		<</if>>
+		You're also not a virgin any more, obviously."
+		<<if $pc.thinksIsVirgin>>
+			<p>Your heart begins to race when you hear that. Your mother can't find out! How could this have happened? You've never even had sex!</p>
+		<<else>>
+			<p>Your heart begins to race when you hear that. Your mother can't find out! She would kill you!</p>
+		<</if>>
+		<p>"Wait!" you quickly blurt out. "Could you please just write down that I'm still a virgin so I don't get in trouble? Please?"</p>
+		<p>He looks at you sternly and shakes his head. "I'm sorry $pc.name_nick, but you're not an adult. I need her permission to treat you. And I can't lie on a referral, that's fraud! Do you have any idea how much trouble I could get into?"</p>
+	<</if>>
+	
+<</if>>

+ 6 - 0
sugarcube/src/npcs/family/mother/virginity/quest_mother_virgin.ts

@@ -0,0 +1,6 @@
+/// <reference path="../../../../items/Inventory.ts" />
+setup.items.quest_mother_virgin_referral = {
+    image: 'pc/items/referral.webp',
+    label: 'Gynaecologists Referral',
+    desc: 'This piece of paper attests your virginity.'
+}

+ 1 - 0
sugarcube/src/npcs/family/mother/virginity/quest_mother_virgin.tw

@@ -3,6 +3,7 @@
 	<<case 'title'>>
 		<<set $result ="Staying chaste">>
 	<<case 'start'>>
+		<<set $quest('mother_virgin').certificateDeadline = $time.dayWithOffset(14)>>
 	<<case 'stageDescription'>>
 		<<switch $location_var[$here][1]>>
 			<<case 0>>

+ 3 - 0
sugarcube/src/npcs/npc_relationship.tw

@@ -3,6 +3,9 @@ setup.relationshipModifiers ??= {};
 setup.relationshipModifiers.dislike	= {effect:-1,text:' dislikes this'};
 setup.relationshipModifiers.hate	= {effect:-3,text:' hates this'};
 setup.relationshipModifiers.loathe	= {effect:-5,text:' loathes this'};
+
+setup.relationshipModifiers.dissapointedPP	= {effect:-50,text:' is extremely dissapointed'};
+
 setup.relationshipModifiers.like	= {effect:1,text:' likes this'};
 setup.relationshipModifiers.love	= {effect:3,text:' loves this'};
 setup.relationshipModifiers.adore	= {effect:5,text:' adores this'};

+ 9 - 0
sugarcube/src/playerCharacter/personality/promiscuity/promiscuity.ts

@@ -17,6 +17,15 @@ setup.personalityScales.promiscuity = {
 	}
 }
 
+setup.actionTemplates.randomGuyBJ = (flags:ActFlags) => {
+    flags.personality ??= {};
+    flags.personality.promiscuity = {
+        min: 40,
+        impact: 'randomGuySex'
+    }
+    return flags;
+}
+
 setup.actionTemplates.randomGuySex = (flags:ActFlags) => {
     flags.personality ??= {};
     flags.personality.promiscuity = {

+ 6 - 0
sugarcube/src/quests/_system/questWidgets.tw

@@ -35,4 +35,10 @@
 			</span>
 		</div>
 	<</if>>
+<</widget>>
+
+<<widget 'questFail'>>
+	<<set [_questId,_questStage] = _args>>
+	<<run $quest(_questId).fail()>>
+	<<quest _questId _questStage>>
 <</widget>>

+ 1 - 1
sugarcube/src/version.ts

@@ -1,4 +1,4 @@
-Config.saves.version = 201;
+Config.saves.version = 202;
 
 Macro.add('version', {
 	skipArgs : true,