glife/locations/WorkHosp

# WorkHosp
if $ARGS[0] = 'start':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	$sexloc = $CURLOC
    $location_type = 'event'
	gs 'stat'
	'<center><b><font color="maroon">Clinic</font></b></center>'
	'<center><img src="images/img/spaln/hospital.jpg"></center>'
	'The clinic are hard at work, patients sit in queues, doctors are receiving, nurses rush from office to office.'
	jobhosprand = rand(0, 9)

	act 'Work in the procedural':
		cla
		minut += 60

		if jobhosprand = 0:gt 'WorkHosp', '2'

		'You worked in the treatment room.'

		act 'Move away':gt 'WorkHosp', 'start'
	end

	act 'Help the doctor at the reception':
		cla
		minut += 60

		if jobhosprand = 0:gt 'WorkHosp', '3'

		'You helped a doctor at the reception.'

		act 'Move away':gt 'WorkHosp', 'start'
	end

	act 'Relax in nursing':
		cla
		minut += 30
		gs 'stat'
		'You relax.'

		act 'Masturbate (0:15)':
			mastrrand = rand(0, 2)

			if mastrrand = 0:
				gt 'WorkHosp', '1'
			else
				cla
				*clr
				minut += 15
				stat['mast'] += 1
				pcs_horny = 0
				orgasm += 1
				picrand = 11
				'<center><img src="images/inbed/mastr11.jpg"></center>'
				'You masturbated.'
				'Gradually a pleasant warmth and pulsation increases in the lower abdomen, then descend to the feeling you and your entire body covered hot waves of orgasm'
			end

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

		act 'Move away':gt 'WorkHosp', 'start'
	end

	act 'Eat in the cafeteria (0:30)':gs 'food', 'm_meal'

	act 'Chat with Kat':
		cla
		minut += 30
		kat += 1

		if kat > 60 and military = 0:gt 'WorkHosp', 'milit'

		'You chatted with Kate.'


		if kat > 50:
			act 'Suggest to retire':gt 'WorkHosp', '0'
		end

		act 'Move away':gt 'WorkHosp', 'start'
	end

	if hour >= 16:
		cls
		'<center><b><font color="maroon">Clinic</font></b></center>'
		'<center><img src="images/img/spaln/hospital.jpg"></center>'
		'Your shift ended.'

		act 'Go home':gt 'street'
	end
end

if $ARGS[0] = 'milit':
	cla
	military = 1
	'"Listen, I immediately offered to earn the weekend, but I have plans. Overall the thing is close to the city are often held war games, well, according to the rules that need to be attended by doctors there. Do not be afraid you will be there with you doctor, so the maximum that you have to do is to stick patches. short if you decide on a Saturday bus at the clinic, he was waiting for from 6 to 9 hours. Yeah I almost forgot to pay for two days of 5000. "'


	act 'Move away':gt 'WorkHosp', 'start'
end

if $ARGS[0] = '0':
    $location_type = 'event'
	cla
	*clr
	katprorand = rand(0, 2)

	if katprorand = 0:
		girl += 1
		lesbian += 1
		picrand = 11
		xgt 'lezbsex', 'var'
	elseif katprorand = 1:
		'<center><img src="images/img/spaln/hospsex7.jpg"></center>'
		'Only you and Kat began to fondle each other as to the treatment the patient is entered. You backed away from her trying to pretend that nothing happened, on the contrary, Kate did not hesitate and was lying on the couch with her legs spread wide, proudly showing off her wet pussy on your tongue, and looked appealingly at the guy look inviting him prisoedinitsa.'

		act 'Leave':gt 'WorkHosp', 'start'

		act 'Amuse':
			girl += 1
			guy += 1
			lesbian += 1
			picrand = 12
			sexpartkno = 1
			gs 'npcgeneratec', 0, 'Patient', rand(18,48)
			gs 'boyStat', $npclastgenerated
			gt 'podrsex', 'suck'
		end
	elseif katprorand = 2:
		'<center><img src="images/img/spaln/hospsex8.jpg"></center>'
		'When your games were in full swing in procedural included two doctors, but you were already so excited that not paying any attention to them continued, and when men began to caress you, you just degradability radvinuli legs wider, inviting them into your vagina.'

		act 'Entertain':
			gang += 1
			picrand = 11
			sexpartkno = 1
			dynamic $randdoc
			$boy1 = $boy
			if docfuck[randdoc] = 1:guy += 1
			:docloop
			dynamic $randdoc
			if $boy = $boy1:docfuck[randdoc] -= 1 & jump 'docloop'
			if docfuck[randdoc] = 1:guy += 1
			xgt 'sexdvanadva', 'var'
		end
	end
end

if $ARGS[0] = '1':
	cla
	*clr
	mastrrand = rand(0, 1)

	if mastrrand = 0:
		'<center><img src="images/img/spaln/hospsex9.jpg"></center>'
		'While you abandon masturbate, trying to bring herself to orgasm, the doctor enters the room, you are so keen that only notice it when his hand starts to pull your head to a standing member.'

		if pcs_horny < 50:act 'Break and run':gt 'WorkHosp', 'start'

		act 'Amuse':
			guy += 1
			picrand = 12
			dynamic $randdoc
			if docfuck[randdoc] = 1:guy += 1
			gt 'sex', 'minet'
		end
	else
		picrand = rand(12, 13)
		'<center><img src="images/img/spaln/hospsex10.jpg"></center>'
		'As long as you selflessly masturbate, trying to bring herself to orgasm in the room includes two doctors, you are so keen that only notice them when they stand in front of you with members shaved and masturbate.'

		if pcs_horny < 50:
			act 'Leave':gt 'WorkHosp', 'start'
		end

		act 'Amuse':
			sexpartkno = 1
			dynamic $randdoc
			$boy1 = $boy
			if docfuck[randdoc] = 1:guy += 1
			:docloop
			dynamic $randdoc
			if $boy = $boy1:docfuck[randdoc] -= 1 & jump 'docloop'
			if docfuck[randdoc] = 1:guy += 1
			xgt 'sexdvoe', 'var'
		end
	end
end

if $ARGS[0] = '2':
	cla
	*clr
	picrand = rand(13, 15)
	'<center><img src="images/img/spaln/hospsex11.jpg"></center>'
	'To you and the patient comes from the doorway taking his pants demonstrates his flaccid penis and asks you to help him as you see it is not worth it. Mind you realize that it''s all just a silly gimmick that would fuck you, but you still feel sorry for him. And suddenly it does not worth it, and you will be able to pick it up, but what if he just no luck with girls and if today is not lucky, he will jump out of the window.'

	act 'Oust him':gt 'WorkHosp', 'start'
	act 'Pick up':guy += 1 & gt 'sex', 'minet'
end

if $ARGS[0] = '3':
	cla
	*clr
	'<center><img src="images/img/spaln/hospsex12.jpg"></center>'
	'It comes to you pretty patient until the doctor tries to examine her, and then she touches his trousers near term, the doctor glances at you with a question in his eyes.'

	act 'Make her remark':gt 'WorkHosp', 'start'

	act 'Amuse':
		guy += 1
		girl += 1
		lesbian += 1
		picrand = 13
		sexpartkno = 1
		dynamic $randdoc
		if docfuck[randdoc] = 1:guy += 1
		gt 'podrsex', 'suck'
	end
end

$randdoc = {
	if $randdoc[0] = ''
		i = 0
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Ivanov'
		$Cstat_lastname[npclastgeneratedn] = 'Ivanov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Smirnov'
		$Cstat_lastname[npclastgeneratedn] = 'Smirnov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Kuznetsov'
		$Cstat_lastname[npclastgeneratedn] = 'Kuznetsov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Popov'
		$Cstat_lastname[npclastgeneratedn] = 'Popov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Vasiliev'
		$Cstat_lastname[npclastgeneratedn] = 'Vasiliev'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Petrov'
		$Cstat_lastname[npclastgeneratedn] = 'Petrov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Sokolov'
		$Cstat_lastname[npclastgeneratedn] = 'Sokolov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Mikhailov'
		$Cstat_lastname[npclastgeneratedn] = 'Mikhailov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Fedorov'
		$Cstat_lastname[npclastgeneratedn] = 'Fedorov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Morozov'
		$Cstat_lastname[npclastgeneratedn] = 'Morozov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Volkov'
		$Cstat_lastname[npclastgeneratedn] = 'Volkov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Alexeev'
		$Cstat_lastname[npclastgeneratedn] = 'Alexeev'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Lebedev'
		$Cstat_lastname[npclastgeneratedn] = 'Lebedev'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Semenov'
		$Cstat_lastname[npclastgeneratedn] = 'Semenov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Egerov'
		$Cstat_lastname[npclastgeneratedn] = 'Egerov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Pavlov'
		$Cstat_lastname[npclastgeneratedn] = 'Pavlov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Kozlov'
		$Cstat_lastname[npclastgeneratedn] = 'Kozlov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Stepanov'
		$Cstat_lastname[npclastgeneratedn] = 'Stepanov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Nikolaev'
		$Cstat_lastname[npclastgeneratedn] = 'Nikolaev'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
		i += 1
		gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
		$Cstat_usedname[npclastgeneratedn] = 'Dr. Orlov'
		$Cstat_lastname[npclastgeneratedn] = 'Orlov'
		gs 'npcpreservec', $npclastgenerated
		randdoc[i] = $npclastsaved
	end

	i = rand(0,19)
	gs 'boyStat', randdoc[i]
	docfuck[randdoc] += 1
}

--- WorkHosp ---------------------------------