# pav_clinic

if $ARGS[0] = '':
	CLOSE ALL
	clr
	$loc = 'pav_clinic'
	$location_type = 'indoors'
	$menu_loc = 'pav_clinic'
	$menu_arg = ''
	menu_off = 0
	frost = 0
	gs 'stat'
	gs 'themes', 'indoors'
	'<center><b><font color="maroon">Clinic</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'

	if (lactation['active'] > 0 or thinkpreg = 1 or knowpreg = 1) and pcs_know_mward <= 0:	'A sign catches your attention. It reads <a href="exec: minut += 5 & gt ''pav_clinic'', ''maternity_ward''">"Maternity ward"</a>.'

	if pcs_ask_mward_help >= 1 and pcs_know_mward <= 0: '<br><br><a href="exec: minut += 5 & gt ''pav_clinic'', ''reception''">Ask</a> at reception for help with your breasts.'

	act 'Leave': minut += 5 & gt 'pav_commercial'

	if preg = 2:
		act 'Give birth':
			*clr & cla
			menu_off = 1
			if kid > 0: minut += rand(300,660) else minut += rand(120,480)
			'<center><img <<$set_imgh>> src="images/locations/shared/clinic/birthing.jpg"></center>'
			'You lay on the bed and your feet are put in stirrups. Your contractions get closer and closer, and after some time and a lot of swearing, you finally give birth.'
			:multikidloop
				minut += rand(30,90)
				sterilewb += 1
				nextbaby = arrpos('$kidname', 'unborn')
				kid += 1
				BabyEmbryo -= 1
				daykid[nextbaby] = day
				monthkid[nextbaby] = month
				yearkid[nextbaby] = year
				if polkid[nextbaby] = 0:$polreb[nextbaby] = 'girl' & '"Congratulations, it''s a girl! What is her name?"'
				if polkid[nextbaby] = 1:$polreb[nextbaby] = 'boy' & '"Congratulations, it''s a boy! What is his name?"'

				wait 350
				$kidname[nextbaby] = input("Enter your <<$polreb[nextbaby]>>''s name")
				'The doctors clean up <<$kidname[nextbaby]>>.'
				if $kidname[nextbaby] = '':
					if polkid[nextbaby] = 0:$kidname[nextbaby] = 'Masha'
					if polkid[nextbaby] = 1:$kidname[nextbaby] = 'Misha'
				end
			if BabyEmbryo > 0: 'You don''t have much time to look at your <<$polreb[nextbaby]>> because you''re having an another contraction. Your next baby is coming!' & jump 'multikidloop'
			preg = 0
			!! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is ~6-10 weeks
			RecovH = rand(1175,1875)
			pregbirthdate = daystart
			thinkpreg = 0
			knowpreg = 0
			knowpregrecover = 1
			vidage += 1
			pregtalk = 0
			pcs_pregtalk = 0
			pregTalkFamily = 0
			npc_pregtalk['A16'] = 0
			npc_pregtalk['A34'] = 0
			npc_pregtalk['A29'] = 0
			pregchem = 0
			cycle = 4
			gs 'cum_cleanup', 'reset'
			dynamic $d_cycreport_choice
			gs 'stat'
			act 'Leave':gt $curloc
		end
	end

	if hour >= 6 and hour <= 21:
		if gpoliuborka = 0:
			act 'Read the job listing':
				*clr & cla
				menu_off = 1
				minut += 5
				gpoliuborka = 1
				gs 'stat'
				'You notice a piece of paper on the wall near the entrance to the clinic - it''s a job listing which reads: "Cleaner wanted! One hour per day, any time between 14:00 and 21:00. Payment: 100 <b>₽</b>."'

				act 'Move away': gt 'pav_clinic'
			end
		elseif gpoliuborka = 1 and hour >= 8 and hour <= 21:
			act 'Ask the head doctor about the job':
				*clr & cla
				menu_off = 1
				gpoliuborka = 2
				minut += 15
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
				'Since the door is opened, you assume you''re allowed to enter the head doctor''s office. When you knock on the wooden door frame, the doctor looks up from his work. He''s wearing a white coat, and looks at you sternly through his glasses. "Yes, can I help you?"'
				'"Hello sir," you answer. "I see you''re looking for a cleaner, and I would like to apply."'
				'He looks at you, thinking for a second before he opens a desk drawer and pulls out a form. "I see. Fill this out, please."'
				'You nod and fill out the form, indicating that you''re applying for the part-time cleaning job vacancy. He quickly checks to make sure you filled everything out correctly, then gives you a satisfied smile. "It looks like everything in order, Miss <<$pcs_lastname>>. Please follow me and I''ll show you where we keep our cleaning supplies."'
				'You follow him to the maintenance closet, where he shows you the cleaning supplies you will need. He shakes your hand and wishes you a good day before returning to his office, assuming you will find your own way out.'

				act 'Leave': gt 'pav_clinic'
			end
		elseif gpoliuborka > 1 and hour >= 14 and hour <= 21 and gpolicleanday ! daystart:
			act 'Work as a cleaner for 100 <b>₽</b> (1:00)':
				*clr & cla
				menu_off = 1
				gpolicleanday = daystart
				minut += 60
				gs 'exp_gain', 'cleaning', rand(1,3)
				pcs_mood -= 15
				money += 100
				gs 'sweat', 'add', 10
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
				'As instructed, you take a mop and a bucket from the maintenance closet and begin by cleaning the corridors throughout the clinic. Once you''re done with that, you enter the examination rooms and offices one by one, occasionally hearing a softly muttered curse from a doctor when you interrupt their work. Nevertheless, you work quickly and the doctors don''t give you any trouble while you clean the floors of the rooms.'

				act 'Finish cleaning': gt 'pav_clinic'

				ginrand = rand(0, 1)

				if Gspravka < 10 and ginrand = 0:
					'When you clean the floor of the gynaecologist''s examination room, he leaves the room to let you do your work in peace. You''re alone now.'
					!! TODO: This check means that even when Sveta is 40 years old and moved out, if she can go to her parents home, mom wants a referral? Maybe it would be more sensible to check if that is her current home.
					if pcs_vag > 0 and motherKnowSpravka = 0 and func('homes_properties', 'has_access', 'parents_home'):
						act 'Forge a referral to give to your mother':
							*clr & cla
							Gspravka = 30
							GspravkaT = 1
							Gspassed = 1
							forge_referral = 1
							gs 'stat'
							'You see a pile of unused referral forms and think to yourself: "I may not be a virgin any more, but <<$npc_nickname[''A29'']>> doesn''t need to know that!"'
							'After you make sure no one is in the corridor, you quickly walk to the desk, take one of the empty referral forms and press his stamp onto it. You can do the rest later. You quickly hide it under your clothes and get back to cleaning after carefully putting everything back the way you found it.'
							'Later, when you''re cleaning the office of a doctor who you know isn''t in today, you lock the door and carefully fill out the form. You take your time, doing your best to mimic your gynaecologist''s handwriting. You nod happily and mutter to yourself: "This looks good. <<$npc_nickname[''A29'']>> will have no clue it''s forged! That''ll get me off the hook for at least another month..."'

							act 'Finish cleaning': gt 'pav_clinic'
						end
					end
				end
			end
		end

		if (pcs_teeth > -1 and (dentistday < daystart or dentistday = 0)) or (pcs_missing_teeth > 0  and pcs_brace = 0):
			act 'Go to the dentist':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/shared/clinic/dentist.jpg"></center>'
				menu_off = 1
				minut += 15
				gs 'stat'
			
				if pcs_brace = 1:
					pcs_brace = 0
					pcs_teeth -= 1
					'The dentist spends 15 minutes taking off your brace and cleaning up. You look in the mirror afterwards and your teeth are '+iif(pcs_teeth = 0, 'now straight', 'straighter, but can still use some more work.')
					gs 'AppearanceSystem', 'UpdateBaseAppearance'
					gs 'stat'
				else
					if pcs_missing_teeth = 1:
						zubpay = 30000
						'The dentist examines you and says it will cost you <<zubpay>> <b>₽</b> to replace your tooth'
					elseif pcs_missing_teeth > 1:
						zubpay = pcs_missing_teeth * 30000
						'The dentist examines you and says it will cost you <<zubpay>> <b>₽</b> to fill the gaps'
					elseif pcs_teeth = 0:
						zubpay = 3000
						'The dentist examines you and says it will cost you <<zubpay>> <b>₽</b> to brighten and polish your teeth.'
					elseif pcs_teeth > 0:
						zubpay = 4500
						'The dentist examinees you and says it will cost you <<zubpay>><b>₽</b> to straighten your teeth and you will have to wear a brace for three months. However, he states that he can''t promise they will be completely straight after one treatment.'
					end

					if money < zubpay and karta < zubpay:
						*nl
						'You don''t have enough money to fix your teeth.'
					else
						if money >= zubpay:
							act 'Sort out your teeth (cash)':
								*clr & cla
								money -= zubpay
								minut += 60
								if pcs_missing_teeth > 0:
									pcs_missing_teeth = 0
									'You pay the dentist to fix your teeth and he has restored your winning smile within an hour.'
								elseif pcs_teeth > 0:
									dentistday = daystart + 180
									pcs_brace = 1
									'You pay the dentist to straighten your teeth. After an hour of work, he has attached a brace to your teeth and tells you to come back in six months to have it taken off.'
								else
									dentistday = daystart + 90
									pcs_teeth = -1
									'You pay the dentist to brighten and polish your teeth and an hour later, your smile is much brighter and more attractive.'
								end
								gs 'AppearanceSystem', 'UpdateBaseAppearance'
								gs 'stat'

								act 'Leave the clinic': minut += 5 & gt 'pav_commercial'
							end
						end
						if karta + bankDebtLimit >= zubpay:
							act 'Sort out your teeth (card)':
								*clr & cla
								karta -= zubpay
								minut += 60
								if pcs_missing_teeth > 0:
									pcs_missing_teeth = 0
									'You pay the dentist to fix your teeth and he has restored your winning smile within an hour.'
								elseif pcs_teeth > 0:
									dentistday = daystart + 180
									pcs_brace = 1
									'You pay the dentist to straighten your teeth. After an hour of work, he has attached a brace to your teeth and tells you to come back in six months to have it taken off.'
								else
									dentistday = daystart + 90
									pcs_teeth = -1
									'You pay the dentist to brighten and polish your teeth and an hour later, your smile is much brighter and more attractive.'
								end
								gs 'AppearanceSystem', 'UpdateBaseAppearance'
								gs 'stat'

								act 'Leave the clinic': minut += 5 & gt 'pav_commercial'
							end
						end
					end
				end
				act 'Leave the clinic': minut += 5 & gt 'pav_commercial'
			end
		end

		if glassqw = 1:
			act 'Visit the optometrist (0:35)':
				*clr & cla
				menu_off = 1
				minut += 35
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/optometrist.jpg"></center>'
				'The optometrist takes you through a series of tests to measure the condition of your eyes.'
				'He looks at you as if he has bad news for you. "Well, you probably already expected this, but your vision has deteriorated significantly. You''re going to need glasses to be able to read. The prescription I''m writing for you is for a simple set of rimmed glasses which you can pick up at the front desk before you leave."' 
				'He hands you a piece of paper. "Of course you can get a different pair elsewhere if you want better looking ones, the details for which ones you need are on your prescription. You can also get laser vision correction if you really don''t want to use glasses, but I''m going to be honest with you: that''s a very expensive procedure."'
				pcs_nerd += 1
				glassqw = 2
				glass = 1
				blizoruk += 1
				act 'Leave': gt $curloc
			end
		end

		if glass > 0:
			act 'Go to the optometrist':
				*clr & cla
				menu_off = 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/optometrist.jpg"></center>'
				'The optometrist examines your eyes and says that he can perform laser eye surgery for 75,000 <b>₽</b>. Of course, reading books can cause your eyesight to deteriorate again.'

				if glass = 1: 'The optometrist also tells you about the option to buy glasses for 4,500 <b>₽</b>.'

				act 'Return to the entrance': gt 'pav_clinic'

				if glass = 1:
					if money < 4500 and karta < 4500:
						*nl
						'You can''t afford the more stylish glasses.'
					else
						if money >= 4500:
							act 'Buy glasses (4,500 <b>₽</b>) (cash)':
								cla
								money -= 4500
								minut += 60
								glass = 2
								gs 'stat'
								'You buy a new, more stylish pair of glasses.'

								act 'Return to the entrance': gt 'pav_clinic'
							end
						end
						if karta + bankDebtLimit >= 4500:
							act 'Buy glasses (4,500 <b>₽</b>) (card)':
								cla
								karta -= 4500
								minut += 60
								glass = 2
								gs 'stat'
								'You buy a new, more stylish pair of glasses.'

								act 'Return to the entrance': gt 'pav_clinic'
							end
						end
					end
				end

				if glass ! 0:
					if money < 75000 and karta < 75000:
						*nl
						'You can''t afford the laser eye correction surgery.'
					else
						if money >= 75000:
							act 'Pay for laser correction (75,000 <b>₽</b>) (cash)':
								cla
								money -= 75000
								minut += 60
								blizoruk = 0
								glass = 0
								gs 'stat'
								'You undergo laser eye surgery. Your eyesight is much better now.'
								act 'Return to the entrance': gt 'pav_clinic'
							end
						end
						if karta + bankDebtLimit >= 75000:
							act 'Pay for laser correction (75,000 <b>₽</b>) (card)':
								cla
								karta -= 75000
								minut += 60
								blizoruk = 0
								glass = 0
								gs 'stat'
								'You undergo laser eye surgery. Your eyesight is much better now.'
								act 'Return to the entrance': gt 'pav_clinic'
							end
						end
					end
				end
			end
		end

		if (pcs_health < (pcs_vital * 10 + pcs_stren * 5) or pain['total'] > 10) and clinic['docheal'] ! daystart:
			act 'See a doctor about your health (1:00)':
				cla
				menu_off = 1
				minut += 60
				clinic['docheal'] = daystart
				gs 'medical_din','healthTreatment'
				gs 'stat'
				'After a quick discussion about your health, the doctor gives you an injection of a combined painkiller, steroid and vitamin shot which not only helps the pain, but speeds your recovery too, permanently reducing your current pain and increasing your health. You immediately feel much better, and should recover health faster over the coming days.'

				act 'Leave': gt 'pav_clinic'
			end
		end

		if therapistday ! daystart: act 'Visit the therapist (1:00)': gt 'therapist'

		if pcs_know_mward > 0: act 'Visit the maternity ward (0:05)': gt 'pav_clinic', 'maternity_ward'

		gs 'medical_din', 'birth_control'

		act 'Go to the sexual health clinic': gt 'pav_clinic', 'sexual_health'

		if sick >= 1:
			act 'Visit the doctor for your sickness':
				cla
				menu_off = 1
				minut += 15
				sick = 0
				gs 'stat'
				'The doctor quickly examines you, and establishes that you''ve caught a cold. He prescribes you some pills and suggests you dress warmer when going outdoors so it doesn''t come back.'

				act 'Leave': gt $curloc
			end
		end

		if (fame['pav_slut'] >= 250 or fame['pav_prostitute'] >= 125 or guy > 10 or unprotfilm or whoreQW > 1 or bordelslutty > 0 or cumcondslip_aware > 0 or (daystart - daylastperiod > 42) or Triper > 2 or Gerpes >= 3 or Sifilis >= 21 or Kandidoz > 30) and gynodaystart ! daystart:
			act 'Visit your gynaecologist (1,000 <b>₽</b>)':
				*clr & cla
				menu_off = 1
				gynodaystart = daystart
				minut += 5
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
				'You decide to have a check-up with your gynaecologist. Given your sexual history, you can''t be too careful.'
				if docKnow = 0:
					if fame['pav_slut'] >= 250 and fame['pav_prostitute'] < 125:
						$gyn1 = 'He looks at you with some concern, but still has to ask. "Rumor in town says that you''re a prostitute?"'
						$gyn2 = '"Doctor, the whole town knows! And knows my body, if you know what I mean..." you laugh despite yourself.'
					elseif unprotfilm:
						$gyn1 = 'He looks at you with some concern, but still has to ask. "Are you by any chance <<$pfname>>?" He doesn''t say how he''s familiar with the name, but you can probably guess.'
						$gyn2 = '"I hope not, but who knows?"'
					elseif whoreQW > 1 or bordelslutty > 0 or fame['pav_prostitute'] >= 125:
						$gyn1 = 'He looks at you with some concern, but still has to ask. "Rumor in town says that you''re a prostitute?"'
						$gyn2 = '"I don''t think so. I only do business in St. Petersburg, but who knows?"'
					else
						$gyn1 = 'He looks at you with some concern, but still has to ask. "Why are you visiting me? Are you worried by something about your sexual history?"'
						$gyn2 = '"I hope not, but who knows?"'
					end

					'He looks up from his desk when you enter his office and recognizes you immediately. "Ah, hello <<$pcs_nickname>>. Did you come for a check-up?"'
					'You nod and take a seat. "Hello, Dr. Petrovich. Yes, I''m here for a check-up."'
					$gyn1
					'You smile at him. "It''s true, Dr. Petrovich. I am."'
					'He rubs his hand over his chin and continues. "Does your mother know?"'
					$gyn2
					'The gynaecologist nods, and motions for you to stand up. "Very well, let''s see how you''re doing then. Undress for me, please."'
				elseif docKnow = 1:
					if fame['pav_slut'] >= 25 or unprotfilm or whoreQW > 1 or bordelslutty > 0 or fame['pav_prostitute'] >= 125:
						$gyn1 = 'He looks at you with some concern. "Are you still in the business?"'
						$gyn2 = 'In a way, you feel touched that he''s so concerned for his patients. You don''t mind answering his question. "Doctor, you know how it is... I do it because studies are expensive, because clothing is expensive. Because my family could also use the help financially. And most of all: because I love having sex. I might as well get paid to do it, right?"'
					else
						$gyn1 = 'He looks at you with some concern. "Are you still seeing a lot of men?"'
						$gyn2 = 'In a way, you feel touched that he''s so concerned for his patients. You don''t mind answering him, and you might as well be frank. "Doctor, I really just love having sex. I don''t even care about getting paid, it just seems like I can''t ever get enough dick. You understand, right?"'
					end
					'He looks up from his desk when you enter his office and recognizes you immediately. "Ah, hello <<$pcs_nickname>>. Back for another check-up?"'
					'You nod and take a seat. "Hello, Dr. Petrovich. Yes, I''m here for a check-up."'
					$gyn1
					'"Yes, doctor. I am," you tell him.'
					'He rubs his hand over his chin and continues. "If I may be so bold... Why?"'
					$gyn2
					'He smirks, but nods. "I understand. It''s not my place to judge anyway. Let''s see how you''re doing. Undress for me, please."'
				end

				act 'Take off your clothes':
					*clr & cla
					minut += 5
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
					'You quickly take off your clothes and neatly fold them before putting them aside.'
					act 'Sit in the chair':
						*clr & cla
						minut += 5
						docKnow = 1
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_4.jpg"></center>'
						'Once you''re naked, you take 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.'
						$gpoli_sick = ''

						if cumcondslip > 0:
							$gpoli_sick = 'are suffering from toxic shock from a spent condom in your body. I removed it as soon as I found it. If you were feeling sick, it should slowly subside.'
							cumcondslip = 0
							gs 'cum_cleanup', 'cleanloc', 17
						end

						if preg > 0:
							thinkpreg = 1
							knowpreg = 1
							$gpoli_sick = 'are pregnant'
						end

						if venera > 0 or Kandidoz > 10:
							if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
							if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
						end

						if $gpoli_sick = '':
							'The doctor smiles when he gives you the good news. "You''re perfectly healthy."'
							'You feel very relieved, and thank him profusely. "Thank you doctor, that''s great news. Thanks again for the check-up."'
							'He nods and waves his hand. "It''s all good. Just don''t forget to use protection. It''s still dangerous out there."'
						else
							'The doctor frowns when he gives you the bad news. "I''m afraid I found something irregular. You <<$gpoli_sick>>."'
							if venera > 0 or Kandidoz > 10: gs 'pav_clinic', 'std_check'
						end
						'The doctor stands beside you while he helps you move your legs from the stirrups. "So... How are you going to repay me for the examination?" he asks with a confident smile.'

						if money >= 1000:
							act 'Offer him money':
								*clr & cla
								minut += 5
								gs 'stat'
								'You smile, knowing this question would come. "I can pay. How much do I owe you?"'
								'He returns your smile. "For you? 1,000 <b>₽</b>."'

								act 'Pay him (1,000 <b>₽</b>)':
									*clr & cla
									minut += 5
									money -= 1000
									'You gladly pay him the 1,000 <b>₽</b> and thank him again.'
									'He counts out the money and puts it away. "Anytime, <<$pcs_nickname>>. Make sure you tell your friends about me if they need a check-up!"'
									act 'Leave':gt $curloc
								end
							end
						end

						act 'Offer him your body':
							*clr & cla
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_6.jpg"></center>'
							'You slowly put your hands on his groin with a cheeky grin, and to your surprise feel that his cock is already fully erect. You massage it through his pants and when you notice no objections from him, you drop to your knees. He pulls his erection free from his pants, and you guide his stiff cock to your mouth with your hand. The look in his eyes is one you recognize from some of your customers - it''s the look of a man who''s going to demand a lot from you to get his money''s worth.'
							'You lick the tip of his cock teasingly. It''s a nice cock for sure, and the thought of servicing it even turns you on a little. Just because you''re repaying him for something he did for you doesn''t mean you can''t enjoy yourself too...'
							'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 him 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.'
							gs 'arousal', 'bj', 5, 'sub'
							gs 'stat'

							act 'Give him a blowjob':
								if venera > 0:gt 'pav_clinic', 'gynoblow'
								*clr & cla
								if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
								'When you try to move your head, it has nowhere to go. The doctor''s erection is about halfway in your mouth now and his powerful arm is keeping you in place. You decide to give him what he wants and stop resisting, slowly feeling him thrust his cock further and further into your mouth. At first it''s easy, but his thick cock makes breathing more difficult the further it goes down.'
								'At one point, it feels like he''s just fucking your throat carelessly and you nearly gag when he pushes his dick all the way down your throat and holds it there for a few seconds. When he pulls back, it''s fully coated with your saliva.'
								'You gasp for breath while he pulls you up. "Should be slick enough. It''s time to go deeper," he says with a grin.'
								'You wonder what he means by that as he turns you around and has you lean over against his chair. Once he''s certain you''re stable, he lets go of you and rubs the tip of his cock against your clitoris. It feels... quite nice, actually.'
								gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
								gs 'stat'

								act 'Continue':
									*clr & cla
									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_8.jpg"></center>'
									'You moan, feeling some of your wetness running down your leg as Dr. Petrovich keeps rubbing his cock against your clit. He sure knows his way around a woman''s body!'
									'You close your eyes and just give in to the pleasure as you feel something push against your labia and your vaginal walls are stretched by his thick dick entering you. It''s still very slick from the blowjob you gave him earlier, and you can''t help but groan loudly when it slides in.'
									gs 'arousal', 'vaginal', 5, 'sub'
									gs 'stat'

									act 'Have sex with him':
										*clr & cla
										pcs_vag += 1
										gs 'boyStat', 'A68'
										cumprecheck = 1
										gs 'cum_manage'
										gs 'stat'
										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_9.jpg"></center>'
										'You feel like you''re in heat when he slowly starts thrusting his cock in and out of you. When he realizes you can take him easily, he steadily increases the pace and fucks you harder. You involuntarily moan with his thrusts, fully giving yourself to him.'
										'Dr. Petrovich lightly slaps your ass a few times and you moan louder. He''s making you feel so good! After a few minutes, you can''t take it any more and try to stifle your moans so you don''t scream the whole clinic down while you have a thunderous orgasm. Your legs buckle under your weight and give way, but fortunately he pulled his dick out of you on time and catches you in his powerful arms. He carries you to a table and puts you down on top of it with your legs spread towards him.'
										'He immediately guides his cock back into you while your body quivers, still not fully recovered from the orgasm you just had.'

										$orgasm_or = 'yes'
										gs 'arousal', 'vaginal', 5, 'sub'
										gs 'stat'

										act 'Sex on the table':
											*clr & cla
											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_10.jpg"></center>'
											'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."'
											'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?'
											'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.'
											'"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.'
											gs 'arousal', 'vaginal', 5, 'sub'
											gs 'arousal', 'foreplay', 5, 'sub'
											gs 'arousal', 'anal_finger', 5, 'sub'
											minut -= 5
											gs 'stat'

											act 'Anal sex':
												*clr & cla
												pcs_ass += 1
												gs 'stat'
												'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_11.jpg"></center>'
												'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.'
												'"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.'
												'"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.'
												gs 'arousal', 'anal', 5, 'sub'
												gs 'stat'

												act 'Sex on the floor':
													*clr & cla
													gs 'stat'
													'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_12.jpg"></center>'
													'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.'
													'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.'
													gs 'arousal', 'vaginal', 5, 'sub', 'rough'
													gs 'stat'

													act 'Anal':
														*clr & cla
														'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_13.jpg"></center>'
														'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.'

														$orgasm_or = 'yes'
														gs 'arousal', 'anal', 5, 'sub', 'rough'
														gs 'stat'

														act 'Let him cum in your mouth':
															*clr & cla
															minut += 5
															pcs_horny += 5
															gs 'boyStat', 'A68'
															gs 'cum_call', 'mouth_swallow', $boy, 1
															gs 'stat'
															'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
															'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.'

															act 'Get dressed':
																*clr & cla
																minut += 5
																pcs_horny += 5
																gs 'stat'
																'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
																'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. Considering your line of work, I suggest you come visit me at least once a week."'
																'You happily agree with him. "That''s true. Thank you doctor, I''ll make sure to refer my friends to you if they ever need a check-up too."'
																gs 'arousal', 'end'
																gs 'stat'

																act 'Leave': gt $curloc
															end
														end
													end
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end

		if drugVars['cocaine_addict'] = 1 and mid($start_type,1,2) = 'sg':
			act 'Seek help for your weakness and pain':
				*clr & cla
				menu_off = 1
				minut += 5
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
				if gpoli_doctorhavesex = 1:
					'You go to the doctor for help with your addiction since you trust him enough to know he won''t tell your mother.'
					'"Hi <<$pcs_nickname>>. What brings you in today?" Dr. Petrovich says with a smile.'
					'"Hello doctor. I''m feeling weak and I hurt all over," you reply.'
					'"Well, let''s take a look, shall we?" he replies as you get up to stand by the examination table.'
				else
					'You go to the doctor for help with your addiction.'
					'"Hello, young lady. I''m Dr. Petrovich. Do you have specific complaints, or are you simply here for a check-up?" he asks asks as he walks into the examination room.'
					'"Hello sir. I''m feeling really weak and shaky and I hurt all over," you explain.'
					'"Let''s take a look, shall we?" he replies and gestures for you to stand next to the examination table.'
				end

				act 'Continue':
					*clr & cla
					minut += 5
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_2.jpg"></center>'
					'You tell the doctor about the white powder you''ve been sniffing while he checks your temperature, blood pressure and pulse.'
					'"Lift your shirt so we can have a listen," he tells you as he warms his stethoscope by breathing on it.'
					'You lift your shirt and bra above your breasts as instructed and the doctor presses the stethoscope to various places on your chest. He places his left hand on your stomach to steady you as he listens to your heart and breathing, occasionally bringing the stethescope to his mouth to rewarm it. The hand on your stomach moves in small circles that slip steadily lower until his finger tips slip just below the waistband of your clothes. Unlike any other doctor you''ve seen before, Dr. Petrovich listens by pressing the stethescope against your breasts. Does that even work?'
					'He also warms it more often now, and it feels moist and warm on your nipples. To your embarrassment, you can feel your nipples starting to get hard. You''re not quite sure, but you''re fairly sure Dr. Petrovich was just having fun for the last few minutes of the examination.'
					*nl
					'He nods. "Well, so far everything is okay."'
					'You notice that there''s a certain sparkle in his eyes when he looks at your <<$titsize>> breasts with interest. You feel embarrassed at your nipples hardening even further, and try to think of bad things.'
					'To your relief, the tingle you started to feel in your pussy goes away.'
					'"Please undress and sit in that chair. I will be back momentarily," he tells you as he steps towards the door and leaves.'

					act 'Reluctantly take your clothes off':
						*clr & cla
						minut += 10
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
						'You sigh. Is this guy even a doctor? He was way too eager with your breasts and you suspect he has other reasons to want you naked.'
						'Nevertheless, you feel terrible and really need this check-up, so you reluctantly start taking your clothes off.'
						act 'Sit in the chair':
							*clr & cla
							minut += 5
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_4.jpg"></center>'
							'You quickly undress and climb into the chair. The leather-like surface feels strangely warm on your bottom, and it takes you a second to realize that it''s heated. You fidget nervously as you wait for the doctor to return.'
							'After what seems like hours, the doctor comes back into the room. You notice his face seems redder than it was and his hair seems to be a little damp. He''s also taken off the apron-like smock he had on before. He continues with his examination, taking your hands and arms and massaging the joints and flexing them. He does the same with your feet and legs. To your surprise, he also examines your ass and pussy, easing his gloved fingers into your pussy and then your asshole. He even speads your lips apart and pushes the hood back to expose your clitoris, which he gently massages for a second before suddenly getting to his feet with a deep sigh, his eyes lingering on your exposed pussy for a moment too long before he seems to give himself a little shake.'
							$gpoli_sick = ''

							if cumcondslip > 0:
								$gpoli_sick = 'are suffering from toxic shock from a spent condom in your body. I removed it as soon as I found it. If you were feeling sick, it should slowly subside.'
								cumspclnt = 8
								gs 'cum_cleanup'
							end

							if preg > 0:
								thinkpreg = 1
								knowpreg = 1
								$gpoli_sick = 'are pregnant'
							end

							if venera > 0 or Kandidoz > 10:
								if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
								if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
							end

							if $gpoli_sick = '':
								'"Other than the fact that you''re addicted to cocaine, you''re otherwise completely healthy. Truth be told, you have a very mature body for a girl your age." You see the corners of his mouth twitch and think his pants look a little tighter in his crotch area than before. "But that''s not what you''re here for. Now please get dressed while I write a note for your mother. I''m not allowed to give you the cure to your addiction without her permission."'
								'Your heart begins to race when you hear that. Your mother can''t find out! She would kill you!'
								'"Wait!" you quickly blurt out. "Could you please just give me the shot without telling her? Please?"'
								'He looks at you sternly and shakes his head. "I''m sorry <<$pcs_nickname>>, but you''re not an adult. I need her permission to treat you, those are the rules."'
							else
								'"Well <<$pcs_nickname>>, you have a problem. You <<$gpoli_sick>> as well as being addicted to cocaine. I''ll have to write a note for your mother. I can''t treat you without her permission."'
								if venera > 0 or Kandidoz > 10: gs 'pav_clinic', 'std_check'
								'Your heart begins to race when you hear that. Your mother can''t find out! She would kill you!'
								'"Wait!" you quickly blurt out. "Could you please just give me the cure without telling her? Please?"'
								'He looks at you sternly and shakes his head. "I''m sorry <<$pcs_nickname>>, but you''re not an adult. I need her permission to treat you. You''ve been a very bad girl, you know..."'
							end

							act 'Offer him money': gt 'pav_clinic', 'spravka_money_pale'
							act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange_pale'
						end
					end
				end
			end
		end
		if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and Gspravka < 3 and motherKnowSpravka = 0 and func('homes_properties', 'has_access', 'parents_home'): act 'Go to the gynaecologist for a referral': gt 'pav_clinic', 'referral'
	else
		'The clinic is closed. It''s open every day between 06:00 and 21:00.'
	end
end

if $ARGS[0] = 'sexual_health':
	*clr & cla
	menu_off = 1
	minut += 1
	gs 'stat'
	'<center><b>Sexual Health Clinic</b></center>'
	*nl
	'<center>STD Test - 1,000 <b>₽</b></center>'
	'<center>For treatments, see the nurse</center>'

	act 'Leave': gt 'pav_clinic'

	if money >= 1000:
		act 'Get tested for STDs (1,000 <b>₽</b>) (cash)':
			money -= 1000
			gs 'pav_clinic', 'std_test'
		end
	end

	if karta + bankDebtLimit >= 1000:
		act 'Get tested for STDs (1,000 <b>₽</b>) (card)':
			karta -= 1000
			gs 'pav_clinic', 'std_test'
		end
	end

	if GerpesNapr > 0 and GerpesUkolDay ! daystart:
		if money < 450 and karta < 450: *nl & 'You can''t afford your herpes shot.'

		if money >= 450:
			act 'Get herpes shot (450 <b>₽</b>) (cash) You need <<GerpesNapr>> more injections to complete the treatment':
				money -= 450
				gs 'pav_clinic', 'herpes_shot'
			end
		end

		if karta + bankDebtLimit >= 450:
			act 'Get herpes shot (450 <b>₽</b>) (card) You need <<GerpesNapr>> more injections to complete the treatment':
				karta -= 450
				gs 'pav_clinic', 'herpes_shot'
			end
		end
	end

	if TriperNapr > 0 and TriperUkolDay ! daystart:
		if money < 750 and karta + bankDebtLimit < 750: *nl & 'You can''t afford your gonorrhea shot.'

		if money >= 750:
			act 'Get gonorrhea shot (750 <b>₽</b>) (cash) You need <<TriperNapr>> more injections to complete the treatment':
				money -= 750
				gs 'pav_clinic', 'gonorrhea_shot'
			end
		end

		if karta + bankDebtLimit >= 750:
			act 'Get gonorrhea shot (750 <b>₽</b>) (card) You need <<TriperNapr>> more injections to complete the treatment':
				karta -= 750
				gs 'pav_clinic', 'gonorrhea_shot'
			end
		end
	end

	if SifNapr = 1:
		if money < 1000 and karta + bankDebtLimit < 1000: *nl & 'You can''t afford your syphilis shot.'

		if money >= 1000:
			act 'Get syphilis shot (1,000 <b>₽</b>) (cash)':
				money -= 1000
				gs 'pav_clinic', 'syphilis_shot'
			end
		end

		if karta + bankDebtLimit >= 1000:
			act 'Get syphilis shot (1,000 <b>₽</b>) (card)':
				karta -= 1000
				gs 'pav_clinic', 'syphilis_shot'
			end
		end
	end
end

if $ARGS[0] = 'std_test':
	minut += 60
	gs 'stat'
	'The doctor has you provide some blood and urine samples before examining you. He then sends you out to the waiting room while you wait for the test results to come back.'

	if venera > 0 or Kandidoz > 10:
		'The doctor calls you back to his office after a while. "I''m afraid I have some bad news," he says with a frown.'
		gs 'pav_clinic', 'std_check'
	else
		'The doctor is pleased to announce that you don''t have a sexually transmitted disease.'
	end

	act 'Leave': gt 'pav_clinic'
end

if $ARGS[0] = 'herpes_shot':
	*clr & cla
	minut += 15
	GerpesUkolDay = daystart
	GerpesNapr -= 1
	gs 'stat'
	'You see the nurse and she gives you a painful injection in your ass.'

	if GerpesNapr = 0:Gerpes = -10 & 'You have completed the treatment.'
	act 'Leave': gt 'pav_clinic'
end

if $ARGS[0] = 'gonorrhea_shot':
	*clr & cla
	minut += 15
	TriperUkolDay = daystart
	TriperNapr -= 1
	gs 'stat'
	'You see the nurse and she gives you a painful injection in your ass.'

	if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the treatment.'

	act 'Leave': gt 'pav_clinic'
end

if $ARGS[0] = 'syphilis_shot':
	*clr & cla
	minut += 60
	SifNapr = 0
	SifacOnce = 0
	Sifilis = 0
	Venera -= 1
	gs 'stat'
	'You see the nurse and she gives you a painful injection in your ass.'
	'"That''s it. You might still feel a little off, but the infection is now cured."'

	act 'Leave': gt 'pav_clinic'
end

if $ARGS[0] = 'referral':
	menu_off = 1
	if pcs_vag = 0:
		*clr & cla
		minut = minut + 15
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gin.jpg"></center>'
		'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.'
		Gspravka = 30
		GspravkaT = 1
		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...'
		act 'Leave':gt $curloc
	else
		*clr & cla
		minut += 5
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
		if stat['think_virgin'] = 1 and pcs_vag > 0:
			'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.'
			act 'Have the check-up': gt 'pav_clinic', 'referral2'
		else
			'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?'
			if gpoliuborka = 2:
				'"Hello <<$pcs_nickname>>. What brings you in today?" Dr. Petrovich asks with a smile.'
				'"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.'
				'"Ah, yes. For... school, right? Let''s take a look," he replies with a chuckle.'
			else
				'"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.'
				'"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.'
				'"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.'
			end

			act 'Have the check-up':
				*clr & cla
				minut += 5
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_2.jpg"></center>'
				'The doctor breathes on his stethoscope to warm it up. "Lift your shirt, please."'
				'He sees your hesitation, and reassures you. "I''m just doing some basic check-ups while you''re here. Now... your shirt, please?"'
				'You expose your <<$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!'
				'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."'
				act 'Undress':
					*clr & cla
					minut += 5
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
					'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'
				end
			end

			act 'Admit that you''re no longer a virgin':
				*clr & cla
				minut += 5
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
				if 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.'
					'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?"'
					'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?"'
				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.'
					'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?"'
					'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?"'
				end

				act 'Offer him money': gt 'pav_clinic', 'spravka_money'
				act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange'
				act 'Just accept the referral as is': gt 'pav_clinic', 'badend'
			end
		end
	end
end

if $ARGS[0] = 'referral2':
	*clr & cla
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_4.jpg"></center>'
	'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.'
	$gpoli_sick = ''
	if preg > 0:
		thinkpreg = 1
		knowpreg = 1
		$gpoli_sick = 'are pregnant'
	end

	if venera > 0 or Kandidoz > 10:
		if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
		if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
	end

	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 stat['think_virgin'] = 1:
			'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!'
		else
			'Your heart begins to race when you hear that. Your mother can''t find out! She would kill you if she finds out!'
		end
		'"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?"'
		'He looks at you sternly and shakes his head. "I''m sorry <<$pcs_nickname>>, I can''t do that, that''s fraud! Do you have any idea how much trouble I could get into?"'
	else
		'The doctor frowns when he gives you the results. "I''m afraid I have some bad news, <<$pcs_nickname>>. You <<$gpoli_sick>>.'
		if venera > 0 or Kandidoz > 10: gs 'pav_clinic', 'std_check'
		'You''re also not a virgin any more, obviously."'
		if stat['think_virgin'] = 1:
			'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!'
		else
			'Your heart begins to race when you hear that. Your mother can''t find out! She would kill you!'
		end
		'"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?"'
		'He looks at you sternly and shakes his head. "I''m sorry <<$pcs_nickname>>, 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?"'
	end

	act 'Offer him money': gt 'pav_clinic', 'spravka_money'
	act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange'
	act 'Just accept the referral as is': gt 'pav_clinic', 'badend'
end

if $ARGS[0] = 'gynoblow':
	*clr & cla
	if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
	if $ARGS[1] = 'referral_blow':
		Gspravka = 30
		GspravkaT = 1
		Gspassed = 1
		forge_referral = 1
	end
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
	'When you try to move your head, it has nowhere to go. The doctor''s erection is in front of you, about half-way in your mouth now. Behind you, his powerful arm is keeping you in place. You decide to give him what he wants and stop resisting, slowly feeling him thrust his cock further and further into your mouth. At first it''s easy, but his thick cock makes breathing more difficult the further it goes down.'
	'At one point it feels like he''s just fucking your throat carelessly, and you nearly gag when he pushes his dick all the way down your throat and holds it there for a few seconds. When he pulls back, it''s fully coated with your saliva.'
	'You gasp for breath while he pulls you up. "That''s it, take it all!"'
	'He carries on roughly pleasuring himself with your mouth until you realize he''s about to cum.'
	gs 'arousal', 'bj', 10, 'sub', 'rough', 'deepthroat'
	gs 'stat'

	act 'Let him cum in your mouth':
		*clr & cla
		minut += 5
		pcs_horny += 5
		gs 'boyStat', 'A68'
		gs 'cum_call', 'mouth_swallow', $boy, 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
		'You feel too tired to object 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.'

		act 'Get dressed':
			*clr & cla
			minut += 5
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
			'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. Considering your line of work, I suggest you come visit me at least once a week, but first go and see my colleague to get yourself cured."'
			'You happily agree with him. "Thank you doctor!	I''ll make sure to refer my friends to you if they ever need a check-up too."'
			gs 'arousal', 'end'
			gs 'stat'

			act 'Leave':gt 'pav_clinic'
		end
	end
end

if $ARGS[0] = 'badend':
	*clr & cla
	minut += 5
	gs 'stat'
	Gspravka = 30
	GspravkaT = 2
	if dildo_gyno_check = 1:dildo_gyno_fail = 1
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gin.jpg"></center>'
	'You sigh, understanding that there''s nothing you can do to change his mind. Your gynaecologist takes an empty form from the pile and fills it out, stating that you''re not a virgin. He presses his stamp onto it and offers it to you with a disappointed look in his eyes.'
	'Dejectedly, you take it from him and get ready to leave. How are you going to tell your mother?'
	if $loc = 'kuhrPar':
		act 'Leave': gt 'mother', 'referral'
	else
		act 'Leave': gt 'pav_clinic'
	end
end

if $ARGS[0] = 'spravka_arrange':
	*clr & cla
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
	if gpoliuborka = 2:
		'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?"'
		'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.'
		'You become hopeful, even though you feel a bit uncomfortable. "Erm... Okay, that''s great! What kind of deal are you thinking of?"'
		'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?"'
		'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?'
	else
		'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?"'
		'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.'
		'He playfully looks at you. "What if what?"'
		'"What if I have no money?" you continue.'
		'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.'
		'He smirks at you. "I understand why you''re no longer a virgin, you little minx! So eager to please..."'
		'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.'
		gs 'willpower', 'bj', 'resist', 'hard'
		if will_cost <= pcs_willpwr:
			act 'Grab a referral form and run out of the room (<<will_cost>> Willpower)':
				*clr & cla
				Gspravka = 30
				GspravkaT = 1
				Gspassed = 1
				forge_referral = 1
				gs 'willpower', 'bj', 'resist', 'hard'
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				'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!'
				'A while later, you fill out the rest of the form and nod to yourself. <i>This should get <<$npc_nickname[''A29'']>> off my back for another month...</i>'
				act 'Leave': gt 'pav_clinic'
			end
		else
			act 'Grab a referral form and run out of the room (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end
	act 'You really don''t want your mother to find out...':
		*clr & cla
		minut += 5
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_6.jpg"></center>'
		'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.'
		
		act 'Give him a blowjob':
			if venera > 0: gt 'pav_clinic', 'gynoblow', 'referral_blow'
			*clr & cla
			if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
			'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!'
			'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."'
			'"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.'
			gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
			gs 'stat'

			act 'Continue':
				*clr & cla
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_8.jpg"></center>'
				'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.'
				gs 'arousal', 'vaginal', 5, 'sub'
				gs 'stat'

				act 'Let him fuck you':
					*clr & cla
					pcs_vag += 1
					gs 'boyStat', 'A68'
					cumprecheck = 1
					gs 'cum_manage'
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_9.jpg"></center>'
					'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.'

					$orgasm_or = 'yes'
					gs 'arousal', 'vaginal', 5, 'sub'
					gs 'stat'
					
					act 'Sex on the table':
						*clr & cla
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_10.jpg"></center>'
						'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."'
						'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?'
						'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.'
						'"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.'
						gs 'arousal', 'vaginal', 5, 'sub'
						gs 'arousal', 'foreplay', 5, 'sub'
						gs 'arousal', 'anal_finger', 5, 'sub'
						minut -= 5
						gs 'stat'

						act 'Anal sex':
							*clr & cla
							pcs_ass += 1
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_11.jpg"></center>'
							'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.'
							'"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.'
							'"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.'
							gs 'arousal', 'anal', 5, 'sub'
							gs 'stat'

							act 'Sex on the floor':
								*clr & cla
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_12.jpg"></center>'
								'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.'
								'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.'
								gs 'arousal', 'vaginal', 5, 'sub', 'rough'
								gs 'stat'

								act 'Anal':
									*clr & cla
									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_13.jpg"></center>'
									'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.'

									$orgasm_or = 'yes'
									gs 'arousal', 'anal', 5, 'sub', 'rough'
									gs 'stat'

									act 'Let him cum in your mouth':
										*clr & cla
										minut += 5
										pcs_horny += 5
										gs 'boyStat', 'A68'
										gs 'cum_call', 'mouth_swallow', $boy, 1
										gs 'stat'
										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
										'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.'

										act 'Get dressed':
											*clr & cla
											minut += 5
											gs 'stat'
											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
											'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."'
											'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?'
											Gspravka = 30
											GspravkaT = 1
											Gspassed = 1
											forge_referral = 1
											gs 'arousal', 'end'
											gs 'stat'
											if $loc = 'kuhrPar':
												act 'Leave': gt 'mother', 'referral'
											else
												act 'Leave': gt 'pav_clinic'
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
	gs 'willpower', 'bj', 'resist'
	if will_cost <= pcs_willpwr:
		act 'You can''t do that (<<will_cost>> Willpower)':
			cla
			gs 'willpower', 'bj', 'resist'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			'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_nickname[''A29'']>> about all this!"'
			'His gaze is stone cold, without any sign of compassion. "So be it. Sorry <<$pcs_nickname>>, 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."'
			act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange'
			act 'Just accept the referral as is': gt 'pav_clinic', 'badend'
		end
	else
		act 'You can''t do that (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
end

if $ARGS[0] = 'spravka_money':
	*clr & cla
	minut += 5
	gs 'stat'

	if gpoliuborka = 2:
		'You don''t want to have sex with him. Sex is what got you into this mess in the first place!'
		'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!"'
		'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>."'
		if money >= 2000:
			act 'Pay him the 2,000 <b>₽</b> (cash)':
				*clr & cla
				minut += 5
				money -= 2000
				gs 'stat'
				Gspravka = 30
				GspravkaT = 1
				Gspassed = 1
				forge_referral = 1
				'"Deal!" you reply without giving it much thought.'
				'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'
			end
		end
		if karta + bankDebtLimit >= 2000:
			act 'Pay him the 2,000 <b>₽</b> (card)':
				*clr & cla
				minut += 5
				karta -= 2000
				gs 'stat'
				Gspravka = 30
				GspravkaT = 1
				Gspassed = 1
				forge_referral = 1
				'"Deal!" you reply without giving it much thought.'
				'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'
			end
		end
		act 'Just accept the referral as is': gt 'pav_clinic', 'badend'
		act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange'
	else
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_5.jpg"></center>'
		'"Well, what if I give you money?" you suggest.'
		'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!"'
		'"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.'
		'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 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange'
	end
end

if $ARGS[0] = 'spravka_money_pale':
	*clr & cla
	minut += 5
	gs 'stat'

	if gpoli_doctorhavesex = 0:
		'"Could you overlook my age if I were to pay you for your time?" you suggest.'
		'He tries to reject you, but doesn''t sound very convincing. "I don''t know... I didn''t become a doctor for the money."'
		'A gleam of greed appears in his eyes - you definitely have his attention. "However, a private patient wouldn''t count as a minor, so I would have no obligation to tell anyone anything. It would be like you were never here! The normal consultancy fee is 2,000 <b>₽</b>."'
		if money >= 2000:
			act 'Pay him the 2,000 <b>₽</b> (cash)':
				*clr & cla
				minut += 5
				money -= 2000
				pcs_horny += 5
				gs 'stat'
				'The doctor carefully counts the money before preparing an injection from a bottle marked "0.45% Sodium Chloride Injection USP". You swallow nervously as he fills a rather large looking needle with the unfamiliar chemical.'
				gs 'pav_clinic', 'spravka_money_pale2'
			end
		end
		if karta + bankDebtLimit >= 2000:
			act 'Pay him the 2,000 <b>₽</b> (card)':
				*clr & cla
				minut += 5
				karta -= 2000
				pcs_horny += 5
				gs 'stat'
				'The doctor picks up his card reader and you make the payment before he prepares an injection from a bottle marked "0.45% Sodium Chloride Injection USP". You swallow nervously as he fills a rather large looking needle with the unfamiliar chemical.'
				gs 'pav_clinic', 'spravka_money_pale2'
			end
		end
		act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange_pale'
	else
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_5.jpg"></center>'
		'"Well, what if I give you money? I can pay you!" you suggest in desperation.'
		'Dr. Petrovich seems insulted by this suggestion. "Enough! I''m a medical professional who swore an oath! You can''t bribe me! That would go against everything I stand for!"'
		'"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.'
		'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.'
		act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange_pale'
	end
end

if $ARGS[0] = 'spravka_money_pale2':
	'He tells you to bend over, but seems to have some problems finding the correct spot for the shot as you feel his hand squeezing your ass cheeks in several spots.'
	'You''re afraid he might stick the needle in your asshole before he finally settles on a location and swabs it with some disinfectant.'
	'You feel a sharp pinch, then the feeling of a cold liquid being injected into your ass cheek. It isn''t as bad as you thought it was going to be, but you''re still relieved when it''s over.'
	'"There, all done," he says with a satisfied tone. "It could take up to 30 days for the symptoms to fully disappear. Just be sure not to snort any more or the cure won''t work."'
	act 'Leave': gt 'pav_clinic'
end

if $ARGS[0] = 'spravka_arrange_pale':
	*clr & cla
	minut += 5
	gs 'stat'
	if gpoli_doctorhavesex = 1:
		'"Can I, I mean... Can we, er... How... Is there something I can do for you? My mother really can''t find out!" you sob in desperation. You''re terrified at the thought of what your mother would do if she knew.'
		'The doctor knows he has you cornered, and drives his point home. "Well, you really need this treatment. I think I can offer you a different option. It would stay between us, of course," he says as he puts his hand on your shoulder.'
		'"What do I have to do?" you ask. Deep down inside, you feel like you already know the answer.'
		'He decides to be straight with you. "You see,my wife is away on a business trip as usual 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. So, I''m going to fuck you. I''m going to fuck you any way I want. If you do good, you''ll get your medicine and I won''t tell your mother. Deal?"'
		'You knew it was coming, but you''re baffled by his audacity. He stares you down while several thoughts race through your mind. You really need this treatment, but is it worth it?'
	else
		'"Can I, I mean... Can we, er... How... Is there something I can do for you? My mother really can''t find out!" you sob in desperation. You''re terrified at the thought of what your mother would do if she knew.'
		'The doctor knows he has you cornered. "We all need things, <<$pcs_nickname>>. If you help me with my needs, I can help you with yours."'
		'He continues: "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. What do you say?"'
		'"What do you..." you hesitate. You know exactly what he''s suggesting, but you can''t say it.'
		'The doctor puts his hands on your hips and smiles at you confidently. "A beautiful girl like you always has other options."'
		'He gropes your <<$titsize>> breasts for a while before he undoes his belt.'
		gs 'willpower', 'bj', 'resist'
		if will_cost <= pcs_willpwr:
			act 'Run out of the office (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'bj', 'resist'
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				'In a panic, you grab your clothes and run out of the office. You know you can''t talk about this with anyone. If you say anything, Dr. Petrovich would tell your mother about your addiction. You quickly get dressed in an empty examination room, wondering how you''re going to get out of this mess now.'
				if $loc = 'kuhrPar':
					act 'Leave': gt 'mother', 'referral'
				else
					act 'Leave':gt 'pav_clinic'
				end
			end
		else
			act 'Run out of the office (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end
	act 'Do what you have to do':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_6.jpg"></center>'
		'You sigh and slowly slide down from the chair, kneeling in front of the doctor as he pulls out his semi-hard cock. You grasp it in your hand and reluctantly start licking it while rubbing your hand up and down the shaft. As his cock begins to get harder, you become fascinated by the changes to his manhood. You find yourself starting to get involved in pleasuring him... maybe this won''t be so bad after all. To your surprise, you think you might even be starting to enjoy the feel and taste of his hot flesh. You move your hand faster, still licking his now fully erect cock and his breathing slightly accelerates. You think maybe that''s it, maybe he''s about to come...'
		'But, no. Instead the doctor lays his hand on the back of your head. You want to raise your head to see what he wants, but instead he pulls you towards his groin and your <<$pc_desc[''lips'']>> lips begin to stretch over his slippery cockhead.'
		gs 'arousal', 'hj', 5, 'sub'
		gs 'stat'

		act 'Give him a blowjob':
			if venera > 0: gt 'pav_clinic', 'gynoblow'
			*clr & cla
			if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
			'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!'
			'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."'
			'"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.'
			gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
			gs 'stat'

			act 'Continue':
				*clr & cla
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_8.jpg"></center>'
				'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.'
				gs 'arousal', 'vaginal', 5, 'sub'
				gs 'stat'

				act 'Let him fuck you':
					*clr & cla
					pcs_vag += 1
					gs 'boyStat', 'A68'
					cumprecheck = 1
					gs 'cum_manage'
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_9.jpg"></center>'
					'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.'

					$orgasm_or = 'yes'
					gs 'arousal', 'vaginal', 5, 'sub'
					gs 'stat'
					
					act 'Sex on the table':
						*clr & cla
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_10.jpg"></center>'
						'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."'
						'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?'
						'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.'
						'"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.'
						gs 'arousal', 'vaginal', 5, 'sub'
						gs 'arousal', 'foreplay', 5, 'sub'
						gs 'arousal', 'anal_finger', 5, 'sub'
						minut -= 5
						gs 'stat'

						act 'Anal sex':
							*clr & cla
							pcs_ass += 1
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_11.jpg"></center>'
							'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.'
							'"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.'
							'"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.'
							gs 'arousal', 'anal', 5, 'sub'
							gs 'stat'

							act 'Sex on the floor':
								*clr & cla
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_12.jpg"></center>'
								'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.'
								'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.'
								gs 'arousal', 'vaginal', 5, 'sub', 'rough'
								gs 'stat'

								act 'Anal':
									*clr & cla
									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_13.jpg"></center>'
									'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.'

									$orgasm_or = 'yes'
									gs 'arousal', 'anal', 5, 'sub', 'rough'
									gs 'stat'

									act 'Let him cum in your mouth':
										*clr & cla
										minut += 5
										pcs_horny += 5
										gs 'boyStat', 'A68'
										gs 'cum_call', 'mouth_swallow', $boy, 1
										gs 'stat'
										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
										'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.'

										act 'Get dressed':
											*clr & cla
											minut += 5
											gs 'stat'
											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
											'You follow his example, and also put your clothes back on.'
											'When you''re both fully dressed, he has a wide grin on his face. "Well now, one good turn deserves another. Wait here, I''ll go get your shot."'
											'He prepares an injection from a bottle marked "0.45% Sodium Chloride Injection USP" and you swallow nervously as he fills a rather large looking syringe with the unfamiliar chemical.'
											'He tells you to bend over, but seems to have some problems finding the correct spot for the shot as you feel his hand squeezing your ass cheeks in several spots.'
											'You''re afraid he''s going to stick the needle in your used asshole before he finally decides on a spot on your ass cheek and he swabs it with disinfectant before aiming the syringe at it.'
											'You feel a sharp pinch, then the feeling of a cold liquid being injected into your ass cheek. It isn''t as bad as you thought it was going to be, but you''re still relieved when it''s over.'
											'"There, all done," he says with a satisfied tone. "It could take up to 30 days for the symptoms to fully disappear. Just be sure not to snort any more or the cure won''t work."'
											'"Thank you doctor," you quietly mumble as you straighten your clothes.'
											gs 'arousal', 'end'
											gs 'stat'
											
											act 'Leave':gt 'pav_clinic'
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'maternity_ward':
	pcs_know_mward = 1
	$menu_arg = $ARGS[0]
	menu_off = 0
	*clr & cla
	minut += 5
	lact_ev['gpoli_temp_var'] = 0
	gs 'stat'
	if hour >= 6 and hour <= 20:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/mward.jpg"></center>'
		'You''re in the maternity ward, which contains a lot of babies and nurses taking care of them.'
		act 'Leave': gt 'pav_clinic'
		if lactation['active'] > 0 and pcs_gpolimilkdonation = 3:
			act 'Talk to the nurse (0:05)':
				gs 'stat'
				*clr & cla
				menu_off = 1
				minut += 5
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
				'"Hello <<$pcs_firstname>>, how can I help you?" the nurse asks with a smile.'
				act 'Leave': gt 'pav_clinic', 'maternity_ward'
				act 'Donate your breast milk (0:15)':
					*clr & cla
					lact_ev['gpoli_milkedvolume'] = 0
					pcs_gpoli_donationsessioncount = 0
					!!if rand(0,100) = 95 and orphanfeed = 0:
					!!	orphanfeed = 1
					!!end
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
					'You talk to the nurse and she leads you into the quiet room.'
					!!if orphanfeed = 1:
					!!	'It seems like there is a crib with a baby inside in this room, too.'
					!!end
					act 'Have your breasts pumped':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
						'You sit down and take off your top.'
						if lactation['breastmv'] > lactation['breastmm']*8/10:
							'The nurse looks surprised at your engorged breasts.'
							'"Oh dearie, those look painfully full! I hope the pumping will make you feel better."'
						end
						if pain['nipples'] >= 60:
							'<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipple.jpg"></center>'
							'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit more of the yellowish cream from it.'
							'She applies the cream to your nipples and they start hurting less as a soothing sensation tingles through your breasts.'
							pain['nipples'] -= 20
						else
							'The nurse grabs the nipple balm and applies it to your nipples. It feels nice as she rubs it in.'
						end
						lactation['nipple_cream_applied'] = 1
						act 'Continue':	gt 'pav_clinic', 'maternity_ward_donation'
					end
				end
				act 'Check your file (0:05)':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/formular.jpg"></center>'
					'The nurse hands you a file on how much you have donated so far.'
					'<br>----------------------------------------'
					'Analyzed milksample measurements'
					'Volume in ml: <<mward_donatesv/10>>ml'
					'Fat in %: <<mward_donatesf/10>>.<<mward_donatesf mod 10>>%'
					'Lactose in %: <<mward_donatess/10>>.<<mward_donatess mod 10>>%'
					'<br>----------------------------------------'
					if pcs_gpoli_totalmilkdonation_count > 0:
						'Total breast milk donation statistics'
						if pcs_gpoli_totalmilkdonation < 100:
							'Donated milk volume in liter: <<pcs_gpoli_totalmilkdonation/1000>>.0<<pcs_gpoli_totalmilkdonation mod 1000>>l'
						else
							'Donated milk volume in liter: <<pcs_gpoli_totalmilkdonation/1000>>.<<pcs_gpoli_totalmilkdonation mod 1000>>l'
						end
						'Donation count: <<pcs_gpoli_totalmilkdonation_count>>'
						'Average milk volume per donation in ml: <<pcs_gpoli_totalmilkdonation/pcs_gpoli_totalmilkdonation_count>>'
						'Paid money: <<((pcs_gpoli_totalmilkdonation/50)*100)>><b>₽</b>'
						'<br>----------------------------------------'
					end
					act 'Leave': gt 'pav_clinic', 'maternity_ward'
				end
				!!act 'Mammography (1:00)':
				!!
				!!end
			end
		end
		if lactation['active'] > 0 and lactation['breastmv'] > lactation['breastmm']/8 and pcs_gpolimilkdonation <= 2:
			'<br><br><center>One of the nurses looks at you suspiciously.<center>'
			act 'Talk to the nurse (0:05)':
				*clr & cla
				menu_off = 1
				minut += 5
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
				if preg >= 0 and pregtimes > 0 and pcs_gpolimilkdonation <= 0 and lactation['pc_aware'] > 0:
					'You walk up to the nurse. "Uhmmm... Hello?"'
					'"Which one is yours?" she asks.'
					'"Mine? I don''t understand..."'
					'The nurse looks at you, then down at your breasts and then back at you. "Well, you''re obviously lactating. Have you come to breastfeed your child?"'
				elseif preg = 0 and pregtimes = 0 and pcs_gpolimilkdonation <= 0 and lactation['pc_aware'] > 0:
					'You walk up to the nurse. "Uhmmm... Hello?"'
					'The nurse looks you up and down while raising an eyebrow. "You don''t look like you''ve ever had a child. How are you lactating?"'
					'You''re surprised by the sudden and precise analysis. "How... How do you know?"'
					'"I''ve been working here for years. Trust me, I can tell by the smell. Now why are you lactating?" she asks again.'
				elseif preg = 0 and pregtimes = 0 and pcs_gpolimilkdonation <= 0 and lactation['pc_aware'] <= 0:
					'You walk up to the nurse. "Uhmmm... Hello?"'
					'The nurse looks you up and down while raising an eyebrow. "You don''t look like you''ve ever had a child. How are you lactating?"'
					'You''re confused by her comment and tilt your head. "Huh? What are you talking about?"'
					'The nurse points at your breasts, circling around the pen in her hand. "Your breasts... You obviously have milk in them. Trust me, I''ve been working here for years and know what lactating breasts look like."'
					'You look at her in shock, then down at your cleavage. "This can''t be! I''ve never been pregnant... I mean... Why should I be lactating?"'
					'The nurse eyes you up and down again while frowning before standing up. "Come with me and we''ll have this checked out."'
				elseif preg >= 0 and pregtimes > 0 and pcs_gpolimilkdonation <= 0 and lactation['pc_aware'] <= 0:
					'You walk up to the nurse. "Uhmmm.. Hello?"'
					'"Which one is yours?" she asks.'
					'"Mine? I don''t understand..."'
					'The nurse looks at you, then down at your breasts and then back at you. "Well, you''re obviously lactating. Have you come to breastfeed your child?"'
					*nl
					'You look at her, then down at your cleavage. "This can''t be! I mean... Why should I be lactating?"'
					'The nurse eyes you up and down again while frowning before standing up. "Come with me and we''ll have this checked out."'
				elseif pcs_gpolimilkdonation <= 0:
					'You walk up to the nurse. "Uhmmm... Hello?"'
					'"Which one is yours?" she asks.'
					'"Mine? I don''t understand..."'
					'The nurse looks at you, then down at your breasts and then back at you. "Well, you''re obviously lactating. Have you come to breastfeed your child?"'
				else
					'You walk up to the nurse. "Hello..."'
					'"Ah, it''s you again," she says as she looks you up and down.'
					if pcs_gpolimilkdonation = 1 and preg = 0 and pregtimes = 0 and lactation['pc_aware'] <= 0:
						'"Changed your mind and want me to have you checked out?"'
					elseif pcs_gpolimilkdonation = 1 and preg = 0 and pregtimes = 0 and lactation['pc_aware'] > 0:
						'"Are you going to tell me how you''re lactating?"'
					elseif pcs_gpolimilkdonation = 2:
						'"Did you clear your mind up and want donate your breast milk?"'
					else
						'"What do you want?"'
					end
				end
				if pcs_gpolimilkdonation < 1: pcs_gpolimilkdonation = 1
				if pcs_gpolimilkdonation < 2:
					if lactation['pc_aware'] <= 0:
						act 'Accept her offer':
							*clr & cla
							minut += 10
							pcs_gpolimilkdonation = 2
							lact_ev['gpoli_milkedvolume'] = (func('lact_lib','$get_breastmilk', 5, 1))/100
							lact_ev['gpoli_milkedvolume'] = 0
							lactation['pc_aware'] = 1
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
							'The nurse leads you into a quiet room containing a chair, a table and a breast pump.'
							'The nurse invites you to sit down and you reluctantly pull up your shirt and present your breasts to her.'
							'She presses down on your areola and to your surprise, white drops start to develop on your nipples. The nurse gives them another squeeze and streams of white liquid suddenly squirt out of you.'
							'"Oh my god!" you exclaim in shock.'
							*nl
							'The nurse looks up at you with a caring expression. "No worries, this can happen from time to time."'
							'You''re still surprised and perplexed by what you''re seeing. "I''m lactating!"'
							'The nurse takes a small wet wipe and cleans your breasts, then signals that you can cover yourself up.'
							'"We always need breast milk here. You should think about donating your milk. We will even compensate you for your efforts."'
							'She cleans her hands. "But I think you should leave for now, so you can get used to your new ability."'
							'She opens the door to let you out of the room.'
							act 'Leave': gt 'pav_clinic'
						end
					else
						act 'Explain yourself':
							*clr & cla
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
							if knowpreg = 0:
								pcs_gpolimilkdonation = 2
								if lactation['induced'] = 1:
									'"Erm... I used a breast pump on myself..." you blush in embarresment.'
								else
									'"I don''t really know... It just started one day..." you explain, blushing from embarresment.'
								end
								'The nurse nods at you professionally and pulls some papers together.'
								'"Have you ever thought of donating your breast milk?" she asks.'
								'"Donating?" you ask in response.'
								'"Yes, donating. We pump your breasts and collect the milk to give to the mothers that aren''t able to breastfeed yet. We also offer a bit of money for your donation. Interested?"'
								pcs_gpolimilkdonation = 2
								act 'Give it a try (0:15)':
									*clr & cla
									minut += 15
									pcs_gpolimilkdonation = 3
									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
									'The nurse leads you into a room. It is quiet in here. There is a chair a table and a breast pump.'
									'You sit down and the nurse invites you to take off your top.'
									if pain['nipples'] >= 60 and pcs_knows_nipplecream <= 0:
										'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
										'"What''s that?" you ask.'
										'The nurse looks up at you. "This is nipple balm. It helps with sore nipples during pumping. Don''t you know this?"'
										'You shake your head and watch as the nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
										pain['nipples'] -= 20
										'"Where do I get this stuff?" you ask.'
										'"You can buy it in the pharmacy," she replies.'
										pcs_knows_nipplecream = 1
										'The nurse finishes rubbing you nipples with the nipple balm.'
									elseif pain['nipples'] >= 60 and pcs_knows_nipplecream > 0:
										'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
										'The nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
										pain['nipples'] -= 20
									else
										'The nurse grabs the nipple balm and applies it to your nipples. It feels nice on your nipples as she rubs it in.'
									end
									lactation['nipple_cream_applied'] = 1
									'"Okay, I''m going to pump a sample first to check the quality and see if you''re able to donate enough. You won''t get paid this time."'
									'You nod and pull up your shirt as the nurse takes the pumps and puts them on your breasts. She flicks a switch and you can feel your nipples being sucked in with force as it slowly starts working your nipples.'
									lact_ev['gpoli_milkedvolume'] = (func('lact_lib','$get_breastmilk', 4, 15))/100
									lactation['breastpumped'] = 1
									pcs_orphanfeed = 0
									if lact_ev['gpoli_milkedvolume'] >= 1000:
										'Your breasts are able to fill both small bottles easily and the nurse nods at you.'
										'"You''re able to produce a good amount of milk. You could breastfeed a baby with no issue."'
									elseif lact_ev['gpoli_milkedvolume'] >= 500 and lact_ev['gpoli_milkedvolume'] < 1000:
										'Your breasts aren''t able to fill both small bottles and the nurse raises an eyebrow at you.'
										'"You''re able to produce enough milk for a 50ml donation, but you might have trouble breastfeeding a baby properly."'
									else
										'You have trouble filling the bottles to the first mark and the nurse shakes her head.'
										'"Mhmm... Your breasts don''t seem to produce enough milk. You can still come here and get yourself pumped, but we need at least 50ml for a valid donation."'
									end
									'The nurse detaches the pump and allows you to redress.'
									if lact_ev['gpoli_milkedvolume'] > 500:
										mward_donatesv = 500
									else
										mward_donatesv = lact_ev['gpoli_milkedvolume']
									end
									if pcs_mass['body'] > 30:
										mward_donatesf = 60
									elseif pcs_mass['body'] > 20:
										mward_donatesf = 45
									elseif pcs_mass['body'] > 15:
										mward_donatesf = 20
									else
										mward_donatesf = 10
									end
									if pcs_energy > 30:
										mward_donatess = rand(69,80)
									elseif sick > 1:
										mward_donatess = rand(0,45)
									else
										mward_donatess = rand(45,69)
									end
									act 'Leave': gt 'pav_clinic'
								end
								act 'Refuse to donate':
									*clr & cla
									'You refuse to donate your breast milk. The nurse looks disappointed in you as you leave.'
									act 'Leave': gt 'pav_clinic'
								end
							else
								pcs_gpolimilkdonation = 2
								'"I don''t have a kid here. I was just looking around," you explain.'
								'You look awkwardly at the nurse, who just nods at you professionally and pulls some papers together.'
								'"Have you ever thought of donating your breast milk?" she asks.'
								'"Donating?" you ask in response.'
								'"Yes, donating. We pump your breasts and collect the milk to give to the mothers that aren''t able to breastfeed yet. We also offer a bit of money for your donation. Interested?"'
								pcs_gpolimilkdonation = 2
								act 'Give it a try (0:15)':
									*clr & cla
									minut += 15
									pcs_gpolimilkdonation = 3
									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
									'The nurse leads you into a quiet room containing a chair, a table and a breast pump.'
									'You sit down and the nurse invites you to take off your top.'
									if pain['nipples'] >= 60 and pcs_knows_nipplecream <= 0:
										'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
										'"What''s that?" you ask.'
										'The nurse looks up at you. "This is nipple balm. It helps with sore nipples during pumping. Don''t you know this?"'
										'You shake your head and watch as the nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
										pain['nipples'] -= 20
										'"Where do I get this stuff?" you ask.'
										'"You can buy it in the pharmacy," she replies.'
										pcs_knows_nipplecream = 1
										'The nurse finishes rubbing you nipples with the nipple balm.'
									elseif pain['nipples'] >= 60 and pcs_knows_nipplecream > 0:
										'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
										'The nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
										pain['nipples'] -= 20
									else
										'The nurse grabs the nipple balm and applies it to your nipples. It feels nice on your nipples as she rubs it in.'
									end
									lactation['nipple_cream_applied'] = 1
									'"Okay, I''m going to pump a sample first to check the quality and see if you''re able to donate enough. You won''t get paid this time."'
									'You nod and pull up your shirt as the nurse takes the pumps and puts them on your breasts. She flicks a switch and you can feel your nipples being sucked in with force as it slowly starts working your nipples.'
									lact_ev['gpoli_milkedvolume'] = (func('lact_lib','$get_breastmilk', 4, 15))/100
									lactation['breastpumped'] = 1
									pcs_orphanfeed = 0
									if lact_ev['gpoli_milkedvolume'] >= 1000:
										'Your breasts are able to fill both small bottles easily and the nurse nods at you.'
										'"You''re able to produce a good amount of milk. You could breastfeed a baby with no issue."'
									elseif lact_ev['gpoli_milkedvolume'] >= 500 and lact_ev['gpoli_milkedvolume'] < 1000:
										'Your breasts aren''t able to fill both small bottles and the nurse raises an eyebrow at you.'
										'"You''re able to produce enough milk for a 50ml donation, but you might have trouble breastfeeding a baby properly."'
									else
										'You have trouble filling the bottles to the first mark and the nurse shakes her head.'
										'"Mhmm... Your breasts don''t seem to produce enough milk. You can still come here and get yourself pumped, but we need at least 50ml for a valid donation."'
									end
									'The nurse detaches the pump and allows you to redress.'
									if lact_ev['gpoli_milkedvolume'] > 500:
										mward_donatesv = 500
									else
										mward_donatesv = lact_ev['gpoli_milkedvolume']
									end
									if pcs_mass['body'] > 40:
										mward_donatesf = 60
									elseif pcs_mass['body'] > 20:
										mward_donatesf = 45
									elseif pcs_mass['body'] > 15:
										mward_donatesf = 20
									else
										mward_donatesf = 10
									end
									if pcs_energy > 30:
										mward_donatess = rand(69, 80)
									elseif sick > 1:
										mward_donatess = rand(0,45)
									else
										mward_donatess = rand(45, 69)
									end
									act 'Leave':gt 'pav_clinic'
								end
								act 'Refuse to donate':
									*clr & cla
									'You refuse to donate your breast milk. The nurse looks disappointed in you as you leave.'
									act 'Leave': gt 'pav_clinic'
								end
							end
						end
					end
				elseif pcs_gpolimilkdonation = 2:
					act 'Offer to donate your breast milk (0:15)':
						*clr & cla
						minut += 15
						pcs_gpolimilkdonation = 3
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
						'The nurse smiles and gets up, leading you into a quiet room that contains a chair, a table and a breast pump.'
						'You sit down and the nurse invites you to take off your top.'
						if pain['nipples'] >= 60 and pcs_knows_nipplecream <= 0:
							'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
							'"What''s that?" you ask.'
							'The nurse looks up at you. "This is nipple balm. It helps with sore nipples during pumping. Don''t you know this?"'
							'You shake your head and watch as the nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
							pain['nipples'] -= 20
							'"Where do I get this stuff?" you ask.'
							'"You can buy it in the pharmacy," she replies.'
							pcs_knows_nipplecream = 1
							'The nurse finishes rubbing you nipples with the nipple balm.'
						elseif pain['nipples'] >= 60:
							'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
							'She applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
							pain['nipples'] -= 20
						elseif pcs_knows_nipplecream <= 0:
							'The nurse grabs a small tin and takes a bit of yellowish cream from it.'
							'"What''s that?" you ask.'
							'The nurse looks up at you. "This is nipple balm. It helps during pumping and prevents nipple soreness. Don''t you know this?"'
							'You shake your head and watch as the nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
							'"Where do I get this stuff?" you ask.'
							'"You can buy it in the pharmacy," she replies.'
							pcs_knows_nipplecream = 1
							'The nurse finishes rubbing you nipples with the nipple balm.'
						else
							'The nurse grabs the nipple balm and applies it to your nipples. It feels nice as she rubs it in.'
						end
						lactation['nipple_cream_applied'] = 1
						'"Okay, I''m going to pump a sample first to check the quality and see if you''re able to donate enough. You won''t get paid this time."'
						'You nod and pull up your shirt as the nurse takes the pumps and puts them on your breasts. She flicks a switch and you can feel your nipples being sucked in with force as it slowly starts working your nipples.'
						lact_ev['gpoli_milkedvolume'] = (func('lact_lib','$get_breastmilk', 4, 15))/100
						lactation['breastpumped'] = 1
						pcs_orphanfeed = 0
						if lact_ev['gpoli_milkedvolume'] >= 1000:
							'Your breasts are able to fill both small bottles easily and the nurse nods at you.'
							'"You''re able to produce a good amount of milk. You could breastfeed a baby with no issue."'
						elseif lact_ev['gpoli_milkedvolume'] >= 50 and lact_ev['gpoli_milkedvolume'] < 1000:
							'Your breasts aren''t able to fill both small bottles and the nurse raises an eyebrow at you.'
							'"You''re able to produce enough milk for a 50ml donation, but you might have trouble breastfeeding a baby properly."'
						else
							'You have trouble filling the bottles to the first mark and the nurse shakes her head.'
							'"Mhmm... Your breasts don''t seem to produce enough milk. You can still come here and get yourself pumped, but we need at least 50ml for a valid donation."'
						end
						'The nurse detaches the pump and allows you to redress.'
						if lact_ev['gpoli_milkedvolume'] > 500:
							mward_donatesv = 500
						else
							mward_donatesv = lact_ev['gpoli_milkedvolume']
						end
						if pcs_mass['body'] > 40:
							mward_donatesf = 60
						elseif pcs_mass['body'] > 20:
							mward_donatesf = 45
						elseif pcs_mass['body'] > 15:
							mward_donatesf = 20
						else
							mward_donatesf = 10
						end
						if pcs_energy > 30:
							mward_donatess = rand(69, 80)
						elseif sick > 1:
							mward_donatess = rand(0,45)
						else
							mward_donatess = rand(45, 69)
						end
						act 'Leave': gt 'pav_clinic'
					end
				end
				act 'Leave': gt 'pav_clinic'
			end
		end
	else
		'The clinic is closed. It''s open every day between 06:00 and 21:00.'
		act 'Leave':minut += 5 & gt 'pav_commercial'
	end
end

if $ARGS[0] = 'reception':
	*clr & cla
	menu_off = 1
	minut += 2
	gs 'stat'
	'You walk up to the reception and ask for help with your problem.'
	'The receptionist looks you up and down and tells you to visit the maternity ward. Someone over there will be able to help you.'
	pcs_know_mward = 1
	act 'Leave': gt 'pav_clinic'
	act 'Go to maternity ward (0:05)': gt 'pav_clinic', 'maternity_ward'
end

if $ARGS[0] = 'maternity_ward_donation':
	*clr & cla
	menu_off = 1
	gs 'stat'
	if hour >= 6 and hour <= 20:
		lactation['nipple_cream_applied'] = 1
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pumping.jpg"></center>'
		'The nurse attaches the pumps and switches them on.'
		if lactation['breastmv'] >= 0:
			'Your nipples are worked by the pumps and you feel the pressure in your breasts easing as the pumps drain you of your milk.'
		else
			'Your nipples are worked by the pumps and you feel the pressure in your breasts easing as the pumps drain you. Your breasts tingle from the milk production as the pump demands more of your milk.'
		end
		act 'Continue':
			*clr & cla
			lact_ev['gpoli_milkedvolume'] = func('lact_lib','$get_breastmilk', 4, 15)
			lactation['breastpumped'] = 1
			'After 15 minutes, the nurse detaches the pumps from your breasts.'
			if lact_ev['gpoli_milkedvolume'] => 50000:
				pcs_gpoli_donationsessioncount += lact_ev['gpoli_milkedvolume']/10000
				lact_ev['gpoli_temp_var'] = (lact_ev['gpoli_milkedvolume']/50000)
				pcs_gpoli_totalmilkdonation_count += 1
				pcs_gpoli_totalmilkdonation += (lact_ev['gpoli_temp_var']*50)
				if lact_ev['gpoli_temp_var'] >= 12:
					'She looks astonished at the marvelous amounts of milk you''ve produced as she stores away <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
					'"I can''t believe you had that much inside you! I think a cow would be jealous!" she laughts heartily and you blush a little.'
				elseif lact_ev['gpoli_temp_var'] >= 10:
					'She looks amazed at the copious amounts of milk you''ve produced as she stores away <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
					'"Dear lord, where do you store all this?!"'
				elseif lact_ev['gpoli_temp_var'] >= 8:
					'She looks surprised at the large amount of milk you''ve produced as she stores away the <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
				elseif lact_ev['gpoli_temp_var'] >= 6:
					'She looks pleasantly satisfied at you as she stores away <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
				elseif lact_ev['gpoli_temp_var'] >= 4:
					'She looks satisfied at you as she stores away <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
				elseif lact_ev['gpoli_temp_var'] >= 2:
					'She looks satisfied at you as she stores away <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
				elseif lact_ev['gpoli_temp_var'] = 1:
					'She looks satisfied at you as she stores away one bottle with 50ml of your breast milk.'
				else
					'She looks satisfied at you as she stores away the <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
				end
			elseif lact_ev['gpoli_milkedvolume'] < 50000 and lact_ev['gpoli_milkedvolume'] > 0:
				'She looks at you in disappointment.'
				'"Mhmm... I''m sorry, but this isn''t enough milk for a valid donation. You only provided <<lact_ev[''gpoli_milkedvolume'']/1000>>ml of breast milk."'
			else
				'She looks at you in disappointment.'
				'"Mhmm... I''m sorry, but this isn''t enough milk for a valid donation. You provided no breast milk at all."'
			end
			lact_ev['gpoli_milkedvolume'] = 0
			if pcs_gpoli_donationsessioncount > 0:
				mward_donatemoney = (pcs_gpoli_donationsessioncount*3)/10*10
			else
				mward_donatemoney = 0
			end
			lactation['nipple_cream_applied'] = 0
			minut += 15
			if lactation['breastmv'] > lactation['breastmm']/2 and lactation['breastmv'] >= 100000:
				'The nurse looks at your breasts.'
				'"Looks like you could go for another pumping. Shall we?"'
				act 'Have your breasts pumped again': gt 'pav_clinic', 'maternity_ward_donation'
			else
				act 'Ask to donate more': gt 'pav_clinic', 'maternity_ward_donation'
			end
			act 'Enough for today':
				*clr & cla
				gs 'stat'
				if pcs_gpoli_donationsessioncount > 0:
					money += mward_donatemoney
					'You put your top back on and the nurse hands you <<mward_donatemoney>><b>₽</b> for your donated breast milk.'
				else
					'You put your top back on.'
				end
				act 'Leave':
					lact_ev['gpoli_milkedvolume'] = 0
					gt 'pav_clinic', 'maternity_ward'
				end
			end
		end
	elseif pcs_gpoli_donationsessioncount > 0:
		'Sorry <<$pcs_firstname>>, we are closing now.'
		'You put your top back on and the nurse hands you <<mward_donatemoney>><b>₽</b> for your donated breast milk.'
		act 'Leave': minut += 5 & gt 'pav_commercial'
	else
		'The clinic is closed. It''s open every day between 06:00 and 21:00.'
		act 'Leave': minut += 5 & gt 'pav_commercial'
	end
end

if $ARGS[0] = 'std_check':
	if GerpesOnce = 1:
		'"You have genital herpes. Unfortunately, the complete cure for this disease is very expensive and we can''t cure it here. On the upside, herpes is dormant most of the time and is quite manageable if you take good care of your body. When it''s dormant, taking vitamins regularly will make sure it won''t show itself."'

		if Gerpes >= 3:
			if GerpesNapr = 0:
				GerpesNapr = 3 & '"Your herpes is currently active. I''m going to put you on a course of herpes shots in order to suppress it into its dormant state. You''ll need a total of 3 injections over the course of a few days. Each injection will cost 450 <b>₽</b>."'
			elseif GerpesNapr > 0:
				'You need to see the nurse for your herpes drug injection.'
			end
		else
			'Your herpes is currently in a dormant state.'
		end
	end

	if SifacOnce = 1:
		sifNapr = 1
		'"You have syphilis. The cure for this disease used to be expensive. However, this deadly disease can now be with a single shot. The injection will cost 1,000 <b>₽</b>."'
	end

	if TriperOnce = 1:
		'"We found gonorrhea. Fortunately, we can cure this disease."'
		if TriperNapr = 0:
			TriperNapr = 5 & '"I''m going to put you on a course of gonorrhea injections. You''ll need a total of 5 injections over the course of a few days. Each injection will cost 750 <b>₽</b>."'
		elseif TriperNapr > 0:
			'You need to see the nurse for your gonorrhea injections.'
		end
	end

	if KandidozOnce = 1:
		'"You have a yeast infection. Unfortunately, the complete cure for this disease is very expensive and we can''t cure it here. On the upside, it''s not that harmful and can be treated easily to the point where it won''t trouble you. When it''s dormant, taking vitamins regularly will make sure it won''t show itself."'

		if KandidNapr = 0: KandidNapr = 1 & '"The pills are available at the pharmacy across the street."'
		if Kandidoz < 30: 'Your yeast infection is currently in remission. If you take vitamins daily, it will stay that way.'
	end
end

--- pav_clinic ---------------------------------