glife/locations/city_clinic.qsrc

# city_clinic
$location_type = 'public_indoors'

if $ARGS[0] = 'start':
	CLOSE ALL
	$sexloc = 'city_clinic'
	$loc = 'city_clinic'
	$loc_arg = 'start'
	$location_type = 'indoors'
	$menu_loc = 'city_clinic'
	$menu_arg = 'start'
	killvar 'temp_small_mbottle_ids'
	killvar 'temp_medium_mbottle_ids'
	menu_off = 0
	*clr & cla
	hosprand = rand(0, 10)
	minut += 5
	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>'
	'A sign inside the clinic lists some of the services the clinic has to offer:'
	'<i>General practitioner: currently available'
	'Psychotherapist: currently available'
	'STD testing - 1,000 <b>₽</b>.'
	*nl
	'For hospital admissions, visit us on a Monday before the 10th of the month.'
	*nl
	'An abortion at the woman''s request can be performed up until the 84th day of pregnancy - 15,000 <b>₽</b>.'
	'Be warned, improperly performed abortions can be dangerous to your health. There is a risk of complications and the possibility of damage to your uterus.</i>'
	*nl
	'At first, you thought the warning was only health department boiler-plate. However, no sooner do you finish thinking that then you notice a nurse pushing a cart of freshly sterilized coat hangers down the hallway and begin to wonder how competent this facility really is in terms of women''s health...'
	*nl
	'One area of the clinic is devoted to cosmetic surgery. A sign with directions on the wall point you to the surgeon''s office.'
	*nl
	if pcs_gpolimilkdonation >= 2 and lactation['active'] > 0 and lact_ev['pcs_knows_milkbank'] < 1 and lactation['pc_aware'] > 0:
		*nl
		'<a href="exec: minut += 5 & gt ''city_clinic'', ''milk_reception''">Ask</a> at the reception if there is the possibilty for breast milk donation'
	elseif pcs_gpolimilkdonation < 2 and lactation['active'] > 0 and lact_ev['pcs_knows_milkbank'] < 1 and lactation['pc_aware'] > 0:
		*nl
		'A small <a href="exec: minut += 5 & gt ''city_clinic'', ''milk_advertisement''">advertisement</a> at reception catches your eye.'
	end

	if workhosp = 1 and hour >= 8 and hour <= 9 and week < 6:act 'Begin your work day': gt 'city_clinic', 'beginwork'

	act 'Leave the clinic': minut += 5 & gt 'city_residential'
	act 'See a cosmetic surgeon': gt 'city_clinic','cosmetic1'
	if lact_ev['pcs_knows_milkbank'] >= 1:
		act 'Go to the breast milk donation office': minut += 5 & gt 'city_clinic','milk_donation_room'
	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'

			if hosprand = 0:gt 'city_clinic', '0'
			if hosprand = 1:gt 'city_clinic', '1'
			if hosprand = 2:gt 'city_clinic', '2'
			'The doctor guides you to a bed and tells you to lie down, after which he gives you a combined painkiller, steroid and vitamin shot.'
			'You feel drowsy for a little while, but afterwards you feel a lot better. The shot sped up your aching body''s recovery a lot, meaning the pain probably won''t come back nearly as strongly when the shot wears off, and should aid your health recovery over the coming days.'

			act 'Return to the entrance': gt 'city_clinic', 'start'
		end
	end

	if pcs_mood < 10:
		act 'See a therapist (1:00)':
			*clr & cla
			menu_off = 1
			minut += 60
			pcs_mood = 100

			if hosprand = 0: gt 'city_clinic', '0'
			if hosprand = 1: gt 'city_clinic', '1'
			if hosprand = 2: gt 'city_clinic', '2'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/therapy1.jpg"></center>'
			'You lie down on the therapist''s couch and tell him about your troubles. You immediately feel much better, but the therapist seems to be in a state of shock.'

			act 'Return to the entrance': gt 'city_clinic', 'start'
		end
	end

	gs 'medical_din', 'birth_control'

	act 'Go to the STD clinic': gt 'city_clinic', 'stdclinic'

	if money >= 15000 and preg = 1 and pregchem < 1863 and knowpreg = 1:
		act 'Get an abortion (15,000 <b>₽</b>)':
			cla
			money -= 15000

			'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/abort.jpg"></center>'
			'You spread out on a gynecological chair at an angle where you can''t see what''s going on. You feel nauseous and violated as a nurse hands you a single aspirin and a glass of muddy-looking water to down it with.'
			
			gs 'medical_din','abortion'
			
			minut += 60
			gs 'stat'

			act 'Return to the entrance': gt 'city_clinic', 'start'
		end
	end

	if experimentQW['discovered'] = 0:
		*nl
		'In the far corner you spot the entrance to a signup area for <a href="exec: experimentQW[''discovered''] = 1 & gt ''city_experimental_trials'', ''front_desk''">experimental trials</a>.'
		*nl
	else
		act 'Go to the medical trials reception desk': gt 'city_experimental_trials', 'front_desk'
	end

	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 do not have much time to look at your <<$polreb[nextbaby]>>, because you''re having 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 'Return to the entrance': gt 'city_clinic', 'start'
		end
	end

	if sick > 0 and polisickday ! daystart:
		if ninelsex = 0:
			act 'See a doctor':
				*clr & cla
				polisickday = daystart
				terrnd = rand(0, 1)

				if terrnd = 0: gt 'city_clinic', 'drPP'
				if terrnd = 1: gt 'city_clinic', 'ninel'
			end
		else
			act 'See Dr. Ninel':
				*clr & cla
				polisickday = daystart
				gt 'city_clinic', 'ninel2'
			end
		end
	end
	
	if sick <= 0 and pcs_horny >= 90 and ninelsex >= 1 and ninelday ! daystart:
		act 'Look for Dr. Ninel':
			*clr & cla
			ninelday = daystart
			ninelrand = rand(0, 2)

			if ninelrand = 0:
				'Reception informs you that Dr. Ninel is in her office.'
				act 'Go to Dr. Ninel': gt 'city_clinic', 'ninel3'
			elseif ninelrand = 1:
				'Reception informs you that Dr. Ninel can''t see you today.'
				act 'Leave the clinic': minut += 5 & gt 'city_residential'
			elseif ninelrand = 2:
				'Reception informs you that Dr. Ninel is making house calls today.'
				act 'Leave the clinic': minut += 5 & gt 'city_residential'
			end
		end
	end

	if cumcondslip > 0 and cumcondslip_aware > 0:
		act 'See a doctor':
			*clr & cla
			gt 'city_clinic', 'drPP'
		end
	end

	if katjob > 0: act 'Visit the chief doctor': gt 'city_clinic', 'glavdoc'

	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 3000 <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 <<pcs_missing_teeth * 30000>> <b>₽</b> to fill the gaps.'
				elseif pcs_teeth = 0:
					zubpay = 3000
					'The dentist examines you and says, it will cost 3000 <b>₽</b> to brighten and polish your teeth.'
				elseif pcs_teeth > 0:
					zubpay = 4500
					'The dentist examinees you and says it will cost 4500 <b>₽</b> to straighten your teeth and that you''ll 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 + bankDebtLimit < zubpay:
					*nl
					'You do not 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 'city_residential'
						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 'city_residential'
						end
					end
				end
			end
			act 'Leave the clinic': minut += 5 & gt 'city_residential'
		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 'Return to the entrance': gt 'city_clinic', 'start'
		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 'city_clinic', 'start'

			if glass = 1:
				if money < 4500 and karta + bankDebtLimit < 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 'AppearanceSystem', 'UpdateBaseAppearance'
							gs 'stat'
							'You buy a new, more stylish pair of glasses.'

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

							act 'Return to the entrance': gt 'city_clinic', 'start'
						end
					end
				end
			end

			if glass ! 0:
				if money < 75000 and karta + bankDebtLimit < 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 'body_desc'
							gs 'stat'
							'You undergo laser eye surgery. Your eyesight is much better now.'
							act 'Return to the entrance': gt 'city_clinic', 'start'
						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 'AppearanceSystem', 'UpdateBaseAppearance'
							gs 'stat'
							'You undergo laser eye surgery. Your eyesight is much better now.'
							act 'Return to the entrance': gt 'city_clinic', 'start'
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'stdclinic':
	$menu_arg = $ARGS[0]
	menu_off = 0
	*clr & cla
	'<center>The STD Clinic</center>'
	*nl
	'You notice an advertisement In the waiting room.'
	*nl
	'	Private Sexually Transmitted Disease Clinic provides the following test and treatments.'
	'		STD test - 1,000 <b>₽</b>'
	'		Complete cure for herpes - 45,000 <b>₽</b>.'
	'		Complete cure of syphilis - 1,000 <b>₽</b>.'
	'		Complete cure for yeast infection - 15,000 <b>₽</b>.'
	'	Treatment requires hospitalization on first Monday of each month.'
	
	act 'Leave': gt 'city_clinic', 'start'

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

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

	if GerpesNapr > 0 and GerpesUkolDay ! daystart:
		if money < 450 and karta + bankDebtLimit < 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 'city_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 'city_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 'city_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 'city_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 'city_clinic', 'syphilis_shot'
			end
		end

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

	if GerpesOnce = 1 and week = 1 and day <= 10:
		if money < 45000 and karta + bankDebtLimit < 45000: *nl & 'You to go to private clinic and completely cure your herpes.'

		if money >= 45000:
			act 'Go to private clinic and completely cure your herpes (45,000 <b>₽</b>) (cash)':
				money -= 45000
				gs 'city_clinic', 'herpes_cure'
			end
		end

		if karta + bankDebtLimit >= 45000:
			act 'Go to private clinic and completely cure your herpes (45,000 <b>₽</b>) (card)':
				karta -= 45000
				gs 'city_clinic', 'herpes_cure'
			end
		end
	end

	if KandidozOnce = 1 and week = 1 and day <= 10:
		if money < 15000 and karta + bankDebtLimit < 15000: *nl & 'You can''t afford to go to the private clinic and completely cure your yeast infection.'

		if money >= 15000:
			act 'Go to private clinic and completely cure your yeast infection. (15,000 <b>₽</b>) (cash)':
				money -= 15000
				gs 'city_clinic', 'yeast_cure'
			end
		end

		if karta + bankDebtLimit >= 15000:
			act 'Go to private clinic and completely cure your yeast infection. (15,000 <b>₽</b>) (card)':
				karta -= 15000
				gs 'city_clinic', 'yeast_cure'
			end
		end
	end
end

if $ARGS[0] = 'stdcheck':
	*clr & cla
	menu_off = 1
	minut += 60
	gs'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bg28qy97.jpg"></center>'
	'After waiting for some time, you get to see the doctor, who asks you to undress.'
	act 'Undress':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cj53ti24.jpg"></center>'
		'You undress and the doctor asks you lie on the table.'
		act 'Lie down':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
			'You lie on the table and wait as the doctor makes his preparations for the tests.'
			act 'Wait':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/zw61kh75.jpg"></center>'
				'The doctor first monitors your heart rate, then checks your breasts for lumps.'
				act 'Further':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bn72qy99.jpg"></center>'
					'The doctor examines your genitals externally and internally, carrying out several tests.'
					if money >= 10000 and rand(1,100) >= 97:
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
						'While you''re lying on the examination table staring at the ceiling, you notice the hidden camera in the corner.'
						act 'Ask him why he''s filming your examination':
							*clr & cla
							'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bg28qy97.jpg"></center>'
							'The doctor, unfazed, speaks in a calm voice. "Oh, you noticed that, huh? The camera is there for your safety as well as mine, miss. I''ve been accused of molestation before. Then it hit me: people on the internet pay good money to see my examinations! Two birds with one stone, right?"' 
							'After a moment of silence, he grins. "Okay... Since you spotted the camera, I''ll offer you a choice. If you give me 10,000 <b>₽</b>, I''ll delete the footage as if you were never here. I''d be losing a lot of income, so that''s only fair."'
							'Before you can reply, he continues. "Or if you don''t mind being watched by a few thousand people who you''ll probably never meet anyway, I can give you... 3000 <b>₽</b> to keep quiet. It''s your call."'
							act 'Pay him to delete the footage': gt 'city_clinic', 'ven1'
							act 'Take the bribe': gt 'city_clinic', 'ven2'
							act 'Threaten to report him':
								*clr & cla
								'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bg28qy97.jpg"></center>'
								'The doctor brings his face very close to yours. "Look at where you are, bitch!" he hisses. "You better shut your fucking mouth right now! I can make you disappear just like THAT and everyone would be none the wiser!" He snaps his fingers for emphasis. "I made you a very generous offer, so don''t make me regret it. An unfortunate ''complication'' is easy to arrange..."'
								'He then sighs. "Anyway, let''s forget what you just said and start over. Are you going to compensate me for having to delete the footage?"'
								act 'Pay him to delete the footage': gt 'city_clinic', 'ven1'
								act 'Take the bribe': gt 'city_clinic', 'ven2'
								act 'Try to escape': gt 'city_clinic', 'ven3'
							end
						end
					else
						if venera > 0 or Kandidoz > 10:
							'The doctor frowns and tells you that the test did not go well.'
						
							if GerpesOnce = 1:
								'"You have genital herpes. The cure for this disease is very expensive, but it''s only active some of the time."'
								if Gerpes >= 3:
									if GerpesNapr = 0:
										GerpesNapr = 3 & '"I''m going to put you on a course of herpes shots. 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 injections."'
									end
								else
									'"Your herpes are in an inactive stage. Take vitamins and it won''t show itself."'
								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. In principle, this disease is curable."'
								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 an yeast infection. The cure for this disease is very expensive, but it''s not that harmful and can easily be suppressed."'

								if KandidNapr = 0: KandidNapr = 1 & '"You can buy pills in the pharmacy."'
								if Kandidoz < 30: '"Your yeast infection is currently in remission, so take vitamins and it will stay that way."'
							end
						else
							'The doctor is pleased to inform you that you don''t have a sexually transmitted disease.'
						end

						act 'Leave': gt 'city_clinic', 'stdclinic'
					end
				end
			end
		end
	end
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 'city_clinic', 'start'
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 'city_clinic', 'start'
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 'city_clinic', 'start'
end

if $ARGS[0] = 'yeast_cure':
	*clr & cla
	menu_off = 1
	day += 3
	week += 3
	KandidozOnce = 0
	Kandidoz = 0
	gs 'stat'
	'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
	'After a long recovery, you have been completely cured of your yeast infection.'

	act 'Leave': gt 'city_clinic', 'start'
end

if $ARGS[0] = 'herpes_cure':
	*clr & cla
	menu_off = 1
	day += 3
	week += 3
	GerpesOnce = 0
	Gerpes = 0
	OrHerpes = 0
	GenHerpes = 0
	Venera -= 1
	gs 'stat'
	'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
	'After a long recovery, you have been completely cured of your herpes.'

	act 'Leave':gt 'city_clinic', 'start'
end

if $ARGS[0] = 'ven1':
	*clr & cla
	menu_off = 1
	money -= 10000
	gs'stat'
    '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
    'You lie down, almost crying, mulling over the doctor''s words again and again in your head. You know it''s not fair, but you can''t allow these images to go public and decide to pay him to delete the footage.'
	'You pull the money from your purse and give it to him, hoping he''ll stay true to his word...'
    act 'Return to the lobby': gt 'city_clinic','start'
end

if $ARGS[0] = 'ven2':
	*clr & cla
	menu_off = 1
	money += 3000
	gs'stat'
    '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
    'You lie down, almost crying, mulling over the doctor''s words again and again in your head. After a while, you decide that you want the money. You probably won''t be recognized, and even if you are, you can always pretend you didn''t know you were being filmed.'
	'The doctor seems somewhat surprised to hear your answer, but gives you the money as promised. "Don''t worry," he grins. "Most of my subscribers don''t live in the city. Maybe a hundred, tops. What are the odds of you running into one of them over the coming weeks?"'
    act 'Leave his office': gt 'city_clinic','start'
end

if $ARGS[0] = 'ven3':
	*clr & cla
	menu_off = 1
	over = 9
	gs 'stat'
    '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
    'The only thing you want to do now is get out of here! You can file a complaint later...'
    '"Stop her! Stop her right now, she''s dangerous!" the doctor yells as you head for the door, trying to escape. Unfortunately for you, several staff members happened to be in the hallway as you tried to make your escape, who instantly spring to their colleague''s aid.'
	'The doctor is only a few steps behind you, planting a syringe in your neck and injecting you before you can tell them what''s happening. As your vision goes blurry and your body goes limp, you can hear the doctor. "That was close... Not well in the head... Has fits of violent rage... Drug addiction! I can take it from here."'
	'He scoops you up in his arms and carries your limp body back to his office. "Yet another overdose victim, so sad..." he mumbles to himself once the door is closed.'
    act 'Continue': gt 'gameover'
end

if $ARGS[0] = 'drPP':
	*clr & cla
	menu_off = 1
	minut += rand(3,10)
	gs 'stat'
	'You sit in the corridor with coughing and sick old women, waiting for your appointment.'
	'Finally, it''s your turn.'

	act 'See the doctor':
		*clr & cla
		$ImageNeededPlacholder
		!! WD: IMAGE NEEDED ~ '<center><img src="images/system/image_needed.png"></center>'

		if drPP = 0: 'A timely, old bald man sits at the desk. "What seems to be the problem, dear?" he asks while adjusting his glasses.'
		if drPP = 1: 'The doctor is sitting at his desk. He smiles at you. "Hello, are you unwell?"'

		drPP = 1
		'"Hello, doctor," you reply.'
		'"What are the symptoms?" he asks.'

		if cumcondslip > 0 and cumcondslip_aware > 0:
			act 'Explain':
				*clr & cla
				minut += 5
				'"Well, Doctor, I feel nauseous during the day."'
				'"Do you have a ghostly sensation deep inside?"'
				'"Yes, a little."'
				'"Well, let''s take a look at you."'

				act 'Get examined':
					cla
					minut += 15
					gs 'cum_cleanup', 'cleanloc', 17
					cumcondslip = 0
					gs 'stat'
					'The doctor quickly examines you, and establishes that you''re suffering from toxic shock from a spent condom in your body.'
					'"I removed the condom as soon as I found it. You might still feel sick for some time, but the feeling should slowly subside," he explains.'
					'You thank the doctor before leaving.'

					act 'Leave the clinic': minut += 5 & gt 'city_residential'
				end
			end
		else
			act 'Explain':
				*clr & cla
				minut += 5
				'"I think it''s a cold since I have a blocked nose, sore throat and a cough."'
				'"Do you have a temperature?"'
				'"Yes, I''m a little hot."'
				'"Well, let''s take a look at you."'

				act 'Get examined':
					cla
					minut += 20
					'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel03.jpg"></center>'
					'The doctor listens to your lungs, looks down your throat and sticks a thermometer in your mouth.'
					'"Don''t worry, it''s just the common cold. Get some vitamins at the drug store, have a couple days of bed rest and everything will be fine. Make sure to keep warm!"'
					'You thank the doctor before leaving.'

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

if $ARGS[0] = 'ninel':
	*clr & cla
	menu_off = 1
	minut += rand(3,15)
	gs 'stat'
	'You sit in the corridor with sick old women who are coughing, waiting for your appointment.'
	'Finally, it''s your turn.'

	act 'See the doctor':
		*clr & cla

		if ninelmet = 0: 'A pretty young girl, in a light robe, sits at the desk. The robe is unbuttoned so that it does not hide her breasts. "Hello, my name is Ninel Pavlovna. I''m replacing your local physician," she says while scrutinizing you.'
		if ninelmet = 1: 'Ninel is sitting at her desk. She smiles at you. "Hello, dear."'

		if pcs_horny < 30:
			act 'Greet doctor':
				*clr & cla
				ninelmet = 1
				minut += 5
				'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam00.jpg"></center>'
				'"Good afternoon. What are the symptoms?"'
				'"I think it''s a cold since I have a blocked nose, sore throat and a cough."'
				'"Do you have a temperature?'
				'"Yes, I''m a little hot."'
				'"I''ll need to examine you. Undress."'

				act 'Get examined':
					*clr & cla
					minut += 20
					'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam01.jpg"></center>'
					'The doctor listens to your lungs, looks down your throat and sticks a thermometer in your mouth.'
					'"Don''t worry, it''s just a common cold. Buy some vitamins at the drug store, have a couple days of bed rest and everything will be fine. Make sure to keep warm."'
					'You thank the doctor before leaving.'

					act 'Go home': minut += 5 & gt 'city_residential'
				end
			end
		else
			act 'Hello, Doctor':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam10.jpg"></center>'
				'"Good afternoon. What are the symptoms?"'
				'"I think it''s a cold since I have a blocked nose, sore throat and a cough."'
				'"Do you have a temperature?"'
				'"Yes, I''m very hot."'
				'"Undress. Fully."'

				act 'Undress':
					*clr & cla
					pcs_horny += 10
					'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam12.jpg"></center>'
					'You stand before the doctor completely naked and try to cover yourself with your hands.'
					'The doctor looks at you and gently places her hands on your shoulders.'
					'"No need to be shy. I''m a doctor. What''s your name?"'
					'"<<$pcs_nickname>> ..."'
					'"Trust me, <<$pcs_nickname>>. I will heal you. First, you need to breathe deeply..."'

					act 'Breathe':
						*clr & cla
						pcs_horny += 10
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam13.jpg"></center>'
						'Dr. Ninel listens to your lungs. Her hands are light and gentle, pressing the stethoscope against your chest.'
						'To your surprise, this is quite erotic.'
						'"There we go. Now open your mouth and say ah..."'

						act 'Ah':
							*clr & cla
							'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam14.jpg"></center>'
							'You open your mouth and the doctor examines your throat. Did she stick her tongue out at you?'
							'"Okay. Now let''s take your temperature. Sit on the couch and spread your legs."'
							'"Why?"'
							'"I need to measure rectally as your throat is inflamed."'
							'The fear on your face is palpable.'
							'"Don''t worry, it doesn''t hurt."'

							act 'Sit on couch':
								*clr & cla
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam15.jpg"></center>'
								'The doctor arranges your position on the couch, much to your embarrassment. She smears lubricant between your legs and gently sticks a thermometer into your ass. It doesn''t hurt: in fact, it''s actually quite pleasant.'
								'The doctor slowly move the thermometer back and forth in your ass while her other hand appears to stroke your pussy. Thanks to her dexterous fingers, her touch is so gentle you aren''t sure if she''s actually doing it.'
								'Either way, you''re getting more excited. Your nipples harden and your pussy is getting wet...'
								gs 'arousal', 'vaginal_finger', 10, 'sub'
								gs 'arousal', 'anal_dildo', 10, 'sub'
								minut -= 10
								gs 'stat'
								
								act 'This doesn''t seem normal':
									*clr & cla
									gs 'stat'
									'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam16.jpg"></center>'
									'The doctor takes the thermometer out of your ass and starts to openly caress your pussy.'
									'You''re confused and horrified by her behavior, but she''s so gentle and you''re so excited that you simply can''t resist.'
									'"Doctor, what are you doing? What''s going on?" you just about manage to stutter.'
									'"There it is! I knew immediately that you were one of us, and therefore I can use my healing powers on you."'
									'"So you''re a succubus too?!"'
									'"Yes, my special magic is tantric. Heard of it?"'
									'"No, I''ve never heard of..."'
									'"It''s magic based on sensuality and sex. Roughly speaking, I can cast only when extremely aroused."'
									'"So...?"'
									'"Basically, if we have sex, I can heal you. So, can I heal you?"'
									'"Depends what you want in return."'
									'"Nothing. Well, not exactly nothing. My gift has a pretty big drawback: I can only have orgasms when I conjure."'
									'"Then of course I agree."'
									'"Good. Kneel on the couch."'
									gs 'arousal', 'vaginal_finger', 10, 'sub', 'lesbian'
									gs 'stat'
									
									act 'Kneel on couch':
										*clr & cla
										'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam17.jpg"></center>'
										'You kneel down and face away from Ninel as she takes off her robe, revealing her stockings and strap-on.'
										'Dr. Ninel lubes the dildo up before grinning. "It''s curing time!"'

										act 'Brace yourself':
											*clr & cla
											minut += 10
											pcs_horny = 100
											gs 'stat'
											'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam18.jpg"></center>'
											'Shes drives the dildo into your pussy with an unnatural amount of strength, causing you to gasp in surprise.'
											'Ninel starts fucking you confidently, moaning with every jolt. The unusual situation and Ninel''s skill quickly brings you to your peak.'
											gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
											gs 'stat'
											
											act 'Ride the wave!':
												*clr & cla
												'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam19.jpg"></center>'
												'"I''m going to cum!" you shout. "Don''t stop!"'
												'Ninel rolls onto the couch, pulling you with her. You find yourself on top and start frantically bouncing on her fake cock, screaming and grinding in almost unbearable pleasure.'
												'You soon cum, screaming and twitching in an incredibly long orgasm.'
												'"Now it''s my turn," Ninel says beneath you.'

												$orgasm_or = 'yes'
												gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
												gs 'stat'
											
												act 'Return the favor':
													*clr & cla
													ninelsex += 1
													if ninelsex = 1:girl += 1
													pcs_vag += 1
													sick = 0
													pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
													pcs_mood = 100
													gs 'stat'
													'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam19a.jpg"></center>'
													'Ninel removes the strap-on and you press your face to her soaking wet pussy. It doesn''t take long for your efforts to bring Ninel to orgasm. She screams and digs her nails into her knees as your face is covered by her squirting orgasm.'
													gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
													gs 'stat'
											
													act 'Dress':
														*clr & cla
														'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam11.jpg"></center>'
														'With trembling hands, you start to pull on your panties. Ninel has already slipped her robe back on, only her flushed face betraying her apparent innocence.'
														'"So? How do you feel?"'
														'"Ooh... just perfect," you answer and only then realize how right you are. The sickness has disappeared and you''re fully healthy and in good spirits. Even your mood has improved.'
														'"Well, you see. It''s magic, baby. Mm-m... You''re especially full of it, I don''t normally get so much pleasure. If you get sick again, please do come and see me again."'
														'You clean up and leave, Ninel smiling at you as you leave.'
														gs 'arousal', 'end'
														gs 'stat'
														
														act 'Leave the clinic': minut += 5 & gt 'city_residential'
													end
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'ninel2':
	*clr & cla
	menu_off = 1
	'You go to the waiting room and Ninel contemptuously ignores the old ladies sitting in the hallway, "No line, come into the office."'

	act 'See Dr. Ninel':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam00.jpg"></center>'
		'Ninel looks up from some medical notes and smiles,'
		'"Hello <<$pcs_nickname>>. Are you sick again?"'
		'You cough. "Yeah. Shall we?"'
		'"Sure. Undress, I need to examine you first."'
		'"Why? You''re magic."'
		'"Silly. How can you know so little about magic? I have to know what I''m treating, or I''m just as likely to do more harm than good. Magic has a very focused effect."'
		'"Well, in that case..." you respond.'

		act 'Undress':
			*clr & cla
			pcs_horny += 10
			'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam02.jpg"></center>'
			'You undress and Ninel listens to your lungs. As usual, her arms are light and tender and her stethoscope on your chest has you feeling hot.'
			'"Yeah, you''re wheezing alright. Say ''aaah''."'

			act 'Ah':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam03.jpg"></center>'
				'You open your mouth and Ninel inspects inspects your sore throat.'
				'"This looks familiar. It''s a cold, no question about it. Do you have a temperature?"'
				'You smile. "Hot."'
				'"You''ll like this." Ninel rolls you onto your side and tells you to pull your knees up to your chest.'

				act 'Hug your knees':
					*clr & cla
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam04.jpg"></center>'
					'You assume the position and Ninel starts fucking your ass with her thermometer. You get excited and moan softly as your pussy gets wet.'
					'"Oh, does baby like it? Come on, let''s see how much."'
					gs 'arousal', 'foreplay', 10, 'sub', 'lesbian'
					gs 'arousal', 'anal_dildo', 10, 'sub', 'lesbian'
					minut -= 10
					gs 'stat'

					act 'Roll over':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam06.jpg"></center>'
						'You roll over onto your back and hold your the legs. Ninel gets a speculum and gently slides it into your vagina. You quietly groan from the stimulation and Ninel echoes your passionate with a heavy sigh.'
						'It looks like your wide-open vulva is massively turning her on.'
						gs 'arousal', 'vaginal_dildo', 5, 'sub', 'lesbian'
						gs 'stat'

						act 'Oh-h...!':
							*clr & cla
							pcs_horny = 100
							minut += 15
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam05.jpg"></center>'
							'Overcome with passion, Ninel quickly takes off her robe, pulls out her strap-on from her desk and brings it to your lips.'
							'You eagerly suck it while Ninel''s skilled fingers play with your clit, causing warm waves of pleasure to run through your body.'
							'"Fuck me! Now!" you cry out and Ninel grins, continuing to tease your clitoris with her hand.'
							'"Ask nicely."'
							'"Fuck me. I mean, please fuck me."'
							'"I''m not convinced. Politely beg for it."'
							gs 'arousal', 'cuni_give', 15, 'sub', 'lesbian'
							gs 'arousal', 'vaginal_finger', 15, 'sub', 'lesbian'
							minut -= 15
							gs 'stat'

							act 'Beg for it':
								*clr & cla
								'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam07.jpg"></center>'
								'"Please, please! Fuck me! Do with me what you want with me, Dr. Ninel! I''m all yours! Just please fuck me!"'
								'Ninel puts on the strap-on and aggressively drives it home, your bosom blazes with lust as you cry out and lift your feet up, trying to take as much of the dildo as possible.'
								'Ninel fucks you faster, moaning and groaning with every jolt, and you moan and clearly struggle.'
								'"On your knees! Turn around!" she orders.'
								gs 'arousal', 'vaginal_strap', 20, 'sub', 'lesbian', 'rough'
								gs 'stat'

								act 'Obey':
									*clr & cla
									pcs_vag += 1
									sick = 0
									pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
									pcs_mood = 100
									gs 'stat'
									'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam08.jpg"></center>'
									'Moaning with excitement, you get on your knees and lift your ass to Ninel, but she''s in no hurry.'
									'"Come on, take me! Please, I''m almost there!"'
									'"Beg!" she orders. "You need to convince me!"'
									'"Please fuck me" you cry. "Fuck me! I want to cum! Yes, I''m a whore, your little girl, but please, please, let me finish!"'
									'The strap-on pushes into your pussy and Ninel goes at it like a jackhammer. You quickly explode in a wild orgasm, screaming in ecstasy.'
									'Your knees buckle and you fall to the floor, shuddering in the throes of sensual release. Ninel just watches as your orgasm seems to last forever...'
									'"Now you will appease me, my little slut. Come on, you know how!" Ninel commands.'

									$orgasm_or = 'yes'
									gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian', 'rough'
									gs 'stat'

									act 'Oblige':
										*clr & cla
										'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam09.jpg"></center>'
										'She helps you up, then pushes you backwards on to the couch. Removing the strap-on, Ninel climbs over you and sits on your face.'
										'You diligently use your tongue and lips to serve her wide-open pussy and swollen clit. She is screaming and sobbing, rubbing her crotch all across your face, until she finally cums.'
										'She cums with a long, yelling, shaking fervor and abundantly fills your face with her juices.'
										gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
										gs 'stat'
									
										act 'Wow':
											*clr & cla
											'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam09a.jpg"></center>'
											'When she finishes, Ninel slowly dresses, showing you her perky body. You can feel your excitement returning...'
											'Ninel sees this and smiles. "Oh, no. Enough is enough, but you come in another time for something else and we''ll have some fun..."'
											'You''re healthy and satisfied, thanks to Ninel.'
											gs 'arousal', 'end'
											gs 'stat'
											
											act 'Thank her and leave': minut += 5 & gt 'city_residential'
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'ninel3':
	*clr & cla
	menu_off = 1
	'You go to the waiting room and Ninel contemptuously ignores the old ladies sitting in the hallway, "No line, come into the office."'

	act 'See Dr. Ninel':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam10.jpg"></center>'
		'Ninel looks up from some medical notes and smiles.'
		'"Hello <<$pcs_nickname>>. Sick again?"'
		'"Oh doctor, my pussy is burning and leaking juices! Perhaps I''m seriously ill..."'
		'"My poor child. Whatever are we going to do?"'

		act 'Tear off your clothes':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex01.jpg"></center>'
			'Groaning with impatience, you tear off your clothes and Ninel takes off her robe. Her strap-on hangs in your face.'
			'"Suck it. Make it hot and wet, just like you."'
			'You wrap your lips around the dildo and start sucking, exciting Ninel.'
			gs 'arousal', 'foreplay', 10, 'sub', 'lesbian'
			gs 'stat'

			act 'Fuck me!':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex02.jpg"></center>'
				'Remembering that Ninel loves to hear you beg her to fuck you, you don''t even need to pretend the desire is literally burnt into you. You beg and plead and Ninel finally heeds your request.' 
				'She shoves you onto your knees and starts driving the strap-on firmly into your eager pussy. You let out screams of pleasure as you feel your legs weakening.'
				gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
				gs 'stat'

				act 'Fall on the couch':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex03.jpg"></center>'
					'You fall on the couch, but Ninel pulls you on your side and continues. You loudly moan as a deep and bestial growl escapes from her lungs.'
					'"My God, you as well."'
					'"I can''t... It''s too much..."'
					gs 'arousal', 'vaginal_strap', 20, 'sub', 'lesbian'
					gs 'stat'

					act 'Ride her':
						*clr & cla
						pcs_mood += 15
						girl += 1
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex04.jpg"></center>'
						'You obediently change position and Ninel lies back on the couch as you straddle her and slide back down onto her strap-on.'
						'You bounce up and down on the strap-on, squealing and fingering your clit while Ninel starts to twitch and moan.'
						'For a few seconds, you''re competing with Ninel in screams of passion before you fall back on the couch, exhausted.'
						'"Thanks doc. That was great..."'
						'"Do come again, <<$pcs_nickname>>."'

						$orgasm_or = 'yes'
						gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
						gs 'arousal', 'end'
						gs 'stat'

						act 'Freshen up and leave': minut += 5 & gt 'city_residential'
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'glavdoc':
	menu_off = 1
	minut += 5
	if workhosp = 0:
		'You enter the chief of staff''s office and ask him about the job.'
		'The chief of staff looks at you. "Oh, you must be the girl Kat was talking about. I don''t have much time, so I''ll keep it short and take her word that you have the necessary experience."'
		'He continues. "You''ll work five days per week, Mondays to Fridays. Your shift begins between 8:00 and 9:00, and finishes around 16:00. Miss a day and you don''t get paid. You''ll get 1,500 <b>₽</b> per shift, and your salary will be deposited onto your back account on the 25th of the month."'
		'He looks at his watch again and shrugs. "You can sort out the rest of the details with the personnel department later. Do you want the job?"'
	else
		'You step into the office of the chief of staff.'
		'He looks up at you from his paperwork and smiles. "Ah, Ms. <<$pcs_lastname>>, nice to see you! To what do I owe the pleasure?"'
	end

	! WD: Uninitialised ~ 'workshop' use 'workhosp'
	if (work = 0 and workhosp = 0 and cheatWork = 0) or (workhosp = 0 and cheatWork = 1):
		act 'Take the job':
			cla
			workhosp = 1
			work = 1
			'You shake his hand and sort out the paperwork with the personnel department afterwards. Whatever Kat told them must''ve worked since none of them ask any questions about your credentials.'
			'When you leave the office, you''re holding a shiny new employee pass and a booklet with the relevant information.'

			act 'Return to the lobby': gt 'city_clinic', 'start'
		end
	end

	if workhosp = 1:act 'Quit your job': gt 'city_clinic', 'discharge'

	act 'Return to the lobby': gt 'city_clinic', 'start'
end

if $ARGS[0] = 'beginwork':
	*clr & cla
	menu_off = 1
	'<center><b><font color="maroon">Clinic</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/hospital.jpg"></center>'
	'You enter the clinic and get ready for a new work day.'

	act 'Start work':
		smena += 1
		gt 'WorkHosp', 'start'
	end

	act 'Quit your job': gt 'city_clinic', 'discharge'

end

if $ARGS[0] = 'discharge':
	cla
	menu_off = 1
	minut += 10
	workhosp = 0
	work = 0
	pay = smena * 1000
	money += pay
	smena = 0
	'The chief of staff looks disappointed. "So you''re leaving us, huh? That''s a shame. Here is your outstanding pay and your employment history. Take care."'

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

if $ARGS[0] = '0':
	*clr & cla
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex1.jpg"></center>'
	'During the examination, the doctor starts to flirt with you and touch you longer than is necessary, clearly trying to start something intimate.'
	
	gs 'willpower', 'sex', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Stop him (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'sex', 'resist'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			gt 'city_clinic', 'start'
		end
	else
		act 'Stop him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Have some fun':
		picrand = 11
		guy += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		gs 'boyStat', $npclastgenerated
		xgt 'sex', 'var'
	end
end

if $ARGS[0] = '1':
	*clr & cla
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex2.jpg"></center>'
	'You''re examined by two doctors who touch you everywhere, clearly going beyond what is permitted.'
	
	gs 'willpower', 'sex', 'resist', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Storm out (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'sex', 'resist', 'hard'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			gt 'city_clinic', 'start'
		end
	else
		act 'Storm out (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Have some fun with them':
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$boy[0] = $npclastgenerated
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$boy[1] = $npclastgenerated
		picrand = 11
		guy += 2
		xgt 'sexdvoe', 'var'
	end
end

if $ARGS[0] = '2':
	*clr & cla
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex3.jpg"></center>'
	'Heading into the office, you catch a nurse kneeling before the doctor with his cock in her mouth.'

	act 'Leave': gt 'city_clinic', 'start'

	act 'Walk in':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex4.jpg"></center>'
		'As you walk in, the doctor runs out and the startled nurse glares at you. After a moment, her eyes light up and she removes her robe before walking over to you and grabbing your ass and breast.'
		
		gs 'willpower', 'cuni', 'resist'
		if will_cost <= pcs_willpwr:
			act 'Leave (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'cuni', 'resist'
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'city_clinic', 'start'
			end
		else
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end

		act 'Let her':
			*clr & cla
			gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
			gs 'boyStat', $npclastgenerated
			guy += 1
			girl += 1
			'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex5.jpg"></center>'
			'She pulls down your clothes and bends you over the couch before she starts pleasuring your pussy with her tongue.'
			gs 'arousal', 'cuni', 10, 'lesbian', 'group'
			gs 'stat'
	
			act 'Lick her':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex6.jpg"></center>'
				'You lay her on the couch and sink your lips into her pussy, the smell of it driving you crazy. You''re found in this state by the returning doctor.'
				gs 'arousal', 'cuni_give', 10, 'lesbian', 'group'
				gs 'stat'
	
				act 'Threesome':picrand = 11 & gt 'podrsex', 'suck'
			end
		end
	end
end

if $ARGS[0] = 'cosmetic1':
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmetic1.jpg"></center>'
	'You''re greeted by a nurse who explains what procedures are available.'
	*nl
	'"Electrolysis will remove your body hair and stop it from growing."'
	'"Fillable breast implants allow you to fill them after the surgery. We stock silicone you use to fill them."'
	'"String implants slowly absorb your body fluids and grow larger over time. We can also drain it for you if it becomes too large."'
	*nl
	if money >= 80000 and lashair = 0:
		'<a href="exec:gt ''city_clinic'', ''electrolysis''">Electrolysis</a> laser hair removal of legs and pubic area - 80,000 <b>₽</b>'
		else
		'Electrolysis - laser hair removal of legs and pubic area - 80,000 <b>₽</b>'
	end
	if money >= 25000 and pcs_lip < 4:
		'<a href="exec:gt ''city_clinic'', ''lipPlus''">Lip enlargement surgery</a> - 25,000 <b>₽</b>'
		else
		'Lip enlargement surgery - 25,000 <b>₽</b>'
	end
	if money >= 30000 and pcs_lip ! 0:
		'<a href="exec:gt ''city_clinic'', ''lipMin''">Lip reduction surgery</a> - 30,000 <b>₽</b>'
		else
		'Lip reduction surgery - 30,000 <b>₽</b>'
	end
	if money >= 90000 and pcs_eyesize < 3:
		'<a href="exec:gt ''city_clinic'', ''eyePlus''">Eye enlargement surgery</a> - 90,000 <b>₽</b>'
		else
		'Eye enlargement surgery - 90,000 <b>₽</b>'
	end
	if money >= 90000 and pcs_eyesize ! 0:
		'<a href="exec:gt ''city_clinic'', ''eyeMin''">Eye reduction surgery</a> - 90,000 <b>₽</b>'
		else
		'Eye reduction surgery - 90,000 <b>₽</b>' 
	end
	if money >= 75000 and pcs_mass['body'] > 40:
		'<a href="exec:gt ''city_clinic'', ''lyposuction''">Liposuction</a> - 75,000 <b>₽</b>'
		else
		'Liposuction - 75,000 <b>₽</b>'
	end
	''
	if money >= 90000 and bodyVars['bust_silicone'] ! 0:
		'<a href="exec:brSurTemp = 0 & stringimplant = 0 & fillimplant = 0 & gt ''city_clinic'', ''bImplantA''">Remove breast implants</a> - 90,000 <b>₽</b>'
		else
		'Remove breast implants - 90,000 <b>₽</b>'
	end
	if money >= 170000 and fillimplant = 0 and stringimplant = 0:
		'<a href="exec:brSurTemp = 10 & gt ''city_clinic'', ''bImplantA''">Get small breast implants</a> - 170,000 <b>₽</b>'
		else
		'Get small breast implants - 170,000 <b>₽</b>'
	end
	if money >= 180000 and fillimplant = 0 and stringimplant = 0:
		'<a href="exec:brSurTemp = 20 & gt ''city_clinic'', ''bImplantA''">Get medium breast implants</a> - 180,000 <b>₽</b>'
		else
		'Get medium breast implants - 180,000 <b>₽</b>'
	end
	if money >= 190000 and fillimplant = 0 and stringimplant = 0:
		'<a href="exec:brSurTemp = 30 & gt ''city_clinic'', ''bImplantA''">Get large breast implants</a> - 190,000 <b>₽</b>'
		else
		'Get large breast implants - 190,000 <b>₽</b>'
	end
	if money >= 200000 and fillimplant = 0 and stringimplant = 0:
		'<a href="exec:brSurTemp = 40 & gt ''city_clinic'', ''bImplantA''">Get XXL breast implants</a> - 200,000 <b>₽</b>'
		else
		'Get XXL breast implants - 200,000 <b>₽</b>'
	end
	if money >= 200000 and bodyVars['bust_silicone'] = 0 and fillimplant = 0 and stringimplant = 0:
		'<a href="exec:brSurTemp = 20 & fillimplant = 1 & gt ''city_clinic'', ''bImplantA''">Get fillable implants</a> - 200,000 <b>₽</b>'
		else
		'Get fillable implants - 200,000 <b>₽</b>'
	end
	if money >= 250000 and bodyVars['bust_silicone'] = 0 and fillimplant = 0 and stringimplant = 0:
		'<a href="exec:brSurTemp = 20 & stringimplant = 1 & gt ''city_clinic'', ''bImplantA''">Get string implants</a> - 250,000 <b>₽</b>'
		else
		'Get string implants - 250,000 <b>₽</b>'
	end
	if stringimplant = 1 and bodyVars['bust_silicone'] >= 30 and money >= 2000:'<a href="exec: bodyVars[''bust_silicone''] -= 10 & money -= 2000 & MSG ''You drain some of your string implant''">Drain string implant</a> - 2,000 <b>₽</b>'
	''
	if money >= 500:
		'<a href="exec:siliconeBag += 1 & money -= 500 & MSG ''You buy a silicone bag.''">Buy silicone bag</a> - 500 <b>₽</b>'
		else
		'Buy silicone bag - 500 <b>₽</b>'
	end

	act 'Go back': gt 'city_clinic','start'
end

if $ARGS[0] = 'electrolysis':
	*clr & cla
	minut += 120
	pcs_leghair = 0
	pcs_pubes = 0
	lashair = 1
	money -= 80000
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/electrolysis.jpg"></center>'
	'The surgeon has you strip completely and lie down on the table. Over the next few hours, you''re treated by a laser over and over again. When the treatment is finished and you get up from the table, your skin feels silky smooth.'

	act 'Continue': gt 'city_clinic', 'cosmetic1'
end

if $ARGS[0] = 'lipPlus':
	*clr & cla
	minut += 60
	pcs_lip += 1
	money -= 25000
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply. We''ll be done before you know it."'
	'When you wake up, the procedure is complete and your lips are fuller.'

	act 'Continue': gt 'city_clinic', 'cosmetic1'
end

if $ARGS[0] = 'lipMin':
	*clr & cla
	minut += 60
	pcs_lip -= 1
	money -= 30000
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply. We''ll be done before you know it."'
	'When you wake up, the procedure is complete and your lips are thinner.'

	act 'Continue': gt 'city_clinic', 'cosmetic1'
end

if $ARGS[0] = 'eyePlus':
	*clr & cla
	minut += 60
	pcs_eyesize += 1
	money -= 90000
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply. We''ll be done before you know it."'
	'When you wake up again, the procedure is complete and your eyes are larger.'

	act 'Continue': gt 'city_clinic', 'cosmetic1'
end

if $ARGS[0] = 'eyeMin':
	*clr & cla
	minut += 60
	pcs_eyesize -= 1
	money -= 90000
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply. We''ll be done before you know it."'
	'When you wake up, the procedure is complete and your eyes are smaller.'

	act 'Continue': gt 'city_clinic', 'cosmetic1'
end

if $ARGS[0] = 'lyposuction':
	*clr & cla
	minut += 60
	pcs_mass['body'] -= 40
	if pcs_mass['body'] < 11: pcs_mass['body'] = 11
	money -= 75000
	gs 'body', 'softreset'
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply. We''ll be done before you know it."'
	'When you wake up, the procedure is complete and you''re looking thinner.'

	act 'Continue': gt 'city_clinic', 'cosmetic1'
end

if $ARGS[0] = 'bImplantA':
	*clr & cla
	minut += 60
	bodyVars['bust_silicone'] = brSurTemp
	! Get String Implants
	if stringimplant = 1:
		money -= 250000
	! Get Fillable Implants
	elseif fillimplant = 1:
		money -= 200000
	! Get XXL Implants
	elseif bodyVars['bust_silicone'] = 40:
		money -= 200000
	! Get Large Implants
	elseif bodyVars['bust_silicone'] = 30:
		money -= 190000
	! Get Medium Implants
	elseif bodyVars['bust_silicone'] = 20:
		money -= 180000
	! Get Small Implants
	elseif bodyVars['bust_silicone'] = 10:
		money -= 170000
	! Remove any implants
	elseif bodyVars['bust_silicone'] = 0:
		money -= 90000
	end
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
	'The surgeon has you strip, put on a gown and lie down on the table, where he gives you a mask. "Just breathe in deeply... we''ll be done before you know it."'
	'When you wake up again, the procedure is complete and you look down at your new breasts.'

	act 'Continue': gt 'city_clinic', 'cosmetic1'
end

if $ARGS[0] = 'milk_advertisement':
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/milk_advertisement.jpg"></center>'
	'The advertisement says that a breast milk bank has opened.'
	'You go through the brochure for a moment and see that they''re paying money for breast milk. It looks like this clinic is accepting donations.'
	if lactation['pc_aware'] > 0:
		'Maybe you should concider donating your breast milk?'
	else
		'You''re not sure why this caught your attention.'
	end
	if lact_ev['pcs_knows_milkbank'] < 1: lact_ev['pcs_knows_milkbank'] = 1
	act 'Go back': gt 'city_clinic', 'start'
end

if $ARGS[0] = 'milk_reception':
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/milk_reception.jpg"></center>'
	'The woman at the reception looks at you with an annoyed glare and stands up. "Yes, yes... Go this way."'
	'She waves into a general direction down the hallway. "There should be a sign on the door. It''s only a small room."'
	if lact_ev['pcs_knows_milkbank'] < 1: lact_ev['pcs_knows_milkbank'] = 1
	act 'Go back': gt 'city_clinic', 'start'
end

if $ARGS[0] = 'milk_donation_room':
	*clr & cla
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/milkbank_door.jpg"></center>'
	'There''s a door with a sign on it, indicating this is the office for milk donation.'
	act 'Go back': gt 'city_clinic','start'
	if lactation['pc_aware'] > 0 and hour < 10 or hour > 19:
		'The door seems to be locked and nobody is here.'
		'A sign reads "Opening hours 10:00 to 19:00 daily.'
	elseif lactation['pc_aware'] > 0 and hour >= 10 and hour <= 19:
		'The door is open and someone is talking inside.'
		act 'Go inside':
			*clr & cla
			menu_off = 1
			gs 'stat'
			if lact_ev['pcs_milkbank_firsttime'] < 1:
				'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/milk_nurse.jpg"></center>'
				'As you enter, you see a women sorting small bottles and bags into a fridge.'
				'"Hello?" you say to get her attention.'
				'The woman turns around. "Oh hello! I didn''t notice you there!"'
				'She smiles happily at you and walks over to a chair, sitting down and signaling you to sit down too.'
				if lactation['breastmv'] > lactation['breastmm']*6/10:
					'She looks you up and down. "Seems like you''re here for a donation, right?'
					'You blush, knowing that your breasts feel a bit full today, and answer with a short nod.'
				else
					'"Are you here for a donation?" she asks.'
					'"Uhm... Yes," you reply.'
				end
				'The woman nods happily and takes some papers and a pen out of her desk "First of all, you have to sign this. Then we''re going to take a sample from you."'
				if pcs_gpolimilkdonation >= 2:
					'"Ah yes, okay. I already donated in the Pavlovsk clinic. They did that too."'
					'"Okay, then you already know what''s going to happen," the woman replies.'
				else
					'"Sample?" you ask.'
					'"Yes. We need to pump some milk from your breast to have it analyzed. It''s not much. Maybe about 50ml."'
					'You nod at her explainations.'
				end
				'She gets up and leads you to another room.'
				act 'Continue':
					*clr & cla
					menu_off = 1
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/pumping_room.jpg"></center>'
					'"Sit down here. I''ll prepare the pump and you can prepare yourself."'
					'You uncover your breasts and the woman puts the suction cups over your nipples.'
					'She starts the pump up and it starts drawing milk from your breasts.'
					lact_ev['poli_pumptime'] = func('lact_lib','$get_breastmilk_time', 4, 50)
					if lact_ev['poli_pumptime'] > 15:
						'After 15 minutes, the woman detaches the pump and tilts her head disappointment.'
						'"Hmmm... This isn''t as much as we expected, but it should do."'
						minut += 15
						lact_ev['poli_milkedvolume'] = func('lact_lib','$get_breastmilk', 4, 15)
					else
						'After <<lact_ev[''poli_pumptime'']>> minutes, the woman detaches the pump with a smile.'
						'"This should be enough."'
						'She nods and smiles at you.'
						minut += lact_ev['poli_pumptime']
						lact_ev['poli_milkedvolume'] = func('lact_lib','$get_breastmilk', 4, lact_ev['poli_pumptime'])
					end
					'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/small_sample.jpg"></center>'
					'The woman takes your pumped milk and signals you to cover up.'
					'"Okay, we''ll have this sample checked and you can come back later."'
					if pcs_mass['body'] > 40:
						lact_ev['poli_sample_fat'] = (60 + rand(0, 9))
					elseif pcs_mass['body'] > 20:
						lact_ev['poli_sample_fat'] = (45 + rand(0, 9))
					elseif pcs_mass['body'] > 15:
						lact_ev['poli_sample_fat'] = (20 + rand(0, 9))
					else
						lact_ev['poli_sample_fat'] = (10 + rand(0, 9))
					end
					if pcs_energy > 30:
						lact_ev['poli_sample_sugar'] = rand(69, 80)
					elseif sick > 1:
						lact_ev['poli_sample_sugar'] = rand(0, 45)
					else
						lact_ev['poli_sample_sugar'] = rand(45, 69)
					end
					lact_ev['poli_sample_vol'] = lact_ev['poli_milkedvolume']
					lact_ev['poli_milkedvolume'] = 0
					lact_ev['pcs_milkbank_firsttime'] = 1
					act 'Leave':gt 'city_clinic','start'
				end
			else
				!!	if rand(1,100) > 98:
				!!		gt 'city_clinic','milk_bank_guy'
				!!	else
				!!		gt 'city_clinic','milk_bank'
				!!	end
				gt 'city_clinic', 'milk_bank'
			end
		end
	else
		'You''re not sure what you want to do here.'
	end
end

if $ARGS[0] = 'milk_bank_guy':
	'content not finished yet'
	act 'Leave': gt 'city_clinic','start'
end

if $ARGS[0] = 'milk_bank':
	'You walk and see one of the milk donation service employees sitting at the desk.'
	if lactation['breastmv'] > lactation['breastmm']*6/10:
		'"Oh hi! Do you want to donate your breast milk?"'
	else
		'"Oh hi! How can I help you?"'
	end
	act 'Check your file':
		*clr & cla
		menu_off = 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/formular.jpg"></center>'
		'The employee hands you a file on how much you have donated so far.'
		'<br>----------------------------------------'
		'Analyzed milksample measurements'
		'Volume in ml: <<lact_ev[''poli_sample_vol'']/1000>>ml'
		'Fat in %: <<lact_ev[''poli_sample_fat'']/10>>.<<lact_ev[''poli_sample_fat''] mod 10>>%'
		'Lactose in %: <<lact_ev[''poli_sample_sugar'']/10>>.<<lact_ev[''poli_sample_sugar''] mod 10>>%'
		'<br>----------------------------------------'
		if lact_ev['poli_totalmilkdonation_count'] > 0:
			'Total breast milk donation statistics'
			'Donated milk volume in liter: <<lact_ev[''poli_totalmilkdonated'']/1000>>.<<$mid(1000 + (lact_ev[''poli_totalmilkdonated''] mod 1000), 2, 3)>>l'
			'Donation count: <<lact_ev[''poli_totalmilkdonation_count'']>>'
			'Average milk volume per donation in ml: <<lact_ev[''poli_totalmilkdonated'']/lact_ev[''poli_totalmilkdonation_count'']>>.<<$mid(100 + ((100 * lact_ev[''poli_totalmilkdonated''] / lact_ev[''poli_totalmilkdonation_count'']) mod 100), 2, 2)>>'
			'Paid money: <<((lact_ev[''poli_totalmilkdonated'']/50)*100)>><b>₽</b>'
			'<br>----------------------------------------'
		end
		act 'Leave': gt 'city_clinic', 'milk_donation_room'
	end
	if lactation['active'] > 0:
		act 'Donate breast milk':
			*clr & cla
			menu_off = 1
			gs 'stat'
			'"Of course. Please follow me."'
			act 'Follow them':
				*clr & cla
				menu_off = 1
				gs 'stat'
				lact_ev['poli_donatemoney'] = 0
				lact_ev['poli_donationsessioncount'] = 0
				'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/pumping_room.jpg"></center>'
				'The employee leads you into one of the free rooms and invites you to sit down.'
				'She prepares the breast pump and signals you to prepare yourself.'
				act 'continue': gt 'city_clinic','milk_donation'
			end
			act 'Don''t follow her':
				*clr & cla
				menu_off = 1
				gs 'stat'
				'"Ah sorry! I forgot something and can''t donate now," you reply.'
				act 'Leave': gt 'city_clinic', 'milk_donation_room'
			end
		end
	end

	vmb_i = 0
	:vmbloop
	if vmb_i <= temp_var:
		if mbarrloca[vmb_i] = 2 or mbarrloca[vmb_i] = 1:
			gs 'lact_bp', 'update_mbottle', vmb_i
			if $mbarrstat[vmb_i] = 'fresh' or $mbarrstat[vmb_i] = 'normal':
				if mbarrfill[vmb_i] > 0:
					if mbarrfill[vmb_i] <= 1500:
						temp_small_mbottle_ids[] = vmb_i
					else
						temp_medium_mbottle_ids[] = vmb_i
					end
				end
			end
		end
		vmb_i += 1
		jump 'vmbloop'
	end
	killvar 'vmb_i'

	if arrsize('temp_small_mbottle_ids') > 0:
		act 'Donate a small bottle of milk':
			*clr & cla
			minut += 5
			temp_pay = func('city_clinic', 'donate_milk_bottle', 'small')
			money += temp_pay
			gs 'stat'

			!! IMAGE
			!! TEXT
			'You donated a small milk bottle and got paid <<temp_pay>> ₽.'

			killvar 'temp_pay'
			act 'Leave': minut += 5 & gt 'city_clinic', 'milk_donation_room'
		end
	end
	if arrsize('temp_small_mbottle_ids') > 4:
		act 'Donate 5 small bottles of milk':
			*clr & cla
			minut += 10
			temp_pay = func('city_clinic', 'donate_milk_bottle', 'small')
			temp_pay += func('city_clinic', 'donate_milk_bottle', 'small')
			temp_pay += func('city_clinic', 'donate_milk_bottle', 'small')
			temp_pay += func('city_clinic', 'donate_milk_bottle', 'small')
			temp_pay += func('city_clinic', 'donate_milk_bottle', 'small')
			money += temp_pay
			gs 'stat'

			!! IMAGE
			!! TEXT
			'You donated 5 small milk bottles and got paid <<temp_pay>> ₽.'

			killvar 'temp_pay'
			act 'Leave': minut += 5 & gt 'city_clinic', 'milk_donation_room'
		end
	end
	if arrsize('temp_medium_mbottle_ids') > 0:
		act 'Donate a medium bottle of milk':
			*clr & cla
			minut += 5
			temp_pay = func('city_clinic', 'donate_milk_bottle', 'medium')
			money += temp_pay
			gs 'stat'

			!! IMAGE
			!! TEXT
			'You donated a medium milk bottle and got paid <<temp_pay>> ₽.'

			killvar 'temp_pay'
			act 'Leave': minut += 5 & gt 'city_clinic', 'milk_donation_room'
		end
	end
	if arrsize('temp_medium_mbottle_ids') > 4:
		act 'Donate 5 medium bottles of milk':
			*clr & cla
			minut += 10
			temp_pay = func('city_clinic', 'donate_milk_bottle', 'medium')
			temp_pay += func('city_clinic', 'donate_milk_bottle', 'medium')
			temp_pay += func('city_clinic', 'donate_milk_bottle', 'medium')
			temp_pay += func('city_clinic', 'donate_milk_bottle', 'medium')
			temp_pay += func('city_clinic', 'donate_milk_bottle', 'medium')
			money += temp_pay
			gs 'stat'

			!! IMAGE
			!! TEXT
			'You donated 5 medium milk bottles and got paid <<temp_pay>> ₽.'

			killvar 'temp_pay'
			act 'Leave': minut += 5 & gt 'city_clinic', 'milk_donation_room'
		end
	end


	act 'Leave': gt 'city_clinic','start'
end

if $ARGS[0] = 'milk_donation':
	*clr & cla
	menu_off = 1
	gs 'stat'
	if hour >= 10 and hour <= 19:
		lactation['nipple_cream_applied'] = 1
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pumping.jpg"></center>'
		'The employee 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['poli_milkedvolume'] = func('lact_lib','$get_breastmilk', 4, 15)
			lactation['breastpumped'] = 1
			'After 15 minutes, the employee detaches the pumps from your breasts.'
			if lact_ev['poli_milkedvolume'] => 50000:
				lact_ev['poli_donationsessioncount'] += lact_ev['poli_milkedvolume']/10000
				lact_ev['poli_temp_var'] = (lact_ev['poli_milkedvolume']/50000)
				lact_ev['poli_totalmilkdonation_count'] += 1
				lact_ev['poli_totalmilkdonated'] += (lact_ev['poli_temp_var']*50)
				if lact_ev['poli_temp_var'] >= 12:
					'She looks astonished at the generous amount of milk as she stores away <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''poli_temp_var'']>> bottles.'
					'"I can''t believe you had that much inside you, Ms. <<$pcs_lastname>>!" she laughs heartily and you feel yourself blushing.'
				elseif lact_ev['poli_temp_var'] >= 10:
					'She looks amazed at the copious amounts of milk as she stores away <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''poli_temp_var'']>> bottles.'
					'"Oh my, where do you store all this?"'
				elseif lact_ev['poli_temp_var'] >= 8:
					'She looks surprised at the large amount of milk as she stores away <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''poli_temp_var'']>> bottles.'
				elseif lact_ev['poli_temp_var'] >= 6:
					'She looks pleasantly satisfied at you as she stores away <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''poli_temp_var'']>> bottles.'
					'"A very generous donation, Ms. <<$pcs_lastname>>."'
				elseif lact_ev['poli_temp_var'] >= 4:
					'She looks satisfied at you as she stores away <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''poli_temp_var'']>> bottles.'
				elseif lact_ev['poli_temp_var'] >= 2:
					'She looks satisfied at you as she puts away <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''poli_temp_var'']>> bottles.'
				elseif lact_ev['poli_temp_var'] = 1:
					'She looks satisfied at you as she puts away one bottle with 50ml of your breast milk.'
				else
					'She looks satisfied at you as she puts away <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''poli_temp_var'']>> bottles.'
				end
			elseif lact_ev['poli_milkedvolume'] < 50000 and lact_ev['poli_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[''poli_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['poli_milkedvolume'] = 0
			if lact_ev['poli_donationsessioncount'] > 0:
				lact_ev['poli_donatemoney'] = (lact_ev['poli_donationsessioncount']*5)/10*10
			else
				lact_ev['poli_donatemoney'] = 0
			end
			lactation['nipple_cream_applied'] = 0
			minut += 15
			if lactation['breastmv'] > lactation['breastmm']/2 and lactation['breastmv'] >= 100000:
				'The employee looks at your breasts.'
				'"It seems there''s still some milk left. Do you want to donate more?"'
				act 'Have your breasts pumped again': gt 'city_clinic','milk_donation'
			else
				act 'Ask to donate more': gt 'city_clinic','milk_donation'
			end
			act 'Enough for today':
				*clr & cla
				gs 'stat'
				if lact_ev['poli_donationsessioncount'] > 0:
					money += lact_ev['poli_donatemoney']
					'You put your top back on and the employee hands you <<lact_ev[''poli_donatemoney'']>><b>₽</b> for your donated breast milk.'
				else
					'You put your top back on.'
				end
				act 'Leave':
					lact_ev['poli_milkedvolume'] = 0
					gt 'city_clinic', 'milk_donation_room'
				end
			end
		end
	elseif lact_ev['poli_donationsessioncount'] > 0:
		'"Sorry Ms. <<$pcs_lastname>>, but we''re closing now."'
		'You put your top back on and the employee hands you <<lact_ev[''poli_donatemoney'']>><b>₽</b> for your donated breast milk.'
		act 'Leave': minut += 5 & gt 'city_clinic', 'milk_donation_room'
	else
		'The milk donation service is closed. It''s open every day between 10:00 and 19:00.'
		act 'Leave': minut += 5 & gt 'city_clinic', 'milk_donation_room'
	end
end

if $ARGS[0] = 'donate_milk_bottle':
	if $ARGS[1] = 'small':
		temp_id = temp_small_mbottle_ids[0]
	else
		temp_id = temp_medium_mbottle_ids[0]
	end

	!! CHANGE PAY HERE
	temp_pay = mbarrfill[temp_id] / 10			& !! Base pay = 1 rbl / ml for fresh milk
	if $mbarrstat[temp_id] = 'normal': temp_pay = temp_pay / 2		& !! And 0.5 rbl / ml for normal milk
	!!	if $mbarrtemp[temp_id] = 'hot' / 'warm' / 'lukewarm' / 'cold' / 'frozen':


	gs 'lact_bp', 'empty_milk_bottle', temp_id
	RESULT = temp_pay

	killvar 'temp_pay'
	killvar 'temp_id'

	if $ARGS[1] = 'small':
		killvar 'temp_small_mbottle_ids', 0
	else
		killvar 'temp_medium_mbottle_ids', 0
	end
end



--- city_clinic ---------------------------------