:: WorkHosp
<<set $here = 'WorkHosp'>>
<<set $ARGS = $location_var[$here]>>
<<if $location_var[$here][0] == 'start'>>
	<<set $loc_arg = 'start'>>
	<<set $loc = 'WorkHosp'>>
	<<set $sexloc = 'WorkHosp'>>
	<<set $location_type = 'event'>>
	<<set $menu_loc = 'WorkHosp'>>
	<<set $menu_arg = 'start'>>
	<<set $menu_off = 0>>
	<h2>Clinic</h2>
	<<image "locations/city/residential/clinic/hospital.jpg">>
	The hospital staff are hard at work, with many patients waiting in the lobbies. Doctors and nurses rush from office to office trying to keep the flow of patients going as quickly as possible.
	<<set $jobhosprand = rand(0, 9)>>
	<<actCLA 'Work in the operating room (1:00)'>>
		<<set $time.minutes += 60>>
		<<run $pc.skillExperienceGain('medicine',rand(0,2))>>
		<<if getvar("$jobhosprand") == 0>>
			<<gt 'WorkHosp' '2'>>

		<</if>>
		You work as part of the operating team, helping the doctors with whatever tasks they request of you.
		<<act 'Move away'>>
			<<gt 'WorkHosp' 'start'>>
		<</act>>
	<</actCLA>>
	<<actCLA 'Help the doctors in the emergency room (1:00)'>>
		<<set $time.minutes += 60>>
		<<run $pc.skillExperienceGain('medicine',rand(0,2))>>
		<<if getvar("$jobhosprand") == 0>>
			<<gt 'WorkHosp' '3'>>

		<</if>>
		You spend a frenzied hour helping patients that come into the emergency room.
		<<act 'Move away'>>
			<<gt 'WorkHosp' 'start'>>
		<</act>>
	<</actCLA>>
	<<actCLA 'Relax in the nurse station'>>
		<<set $time.minutes += 30>>
		You relax a little while pretending to be busy.
		<<if $pc.pcs_inhib > 20>>
			<<actCLA 'Masturbate (0:15)'>>
				<<set $mastrrand = rand(0,2)>>
				<<if getvar("$mastrrand") == 0>>
					<<gt 'WorkHosp' '1'>>
				<<else>>
					<<set $picrand = 11>>
					<<image "locations/shared/apartment/event/sick/mastr11.jpg">>
					You secretly masturbate whenever nobody is watching.
					<<set $orgasm_or = 'yes'>>
					<<set $orgasm_txt = 'Gradually, a pleasant warmth and sensation radiates from your needy pussy, culminating in a powerful orgasm that sends waves of pleasure through your entire body.'>>
					<<arouse 'clit_finger' 15 `['masturbate']`>>
				<</if>>
				<<act 'Leave'>>
					<<gt 'WorkHosp' 'start'>>
				<</act>>
			<</actCLA>>
		<</if>>
		<<act 'Move away'>>
			<<gt 'WorkHosp' 'start'>>
		<</act>>
	<</actCLA>>
	<<act 'Eat in the cafeteria (0:30)'>>
		<<gt 'beverage' 'm_meal'>>
	<</act>>
	<<actCLA 'Chat with Kat'>>
		<<set $time.minutes += 30>>
		<<set $kat += 1>>
		<<if $npc('A219').rel > 60 and getvar("$military") == 0>>
			<<gt 'WorkHosp' 'milit'>>

		<</if>>
		You spend some time chatting with Kat.
		<<if $npc('A219').rel > 50>>
			<<act 'Suggest going to an empty room together'>>
				<<gt 'WorkHosp' '0'>>
			<</act>>
		<</if>>
		<<act 'Move away'>>
			<<gt 'WorkHosp' 'start'>>
		<</act>>
	<</actCLA>>
	<<if $time.hour >= 16>>
		<h2>Clinic</h2>
		<<image "locations/city/residential/clinic/hospital.jpg">>
		Your shift has ended.
		<<act 'Go home'>>
			<<gt 'city_residential'>>
		<</act>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'milit'>>
	<<set $military = 1>>
	Kat turns to you. "Listen, I'm scheduled to work this weekend, but I have plans. Here''s the deal: war games are often held not far from the city and, well, according to the rules, they need doctors on site before they can begin.
	<p>She notices your reaction. "Don't worry, you'll have a doctor with you, so the most you'll need to do is apply some bandages. If you feel up to it, you can catch a bus at the clinic on Saturday between 06:00 and 09:00. Oh yeah, I almost forgot! The pay for two days is 5000 <b>₽</b>. So what do you say?"</p>
	<<act 'Move away'>>
		<<gt 'WorkHosp' 'start'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == '0'>>
	<<set $location_type = 'event'>>
	<<set $katprorand = rand(0, 2)>>
	<<if getvar("$katprorand") == 0>>
		<<set $girl += 1>>
		<<set $picrand = 11>>
		<<xgt 'lezbsex' 'var'>>
	<<elseif getvar("$katprorand") == 1>>
		<<image "locations/city/residential/clinic/sex/hospsex7.jpg">>
		You and Kat have just begun to fondle each other when a patient enters the room. You back away from her, trying to pretend that nothing was happening. In contrast, Kat doesn''t hesitate and lies down on the couch with her legs spread wide, proudly showing off her wet pussy.
		She guides you back down to her pussy, leaving no doubt what she expects your tongue to be doing while looking hungrily at the guy and inviting him to join in the fun.
		<<arouse 'cuni_give' 10 `['lesbian']`>>
		<<act 'Leave'>>
			<<gt 'WorkHosp' 'start'>>
		<</act>>
		<<actCLA 'Sounds like fun'>>
			<<set $girl += 1>>
			<<set $guy += 1>>
			<<set $picrand = 12>>
			<<set $sexpartkno = 1>>
			<<gs 'npcgeneratec' 0 'Patient' `rand(18,48)`>>
			
			<<gt 'podrsex' 'suck'>>
			<<arouse 'cuni_give' 10 `['lesbian']`>>
			<<arouse 'vaginal' 10 `['unknown']`>>
			<<set $time.minutes -= 10>>
			
		<</actCLA>>
	<<elseif getvar("$katprorand") == 2>>
		<<image "locations/city/residential/clinic/sex/hospsex8.jpg">>
		While you and Kat are in full swing, two doctors enter the room. You are both so engrossed with each other that you don't even notice them until they start caressing you. You both spread your legs wider, inviting them to join the fun.
		<<actCLA 'Entertain them'>>
			<<set $gang += 1>>
			<<set $picrand = 11>>
			<<set $sexpartkno = 1>>
			<<gs 'WorkHosp' 'randdoc'>>
			<<setinit $sex.npcId[1] = $sex.npcId>>
			<<setinit $boydesc[1] = $boydesc>>
			<<if getvar("$docfuck["+$randdoc+"]") == 1>>
				<<setn $guy += 1>>

			<</if>>
			<<warn 'JUMP MARKER ENCOUNTERED: :docloop'>>
			<<gs 'WorkHosp' 'randdoc'>>
			<<if $boydesc == $boydesc[1]>>
				<<setinit $docfuck[$randdoc] -= 1>> 

			<</if>>
			<<if getvar("$docfuck["+$randdoc+"]") == 1>>
				<<setn $guy += 1>>

			<</if>>
			<<arouse 'bj' 10 `['group']`>>
			<<arouse 'vaginal' 10 `['group']`>>
			<<set $time.minutes -= 10>>
			
			<<xgt 'sexdvanadva' 'var'>>
		<</actCLA>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == '1'>>
	<<set $mastrrand = rand(0,1)>>
	<<if getvar("$mastrrand") == 0>>
		<<image "locations/city/residential/clinic/sex/hospsex9.jpg">>
		As you masturbate, you totally abandon yourself to the pleasure of your coming orgasm. A doctor enters the room, but you're so absorbed in your own pleasure that you only notice him when his hand starts to guide your head to his erect cock.
		<<arouse 'clit_finger' 10 `['masturbate']`>>
		<<actCLA 'Break and run' undefined `{willpower:['sex','resist']}`>>
				
				
				<<gt 'WorkHosp' 'start'>>
			<</actCLA>>
		
		<<actCLA 'Go along with it'>>
			<<set $guy += 1>>
			<<set $picrand = 12>>
			<<gs 'WorkHosp' 'randdoc'>>
			<<if getvar("$docfuck["+$randdoc+"]") == 1>>
				<<setn $guy += 1>>

			<</if>>
			<<gt 'sex' 'minet'>>
		<</actCLA>>
	<<else>>
		<<set $picrand = rand(12, 13)>>
		<<image "locations/city/residential/clinic/sex/hospsex10.jpg">>
		As you lose yourself in pleasure, two doctors come into the room. You're so distracted that you only notice them when they start to openly masturbate in front of you.
		<<arouse 'clit_finger' 10 `['masturbate']`>>
		<<act 'Leave'>>
			
			<<gt 'WorkHosp' 'start'>>
		<</act>>
		<<actCLA 'Play with them' undefined `{willpower:['sex','self']}`>>
				<<set $sexpartkno = 1>>
				<<gs 'WorkHosp' 'randdoc'>>
				<<setinit $sex.npcId[1] = $sex.npcId>>
				<<setinit $boydesc[1] = $boydesc>>
				<<if getvar("$docfuck["+$randdoc+"]") == 1>>
					<<setn $guy += 1>>

				<</if>>
				<<warn 'JUMP MARKER ENCOUNTERED: :docloop2'>>
				<<gs 'WorkHosp' 'randdoc'>>
				<<if $boydesc == $boydesc[1]>>
					<<setinit $docfuck[$randdoc] -= 1>> 

				<</if>>
				<<if getvar("$docfuck["+$randdoc+"]") == 1>>
					<<setn $guy += 1>>

				<</if>>
				<<arouse 'bj' 10 `['group']`>>
				<<arouse 'vaginal' 10 `['group']`>>
				<<set $time.minutes -= 10>>
				
				
				<<xgt 'sexdvoe' 'var'>>
			<</actCLA>>
		
	<</if>>
<</if>>
<<if $location_var[$here][0] == '2'>>
	<<set $picrand = rand(13, 15)>>
	<<image "locations/city/residential/clinic/sex/hospsex11.jpg">>
	A patient comes through the door and takes off his pants to show you his flaccid penis. He asks you to help him as he can't seem to get an erection and it's causing him depression. You realize that it's all just a silly game and that he hopes to fuck you, but you still feel sorry for him. You wonder what caused him to come up with this plan and decide it might just be that he has no luck with girls, and if today is not his lucky day, he may jump out of the window.
	<<actCLA 'Oust him'>>
		<<run $pc.skillExperienceGain('medicine',rand(0,1))>>
		<<gt 'WorkHosp' 'start'>>
	<</actCLA>>
	<<actCLA 'Give him what he wants' undefined `{willpower:['sex','self']}`>>
			<<set $guy += 1>>
			
			<<gt 'sex' 'minet'>>
		<</actCLA>>
	
<</if>>
<<if $location_var[$here][0] == '3'>>
	<<image "locations/city/residential/clinic/sex/hospsex12.jpg">>
	A pretty patient comes into the room and the doctor tries to examine her. She touches him near his poorly hidden erection and the doctor glances at you with a question in his eyes.
	<<actCLA 'Ask if she actually needs treatment'>>
		<<run $pc.skillExperienceGain('medicine',rand(0,1))>> <<gt 'WorkHosp' 'start'>>
	<</actCLA>>
	<<actCLA 'Play along' undefined `{willpower:['sex','self']}`>>
			<<set $guy += 1>>
			<<set $girl += 1>>
			<<set $lesbian += 1>>
			<<set $picrand = 13>>
			<<set $sexpartkno = 1>>
			<<gs 'WorkHosp' 'randdoc'>>
			<<if getvar("$docfuck["+$randdoc+"]") == 1>>
				<<setn $guy += 1>>

			<</if>>
			<<gt 'podrsex' 'suck'>>
			<<arouse 'cuni_give' 10 `['group']`>>
			<<arouse 'vaginal' 10 `['group']`>>
			<<set $time.minutes -= 10>>
			
			
		<</actCLA>>
	
<</if>>
<<if $location_var[$here][0] == 'randdoc'>>
	<!-- !!	if $randdoc[0] = '':-->
	<<set $randdoc = rand(0,19)>>
	<<if getvar("$randdoc") == 0>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Ivanov'>>
		<<set $npc($npclastgenerated).lastname = 'Ivanov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 1>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Smirnov'>>
		<<set $npc($npclastgenerated).lastname = 'Smirnov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 2>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Kuznetsov'>>
		<<set $npc($npclastgenerated).lastname = 'Kuznetsov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 3>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Popov'>>
		<<set $npc($npclastgenerated).lastname = 'Popov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 4>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Vasiliev'>>
		<<set $npc($npclastgenerated).lastname = 'Vasiliev'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 5>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Petrov'>>
		<<set $npc($npclastgenerated).lastname = 'Petrov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 6>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Sokolov'>>
		<<set $npc($npclastgenerated).lastname = 'Sokolov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 7>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Mikhailov'>>
		<<set $npc($npclastgenerated).lastname = 'Mikhailov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 8>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Fedorov'>>
		<<set $npc($npclastgenerated).lastname = 'Fedorov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 9>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Morozov'>>
		<<set $npc($npclastgenerated).lastname = 'Morozov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 10>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Volkov'>>
		<<set $npc($npclastgenerated).lastname = 'Volkov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 11>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Alexeev'>>
		<<set $npc($npclastgenerated).lastname = 'Alexeev'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 12>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Lebedev'>>
		<<set $npc($npclastgenerated).lastname = 'Lebedev'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 13>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Semenov'>>
		<<set $npc($npclastgenerated).lastname = 'Semenov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 14>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Egerov'>>
		<<set $npc($npclastgenerated).lastname = 'Egerov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 15>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Pavlov'>>
		<<set $npc($npclastgenerated).lastname = 'Pavlov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 16>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Kozlov'>>
		<<set $npc($npclastgenerated).lastname = 'Kozlov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 17>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Stepanov'>>
		<<set $npc($npclastgenerated).lastname = 'Stepanov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 18>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Nikolaev'>>
		<<set $npc($npclastgenerated).lastname = 'Nikolaev'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<<elseif getvar("$randdoc") == 19>>
		<<gs 'npcgeneratec' 0 'Doctor' `rand(28,48)`>>
		<<set $npc($npclastgenerated).usedname = 'Dr. Orlov'>>
		<<set $npc($npclastgenerated).lastname = 'Orlov'>>
		<<gs 'npcpreservec' $npclastgenerated>>
	<</if>>
	<!-- !!	end-->
	<<gs 'boyStat' $npclastsaved>>
	<<setinit $docfuck[$randdoc] += 1>>
<</if>>
