glife/locations/experiment.qsrc

# experiment

$loc = 'experiment'
$location_type = private
$locM = 'experiment'

$doc1 = 'Doctor Sokolnikov'
$doc2 = 'Doctor Ivanov'

if $ARGS[0] = 'start':
	$metka = 'start'
	minut += 2
	gs 'stat'

	if experimentAbsolved = 0:
		'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\desk.jpg"></center>'
		*nl
		'A young woman, dressed in office clothes and wearing glasses is sitting behind a desk.'
	else
		'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
		*nl
		'An elderly nurse is sitting behind a desk.'
	end

	if succubusflag = 0:
		if unrelated_preg = 1 and knowpreg = 1:
			*nl
			'You are pregnant and they don''t take on pregnant candidates.'
		elseif exp_form = 0 and experimentAbsolved = 0 and (knowpreg = 0 or unrelated_preg = 0):
			*nl
			'You are warmly welcomed by the woman sitting behind the desk, "Hello miss, can I help you?"'
			'"I read an advert that you are looking for people to test some kind of new treatment... And that you compensate the subjects for it." you reply.'
			'"Yes, that is true. If you want to apply, please read and fill in this form." She hands you over the form.'

			act 'Take the form':gt 'experiment', 'form'
		elseif exp_form = 1 and experimentAbsolved = 0 and (knowpreg = 0 or unrelated_preg = 0):
			act 'Go to the area marked in the book to start the experiment':gt 'experiment', 'form:filled'
		elseif shouted = 1:
			*nl
			'"Hello miss <<$pcs_lastname>>, you are not going to shout at me again, will you?" the woman behind the desk asks.'
			act '<i>Angrily shout at her for ruining your life</i>':gt 'experiment', 'deskTalk:shout'
			act 'No, I am sorry about that..':gt 'experiment', 'deskTalk' & shouted = 0
		else
			'Hello miss <<$pcs_lastname>>, how is your pregnancy?'
			if kid = 0 and pregchem > 0:act 'It is going well':gt 'experiment', 'deskTalk'
			if kid > 0 and knowpreg = 1:act 'I already gave birth, but I''m also pregnant again':gt 'experiment', 'deskTalk'
			if kid > 0 and knowpreg = 0:act 'I already gave birth':gt 'experiment', 'deskTalk'
			if kid = 0 and pregchem = 0:act 'I had an abortion':gt 'experiment', 'deskTalk'
		end
	else
		'You have a really bad feeling about this place. It''s no place for a succubus.'
	end

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

if $ARGS[0] = 'deskTalk':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	if kid = 0 and pregchem > 0:
		'"That is good to hear. Can I help you somehow?"'
		act 'No':gt 'poli', 'start'
	elseif kid > 0 and (pregchem = 0 or (pregchem > 0 and knowpreg = 0)):
		'"Wonderful! Anyway, can I help you somehow? Are you maybe interested in rejoining the experiment?" she curiously asks.'
		'"That''s still a possibility?" you surprisingly ask.'
		'"Of course it is miss <<$pcs_lastname>>. We don''t discriminate if you''ve had a child or not, on the contrary." she re-assures you.'
		'"Really?" you start to ponder.'
		'"Indeed. If I remember correctly you were in need of money, weren''t you? Think about it..."'
		act 'No way I''m going through that again!':gt 'experiment', 'deskTalk:refuse'
		act 'Yes, I need the money..':gt 'experiment', 'deskTalk:volunteer'
		act 'Leave':gt 'poli', 'start'
	elseif kid > 0 and knowpreg = 1:
		'"I already gave birth, but I''m also pregnant again." you say.'
		'"That''s wonderful! We need to wait until you have given birth again if you want to rejoin the experiment." she says with a smile.'
		act 'Leave':gt 'poli', 'start'
	elseif kid = 0 and pregchem = 0:
		'"Oh, that is unfortunate, but not unexpected. Why are you here again, tell me? Do you want to rejoin the experiment again? Have you changed your mind, or do you need the money? Our doctors would definitely welcome to test on a subject that underwent a pregnancy termination..." she asks.'
		act 'No way I''m going through that again!':gt 'experiment', 'deskTalk:refuse'
		act 'Yes, I need the money..':gt 'experiment', 'deskTalk:volunteer'
		act '<i>Angrily shout at her for ruining your life</i>':gt 'experiment', 'deskTalk:shout'
		act 'Leave':gt 'poli', 'start'
	end
end

if $ARGS[0] = 'deskTalk:shout':
	shouted = 1
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\shout.jpg"></center>'
	*nl
	'"Calm damn miss <<$pcs_lastname>>, or I will be forced to call a security!" the woman yells as she tries to calm you down.'
	'"You can all go to hell, all of you and your medical experiments!" you yell back.'

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

if $ARGS[0] = 'deskTalk:refuse':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"I understand miss <<$pcs_lastname>>. I guess being used by those extra large sized cocks is not an experience that a woman would like to go through repeatedly." she understandingly replies.'
	'"Thank you nurse." you are surprised by her empathy.'
	'"Yet you are not a regular woman, are you?" her look and voice changes.'
	'"What?" you frightfully ask.'
	'"Admit it, you are a slut. I''ve seen you silently enjoy the pounding those africans gave you. I''ve seen your true self. You are a whore, a cum bucket, a slut." the woman starts attacking you.'
	'"How dare you?!" you start mouthing back.'
	'"What''s worse, you are not just any regular whore, but you are a big black cock whore, the worst of the worst. A true disgrace to all decent women originating from Russia!" she hisses back.'

	act '<i>Angrily shout at her for those lies</i>':gt 'experiment', 'deskTalk:shout'
	act 'Admit that you love black cocks':gt 'experiment', 'deskTalk:admitWhore'
	act 'Leave':gt 'poli', 'start'
end

if $ARGS[0] = 'deskTalk:admitWhore':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"You see miss <<$pcs_lastname>>, acceptance is the first step. Now do you want to rejoin the experiment, or not?" she grins as she asks.'
	'"I am not sure, nurse..." you hesitantly answer.'
	'"Just think about all those big black cocks, ready to fill you up... And all the orgasms you would be experiencing!" she is trying her best to tempt you.'

	act 'Yes, I need it...':gt 'experiment', 'deskTalk:volunteer'
	act 'No, I have to fight this..':gt 'poli', 'start'
end

if $ARGS[0] = 'deskTalk:volunteer':
	minut += 1
	impreg = 0
	expVolunteer = 1
	expVolunteerExam = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"Great! No need to go through the regular procedures again. Go directly to the changing room and then come back to me." she points you towards the direction of the changing room.'
	act 'Go change':gt 'experiment', 'testarea:lockeroom:locker'
end

if $ARGS[0] = 'deskTalk:volunteer:start':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"Very well miss <<$pcs_lastname>>, now follow me, I will show you to your room." she begins to lead you towards the room.'
	'As you follow her, she turns your head to you, saying:'
	'"Please mind that the regular restrictions still apply to you, even though you are volunteering again."'
	'"Regular restrictions?" you ask.'
	'"Yes" she nods her head, "You will be restricted to your room and not allowed to leave until the experiment is completed, just as last time."'
	'"Will the men be rough with me again? Can''t they be a bit more gentle now that I''ve volunteered once again?" you ask.'
	'The nurse shakes her head, "I am afraid they will be the same. You can''t change men, girl... You should already know that."'
	act 'Follow her':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'form':
	minut += 2
	gs 'stat'
	'<h2>Research project #667 - "Fruit of Eden"</h2>'

	'<h4>Description</h4>'
	'7 days experimental treatment requiring 24/7 facility stay.'
	'Subjects will be divided into two groups, a test group and a control group.'
	'Both subjects will be injected by a test drug without knowing if it is a placebo or not.'

	'<h4>Possible harms to health</h4>'
	'Only minor threats: nausea, swellings, cramps, confusion'

	'<h4>Who can apply</h4>'
	'Women in age between 18 and 40, in perfect health.'
	'Men in age between 35 and 70, with further conditions applied case to case by a supervising doctor.'

	'<h4>Payment</h4>'
	'A compensation will be paid at the end of the treatment, a value of 50.000 <b>₽</b>.'

	if age <= 40:
		act 'Fill in the form and hand it over to the desk attendant':gt 'experiment', 'form:filled'
		act 'Leave it be':gt 'poli', 'start'
	else
		act 'Leave it be (you are too old)':gt 'poli', 'start'
	end
end

if $ARGS[0] = 'form:filled':
	exp_form = 1
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\desk.jpg"></center>'
	*nl
	'As you hand the form back the nurse, she begins to talk, "Thank you miss. You can start at any time, this project is ongoing and you do not have to wait for other people."'
	'She hands you over a confirmed copy of the form and a guide book with instructions.'

	act 'Go to the area marked in the guide to start the experiment':gt 'experiment', 'testarea:start'
	act 'Leave for now':gt 'poli', 'start'
end

if $ARGS[0] = 'testarea:start':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"Hello miss, you are here for the experimental treatment?" an other nurse asks you.'
	'"Yes, I have the confirmed form right here." you hand over the form.'
	'"Okay, very well. But before we start, we need to double check a couple of facts, if you don''t mind." she tells you.'
	'She brings up a new form and begins to ask you questions, taking notes:'
	act 'Start the questionare':gt 'experiment', 'testarea:questionare:0'
end

! pregnant
if $ARGS[0] = 'testarea:questionare:0':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"Are you pregnant?"'

	if knowpreg = 1:
		act 'Yes':
			cla
			*nl
			'"Yes", you answer truthfully.'
			'"Oh, I''m sorry, but we can''t sign you up for the experiment when you are pregnant." she disappointingly replies.'
			unrelated_preg = 1
			act 'Leave': gt 'experiment', 'start'
		end
		act 'No (lie)': gt 'experiment', 'testarea:questionare:1'
	elseif knowpreg = 0:
		 act 'Yes (lie)':
			cla
			*nl
			'"Yes", you lie.'
			'"Oh, I''m sorry, but we can''t sign you up for the experiment when you are pregnant." she disappointingly replies.'
			unrelated_preg = 1
			act 'Leave': gt 'experiment', 'start'
		end
		act 'No': unrelated_preg = 0 & gt 'experiment', 'testarea:questionare:1'
	end
end

! age
if $ARGS[0] = 'testarea:questionare:1':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"How old are you?"'

	if age < 18:act '18 years (lie)':underage = 1 & gt 'experiment', 'testarea:questionare:2'
	if age >= 18:act age+' years':gt 'experiment', 'testarea:questionare:2'
end

! period or pill?
if $ARGS[0] = 'testarea:questionare:2':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"Are you having regular periods?"'

	if tabletkicheck = 2:
		act 'No, I am on the pill.':regper = 3 & gt 'experiment', 'testarea:questionare:3'
		act 'No, I am on the pill. (lie)':regper = 3 & gt 'experiment', 'testarea:questionare:3'
	else
		act 'Yes'				:regper = 1  & gt 'experiment', 'testarea:questionare:3'
		act 'Yes (lie)'			:regper = 2  & gt 'experiment', 'testarea:questionare:3'
		act 'No'				:regper = -1 & gt 'experiment', 'testarea:questionare:3'
		act 'No (lie)'			:regper = -2 & gt 'experiment', 'testarea:questionare:3'
	end
end

! sexual experience
if $ARGS[0] = 'testarea:questionare:3':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"How many sexual partners have you had so far?"'

	if guy = 0 and pcs_vag = 0:act 'None, I am a virgin.':virg = 1 & gt 'experiment', 'testarea:questionare:5'
	if guy > 0:act 'None, I am a virgin. (lie)':virg = 0 & gt 'experiment', 'testarea:questionare:5'
	if guy = 0:act 'A few (lie) ':virg = 2 & slut = 0 & gt 'experiment', 'testarea:questionare:4'
	if guy = 0:act 'Many (lie)':virg = 2 & slut = 1 & gt 'experiment', 'testarea:questionare:4'

	if guy > 0 and guy <= 5:act 'A few':virg = 2 & slut = 0 & gt 'experiment', 'testarea:questionare:4'
	if guy > 0 and guy <= 5:act 'Many (lie)':virg = 2 & slut = 2 & gt 'experiment', 'testarea:questionare:4'

	if guy > 5:act 'A few (lie)':virg = 2 & slut = 0 & gt 'experiment', 'testarea:questionare:4'
	if guy > 5:act 'Many':virg = 2 & slut = 1 & gt 'experiment', 'testarea:questionare:4'
end


! sex intervals
if $ARGS[0] = 'testarea:questionare:4':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"How many times a week do you have sex?"'

	act 'None or rarely':sexfreq = 1 &  gt 'experiment', 'testarea:questionare:5'
	act 'A few times':sexfreq = 2 & gt 'experiment', 'testarea:questionare:5'
	act 'Daily or almost daily':sexfreq = 3 & slut = 1 & gt 'experiment', 'testarea:questionare:5'

end

! dick size pref
if $ARGS[0] = 'testarea:questionare:5':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"What size of your partners penis do you prefer?"'
	'"I''m sorry, but these questions are really starting to be suspiciously related to sexual nature?" you start to question her intentions.'
	'The nurse smiles, "No need to worry, we''ll be shortly done..."'

	if virg <= 1:
		act 'I do not know, I am a virgin after all.':gt 'experiment', 'testarea:questionare:6'
	else
		act 'A small one, it is more comfortable and painless.':dick_pref = 1 & prude = 1 &gt 'experiment', 'testarea:questionare:6'
		act 'A medium one, balance between pleasure and comfort.':dick_pref = 2 & gt 'experiment', 'testarea:questionare:6'
		act 'A big one, the feeling of fullness exceeds the occasional discomfort.':dick_pref = 3 & slut = 1 & gt 'experiment', 'testarea:questionare:6'
	end
end

! race experiance
if $ARGS[0] = 'testarea:questionare:6':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"Have you ever had sex with anyone other than of Russian native origin?"'

	if virg <= 1:
		act 'I already told you I am a virgin':gt 'experiment', 'testarea:questionare:7'
	else
		act 'No.':gt 'experiment', 'testarea:questionare:7'
		act 'No. (lie) ':gt 'experiment', 'testarea:questionare:7'
		act 'Yes, an african man':interr = 2 & gt 'experiment', 'testarea:questionare:7'
		act 'Yes, an asian man.':interr = 1 & gt 'experiment', 'testarea:questionare:7'
		act 'Yes, both asian and african man.':interr = 3 &gt 'experiment', 'testarea:questionare:7'
	end
end

! thank you
if $ARGS[0] = 'testarea:questionare:7':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"Thank you miss. Now that we have this paperwork taken care for, we can proceed with the experiment."'
	'"Do you have any questions?" the nurse asks you.'

	act 'Yes, why did you ask such weird questions?':gt 'experiment', 'testarea:questionare:8'
	act 'No, we can proceed.':gt 'experiment', 'testarea:questionare:9'
end

! weird questions?
if $ARGS[0] = 'testarea:questionare:8':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"Why were you asking such weird questions? I thought this was a medical experiment. They were really weird!" you ask.'
	'"Don''t worry miss, it is a standard procedure meant to assess potential risks of sexually transmitted diseases." the nurse is trying to re-assure you.'

	act 'Sounds genuine, we can proceed':gt 'experiment', 'testarea:questionare:9'
	act 'Something''s wrong, I want to leave':gt 'poli', 'start'
end

! questionare end
if $ARGS[0] = 'testarea:questionare:9':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"I am glad you are pleased. Now please head over to the locker room, put all your things in locker No 54. It will be stored for you until you finish the treatment."'
	'"You will find a patient gown inside there, put in on and come back to me." she tells you.'

	act 'Head over to the locker room':gt 'experiment', 'testarea:lockeroom:locker:meetAfrican'
end

if $ARGS[0] = 'testarea:lockeroom:locker:meetAfrican':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africanmeet.jpg"></center>'
	*nl
	'As you walk down the hall, you notice a room with open doors.'
	'You don''t know why but you quietly step behind the door, as if you didn''t want to be seen or heard.'
	'A black man is standing in the middle of the room, smoking a cigarette, and he''s completely <b>naked</b>!'
	'He doesn''t notice you. It could be that he is just ignoring you.'
	'Your curiosity gets the best of you as you stray your eyes away from his face, and continue down his body to stop by his crotch... You open your mouth wide in shock and disbelief:'
	if pcs_vag = 0:'<i>I have seen a few penis pictures so far, but none has ever been so big, not nearly! I''ve heard stories about black men, but to be this big?</i>'
	if pcs_vag > 0 and pcs_vag <= 10:'<i>I have seen a few penises so far, but none has ever been so big, not nearly! I''ve heard stories about black men, but to be this big?</i>'
	if pcs_vag > 10:'<i>I have seen many penises already, but none has ever been so big, not nearly! I''ve heard stories about black men, but to be this big?</i>'


	act 'Stare at him':gt 'experiment', 'testarea:lockeroom:locker:stareAfrican'
	act 'Something''s wrong - run away':gt 'poli', 'start'
end

if $ARGS[0] = 'testarea:lockeroom:locker:stareAfrican':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africanmeet.jpg"></center>'
	*nl
	'The man finishes his cigarette, and all of a sudden turns over and is hungrily looking at you.'
	'"<b>Haven''t seen you before, you are new? Can''t wait to knock you up... Why you not bound? Come here!</b>" he yells out.'
	'He makes a move towards you, his giant penis swinging freely between the legs.'
	'This wakes you from the shock, realizing that he is standing in front of you and what is he implying.'
	'Frightened, you take a step back.'

	act 'Step back and continue down the hall':gt 'experiment', 'testarea:lockeroom:locker'
	act 'Something''s wrong, run away':gt 'poli', 'start'
end

if $ARGS[0] = 'testarea:lockeroom:locker':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\lockerroom.jpg"></center>'
	*nl
	'A room full of old rusty steel lockers. Each one has a code lock.'
	'You find locker No. 54 in the middle of the room.'

	$pantyworntype = 'none'
	$braworntype = 'none'
	$shoeworntype = 'none'
	vibratorIN = 0
	analplugin = 0

	gs 'clothing', 'strip'
	act 'Strip down and put on the gown':gt 'experiment', 'testarea:lockeroom:gown'
end

if $ARGS[0] = 'testarea:lockeroom:gown':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\gown.jpg"></center>'
	*nl
	'You wear nothing but the long, plain white gown. It is secured behind your back by a strap, leaving your back and ass cheeks barely covered.'
	'You feel as if you were naked, and a insecurity comes over you...'

	if expVolunteer = 0:act 'Leave the room and go back to nurse':gt 'experiment', 'testarea:start:treatment:ask1'
	if expVolunteer = 1:act 'Leave the room and go back to nurse':gt 'experiment', 'deskTalk:volunteer:start'
end

if $ARGS[0] = 'testarea:start:treatment:ask1':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'Back in the entry hall, you feel a sudden cold breeze running through your back.'
	'The unexpected meeting with the black man made you tremble as you remember the things he said to you...'
	*nl
	'Meanwhile the nurse comes back, and takes a look at you, "So miss <<$pcs_lastname>>, everything alright? Can we proceed?"'

	act 'Yes, we can proceed':gt 'experiment', 'testarea:start:treatmentStart'
	act 'No, I have a question':gt 'experiment', 'testarea:start:treatment:ask2'
end

if $ARGS[0] = 'testarea:start:treatment:ask2':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	if ask1 = 2:lvl = 1
	if ask2 = 2 and ask3 = 2 and ask4 = 2:lvl = 2

	if lvl = 0:
		'"I have a question." you swallow hard.'
		'"Very well, miss <<$pcs_lastname>>, ask away." the nurse is awaiting your question.'
	else
		'"Do you have another question, miss <<$pcs_lastname>>?"'
	end


	if lvl = 0 and ask1 = 0:act 'Who was that black man I just encountered?':ask1 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'

	if lvl = 1 and ask2 = 0:act 'Why did he have such enormous penis?':ask2 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'
	if lvl = 1 and ask3 = 0:act 'Why did he call me a whore waiting to be knocked up?':ask3 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'
	if lvl = 1 and ask4 = 0:act 'He mentioned something about me being not bound?':ask4 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'

	if lvl = 2 and ask5 = 0:act 'What exactly will be tested on me?':ask5 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'
	if lvl = 2 and ask6 = 0:act 'Will I be meeting these black male subjects?':ask6 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'
	if lvl > 0:act 'No, we can proceed':gt 'experiment', 'testarea:start:treatmentStart'
	if lvl > 0:act 'I think I''ve changed my mind about this':gt 'experiment', 'testarea:start:changeMind'
end

if $ARGS[0] = 'testarea:start:treatment:ask3':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	if ask1 = 1:
		ask1 = 2
		'"<b>Who was that black man I just encountered?</b>" you ask.'
		'"I see, you have witnessed something you shouldn''t have. Alright, no use hiding it before you anymore, I will tell you. He is one of our male subjects." the nurse starts explaining.'
		'"A black male? Are all the subjects like him?" you impatiently ask.'
		'"Yes miss <<$pcs_lastname>>, they are all of african descent." the nurse replies.'
		'"But... Why?" you frightfully question.'
		'"It is a part of the research. The males are africans, the females are caucasians." she tells you without a further explanation.'
		act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
	elseif ask2 = 1:
		ask2 = 2
		'"<b>How come did he have such an enormous penis?</b>" you ask.'
		'"Oh, he was administered an experimental treatment for penis enlargement." the nurse explains.'
		'"What? That is possible?" you gasp.'
		'The nurse nods, "Yes miss <<$pcs_lastname>>, it is one of the drugs we research here." she shortly explains.'
		act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
	elseif ask3 = 1:
		ask3 = 2
		'"<b>Why did he want to knock me up?</b>" you ask.'
		'"You see miss <<$pcs_lastname>>, the drug has side effects. The subjects can end up confused, in some cases their brain function gets limited." she says.'
		'"That is horrible!" you reply.'
		'"We do our best to remove such side effects. But it takes time to correct." the nurse does her best to explain.'
		'"And they don''t mind being in such a state?" you curiously ask.'
		'"They have taken part in this project knowing all the risks." the nurse sighs.'
		act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
	elseif ask4 = 1:
		ask4 =2
		'"<b>He mentioned something about me being not bound?</b>" you ask.'
		'"Indeed miss <<$pcs_lastname>>, we have to restrict the movement of some of our patients from time to time." she explains.'
		'"Why?" you frightfully ask.'
		'"To prevent them from harming themselves. The side effects vary, you know..." the nurse continues on.'
		'"Will you restrict me too?" you question the nurse.'
		'"There''s a risk for that, yes. But only for your good and if necessary." she re-assures you.'
		act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
	elseif ask5 = 1:
		ask5 = 2
		'"<b>What exactly will be tested on me?</b>" you ask.'
		'"I cannot tell you even if I wanted to." the nurse replies.'
		'"Why?" you ask.'
		'"Firstly, you shouldn''t know what to expect. It may be a placebo or not." the nurse explains.'
		'"There''s more?" you continue on pressing.'
		'"Secondly, it will be decided when we run the tests. You will be assigned a schedule best fitting for you." the nurse annoyingly answers.'
		act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
	elseif ask6 = 1:
		ask6 = 2
		'"<b>Will I be meeting these black male subjects?</b>" you ask.'
		'"Most certainly." the nurse replies.'
		'"In what way?" you pry on.'
		'"A regular interaction is required in order to do the research." the nurse explains.'
		'"What do you mean regular? What kind of interaction?" you angrily ask.'
		'"Several times a day. I cannot tell you more, it will be decided when we run the tests and once you will be assigned to a specific test group." the nurse vaguely explains.'
		*nl
		'As if from afar, you hear a male''s grunts and heavy breathing, getting more and more intensive, when it suddenly stops with just one last loud grunt.'
		act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
	end
end

if $ARGS[0] = 'testarea:start:changeMind':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'"<b>I think I changed my mind.</b>" you tell the nurse.'
	'"What do you mean miss <<$pcs_lastname>>?" she is confusingly looking at you.'
	'"Everything here is too suspicious. Questions regarding sex, black males with giant penises wanting to impregnate me, restricting your test subjects, not telling me what actually will I go through." you explain.'
	'"I think you are over-thinking it, miss <<$pcs_lastname>>. This is an official research project. There is nothing to be afraid of. Are you sure you want to leave?" the nurse asks.'

	act 'Tell her you changed your mind and want to continue on':gt 'experiment', 'testarea:start:treatmentStart'
	act 'Tell her yes, dress up and leave':gs 'clothing', 'wear_last_worn' & gt 'poli', 'start'
end

if $ARGS[0] = 'testarea:start:treatmentStart':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
	*nl
	'Back in the entry hall, you feel a sudden cold breeze running through your back.'
	*nl
	'"Alright nurse, I am ready." you tell her.'
	'"Have you secured the locker?" she asks.'
	'"Yes, I have." you reply.'
	'"Good. Now please follow me, it''s time to start." she commands you.'
	*nl
	'She leads you through a long hallway to a room that looks like any other doctor room.'
	*nl
	'The nurse points towards a chair, "Please sit down, I need to inject some vitamins before the doctors come and start the actual treatment."'
	*nl
	'She takes out a syringe, pushing the remaining air bubbles out. Holding you by the arm she is about to inject it into you...'

	act 'Brace for the pinch':
		if preg = 0: gt 'experiment', 'testarea:start:treatmentStart:injection'
		if preg > 0:
			cla & *clr
			minut += 120
			thinkpreg = 1
			knowpreg = 1
			unrelated_preg = 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
			*nl
			'You wake up in a hospital bed the nurse standing beside you, "I''m sorry but you are pregnant and we can''t sign up pregnant woman for the experiment."'

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

if $ARGS[0] = 'testarea:start:treatmentStart:injection':
	minut += 60
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\injection.jpg"></center>'
	*nl
	'"See, it didn''t hurt at all." the nurse smiles.'
	*nl
	'"What are these vitamins for anyway?" you ask.'
	'"To make you strong and healthy for the upcoming treatment, miss <<$pcs_lastname>>." the nurse explains.'
	'"Will the treatment hurt, nurse?" you curiously ask.'
	'"Well, some girls say that it does. You will notice..." she shortly replies.'
	*nl
	'Hearing that, you start to feel very, very sleepy.'
	*nl
	'"I... I don''t feel entirely fine, nur..." you don''t even finish the sentence before you''re fast asleep.'
	act 'Am I dreaming or is this reality?':gt 'experiment', 'testarea:start:treatmentStart:dream1'
end

if $ARGS[0] = 'testarea:start:treatmentStart:dream1':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doctorsblurred.jpg"></center>'
	*nl
	'You wake up confused and disoriented, but you''re slowly getting to it, remembering your whereabouts. A clinic... experimental treatment... nurse... weird questions... vitamin injection...'
	'It all seems as a dream that you are unable to wake up from. You desperately try to, but it just won''t let you wake up!'
	*nl
	'Struggling like this for a while, trying to clear your mind, you hear voices from afar...'
	*nl
	'<<$doc1>>: "So we''ve got another subject, I see."'
	'<<$doc2>>: "Yes, this one looks promising."'
	if age < 18:
		'<<$doc1>>: "She looks very young. What did she put down on the form?"'
		'<<$doc2>>: "18 years."'
		'<<$doc1>>: "Really? I don''t believe that. Let me check with the system."'
		'<<$doc1>>: "Indeed. Her medical record says she is '+age+' years old."'
		'<<$doc2>>: "Hmm, I guess we can still work with her. It is her problem she is hiding her actual age."'
	end

	act 'What the...?':gt 'experiment', 'testarea:start:treatmentStart:dream2'
end

if $ARGS[0] = 'testarea:start:treatmentStart:dream2':
	minut += 10
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doctorsblurred.jpg"></center>'
	*nl
	'<i>What is this all about? Such a weird dream..</i>'
	*nl
	'<<$doc1>>: "What''s next in the form?"'
	if regper = 3 or regper = 4:
		'<<$doc2>>: "She claims that she is using some kind of anti-conception pill."'
		'<<$doc1>>: "Well, not exactly desirable, but we will manage."'
	elseif	regper = 1 or regper = 2:
		'<<$doc2>>: "She claims that her period is regular."'
		'<<$doc1>>: "Very good, but we need to run tests to confirm it."'
	elseif regper = -1 or regper = -2:
		'<<$doc2>>: "She claims that her period is not very regular."'
		'<<$doc1>>: "Well, not exactly desirable, but we will manage."'
	end
	*nl

	if virg <= 1:
		'<<$doc2>>: "She claims to be a virgin."'
		'<<$doc1>>: "Hmm, we will have to check that."'
		'<<$doc2>>: "Because of that there is no data regarding her sexual experience, racial experience or penis preferences."'
		'<<$doc1>>: "Come on dear colleague, just look at her lying on the bed. She can''t be lying?"'
	else
		if slut = 0:
			'<<$doc2>>: "She claims to had few sexual partners."'
			'<<$doc1>>: "Barely used I see. We can work with that."'
			if sexfreq = 1:
				*nl
				'<<$doc2>>: "She claims to not have almost no sex during a regular week."'
				'<<$doc1>>: "Probably long time without a boyfriend."'
			elseif	sexfreq = 2:
				*nl
				'<<$doc2>>: "She claims to have sex few times a week."'
				'<<$doc1>>: "Quite regular giving her so far sexual experience."'
			elseif	sexfreq = 3:
				*nl
				'<<$doc2>>: "She claims to have sex daily."'
				'<<$doc1>>: "Really? What a slut. Or her boyfriend must be really horny bastard."'
			end
		elseif slut = 1 or slut = 2:
			'<<$doc2>>: "She claims to had a lot of sexual partners."'
			'<<$doc1>>: "Another slut? At least she''ll endure the treatment more easily."'
			if sexfreq = 1:
				*nl
				'<<$doc2>>: "She claims to not have almost no sex during a regular week."'
				'<<$doc1>>: "What? I don''t believe her. Just look at her other answers, she IS a slut."'
			elseif	sexfreq = 2:
				*nl
				'<<$doc2>>: "She claims to have sex few times a week."'
				'<<$doc1>>: "With such high number of sexual partners? She must be lying."'
			elseif	sexfreq = 3:
				*nl
				'<<$doc2>>: "She claims to have sex daily."'
				'<<$doc1>>: "Well, even her other answers implicate she is a slut."'
			end
		end
		*nl
		!black and asian
		if interr = 3:
			'<<$doc2>>: "She claims to have sexual experience with a partner of causaian, african and asian origin."'
			'<<$doc1>>: "A multicultural slut, isn''t she? Very good."'
		!black
		elseif interr = 2:
			'<<$doc2>>: "She claims to have sexual experience with a partner of african origin."'
			'<<$doc1>>: "Only africans?! Perfect! Exactly what we need."'
		!asian
		elseif interr = 1:
			'<<$doc2>>: "She claims to have sexual experience with a partner of asian origin."'
			'<<$doc1>>: "Asians?! That''s interesting."'
		!none
		else
			'<<$doc2>>: "She claims to have no other sexual experience but with a partner of caucasian origin."'
			'<<$doc1>>: "Untouched by any other but a Russian? That will change very soon."'
		end
		*nl
		if dick_pref = 1:
			'<<$doc2>>: "She claims to prefer small penises, accenting her comfort and painless experience."'
			'<<$doc1>>: "Such a prude. We need to fix that as we start the experiment."'
		elseif dick_pref = 2:
			'<<$doc2>>: "She claims to prefer regular size penises, accenting balance between pleasure and comfort."'
			'<<$doc1>>: "Like most of our subjects."'
		elseif dick_pref = 3:
			'<<$doc2>>: "She claims to prefer large size penises, accenting her enjoyment of fullness before comfort and pain."'
			'<<$doc1>>: "A big cock lover? A good test candidate indeed."'
		end
	end

	act 'What is going on?':gt 'experiment', 'testarea:start:treatmentStart:dream3'
end

if $ARGS[0] = 'testarea:start:treatmentStart:dream3':
	minut += 3
	if slut = 0: $title = 'girl'
	if slut > 0: $title = 'slut'
	if virg <= 1: $title = 'virgin'
	if dick_pref = 1: $dick_pref_t = 'small'
	if dick_pref = 2: $dick_pref_t = 'regular'
	if dick_pref = 3: $dick_pref_t = 'big'
	gs 'stat'

	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doctorsblurred.jpg"></center>'
	*nl

	if virg <= 1:
		'<<$doc1>>: "So my dear colleague, we''ve got a '+age+' years old '+$title+'."'
		'<<$doc2>>: "So it seems."'
		'<<$doc1>>: "We should better check everything is correct. You never know, these days."'
	else
		'<<$doc1>>: "So my dear colleague, we''ve got a '+age+' years old '+$title+' who prefers '+$dick_pref_t+' sized cocks."'
		if regper = 3 or regper = 4:'<<$doc2>>: "And she is using anti-conception."'
		if regper = 1 or regper = 2:'<<$doc2>>: "And her period is regular."'
		if regper = -1 or regper = -2:'<<$doc2>>: "And her period is irregular."'
		if interr = 0:'<<$doc1>>: "Indeed. And she has never had sex with an african nor an asian male."'
		if interr = 1:'<<$doc1>>: "Indeed. And she has had sex with an asian male."'
		if interr = 2:'<<$doc1>>: "Indeed. And she has had sex with an african male."'
		if interr = 3:'<<$doc1>>: "Indeed. And she has had sex with both an asian AND an african male."'
	end
	*nl
	'Unable to stay awake anymore you fade out back to the world of unknowing...'

	act '(Fade out)':minut += 300 & gt 'experiment', 'testarea:start:treatmentStart:wakeup1'
end

if $ARGS[0] = 'testarea:start:treatmentStart:wakeup1':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\lights.jpg"></center>'
	*nl
	'You''re finally awake, feeling as if you''ve slept for days.'
	'Your eyes slowly adjust to the light coming from the ceiling lamps. It looks as if there are no windows at all and only artificial light illuminates the room.'
	'But you feel something is off...'
	*nl
	'You can''t move! <i>Oh my god, I''m paralyzed!</i>'
	'As you move your head to the side, you can feel it is not paralysis, but your hands and legs are bound to the bed!'
	'In horror you struggle to raise your head, only to see that the medical gown is gone and...'
	act 'And what???':gt 'experiment', 'testarea:start:treatmentStart:wakeup2'
end

if $ARGS[0] = 'testarea:start:treatmentStart:wakeup2':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound1.jpg"></center>'
	*nl
	'...you are not just bound, but also completely naked!'
	'You start panicking, hoping to somehow break free.'
	*nl
	'You continue on trying to struggle yourself free, but your body feels very weak, as if all your strength has been sucked out of you...'
	act 'Footsteps, someone is coming!':gt 'experiment', 'testarea:start:treatmentStart:wakeup3'
end

if $ARGS[0] = 'testarea:start:treatmentStart:wakeup3':
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc1.jpg"></center>'
	*nl
	'A doctor, who you barely recognize from your half-dream, stands above you.'
	'Your eyes widen as you realize he is watching your naked, exposed body.'
	'<<$doc1>>: "You are awake I see. Are you confused?"'
	'You want to answer him, shout at him to release you. But it is as if your body was not your own, you''re not able to form a single sound...'
	'<<$doc1>>: "Perfect. Our drug worked very well once again. I guess I owe you at least an explanation."'
	'You manage to nod your head in response, both eager and afraid to hear what is going on.'
	'<<$doc1>>: "So you signed up to this experimental treatment. Completely voluntary with all the paperwork in perfect order. And as you know, we''re in Russia and nobody cares what is going inside here, as long as the papers are fine and pockets are full. Don''t worry my dear, you will be released at the end. But first we will do for what you came here for, to perform an experiment on you."'
	'You swallow anxiously and you can feel a few sweat drops form on your head as you wait for the doctor to continue on...'
	'<<$doc1>>: "You see, this is a combined experiment. We are testing a drug for male fertility, drug for a female ovulation and also an impact of both drugs to interracial intercourse."'
	'You stare at him, even more confused than before...'
	'<<$doc1>>: "You appear to be a bit slow... Do you want me to tell you the simple version?"'
	'This time he does not wait for you to nod.'
	'<<$doc1>>: "We will use a drug to induce an ovulation, afterwards you will be repeatedly have intercourse with a drug induced african male until you get pregnant."'
	'Your eyes widen in disbelief...'
	'<<$doc1>>: "Good, I see you have some wits left at the very least."'

	gs 'cum_cleanup', 'cleandeposit'

	index = 0
	amount = 1028
	:start
	if index < amount:
		gs 'cum_cleanup', 'cleanwomb', index
		index += 1
		jump 'start'
	end

	! disable anticonception
	tabletkishot = 0
	shotdays = 0
	tabletkicheck = 0
	pillcon = 0

	! cause ovulation
	lastovulation = daystart
	cycle = 2
	ovulate = 24+rand(24,48)
	EggRH = 320+rand(160, 320)

	if pcs_vag = 0:
		act '(fade out again)':gt 'experiment', 'testarea:start:treatmentStart:wakeup:virgin1'
	elseif virg = 0:
		act '(fade out again)':gt 'experiment', 'testarea:start:treatmentStart:wakeup:liedVirgin'
	else
		'Either from the drug or from the shock of your situation, you start to fade out once again.'
		'The doctor walks out, leaving you to your fate. As if from afar, already half asleep, you hear him say:'
		'<<$doc1>>: "Oh, and I forgot to mention that we also test what success rate of having an extremely large penis has to human fertilization."'
		if dick_pref = 1:'<<$doc1>>: "And since you said you enjoy small penises because of the pain... we are doctors after all. We will cure this weakness of yours. When we are done with you, no size will be painful for you, rest assured!"'
		if dick_pref = 2:'<<$doc1>>: "And since you said you enjoy regular penises, this will at least EXPAND your... horizons!"'
		if dick_pref = 3:'<<$doc1>>: "And since you said you enjoy big penises, it will surely be a walk in park for you!"'
		'"Best of luck!" the doctor scoffs.'
		act '(fade out again)':gt 'experiment', 'testarea:treatment:bed'
	end
	act '(struggle hard to remain awake)':gt 'experiment', 'testarea:treatment:struggleEscape1'
end

if $ARGS[0] = 'testarea:treatment:struggleEscape1':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound1.jpg"></center>'
	*nl
	'<<$doc1>> walks out, leaving you alone, bound on the bed.'
	'The drug you''ve been injected is heavily restricting your abilities, you feel very tired. But from what you heard, and what they plan for you, there''s no way you can remain here!'
	*nl
	act 'Focus your willpower as much as possible':gt 'experiment', 'testarea:treatment:struggleEscape2'
	if pcs_vag = 0:
		act 'Succumb to the drug':gt 'experiment', 'testarea:start:treatmentStart:wakeup:virgin1'
	elseif pcs_vag > 0 and virg = 0:
		act 'Succumb to the drug':gt 'experiment', 'testarea:start:treatmentStart:wakeup:liedVirgin'
	else
		act 'Succumb to the drug':gt 'experiment', 'testarea:treatment:bed'
	end
end

if $ARGS[0] = 'testarea:treatment:struggleEscape2':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound1.jpg"></center>'
	*nl
	'As you focus your willpower, you feel that your body starting to respond. Your right hand pulls the rope so strongly that your arm breaks free!'
	'With one hand free, your mind gets a strong positive signal and your body responds. Untying the rest of the binds is a matter of seconds.'
	'You get up, naked as you are and run through the hall.'
	'Your heart beats like it will explode but finally after running around you manage to locate the back-door to the clinic hall!'
	*nl
	act 'Escape':gt 'poli', 'start'
end

if $ARGS[0] = 'testarea:start:treatmentStart:wakeup:liedVirgin':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
	*nl
	'You must have faded out again... You are slowly regaining consciousness, feeling cold and confused.'
	'Someone is standing above you, it''s one of the doctors..'
	'<<$doc2>>: "Nurse, give her 2 ml, I want to speak to her."'
	'The nurse quickly comes over and injects you with some drug. Several seconds later you can feel your body return back to normal...'
	'<<$doc2>>: "So my little test subject, an examination has confirmed that you have lied to us and that you are not a virgin after all."'
	'You take a while to catch up with your situation...'
	'"And? So I lied! Let me go!" you are almost surprised that that you are able to speak again.'
	'<<$doc2>>: "Oh no, you have signed up for this, you have to go through it. Tell me <<$pcs_firstname>>, obviously you had vaginal sex before, what size do you prefer?"'
	'"Why do you ask that?" you ask.'
	'<<$doc2>>: "A small, barely noticeable penis? A regular cock? Or do you prefer, which I doubt, an above average phallus?"'
	'"I won''t tell, not YOU anyway!" you defiantly reply.'
	'<<$doc2>>: "Actually it does not matter. Here you won''t get neither of those three. We are testing a penis enlargement drug with quite a success."'
	'"What do you mean?!" you yell out.'
	'<<$doc2>>: "Thanks to our drug all our males have bigger penises than the largest ones ever measured."'
	'"That cannot be true!" you swallow hard.'
	'<<$doc2>>: "Believe me, miss <<$pcs_lastname>>, and you''ll shortly find out..."'
	'He gets up and leaves the same way he entered. The nurse injects you with something and the world darkens as you fade off once again...'

	act '(fade out)':gt 'experiment', 'testarea:treatment:bed'
end

if $ARGS[0] = 'testarea:start:treatmentStart:wakeup:virgin1':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
	*nl
	'You must have faded out again... You are slowly regaining consciousness, feeling cold and confused.'
	'Someone is standing above you, it''s one of the doctors..'
	'<<$doc2>>: "Nurse, give her 2 ml, I want to speak to her."'
	'The nurse quickly comes over and injects you with some drug. Several seconds later you can feel your body return back to normal...'
	if virg = 2:'<<$doc2>>: "So my little test subject, an examination has confirmed that you lied to us and that you ARE a virgin!"'
	if virg = 1:'<<$doc2>>: "So my little test subject, an examination has confirmed that you are a virgin after all."'
	'You take a while to catch up with your situation..'
	'"Of course I am! I am a decent girl! Let me go!" you are almost surprised that that you are able to speak again.'
	'<<$doc2>>: "Oh no, you have signed up for this, you have to go through it now. Tell me <<$pcs_firstname>>, how did you imagine your first time would be?"'
	'"There''s no way I would tell you that!" you defiantly answer.'
	'<<$doc2>>: "In warm hands of your lover? With your boyfriend, first time for the both of you? With an older, experienced gentleman?"'
	'"I won''t tell, not YOU anyway!" you yell back.'
	'<<$doc2>>: "Well, whatever your ideas was, you can forget about it. I have arranged a special occasion for you."'

	act 'What occasion?':gt 'experiment', 'testarea:start:treatmentStart:wakeup:virgin2'
end

if $ARGS[0] = 'testarea:start:treatmentStart:wakeup:virgin2':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
	'"What occasion?" you frightfully ask.'
	'<<$doc2>>: "Did I already mention that we also test for another experimental drug?"'
	'"Uhm... another drug?" you ask.'
	'<<$doc2>>: "Yes. A penis enlargement drug. It works fairly well, most of the times that is..."'
	'"And what does it have to do with me?" you ask the doctor.'
	'<<$doc2>>: "You should feel proud! I have picked out our most successful subject to be the one to deflower you."'
	'"Oh my god no, please no! It will hurt!" you plead with him.'
	'<<$doc2>>: "Yes it will. Jamal has so far more than doubled his initial size. He is 37 cm long and almost 25 cm in circumference.'
	'An intense feeling of fear runs through your entire body, making you tremble...'

	act 'Why? Why are you doing this to me??':gt 'experiment', 'testarea:start:treatmentStart:wakeup:virgin3'
end

if $ARGS[0] = 'testarea:start:treatmentStart:wakeup:virgin3':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
	'Why? Why are you doing this to me?" you plead.'
	'<<$doc2>>: "Medical reasons..."'
	'"Liar! You are a sadist! A pervert!" you yell out.'
	'<<$doc2>>: "Maybe I am, maybe I am not. It makes no difference for you."'
	'"Go to hell!" you curse him...'
	'<<$doc2>>: "Concept of hell exists only for those who believe in it. For you, a living hell will come in a few minutes. Enjoy it miss <<$pcs_lastname>>, it is your first time after all."'
	*nl
	'He turns away from you, slowly walking back towards where he came from. You shout at him, throwing both swears and pleas his way, but he leaves without another word or any reaction at all.'
	'You are left to your fate, tied to a bed, helpless and vulnerable. The effect of the antidote seems to fade and you slowly start to feel tired, weak and sleepy...'

	act '(fade out again)':deflower = 1 & gt 'experiment', 'testarea:treatment:bed'
end

if $ARGS[0] = 'testarea:treatment:bed':
	minut += 5
	gs 'stat'
	'<center><h3>Experiment public room</h3></center>'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound2.jpg"></center>'
	'You wake up bound to the medical bed, completely naked, with your legs are secured high behind your head.'
	'"This position is designed to prevent the sperm from pouring out, to support the impregnation process," the nurse explains.'
	if plugIn = 1:'<b>A cold, metal plug is stuffed securely inside your vagina, preventing the superfluous ejaculate to spur out of you.</b>'
	'You try to respond but you can''t manage to say a word, your throat feeling dry and a bit sore. You struggle weakly against the straps holding you down before realizing the only thing you can do is move your head left or right.'
	'Looking beside you, you see there are several more beds, most of them occupied by young girls secured in similar positions such as yourself.'
	'Eventually you give up and relax against the bed as best you can. The only thing you are able to do now is helplessly await what happens, or try to sleep if you feel tired enough.'
	gs 'stat'

	! custom vagina state

	if coitVagCount <= 2:
		if deflowered = 1:
			$vagState = 'recently deflowered'
		else
			$vagState = 'abused'
		end
	elseif coitVagCount >= 3 and coitVagCount <= 4:
		$vagState = 'battered'
	else
		$vagState = 'widely gaping'
	end

	if deflower = 1:
		act '(wait until something happens)':deflower = 0 & deflowered = 1 & gt 'experiment', 'testarea:treatment:deflower'
	else
		act '(wait until something happens)':gt 'experiment', 'testarea:treatment:bed:wait'
		act '(sleep)':gt 'experiment', 'testarea:treatment:bed:sleep'
	end
end

if $ARGS[0] = 'testarea:treatment:bed:sleep':
	if plugIn = 0:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound3.jpg"></center>'
	if plugIn = 1:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound5.jpg"></center>'
	*nl
	if pcs_sleep <= 50:
		'Even in this uncomfortable position you manage to fall into an uneasy sleep.'
		minut += 240
		pcs_sleep += 65
		gs 'stat'
	else
		'You try to fall asleep, but you are just not tired enough.'
	end
	act 'Continue':gt 'experiment', 'testarea:treatment:bed'
end

if $ARGS[0] = 'testarea:treatment:bed:wait':
	minut += rand (20, 60)
	gs 'stat'

	if plugIn = 0:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound3.jpg"></center>'
	if plugIn = 1:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound5.jpg"></center>'
	*nl
	'As if you have anything else to do, you patiently wait until something happens.'

	if impreg = 1:
		act 'Wait':gt 'experiment', 'testarea:treatment:impreg:lead'
	else
		act 'Wait':gt 'experiment', 'testarea:treatment:bed:wait:event'
	end
end

if $ARGS[0] = 'testarea:treatment:impreg:lead':
	minut += 5
	gs 'stat'
	if plugIn = 0:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound3.jpg"></center>'
	if plugIn = 1:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound5.jpg"></center>'
	*nl
	'You hear someone approaching your bed once again. You tremble at the thought which black male is going to pound your pussy again.'
	'This time you''re in luck, it is one of the nurses, she unbinds your ankles, finally enabling you to retain a normal position.'
	'A pain runs through your body as you''ve forgot about how it is to be in a normal position.'
	'You don''t get much time to recover, "Follow me."'
	'She leads you to a room, "Sit down and wait."'

	act 'Follow her':gt 'experiment', 'testarea:treatment:impreg'
end

if $ARGS[0] = 'testarea:treatment:bed:wait:event':
	minut += 5
	actionType = rand (1, 10)
	gs 'stat'

	! fuck other girl
	if actionType >= 1 and actionType <= 3 and pcs_health >= 100 and pain['vaginal'] < 50:
		if plugIn = 0:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound4.jpg"></center>'
		if plugIn = 1:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound5.jpg"></center>'
		'A naked black male with huge erect penis enters the room, followed by a nurse.'
		'You tremble in fear... But you let out a sigh of relief as he passes your bed and goes to one of the other girls instead.'
		'You turn your head and watch what is about to happen.'
		*nl
		'He begins fucking the girl as is, bound and helpless, burying his phallus deeper with each stroke.'
		'The girl screams, either in horror or pain... You can''t tell which one...'
		'Not wanting to watch the onslaught you turn your head, shut your eyes and try to zone out the terrifying deed.'
		*nl
		'When you open your eyes, no one else but the other bound girl is there...'

		act 'Continue':gt 'experiment', 'testarea:treatment:bed'
	! fuck Sveta
	elseif actionType >= 4 and actionType <= 8 and pcs_health >= 100 and pain['vaginal'] < 50:
		coitVagCount += 1
		'A naked black male with huge erect penis enters the room, followed by a nurse.'
		'You tremble in fear... your worse fear might come true. He stops by your bed, hungrily observing your helpless body.'
		'The nurse spats a large portion of lubricant on the brim of your vagina.'
		'He climbs the bed, crouching above you. He grabs his giant, veiny cock, pointing it directly at the entry of your <b>'+$vagState+'</b> hole.'

		'Your eyes widen at the moment he starts pushing inside of you...'
		*nl
		if coitVagCount = 1:
			'<i>Oh no, oh no, I don''t want him to put THAT THING inside of me!</i>'
		elseif coitVagCount >= 2 and coitVagCount <= 3:
			'<i>No, not again, please!!!</i>'
		elseif coitVagCount >= 4 and coitVagCount <= 5:
			'<i>I''m already so full of cum... there is no space anymore!</i>'
		else
			'<i>More...dick...more...cum...</i>'
		end
		act 'Continue':gt 'experiment', 'testarea:treatment:sex1'
	! status check by nurse
	else
		cumPlugCheck += 1
		if pcs_health < 100:
			pcs_health += 150
		else
			pcs_health += 30
		end
		pcs_hydra += 100
		pcs_energy += 100
		pcs_mood += 50

		'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
		*nl
		'A nurse comes in, and heads directly towards your bed.'
		*nl
		if cumPlugCheck = 1:
			'She stops in front of you and takes a small sample of blood, checks your health and insemination status.'
			*nl
		elseif cumPlugCheck >= 2:
			'Once again she stops in front of you and takes a small sample of blood, checks your health and insemination status.'
			*nl
		elseif cumPlugCheck >= 4:
			'By now you already know the process, the nurse takes a small sample of blood, checks your health and insemination status.'
		end

		if pain['vaginal'] > 30:
			'She gives you something against the vaginal pain.'
			pain['vaginal'] -= rand(9,18)
		end

		gs 'stat'

		if plugIn = 1:
			if coitVagCount >= 6 and refusal = 0:
				*nl
				'The nurse pulls the plug out of your pussy, "Hmm, yes, it is time."'
				'<i>Time for what??</i> you think to yourself, still unable to speak.'
				'The nurse leaves. Your pussy, finally unplugged after long hours and '+coitVagCount+' voluminous doses of cum, starts dripping clots of white sticky juice.'
				act 'Continue':gt 'experiment', 'testarea:treatment:bed:doctor1'
			else
				if pregchem > 30:
					pregTalkPC = 1
					impreg = 1
					*nl
					'"Very well you little cum bucket, you have finally managed to finish the impregnation process. You will proceed to the final stage in a short time." the doctor tells you.'
				else
					*nl
					'The nurse pulls the plug out of your pussy, "Hmm, it seems you''ll need a fresh dose of sperm soon. The old one has been almost absorbed."'
					'With these words she rams the plug back in.'
					if cycle <= 1 or cycle > 2 and fertEgg = 0 and pregchem = 0:
						lastovulation = daystart
						cycle = 2
						ovulate = 24+rand(24,48)
						EggRH = 320+rand(160, 320)
						'"It seems you need a fresh dose of the ovulation drug." as she injects you with another dose.'
					end
				end
				act 'Continue':gt 'experiment', 'testarea:treatment:bed'
			end
		else
			act 'Continue':gt 'experiment', 'testarea:treatment:bed'
		end
	end
end

if $ARGS[0] = 'testarea:treatment:sex1':
	imgRand = rand(1, 3)
	'<center><img <<$set_imgh>> src="images\shared\sex\vag\miss\africanmis'+imgRand+'.jpg"></center>'
	'One of the men is setting himself into a position above you. He holds his giant cock in one hand, forcing it down... the grey tip, big as an apple, now touches the brim of your vagina, making you shake both in fear and expectation.'
	'The previously applied lube does its job as he lowers his entire body down, pushing the tip inside you.'
	*nl
	if coitVagCount = 1:'<i>Nonono..this can''t be true!</i>'
	*nl
	gs 'pain', 4, 'vaginal', 'stretch'
	gs 'arousal', 'vaginal', 3, 'bound', 'sub', 'rough', 'humiliation'
	gs 'stat'

	act 'Continue':gt 'experiment', 'testarea:treatment:sex2'
end

if $ARGS[0] = 'testarea:treatment:sex2':
	imgRand = rand(3, 7)
	'<center><video autoplay loop src="images\shared\sex\vag\miss\africanmis'+imgRand+'.mp4"></video></center>'
	'The few first thrusts are enough for him to get comfortable. He is already burying his long black cock more than halfway down your aching vagina.'
	if coitVagCount = 1:
			'<i>Aaarghh... I''m being sodomized, please help! It hurts! If I could at least scream!</i>'
		elseif coitVagCount >= 2 and coitVagCount <= 3:
			'<i>Ouch... ouch... he is tearing me apart!!</i>'
		elseif coitVagCount >= 4 and coitVagCount <= 5:
			'<i>No no... not so deep please... not so dee... ouch!</i>'
		else
			'<i>Another..Ouch..hit..ouch..to my..ouch..cervix..ouch..</i>'
	end
	'A relentless, beast-like pounding is what you have to endure. His stamina seems without limits, as he keeps the furious pace steady for what seems as long minutes...'
	*nl
	if coitVagCount >= 3:'The several doses of cum you have been pumped with whiles ago are still inside you. With his giant dick filling all of your insides, the cums squirts out of you with each thrust.'
	*nl
	gs 'pain', 4, 'vaginal', 'tear'
	gs 'arousal', 'vaginal', 9, 'bound', 'sub', 'rough', 'humiliation'
	gs 'arousal', 'end'
	gs 'stat'

	act 'Continue':gt 'experiment', 'testarea:treatment:sex3'
end

if $ARGS[0] = 'testarea:treatment:sex3':
	imgRand = rand(1, 3)
	'<center><video autoplay loop src="images\shared\sex\cum\vagcreampie\africancreampie'+imgRand+'.mp4"></video></center>'
	'Finally he reaches his orgasm, but not before he increases the pace even more.'
	'Your pussy already feels like on fire, your back hurts from his full weight falling down on your bound and exposed body.'
	'Buried all the way inside you, with the tip of his cock surely pushed all the way to your cervix, he ejaculates.'
	'Wave after wave a fresh dose of hot, thick sperm is pumped into you. It may be your imagination, but it seems as your belly is bulging more and more with each dose.'
	'There seems to be no end to his waves, he must have emptied his load at least ten times.'
	if coitVagCount = 1:
			'<i>...please don''t cum in me, please don''t cum in me, please don''t... oh no... ugh!</i>'
		elseif coitVagCount >= 2 and coitVagCount <= 3:
			'Ugh... I can feel it gushing into my womb... is that even possible?<i></i>'
		elseif coitVagCount >= 4 and coitVagCount <= 5:
			'<i>Ugh... ugh... ugh... ugh... oh god, he has been cumming for like a minute in a row, stop already! ugh... ugh...</i>'
		else
			'<i>I... feel... so... full...</i>'
	end
	*nl
	gs 'pain', 4, 'cervix', 'slam'
	gs 'arousal', 'vaginal', 4, 'bound', 'sub', 'rough', 'humiliation'
	gs 'arousal', 'end'
	gs 'cum_call', '', 'Some african male', 0, '', 100000, 75
	gs 'stat'
	*nl
	'At last his ejaculation ends. He does not pull immediately out, instead he signals for the nurse. As she arrives, he finally pulls his sticky, cum covered cock out. And you don''t feel empty for too long...'
	act 'Continue':gt 'experiment', 'testarea:treatment:plugIn'
end

if $ARGS[0] = 'testarea:treatment:deflower':
	if experi_stage = 0:
		minut += 2
		gs 'stat'
		'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africandeflowerer.jpg"></center>'
		*nl
		'Waiting for some time, you hear some footsteps nearing you.'
		'Turning your head you see a black man, naked, with something tremendous hanging between his legs.'
		'You finally figure out what it is, his penis! With each step the giant, heavy device swings from side to side...'
		'You start to tremble again as the man is approaching you...'
		act '(tremble in fear)':experi_stage = 1 & gt 'experiment', 'testarea:treatment:deflower'

	elseif experi_stage = 1:
		minut += 2
		gs 'stat'
		'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound3.jpg"></center>'
		*nl
		'You are still bound to your bed, both hands and legs secured behind your head.'
		'Your ass is lifted in the air, exposing your virgin holes to anyone who comes near the bed.'
		'One of the male participants approaches you, "Doctor said your pussy virgin is. I come to remove it."'
		'As he touches your ass cheeks, you begin to panic as it slowly dawns on you what is about to happen...'
		'He climbs your bed, stroking his giant, inhumanly enormous penis with his hands, making it thicker and harder, using a lot of lubricant.'
		'You have no choice but to watch him inflate his giant penis right above your head...'
		act '(watch him)':experi_stage = 2 & gt 'experiment', 'testarea:treatment:deflower'

	elseif experi_stage = 2:
		'<center><video autoplay loop src="images\shared\sex\vag\miss\africanmis8.mp4"></video></center>'
		*nl
		'Within few minutes his penis gets to its full size. The doctor was not exaggerating, it is huge and super thick!'
		'He lowers the phallus with his hands, pointing at the virgin membrane still present in your pure pussy...'
		'"Prepare for my black cock white virgin whore. Now I go in." he whispers...'
		'With these words, he starts to push, penetrating your virgin pussy slowly but steadily, deflowering you in a brutal and painful way.'
		'If you could scream, you would... but thanks to the drugs you''re not able to make a single noise...'
		*nl
		gs 'arousal', 'vaginal', 5, 'bound', 'sub', 'rough', 'humiliation'
		gs 'arousal', 'end'
		gs 'pain', 10, 'vaginal', 'tear'
		gs 'stat'
		act '(endure)':experi_stage = 3 & gt 'experiment', 'testarea:treatment:deflower'

	elseif experi_stage = 3:
		'<center><video autoplay loop src="images\shared\sex\vag\miss\africanmis9.mp4"></video></center>'
		*nl
		'As he goes deeper and deeper, a stream of blood starts pouring out of your deflowered pussy...'
		'Yet he does not mind, his only aim is to penetrate you as deep as possible, using his superior strength.'
		'"White whore have nice small pussy. Now I go deep more." he says as he pushes in even further...'
		'You''re barely able to take it, you''re fully stretched and it feels like he''s entered your stomach...'
		'Finally he stops thrusting in what you think will offer some respite, but to your dismay the man instead starts pounding you. It is even worse than before... His pace is fast and his strokes are still very deep...'
		'His pace is furious, it seems he has to fuck intensively to reach an orgasm.'
		'You have no choice but to endure it until the end...'
		*nl
		gs 'arousal', 'vaginal', 15, 'bound', 'sub', 'rough', 'humiliation'
		gs 'arousal', 'end'
		gs 'pain', 4, 'vaginal', 'stretch'
		gs 'stat'
		act '(endure)':experi_stage = 4 & gt 'experiment', 'testarea:treatment:deflower'

	elseif experi_stage = 4:
		'<center><video autoplay loop src="images\shared\sex\cum\vagcreampie\africancreampie4.mp4"></video></center>'
		*nl
		'Finally he starts to grunt, he''s reaching the edge...'
		'"White whore now will get reward, lot cum." he lets out between his grunts.'
		'His strokes get slower but more intensive, reaching your very cervix!'
		'Fortunately after several such painful strokes, he ejaculates!'
		'His 37 cm cock is buried almost all the way inside you, pumping his cum into you...'
		*nl
		gs 'pain', 6, 'cervix', 'slam'
		gs 'arousal', 'vaginal', 5, 'bound', 'sub', 'rough', 'humiliation'
		gs 'arousal', 'end'
		gs 'cum_call', '', 'Some african male', 0, '', 100000, 75
		gs 'stat'
		*nl
		act '(endure)':experi_stage = 5 & gt 'experiment', 'testarea:treatment:deflower'

	elseif experi_stage = 5:
		minut += 5
		gs 'stat'
		'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africandeflowerer.jpg"></center>'
		*nl
		'As he finishes, he pulls out his cock from your battered, deflowered vagina.'
		'A stream of cum mixed with blood pours out of it...'
		'He stands beside your bed, looking first at your gaping, leaking pussy... than turns his gaze towards your face...'
		'"White whore now big girl is. See you soon, we fuck more will." with that he leaves you as you are...'
		'Still bound and helpless, you fade out again. Who knows, if it''s from the drugs or the terrible experience...'
		act '(fade out again)':experi_stage = 0 & gt 'experiment', 'testarea:treatment:bed'

	end
end

if $ARGS[0] = 'testarea:treatment:plugIn':
	gs 'arousal', 'vaginal_dildo', 2, 'bound', 'sub', 'rough', 'humiliation'
	gs 'arousal', 'end'
	gs 'stat'
	plugIn = 1
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\pussyplug.jpg"></center>'
	*nl
	'Right after he pulls out his giant cock, the nurse grabs hold of a big, round plug and shoves it down your cum-filled hole.'
	'She manages it so quickly that almost no cum manages to slop out.'
	'Without a word she leaves you as you are, plugged like some kind of cattle...'
	act 'Continue':gt 'experiment', 'testarea:treatment:bed'
end

if $ARGS[0] = 'testarea:treatment:bed:doctor1':
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
	*nl
	'After few minutes the nurse gets back, followed by one of the doctors you have seen during the initial ''test''.'
	'<<$doc2>>: "Hello miss <<$pcs_lastname>>. The nurse here has informed me that you''ve made some progress."'
	'The doctor is observing you, as if he''s trying to figure out what''s on your mind...'
	'Your eyes widen as your mind drifts toward the worst case scenario...'
	'<<$doc2>>: "Nurse, give her a dose, I want to speak to her."'
	'The nurse empties an already prepared injection to your arm.'
	'You can slowly feel as if your body turns once again to your own control.'
	'"Uhm... uhm... I... I... can... speak?" you manage to whimper.'
	'<<$doc2>>: "Yes miss <<$pcs_lastname>>, we have given you an antidote. It is now up to you if you will get back to that vegetative state, or if you will cooperate and retain your full consciousness."'

	act 'Up to me?':gt 'experiment', 'testarea:treatment:bed:doctor2'
end

if $ARGS[0] = 'testarea:treatment:bed:doctor2':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
	*nl
	'<<$doc2>>: "Yes miss <<$pcs_lastname>>, you have shown a great ability to experience an over-sized member. Your sperm absorption ability is also above average."'
	'"That... is... good... I guess?" you frightfully ask...'
	'<<$doc2>>: "It is. We would like to extent an offer not every subject here gets."'
	'"An offer? You will let me go? Really? I need to... I want to, please!" you eagerly say.'
	'<<$doc2>>: "No, we definitely don''t want to let you go. You are legally bound to finish this treatment, you have no say in that."'
	'"But..." you start to sob as the sudden glimpse of hope gets crushed again.'
	'<<$doc2>>: "But you have SOME choice. To remain half awake, bound to a bed like an animal and be used like an animal."'
	'"...or?" you raise your eyes to meet his.'
	'<<$doc2>>: "Or you can continue under more, let''s say, cooperative conditions."'

	act 'That means what?':gt 'experiment', 'testarea:treatment:bed:doctor3'
end

if $ARGS[0] = 'testarea:treatment:bed:doctor3':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
	*nl
	'<<$doc2>>: "It means that for the remainder of the experiment, you will be provided with a private room, regular nutritions and hygienically equipment."'
	'You''re a bit surprised by that offer, "That sounds good... a little too good..."'
	'<<$doc2>>: "Indeed. However you will have to fully cooperate in all matters."'
	'"Which are?" you ask.'
	'<<$doc2>>: "Well, the ones you are already familiar with. You will still be inseminated regularly until you get impregnated. You will also be used by our top subjects."'
	'"Top subjects?" you curiously ask.'
	'<<$doc2>>: "Few of our first subjects, african males, who have been subjected to the Penis over-sizement project and members of the male fertility project for the longest time."'
	'He looks down on you, still bound with your ass higher than your head. It is probably the weirdest style of conversation you could ever think of.'
	'Still awaiting your answer the doctor grows impatient, "You are a bit slow, aren''t you? Well let me translate it so a slut can understand. You will have all the comfort, but you will also be fucked by males with the largest cocks ever seen, size of a horse, who ejaculate as much as a horse. You will have to do it willingly. They will use you any way they want. Those are the conditions. Yes or no?"'

	act 'I accept':gt 'experiment', 'testarea:treatment:bed:doctor5'
	act 'I refuse':gt 'experiment', 'testarea:treatment:bed:doctor4'
end

if $ARGS[0] = 'testarea:treatment:bed:doctor4':
	minut += 3
	refusal = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
	*nl
	'<<$doc2>>: Well, that''s disappointing, not at all what I hoped for, but it''s your choice. Nurse, do what you have to do. Goodbye miss <<$pcs_lastname>>. And enjoy..."'

	act 'Return to a vegetative state...':gt 'experiment', 'testarea:treatment:bed'
end

if $ARGS[0] = 'testarea:treatment:bed:doctor5':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
	*nl
	'<<$doc2>>: "Very good! Nurse, untie her and lead her to her new room. Goodbye miss <<$pcs_lastname>>. And enjoy..."'

	act 'Continue':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room':
	minut += 1
	gs 'stat'
	$metka = 'testarea:treatment:room'
	'<center><h3>Experiment private room</h3></center>'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\room.jpg"></center>'
	*nl
	'The room you are locked in is not a big one, but has all what you might need. Everything is however somehow adjusted to provide for more or less violent sexual acts.'
	'The bed has arm and leg cuffs. A hook is hanging from the ceiling. A large box in the far corner is locked by a code lock, you can only guess what''s inside.'
	'What strikes fear in your heart is a first aid kit on one of the walls, what just might happen here is so terrible that a first aid kit would be needed...'
	'The <a href="exec:gt ''experiment'', ''testarea:treatment:room:shower''">bathroom</a> has, in addition to regular equipment, also an enema kit.'
	'The exit door has a safety glass window. You are able to leave the room, but the only way you can go is the <a href="exec:gt ''experiment'', ''testarea:treatment:room:social''">social room</a>. All the other doors are securely locked.'

	act 'Wait for some time':gt 'experiment', 'testarea:treatment:room:wait'
	act 'Go to the bathroom':gt 'experiment', 'testarea:treatment:room:shower'
	act 'Eat hospital meal (0:20)':
		cla
		*clr
		minut += 20
		pranik -= 1
		pcs_health += 30
		pcs_manna += 100
		pcs_energy += 50
		water -= 25
		cumspclnt = 2
		gs 'cum_cleanup'
		fbreath = 0
		fat += 4
		frost = 0
		gs 'stat'
		'<center><img src="images\locations\shared\clinic\experiment\meal.jpg"></center>'
		'You ate a pretty stale hospital meal...'
		act 'Get back':gt 'experiment', 'testarea:treatment:room'
	end
	act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
	if pcs_sleep < 50:
		act 'Go to sleep':gt 'experiment', 'testarea:treatment:room:sleep'
	end
	act 'Go to social room':gt 'experiment', 'testarea:treatment:room:social'
end

if $ARGS[0] = 'testarea:treatment:room:sleep':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\sleep.jpg"></center>'
	*nl
	'You fall asleep on the bed, barely covered by the sheets...'
	pcs_hairbsh = 0
	cloth_vid = 0
	pain['killer'] = 0
	if fat > 5 and stringimplant = 1:silicone += 1 & fat -= 5

	minut += 240
	pcs_sleep += 65

	gs 'dreams', 'start'
	gs 'stat'
	act 'Wake up':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room:shower':
	$locM = 'experiment'
	$metkaM = 'testarea:treatment:room:shower'
	$metka = 'testarea:treatment:room:shower'
	'<center><h3>Experiment private - bathroom</h3></center>'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\roomshower.jpg"></center>'
	*nl
	'The bathroom has a small, hospital-like shower, a toilet, some clean razors, an enema kit and a sink with <a href="exec:GT ''mirror'',''start''">mirror</a>.'
	
	if klisma = 0: klisma = 1 & klisma_borrowed = 1
	
	if stanok > 0 and stanok_storage = 0: stanok_storage = stanok
	stanok = 2
			
	dynamic $shower
	dynamic $brit
	dynamic $enema
	dynamic $tampon
	dynamic $basin
	gs 'stat'

	act 'Go back':
		if klisma_borrowed = 1: klisma = 0 & klisma_borrowed = 0
		
		stanok = 0
		if stanok_storage > 0:
			stanok = stanok_storage
			stanok_storage = 0
		end
		
		gt 'experiment', 'testarea:treatment:room'
	end
end

if $ARGS[0] = 'testarea:treatment:room:wait':
	waitTime = rand (20, 60)
	minut += waitTime
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\roomwaiting.jpg"></center>'
	*nl
	'As if you have anything else to do, you patiently wait until something happens.'
	if impreg = 1:
		act 'Wait':gt 'experiment', 'testarea:treatment:impreg'
	elseif expVolunteerExam = 0:
		expVolunteerExam = 1
		act 'Wait':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
	else
		act 'Wait':gt 'experiment', 'testarea:treatment:room:event'
	end
end

if $ARGS[0] = 'testarea:treatment:room:social':
	minut += 10
	$metka = 'testarea:treatment:room:social'

	G1R = rand (0, 100)
	if G1R <= 30:
		G1 = 1
	else
		G1 = 0
	end
	G2R = rand (0, 100)
	if G2R <= 30:
		G2 = 1
	else
		G2 = 0
	end
	G3R = rand (0, 100)
	if G3R <= 30:
		G3 = 1
	else
		G3 = 0
	end

	mateR = rand (0, 100)
	soundR = rand (0, 100)

	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\roomsocial.jpg"></center>'
	*nl
	'The room has no windows. There are several sofas, a bookcase with some old books, a few used table games that are placed bellow the conference table.'
	*nl
	if G1 = 0 and G2 = 0 and G3 = 0:
		waitTime = rand (30, 60)
		'You are currently alone in the room.'
	else
		if G1 = 1:'A young, <a href="exec:gt ''experiment'', ''testarea:treatment:room:social:girls:G1''">blonde girl</a> is sitting on one of the couches.'
		if G2 = 1:'A thin, <a href="exec:gt ''experiment'', ''testarea:treatment:room:social:girls:G2''">brunette girl</a> is leaning by the wall.'
		if G3 = 1:'A mature, <a href="exec:gt ''experiment'', ''testarea:treatment:room:social:girls:G3''">dark haired woman</a> is reading a book.'
	end

	*nl
	if soundR <= 20:
		'A loud wetly pattering sound can be heard, coming from one of the rooms, along with male grunts and female moaning...'
	elseif soundR > 20 and soundR <= 40:
		'A rhythmic painful female screams resonate through the hallway, along with harsh male grunts...'
	elseif soundR > 40 and soundR <= 60:
		'A quiet yet noticeable sobbing of some girl can be heard through the silent hallway...'
	elseif soundR > 60 and soundR <= 80:
		'A period sound of whip landing on a skin resonates through the hallway, along with female sobbing...'
	else
		'A rare silence wanders through the hallways...'
	end

	*nl
	gs 'exercise', 'start'

	fuckCh = rand (0, 100)
	if fuckCh <= 30:
		act 'Spend some time reading':
			cls
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
			if pcs_nerd > 0:
				lastread = totminut
				lastreadday = daystart
				pcs_nerd += 1
				blizoruk += 1
			end
			if rand(0,1) = 0:
				makupskl_exp += 1
				'The book is really girly and mostly centres around what the characters wear and how they get ready to go out.'
				'You do pick up a few make up tips but its not mentally stimulating.'
			else
				if pcs_sewng <= 100: sewng_exp += rand(1,3)
				'The book is about an older lady solving a murder. For the most part its exciting.'
				'The slower parts have her sewing and it goes into more detail than it needs to, you do learn a little though.'
			end
			pcs_mood += 10
			minut += waitTime
			'While you are reading, all of a sudden a strong hand grabs you by the neck.'
			act 'Stop reading': gt 'experiment', 'testarea:treatment:room:social:gofuck'
		end
	else
		act 'Spend some time reading':
			cls
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
			if pcs_nerd > 0:
				lastread = totminut
				lastreadday = daystart
				pcs_nerd += 1
				blizoruk += 1
			end
			if rand(0,1) = 0:
				makupskl_exp += 1
				'The book is really girly and mostly centres around what the characters wear and how they get ready to go out.'
				'You do pick up a few make up tips but its not mentally stimulating.'
			else
				if pcs_sewng <= 100: sewng_exp += rand(1,3)
				'The book is about an older lady solving a murder. For the most part its exciting.'
				'The slower parts have her sewing and it goes into more detail than it needs to, you do learn a little though.'
			end
			pcs_mood += 10
			minut += waitTime
			gt 'experiment', 'testarea:treatment:room:social'
		end
	end
	act 'Go back to your room':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room:social:gofuck':
	'"White whore stop reading! Too much cum in balls I have, I need to empty them!" you hear a deep voice say.'
	*nl
	'One of the men approached you directly in the social room! You have no choice but to submit to him... like some kind of pet.'
	'He leads you to your room, throwing you down between the bedsheets...'
	coitusType = rand (0,16)
	act 'Continue':gt 'experiment', 'testarea:treatment:room:event:sex'
end

if $ARGS[0] = 'testarea:treatment:room:social:girls:G1':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
	*nl
	'A petite young girl, she must''ve just turned eighteen. She is obviously in a bad mood, keeping to herself.'
	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G1:talk'
	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
end

if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk':
	$subloc = 'testarea:treatment:room:social:girls:G1:talk:question'
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
	*nl
	'As you approach her, she looks up at you with a saddened look.'

	act 'Why are you so sad?':G1Q = 1 & gt 'experiment', $subloc
	act 'Why did you join this experiment?':G1Q = 2 & gt 'experiment', $subloc
	act 'What will you do once you finish the experiment?':G1Q = 3 & gt 'experiment', $subloc
	act 'You don''t mind the way we are treated by the men?':G1Q = 4 & gt 'experiment', $subloc
	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
end

if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk:question':
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
	*nl
	if G1Q = 1:
		'"Why are you so sad?" you ask.'
		'"I have been tricked into joining this experiment! How could I be not sad?" she responds.'

	elseif G1Q = 2:
		'"Why did you join this experiment?" you ask.'
		'"For money! Only for the stupid money! I was so desperate when I ran away from home and my boyfriend kicked me out from his apartment. I had nowhere to go, no money for food... But this, this is worse than living under the bridge! What will I do afterwards? I will receive 50.000 <b>₽</b> but also a baby in my belly..." she responds.'
	elseif G1Q = 3:
		'"What will you do once you finish the experiment?" you ask.'
		'"Well, I will be pregnant, that''s for sure. But... But I don''t really know. I was sure I was going to do an abortion but... It''s a tiny life inside you, you know? Would you kill it?" she replies.'
	elseif G1Q = 4:
		'"You don''t mind the way we are treated by the men?" you ask.'
		'"Of course I do mind! I hate it! I was a virgin when I signed up for this hell... They... they deflowered me. The biggest man did it. He tore me... They had to stitch me up... It hurts every time... I guess I am too tight, too small, for a regular men, even more for those drugged over-sized beasts!" she replies with tears in her eyes.'
	end

	act 'Continue':gt 'experiment', 'testarea:treatment:room:social:girls:G1:talk'
end

if $ARGS[0] = 'testarea:treatment:room:social:girls:G2':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
	*nl
	'A thin but lively girl. She is observing everyone else in the room, probably looking for a distraction from the usual boredom.'
	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G2:talk'
	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
end

if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk':
	minut += 3
	gs 'stat'
	$subloc = 'testarea:treatment:room:social:girls:G2:talk:question'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
	*nl
	'As you approach her, her face brightens as she gets some attention.'

	act 'How can you be in such a good mood?':G2Q = 1 & gt 'experiment', $subloc
	act 'Why did you join this experiment?':G2Q = 2 & gt 'experiment', $subloc
	act 'What will you do once you finish the experiment?':G2Q = 3 & gt 'experiment', $subloc
	act 'You don''t mind the way we are treated by the men?':G2Q = 4 & gt 'experiment', $subloc
	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
end

if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk:question':
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
	*nl
	if G2Q = 1:
		'"How can you have such a good mood?" you ask.'
		'"Why wouldn''t I? It is so much fun in here. Where else would you get so many orgasms? And those giant dicks! I love them!" she replies.'

	elseif G2Q = 2:
		'"Why did you join this experiment?" you ask.'
		'First I was attracted by the money. But when I heard what is it about, I didn''t wait a second! I love fucking black men! There are so few of them in Russia, but here.. it''s like a fairytale!'
	elseif G2Q = 3:
		'"What will you do once you finish the experiment?" you ask.'
		'"I''ll be pregnant! I hope they will keep me around for some time at least. You can safely have sex almost until the end of the pregnancy, did you know that?" she happily replies.'
	elseif G2Q = 4:
		'"You don''t mind the way we are treated by the men?" you ask.'
		'"I love it! It is true their cocks are big and it hurts sometimes, but those orgasms I get! It is the reason I am here!" she eagerly replies.'
	end

	act 'Continue':gt 'experiment', 'testarea:treatment:room:social:girls:G2:talk'
end

if $ARGS[0] = 'testarea:treatment:room:social:girls:G3':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
	*nl
	'A mature but fairly attractive woman in her late thirties. She is minding her own, reading a book.'
	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G3:talk'
	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
end

if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk':
	minut += 3
	gs 'stat'
	$subloc = 'testarea:treatment:room:social:girls:G3:talk:question'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
	*nl
	'As you approach her, she lifts her sight from the book, looking at you haughtily.'

	act 'Why are you not talking to anyone?':G3Q = 1 & gt 'experiment', $subloc
	act 'Why did you join this experiment?':G3Q = 2 & gt 'experiment', $subloc
	act 'What will you do once you finish the experiment?':G3Q = 3 & gt 'experiment', $subloc
	act 'You don''t mind the way we are treated by the men?':G3Q = 4 & gt 'experiment', $subloc
	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
end

if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk:question':
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
	*nl
	if G3Q = 1:
		'"Why are you not talking to anyone?" you ask.'
		'"Why would I? It''s all you ungrateful youngsters whimpering about being tricked and all. You don''t appreciate the opportunity you have been given." she snarly answers.'

	elseif G3Q = 2:
		'"Why did you join this experiment?" you ask.'
		'"A woman has to eat you know? I was working hard as a waitress but the money was tight, work was hard and everything sucked. Then I got this opportunity. I am here already for the fifth time." she answers.'
	elseif G3Q = 3:
		'"What will you do once you finish the experiment?" you ask.'
		'"I''ll head directly to an abortion clinic. Then I will rest for a six weeks and then I will get back here." she answers.'
	elseif G3Q = 4:
		'"You don''t mind the way we are treated by the men?" you ask.'
		'"As a waitress you live through a lot. I have done it for almost 15 years. It''s true some of them are rough but it is a walk through a rose garden compared to what the those crime bosses do to a lonely girl serving drinks." she answers.'
	end

	act 'Continue':gt 'experiment', 'testarea:treatment:room:social:girls:G3:talk'
end

if $ARGS[0] = 'testarea:treatment:room:event':
	actionType = rand (1, 12)

	! SEX
	if actionType >= 1 and actionType <= 6 and pain['asshole'] < 50 and pain['vagina'] < 50 and pcs_health >= 100:
		type = rand(1, 3)
		if type = 1:
			$africanN = 'africanMaleDark'
			africanMaleDarkC += 1
			'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africanmaledark.jpg"></center>'
			'The door opens and a tall man enters your room. His skin is dark as the night''s sky. A huge, almost horse-like cock is heavily hanging between his legs.'
			act 'Kneel down':gt 'experiment', 'testarea:treatment:room:event:positionKneel'
			act 'Get in position to get fucked':gt 'experiment', 'testarea:treatment:room:event:positionDoggy'
			act 'Lay back and let him have his way with you':gt 'experiment', 'testarea:treatment:room:event:positionVag'
			act 'Beg him not to abuse you':gt 'experiment', 'testarea:treatment:room:event:beg'
			act 'Resist him':gt 'experiment', 'testarea:treatment:room:event:resist'
			if  pcs_inhib =< 65: act 'Try to influence his choice of holes': gt 'experiment', 'testarea:treatment:room:event:seduce'

		elseif type = 2:
			$africanN = 'africanMaleMuscular'
			africanMaleMuscularC += 1
			'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africanmalemuscular.jpg"></center>'
			'You can hear the door open as a muscular man enters to your room.'
			'Afraid by his posture you have no other choice than to offer yourself to him...'
			act 'Kneel down':gt 'experiment', 'testarea:treatment:room:event:positionKneel'
			act 'Get in position to get fucked':gt 'experiment', 'testarea:treatment:room:event:positionDoggy'
			act 'Lay back and let him have his way with you':gt 'experiment', 'testarea:treatment:room:event:positionVag'
			act 'Beg him not to abuse you':gt 'experiment', 'testarea:treatment:room:event:beg'
			if  pcs_inhib =< 65: act 'Try to influence his choice of holes': gt 'experiment', 'testarea:treatment:room:event:seduce'

		elseif type = 3:
			$africanN = 'africanMaleFat'
			africanMaleFatC += 1
			'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africanmalefat.jpg"></center>'
			'A somewhat old and fat man enters your room, locking the door behind him. He is very hairy and smells terribly.'
			*nl
			if africanMaleFatC > 0:'<i>Oh god, not this one again! I hate him... he is so repugnant... and violent... please no... I... I just can''t...</i>'

			panicCh = rand (0, 100)
			if (africanMaleFatC > 0 and panicCh >= 50):act 'Do nothing and wait to see what happens':coitusType = rand (0,16) & gt 'experiment', 'testarea:treatment:room:event:sex'
			act 'Beg him not to abuse you':gt 'experiment', 'testarea:treatment:room:event:beg'
			act 'Resist him':gt 'experiment', 'testarea:treatment:room:event:resist'
		end

	! NOTHING
	elseif actionType >= 7 and actionType <= 10 and pain['asshole'] < 50 and pain['vagina'] < 50 and pcs_health >= 100:
		'You wait and wait, but it seems nothing is going to happen this time...'
		act 'Continue':gt 'experiment', 'testarea:treatment:room'

	! NURSE
	else
		'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
		'A nurse enters your room, looking at you very strictly, "Lay down, hands behind head, spread your legs wide and don''t move."'
		act 'Do as told':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
		if nurseTalk = 0:act 'Try to talk to her':gt 'experiment', 'testarea:treatment:room:event:nurse:talkTry'
		if nurseTalk = 1:act 'Talk to her':gt 'experiment', 'testarea:treatment:room:event:nurse:talk'
	end
end

if $ARGS[0] = 'testarea:treatment:room:event:positionDoggy':
	minut += 2
	gs 'stat'
	i = rand(1, 3)
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positiondoggy'+i+'.jpg"></center>'
	'You position yourself to his liking, lifting your ass in the air, inviting his to do whatever he pleases...'

	posR = rand(0, 5)
	if posR < 5:pos = 1
	if posR = 5:pos = 12
	act 'Close your eyes and wait':coitusType = pos & gt 'experiment', 'testarea:treatment:room:event:sex'
end

if $ARGS[0] = 'testarea:treatment:room:event:positionVag':
	minut += 2
	gs 'stat'
	i = rand(1, 3)
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positionvag'+i+'.jpg"></center>'
	'You position yourself to his liking, lifting your ass in the air, inviting him to do whatever he pleases...'
	posR = rand(0, 5)
	if posR < 5:pos = 6
	if posR = 5:pos = 13
	act 'Signal him you want him in your pussy':coitusType = pos & gt 'experiment', 'testarea:treatment:room:event:sex'
end

if $ARGS[0] = 'testarea:treatment:room:event:positionKneel':
	minut += 2
	gs 'stat'
	i = rand(1, 3)
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positionkneel'+i+'.jpg"></center>'
	'Kneeling down before him you shut your eyes, awaiting what he is going to do to you...'
	posR = rand(0, 6)

	if posR < 5:pos = 2
	if posR = 5:pos = 14
	if posR = 6:pos = 15
	act 'Kneel down':coitusType = pos & gt 'experiment', 'testarea:treatment:room:event:sex'
end

if $ARGS[0] = 'testarea:treatment:room:event:seduce':
	minut += 2
	gs 'stat'
	i = rand(1, 3)
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positionvag'+i+'.jpg"></center>'
	'You try to seduce him into knocking you up. You are here to get pregnant, the sooner you are knocked up, the sooner you get to leave and enjoy the hefty payment.'
	'You spread you legs and show him your pussy.'
	'"Come and breed me. Put your babies in me." you try to convince him.'

	if pcs_apprnc => 80:
		posR = rand(1,3)
		if posR = 1:pos = 0
		if posR = 2:pos = 3
		if posR = 3:pos = 6
	else
		posR = rand(0, 5)
		if posR < 5:pos = 6
		if posR = 5:pos = 13
	end

	act 'Close your eyes and wait':coitusType = pos & gt 'experiment', 'testarea:treatment:room:event:sex'
end

if $ARGS[0] = 'testarea:treatment:room:event:beg':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\beg.jpg"></center>'
	'You beg him to not abuse anymore... you are very sore!'
	'But your begging seems to has no effect on him... on the contrary!'
	posR = rand(1, 2)
	if posR = 1:pos = 15
	if posR = 2:pos = 16
	act 'Beg':coitusType = pos & gt 'experiment', 'testarea:treatment:room:event:sex'
end

if $ARGS[0] = 'testarea:treatment:room:event:resist':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\resist.jpg"></center>'
	*nl
	'You start hitting his chest as he''s grabbing your hair.'
	'There is no chance against his superior strength...'
	act 'Resist him':coitusType = 16 & gt 'experiment', 'testarea:treatment:room:event:sex'
end

if $ARGS[0] = 'testarea:treatment:room:event:sex':
	gs 'stat'

	! COITUS: vaginal doggy, 1v1
	if coitusType >= 0 and coitusType < 3:
		imgRand = rand(1, 5)
		'<center><video autoplay loop src="images\shared\sex\vag\doggy\africandoggy'+imgRand+'.mp4"></video></center>'
		'Holding you by your neck, he pushes you on the bed, lifting your hips with his strong hands.'
		'Having your ass up you brace for the entry of his giant cock.'
		'It hurts, but at least your pussy is still lubed from the last fuck, so it is not as bad as it could be. Yet his cock is so thick that the whole time you feel your pussy stretching to its limits.'
		'After several minutes he increases his pace, climaxing in long and voluminous ejaculation into your insides.'
		gs 'pain', 4, 'vaginal', 'tear'
		gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'humiliation'
		gs 'arousal', 'end'
		gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
		gs 'stat'

	! COITUS: vaginal cowgirl, 1v1
	elseif coitusType >= 3 and coitusType < 6:
		imgRand = rand(1, 3)
		'<center><video autoplay loop src="images\shared\sex\vag\cowgirl\africancowgirl'+imgRand+'.mp4"></video></center>'
		'The man lies down on the bed, relaxed and already with a huge erection, "Do your job white slut, or I make sure it hurts even more."'
		'Not wanting to upset him, you climb the bed, wrap your legs around his wide strong hips and carefully insert the tremendous tip inside your vagina.'
		'You slowly manage to bury yourself deeper and deeper, until it is somehow comfortable to ride him.'
		'He truly enjoys it and after several minutes a tremendous delivery of sperm fills you up.'
		gs 'pain', 2, 'vaginal', 'tear'
		gs 'pain', 2, 'armL', 'bind'
		gs 'pain', 2, 'armR', 'bind'
		gs 'arousal', 'vaginal', 45, 'bound', 'sub', 'rough', 'humiliation'
		gs 'arousal', 'end'
		gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
		gs 'stat'

	! COITUS: vaginal missionary, 1v1
	elseif coitusType >= 6 and coitusType < 9:
		imgRand = rand(1, 3)
		'<center><video autoplay loop src="images\shared\sex\vag\miss\africanmis'+imgRand+'.mp4"></video></center>'
		'Holding you by your neck, he pushes you on the bed, spreading your legs to get better access to your pink, wetly pussy.'
		'You stiffen a bit as he penetrates you.'
		'It hurts, but at least your pussy is still lubed from the last fuck, so it is not as bad as it could. Yet his cock is so thick that the whole time you feel your pussy stretching to its limits.'
		'After several minutes he increases his pace, climaxing in long and voluminous ejaculation into your insides.'
		'As you watch him ejaculate, you can feel your abdomen bulking, as if the cum entered your very cervix.'
		gs 'pain', 2, 'throat', 'stretch'
		gs 'arousal', 'bj', 15, 'sub', 'rough', 'humiliation'
		gs 'arousal', 'end'
		gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
		gs 'stat'

	! COITUS: vaginal + mouth, 2v1
	elseif coitusType >= 9 and coitusType < 12:
		imgRand = rand(1, 3)
		'<center><video autoplay loop src="images\shared\sex\mmf\africandoggydouble'+imgRand+'.mp4"></video></center>'
		'As he''s about to penetrate you, the door opens and another man walks in.'
		'Confused you await what is going to happen, but the other man just causally walks around and grabs your head, and pushes the tip of his cock to your yet closed lips.'
		'Before you realize what''s happening, the other man penetrates your vagina...'
		'"Ouch!" the penetration makes your mouth open automatically, while the second man takes the opportunity and sticks his cock inside your unprepared mouth!'
		'You gag but he does not mind, as he begins to fuck your throat.'
		'You have no choice but to satisfy them both at once.'
		gs 'pain', 6, 'vaginal', 'tear'
		gs 'arousal', 'vaginal', 30, 'sub', 'rough', 'humiliation'
		gs 'arousal', 'end'
		gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
		gs 'cum_call', 'mouth', 'Some african male', 0, '', 250000, 100
		gs 'stat'

	! COITUS: anal doggy, 1v1
	elseif coitusType = 12:
		imgRand = rand(1, 5)
		'<center><video autoplay loop src="images\shared\sex\anal\doggy\africananaldoggy'+imgRand+'.mp4"></video></center>'
		'Holding you by your neck, he pushes you on the bed, lifting your hips with his strong hands.'
		'With your ass up you expect him to penetrate your pussy...'
		'But all of a sudden a sharp pain runs through your lower parts! You yell out as he starts penetrating your ass!'
		'He either did not realize it, or maybe it was his intention.'
		'As he fucks you, beside all the pain it feels as if he''s bumping to your actual stomach from inside you!'
		'After several minutes he increases his pace, climaxing with a long and voluminous ejaculation into your intestines.'
		gs 'pain', 4, 'anal', 'tear'
		gs 'arousal', 'anal', 20, 'sub', 'rough', 'humiliation'
		gs 'arousal', 'end'
		gs 'cum_call', 'anus', 'Some african male', 0, '', 250000, 100
		gs 'stat'

	! COITUS: anal missionary, 1v1
	elseif coitusType = 13:
		imgRand = rand(1, 4)
		'<center><video autoplay loop src="images\shared\sex\anal\mis\africananalmis'+imgRand+'.mp4"></video></center>'
		'Holding you by your neck, he pushes you on the bed, spreading your legs to get better access to your pink, wetly pussy.'
		'You stiffen a bit as you expect him to penetrate your pussy..'
		'But all of a sudden a sharp pain runs through your lower parts! You yell out as he starts penetrating your ass!'
		'He either did not realize it, or maybe it was his intention.'
		'As he fucks you, beside all the pain it feels as if he''s bumping to your actual stomach from inside you!'
		'After several minutes he increases his pace, climaxing with a long and voluminous ejaculation into your intestines.'
		gs 'pain', 4, 'anal', 'tear'
		gs 'arousal', 'anal', 30, 'sub', 'rough', 'humiliation'
		gs 'arousal', 'end'
		gs 'cum_call', 'anus', 'Some african male', 0, '', 250000, 100
		gs 'stat'

	! COITUS: bj, 1v1
	elseif coitusType = 14:
		imgRand = rand(1, 5)
		'<center><video autoplay loop src="images\shared\sex\blowjob\africanblowjob'+imgRand+'.mp4"></video></center>'
		'Holding you by your neck, he forcefully pushes you to the ground, making you kneel before him.'
		'His giant black cock is hanging in front of your face...'
		'"Suck my black cock white white. Suck deep, or I make you." he commands.'
		'Taking his cock in your hands, almost unable to wrap your whole hand around it, you start to suck the tip.'
		'You slowly make way down your throat, while the horselike cock makes you gag and almost suffocate.'
		'After working on his cock for what feels like an eternity he grunts and finally ejaculates.'
		'Part of his cum lands around your mouth and face, as he sees you are not swallowing he forces your head, almost whole length of his cock is now buried inside your throat.'
		'You can feel the hot cum flowing directly to your stomach with each wave of cum...'
		gs 'pain', 4, 'throat', 'stretch'
		gs 'arousal', 'bj', 30, 'sub', 'rough', 'humiliation'
		gs 'arousal', 'end'
		gs 'cum_call', 'mouth', 'Some african male', 0, '', 250000, 70
		gs 'cum_call', 'face', 'Some african male', 0, '', 250000, 20
		gs 'stat'

	! COITUS: bdsm, anal, 1v1
	elseif coitusType = 15:
		imgRand = rand(1, 3)
		'<center><video autoplay loop src="images\shared\sex\anal\bdsm\africananalbdsm'+imgRand+'.mp4"></video></center>'
		'"White whore, I have no patience now. Turn around." he commands.'
		'As you do it he brings your hands together and binds them.'
		'He then positions you to his likes, you are unable to move, with all your holes at his mercy.'
		'He seems happy to see you helpless like that, and begins penetrating your anus with his giant cock!'
		'"Not my ass, please, it hurts! Ouuch!" you yell out...'
		'Disregarding your pleads, he fucks you like that for some time until he finally ejaculates, filling you with his immense amount of cum.'
		gs 'pain', 2, 'anal', 'tear'
		gs 'pain', 2, 'armL', 'bind'
		gs 'pain', 2, 'armR', 'bind'
		gs 'arousal', 'anal', 30, 'bound', 'sub', 'rough', 'humiliation'
		gs 'arousal', 'end'
		gs 'cum_call', 'anus', 'Some african male', 0, '', 250000, 100
		gs 'stat'

	! COITUS: bdsm, whip, 1v1
	elseif coitusType = 16:
		imgRand = rand(1, 5)
		'<center><video autoplay loop src="images\locations\shared\clinic\experiment\whip'+imgRand+'.mp4"></video></center>'
		'"White whore deserve to be punished. Turn around." he commands you.'
		'As you do it he brings your hands together and binds them, securing you in a position.'
		'From the box in the corner he takes out a long leather whip.'
		'Without saying another word, regardless of your pleads, he starts whipping your ass cheeks.'
		'With each stroke you let out a scream, like small girl that is punished by her bad behavior.'
		'When you finally believe it is over, he walks to the front, and does the same to your tender breasts!'
		'"Not my breasts, please, it hurts! My nipples! you yell out.'
		'After he is really over, both your ass cheeks and breasts burn like hell, being red and bruised by the punishment.'
		gs 'pain', 4, 'breasts', 'spank'
		gs 'pain', 4, 'asscheeks', 'spank'
		gs 'pain', 2, 'armL', 'bind'
		gs 'pain', 2, 'armR', 'bind'
		gs 'stat'
	end

	act 'Wait until he leaves':gt 'experiment', 'testarea:treatment:room'
	if coitusType < 15:act 'Try to talk to him':gt 'experiment', 'testarea:treatment:room:event:african:talk'
end

if $ARGS[0] = 'testarea:treatment:room:event:african:talk':
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
	*nl
	talkChance = rand (0, 100)
	if talkChance <= 20:
		'You try to talk to him, but he does not react at all. As if he does not even recognize your presence.'
		act 'Let him be':gt 'experiment', 'testarea:treatment:room'

	elseif talkChance > 20 and talkChance <= 40:
		'You try to talk to him. Looking at you he slowly opens his mouth, "Must... fuck... many... white... women..."'
		'He speaks as if he wasn''t even aware of himself. Maybe he is under some kind of drug, or even hypnotized?'
		act 'Let him be':gt 'experiment', 'testarea:treatment:room'

	elseif talkChance > 40 and talkChance <= 60:
		'You try to talk to him. He finally looks at you...'
		'"Shut your mouth white whore. I must not talk, only to cum inside." he angrily replies.'
		'Not wanting to upset him further, you keep quiet...'
		'It doesn''t take long before he leaves, looking at you with angry face while closing the door. You just hope he will not be back before his anger fades, otherwise...'
		act 'Continue':gt 'experiment', 'testarea:treatment:room'
	else
		'You try to talk to him. He finally pays attention to you, this time looking a bit friendlier than before.'
		'"What you want white whore?" he asks...'

		act 'Why are you here?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q1'
		if expVolunteer = 0:act 'Are you also a prisoner like me?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q2'
		act 'Where are you from?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q3'
		act 'Why are you so violent?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q4'
		act 'How can your cock be so enormous?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q5'
		act 'Are you in Russia legally?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q6'
		act 'Why do you crave to fuck white women so much?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q7'
		act 'How can you enjoy hurting women in such a way?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q8'
	end
end

if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q1':
	minut += 5
	pcs_mood += 20
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
	'"Why are you here?" you ask...'
	'"Guess why, you white whore." he replies.'
	'"For money?" you guess.'
	'"That too." he quickly replies.'
	'"Too? What else?" you continue on.'
	'"For fun. Doctor gave me pills so my cock bigger is. And free white whores to fuck." he smirks, "I like white whores. Money good is but fuck better is."'

	act 'Continue':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q2':
	minut += 5
	pcs_mood += 20
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
	'"Are you also a prisoner like me?" you ask.'
	'"No! I am never slave as you white whore are." he replies.'
	'"So you entered the experiment voluntarily?" you press on.'
	'"Yes, I come for money but I stay for whores." he smiles.'
	'"I see..." you comment.'
	'"And for pills. Pills make my cock big, as big as horse. Horse cock, white whores, a lot fun." his grin is getting even bigger.'
	'"Not for me, it hurts so much!" you moan.'
	'"Horse cock is good for white whore. The bigger the more fun when it hurts. It''s fun more when white whore can not say no." he laughs loudly.'
	'You just gulp, in disgust, unable to say anything more.'
	'He gets up, slaps your face with his almost flaccid cock and leaves.'

	act 'Continue':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q3':
	minut += 5
	pcs_mood += 20
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
	'"Where are you from?" you ask.'
	'"From the start, a country in Africa. But I come out of Germany. White man not let me stay." he sadly answers.'
	'"Why?" you curiously ask.'
	'"German man is racist. German cunts went for police. I must go out." he replies.'
	'You are in shock. Is he some kind of criminal? Better not make him upset...'
	'Before you''re able to say anything he speaks up, "My balls are getting full again are. White whore get ready, I come soon again."'

	act 'Continue':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q4':
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
	'"Why are you so violent?" you ask.'
	'"White whore should keep quiet." he annoyingly answers.'
	'"What do you mean?" you push on.'
	'"White whore should know we treat as the whores they are." he explains.'
	'"What are you saying!" you tell him off.'
	'"White whore should shut mouth or I stuff my fist inside her." he threatens you.'
	'You are shocked. He seem to feel no remorse about what he''s doing to you, he''s probably used to treat women as slaves who require nothing else than punishment and abuse.'

	act 'Continue':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q5':
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
	'"How can your cock be so enormous?" you ask.'
	'"My cock was not so big before." he begins to explain.'
	'"Before what?" you pry further.'
	'"Before doctor came and give me chance." he continues on.'
	'"A chance?" you look confusedly at him.'
	'"Yes, doctor gave me pills. My cock now is double big as before." he proudly says.'
	'"I understand..." you say.'
	'"Double dick size but also balls are more full. So doctor give me white whores to fuck." he smiles.'

	act 'Continue':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q6':
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
	'"Are you legally in Russia?" you ask.'
	'"Doctor promised. I do eat pills, I get passport." he explains.'
	'"So you will receive citizenship for being part of this medical research?" you continue on.'
	'"Doctor promised. I will not go back." he''s pretty resolute in his answer.'
	'"Why, if you don''t mind me asking?" you pry.'
	'"Because, war." you replies as his eyes sadden.'
	'"Oh, there is a war in your country?" you continue on.'
	'But he waves it away, "Yes, war. And no white whores to fuck, boredom. But Russia good is."'

	act 'Continue':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q7':
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
	'"Why do you crave to fuck white women so much?" you ask.'
	'"White woman is not woman. She whore is." he replies in broken russian.'
	'"Excuse me?!" you yell out.'
	'"Black woman is good woman. She decent is. Not provoke, not slut." he starts explaining.'
	'"And white is a slut or what?" annoyed, you ask.'
	'"Yes, white woman is slut. She show too much skin... She wants cock..." he says.'
	'"That is not true!" you start to explain.'
	'"It true is. Look yourself. You here are for cock. You let be fucked by black man. You slut are." and with that he finishes the discussion.'

	act 'Continue':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q8':
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
	'"How can you enjoy hurting women in such a way?" you ask.'
	'"I do not hurt women. No." he confidently answers.'
	'"But you just abused me in very aggressive and painful way!" you begin to explain.'
	'"You no woman are. You white whore are." he angrily replies.'
	'"What? Me being a whore makes me not a woman?" you try to reason with him.'
	'"Yes, white whore not woman. She only to fuck wants. All Africa knows well." he''s almost shouting.'
	'"What? Everyone in Africa knows what?" you''re irritated by now.'
	'"Every man in Africa knows white whores only for sex is. All white whore is and want sex." he continues on.'

	act 'Continue':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room:event:nurse:check':
	minut += 5
	! STATUS CHECK: nurse
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'She takes a sample of your blood, measures your temperature, blood pressure and proceeds to examine insides of your vagina.'

	if pain['vaginal'] > 30 or pain['asshole'] > 30:
		'She gives you something against the pain.'
		if pain['vaginal'] > 30: pain['vaginal'] -= rand(9,18)
		if pain['asshole'] > 30: pain['asshole'] -= rand(9,18)
	end

	'<i>The cold medical mirror is nothing compared to the abuse endured by the giant black cocks.</i>'
	'When she''s done, she packs up her equipment and says,'
	if pregchem > 30:
		pregTalkPC = 1
		impreg = 1
		'Very well miss <<$pcs_lastname>>, you have finally managed to complete the impregnation process. You will proceed to the final stage in a short time.'
	else
		'The impregnation has yet not taken place, further insemination is needed. See you later miss <<$pcs_lastname>>.'
	end

	if cycle <= 1 or cycle > 2 and fertEgg = 0 and pregchem = 0:
		lastovulation = daystart
		cycle = 2
		ovulate = 24+rand(24,48)
		EggRH = 320+rand(160, 320)
		'Also it seems you need a refresh of the ovulation drug. She injects you with another dose.'
	end
	gs 'stat'

	act 'Continue':gt 'experiment', 'testarea:treatment:room'
end

if $ARGS[0] = 'testarea:treatment:room:event:nurse:talkTry':
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'You decide to try to talk to her...'
	act 'Please nurse, please talk to me!':gt 'experiment', 'testarea:treatment:room:event:nurse:talk'
end

if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk':
	nurseRel += 1
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	*nl
	if nurseRel <= 2:
		'The nurse does not seem to be interested in talking with you.'
		act 'Let her be':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
	elseif nurseRel >= 3 and nurseRel <= 4:
		'The nurse still does not want to talk to you, yet you can see that she looks compassionately at your face occasionally.'
		act 'Let her be':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
	else
		nurseTalk = 1
		'The nurse looks at you, "What do you want to talk about miss <<$pcs_lastname>>?"'
		'"I''m so glad you decided to speak to me. Everyone here just comes, fucks me like a doll and leaves without saying a word." you explain.'
		'"Well, that''s what you signed for after all. Do you have some questions or not?" she answers cold hearteningly.'
		act 'When will you let me go?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q1'
		if expVolunteer = 0:act 'Why are you doing this to me?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q2'
		if expVolunteer = 0:act 'Is this experiment even legal?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q3'
		act 'Did you also gone through the experiment?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q4'
		if expVolunteer = 0:act 'How can you let them do this to me?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q5'
		act 'Why do you use the africans?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q6'
		act 'Why do the africans have such unnaturally oversized penises?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q7'
	end
end

if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q1':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'"When will you let me go?" you ask.'
	'"You will be released from the experimental research once you finish it." the nurse explains.'
	'"And when I will finish it?" you continue asking.'
	'"Once you get impregnated." she shortly answers.'
	'"But what will I do with a child afterwards?" you hesitantly ask.'
	'The nurse nonchalantly looks at you, "I don''t know miss <<$pcs_lastname>>. You can do whatever you want I guess. I must go, I have to get back to work."'

	act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
end

if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q2':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'"Why are you doing this to me?" you ask.'
	'"Me? I am doing just my job." she answers.'
	'"But I was tricked! I did not know the experiment will be like this!" you try to reason with her.'
	'"You believe this yourself? I think there is just enough information to catch up with the actual nature of this research." she answers.'
	'"But... but..." you start...'
	'"But what?" she annoyingly looks at you...'
	'"I don''t want this anymore!" your eyes tear up.'
	'"That is unfortunate, but I cannot do anything about it. I am just a cog in a large machine, you know." she explains.'
	'"But... but..." you try...'
	'She interrupts you, "I have to go now miss <<$pcs_lastname>>. See you later."'

	act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
end

if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q3':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'"Is this experiment even legal?" you ask.'
	'"Of course it is. You have filed out the paperwork, stating your attendance as entirely voluntary and willing." the nurse smirks.'
	'"Voluntary? That means I can leave when I want?" you feel getting the upper hand.'
	'The nurse quickly shuts you down, "Almost. You will be released while your contract obligations are fulfilled. Not until the goal is accomplished."'

	act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
end

if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q4':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'"Did you also gone through the experiment?" you ask.'
	'"What do you mean?" the nurse is confusingly looking at you.'
	'"Well... have you been also... you know... in my place?" you pry on.'
	'The nurse takes offense, "What??? Do I look like so miserable to sell my own body?"'
	'"I did not..." you begin to explain yourself...'
	'But the nurse quickly interrupts you, "Shut up you stupid black cock loving whore, you are a disgrace of the Russian people."'
	nurseRel -= 3
	nurseTalk = 0
	act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
end

if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q5':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'"How can you let them do this to me?" you ask.'
	'"Me? I am doing just my own job. I did not force anyone to do anything." she explains.'
	'"But you see what they do to me and do nothing about it!" you yell out.'
	'Annoyed she replies, "And what should I do? Go to authorities or police? They are bribed. I would end up without a job, and that would be even the best outcome."'
	nurseTalk = 0
	act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
end

if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q6':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'Why do you use the black males?" you ask.'
	'"Well, it''s an idea of the doctors. Something about several areas to test." she explains.'
	'"Several areas?" you ask.'
	'"Yes, apparently they wanted to use this opportunity to their best. They can test the ovulation drug, the male fertility drug and in addition they can test it in interracial environment." she tries to explain.'
	'"I understand..." you quietly answer.'
	'"But I believe there is also a more practical reason." she smirks.'
	'"What reason?" you quickly ask.'
	'"Well if they hired male Russians, word about the experiment would get out sooner or later. So they hired those black males instead, who barely speak Russian, and even if they would, nobody would believe them a single word. And when this is finished, they can dispose of them very quietly..." she tells you before leaving.'
	nurseTalk = 0
	act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
end

if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q7':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'"Why do the africans have such unnaturally over-sized penises?" you ask.'
	'"It''s the other drug that is tested here. Experimental penis enlargement." she explains.'
	'"It really works? I thought it was only a placebo..." you say.'
	'She nears you and starts whispering, "What they sell on-line is a fake. But what we test here is not. But..."'
	'"But what?" you curiously ask.'
	'"It has side effects. Sometimes their bodies fail to keep up with the enlargement process, and..." she keeps telling you.'
	'"And?" the excitement is killing you...'
	'"They don''t survive it. Better said, their ''devices'' don''t survive it, and they slowly follow afterwards." she explains.'
	'You gasp, "They died because why, their cocks... fell off?"'
	'The nurse nods, "Crudely said, yes. It can cause a incurable gangrene that in the end causes the victim to die. That is another reason why doctors use these africans, people without documents, without connection to reality. People who are missed by nobody... Until they finally fix this side effect, that is."'
	nurseTalk = 0
	act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
end

if $ARGS[0] = 'testarea:treatment:impreg':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positiondoggy2.jpg"></center>'
	'Lying on the bed you hear the door open once again. You have lost count of how many times you have been abused, how many ejaculations have you taken inside you...'
	'You do not even watch to see who is coming in, you automatically turn around on the bed, sticking your ass up, getting ready to be fucked once again...'

	act 'Await penetration':gt 'experiment', 'testarea:treatment:impreg:doctor'
	if expVolunteer = 1:act 'Await penetration':gt 'experiment', 'testarea:treatment:impreg:doctor:volunteer'
end

if $ARGS[0] = 'testarea:treatment:impreg:doctor:volunteer':
	minut += 3
	thinpreg = 1
	knowpreg = 1
	unrelated_preg = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc1.jpg"></center>'
	'<<$doc1>>: "Miss <<$pcs_lastname>>?"'
	*nl
	'Hearing that voice you realize it is not another black male coming to abuse you, but one of the doctors!'
	'You quickly turn around on the bed to be able to look at him. He is watching you with weird interest.'
	'"What do you want from me?" you ask.'
	'<<$doc1>>: "I have come to inform you about your progress."'
	'"Progress?" you look strangely at him.'
	'<<$doc1>>: "Yes, the insemination has finally been processed."'
	'"Already?" you disappointingly ask.'
	'<<$doc1>>: "Indeed miss <<$pcs_lastname>>, you are pregnant. Congratulations!"'
	'"Thank you, I guess...?" you don''t really know how to act.'
	'<<$doc1>>: "Both our ovulation drug and male fertility drug worked very efficiently in your case. It was a valuable input to our experiment."'

	act 'Follow him':gt 'experiment', 'testarea:treatment:impreg:dressup'
end

if $ARGS[0] = 'testarea:treatment:impreg:doctor':
	minut += 3
	thinpreg = 1
	knowpreg = 1
	unrelated_preg = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc1.jpg"></center>'
	'<<$doc1>>: "Miss <<$pcs_lastname>>?"'
	*nl
	'Hearing that voice you realize it is not another black male coming to abuse you, but one of the doctors!'
	'You quickly turn around on the bed to be able to look at him. He is watching you with weird interest.'
	'"What do you want from me?" you ask.'
	'<<$doc1>>: "I have come to inform you about your progress."'
	'"Progress?" you look strangely at him.'
	'<<$doc1>>: "Yes. The insemination has finally been processed."'
	'You gasp, "I... I''m...?"'
	'<<$doc1>>: "Indeed miss <<$pcs_lastname>>, you are pregnant. Congratulations!"'
	'You shake your head in disbelief, "Oh no... pregnant... by one of... them?"'
	'<<$doc1>>: "Of course, who else? Both our ovulation drug and male fertility drug worked very efficiently in your case. It was a valuable input to our experiment."'

	act 'Collapse and cry':gt 'experiment', 'testarea:treatment:impreg:cry'
	act 'Get angry and shout at him':gt 'experiment', 'testarea:treatment:impreg:shout'
end

if $ARGS[0] = 'testarea:treatment:impreg:cry':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\cry.jpg"></center>'
	'<<$doc1>>: "Do not cry miss <<$pcs_lastname>>. You should be proud of yourself, you helped the medical field progress."'
	'With tears running down your cheeks, "Progress?! My life is ruined! I''m expecting a black bastard! How will I explain this to my friends? To my family?!"'
	'<<$doc1>>: "That is a problem you should have thought about before signing the form. Now follow me, I will show you to the exit."'

	act 'Follow him crying':gt 'experiment', 'testarea:treatment:impreg:dressup'
end

if $ARGS[0] = 'testarea:treatment:impreg:dressup':
	minut += 8
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'The nurse enters the room, "So miss <<$pcs_lastname>>, here are your things from the locker, please dress up."'
	'You eagerly put on the clothing that you left in the locker before getting locked up for days, maybe weeks, but definitely dozens of ejaculations ago.'
	gs 'clothing', 'wear_last_worn'
	gs 'stat'

	act 'Continue':gt 'experiment', 'testarea:treatment:impreg:leave'
end

if $ARGS[0] = 'testarea:treatment:impreg:leave':
	minut += 5
	money += 50000
	experimentAbsolved += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'The nurse speaks up, "And the last matter to be settled is your payment."'
	if expVolunteer = 0:'<i>At least I will get paid for the abuse I''ve been through...</i>'
	'She hands you several bills. You count them, it is 50.000 <b>₽</b>, "Now follow me, I will show you the way out."'
	if expVolunteer = 0:'<i>Finally, freedom!</i>'

	if expVolunteer = 1:act 'Uhm... nurse?':gt 'experiment', 'testarea:treatment:impreg:shout:punish:volunteer1'
	act 'Get out':gt 'poli', 'start'
end

if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:volunteer1':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'"What is it miss <<$pcs_lastname>>?" the nurse asks.'
	'"Uhm... I..." you hesitate.'
	'The nurse is growing inpatient, "Just tell me what you want, I have to get back to paperwork."'

	act 'It''s nothing... (thank her and leave)':gt 'poli', 'start'
	act 'Can I get one last fuck?':gt 'experiment', 'testarea:treatment:impreg:shout:punish:volunteer2'
end

if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:volunteer2':
	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
	'The nurse is a bit shocked by your request, "Miss <<$pcs_lastname>>, haven''t you had enough?"'
	'You look down at the ground, "Uhm... you know..."'
	'The nurse crosses her arms, "After so many days, being stuffed by those black cocks, and you ask me for another fuck?"'
	'"Well... I..." you shyly speak.'
	'With a stern look the nurse begins to speak, "Someone here needs to punished. Abdul, come over here!"'

	act '(change your mind and quickly leave)':gt 'poli', 'start'
	act '(sit down and wait)':gt 'experiment', 'testarea:treatment:impreg:shout:punish'
end

if $ARGS[0] = 'testarea:treatment:impreg:shout':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\shout\pc.jpg"></center>'
	'"My life is ruined! You have forced upon this me! I was raped at least million times!" you angrily yell out.'
	'<<$doc1>>: "Calm down miss <<$pcs_lastname>>. You should be proud of yourself, you helped the medical field progress.'
	'"Go to hell! You and your medicine!" you keep on yelling.'
	'<<$doc1>>: "Calm down or I will have you forcefully led out!"'
	'"Fuck you!" with these words you jump off the bed and start slapping him with your hands.'
	'As if from nowhere a pair of strong black hands grab you, lifting you in the air. You''re kicking with your legs like a beetle, but resistance is futile.'
	*nl
	'<<$doc1>>: "Thank you Abdul. Show this stubborn girl her place and then kick her out."'
	*nl
	'"You heard doctor we job have to do." with these words he looks at you with a mean smile.'

	act 'Continue':gt 'experiment', 'testarea:treatment:impreg:shout:punish'
end

if $ARGS[0] = 'testarea:treatment:impreg:shout:punish':
	'<center><video autoplay loop src="images\shared\sex\group\africangroup1.mp4"></video></center>'
	'Several black men, most of them you have ''met'' before, start entering the room.'
	'The one called Abdul is holding you while the other men grab your legs, making their way to your battered groin.'
	'Even more violently than before, all of them at once, abuse you. A big black cock is rammed deep in every free hole.'
	'You cry, you beg, but they are relentless, as if no human pity is left inside them. Might be caused by the fertility drug, but who really knows anymore...'

	gs 'pain', 4, 'breasts', 'spank'
	gs 'pain', 4, 'asscheeks', 'spank'
	gs 'pain', 4, 'neck', 'twist'
	gs 'pain', 2, 'armL', 'bind'
	gs 'pain', 2, 'armR', 'bind'
	gs 'pain', 4, 'vaginal', 'stretch'
	gs 'pain', 4, 'asshole', 'stretch'

	gs 'arousal', 'vaginal', 30, 'bound', 'sub', 'rough', 'humiliation'
	gs 'arousal', 'end'
	gs 'cum_call', 'anus', 'Some african male', 0, '', 250000, 50
	gs 'cum_call', '', 'Some african male', 0, '', 250000, 50
	gs 'cum_call', 'face', 'Some african male', 0, '', 250000, 50
	gs 'cum_call', 'hair', 'Some african male', 0, '', 250000, 50
	gs 'cum_call', 'stomach', 'Some african male', 0, '', 250000, 50
	gs 'cum_call', 'breasts', 'Some african male', 0, '', 250000, 50
	gs 'cum_call', 'butt', 'Some african male', 0, '', 250000, 50
	gs 'cum_call', 'labia', 'Some african male', 0, '', 250000, 50

	gs 'stat'

	act 'Continue':gt 'experiment', 'testarea:treatment:impreg:shout:punish:kickout'
end

if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:kickout':
	minut += 5
	'When they are finally done with you, one by one they leave the room and you crumble to the ground, filled with and covered by thick layers of jizz.'
	'Far too exhausted, you can barely move, much less say anything. The only thing heard in the room for a moment is your hard, shaky breathing.'
	'"Filthy whore, get up! We''re done with you, to the real world back you go!" He grabs you by your hair, forcing you to get up. Like this he drags you naked and cum covered through the hallway to the reception.'
	*nl
	'"Nurse get her junk. I order have to kick her out!" The nurse nods to him before looking down at you. You expected to see pity in her eyes, but she looks at you with disgust and disdain. She quickly shuffles off behind a door and in a few minutes returns carrying a plastic bag with your clothing inside.'
	'"Miss <<$pcs_lastname>>, in this bag are your things and payment for you...services. Take it and get out." the nurse starts explaining.'
	'"No! Give me that," he says before snatching the bag from her. With a twisted smile, he looks down at you, "Doctor give me order so I kick her out!" and without another word, he grabs you and drags you to the entrance.'
	*nl
	'<i>He''s going to kick me out of the clinic hall like this? Naked and covered in cum? Really?!</i>'
	*nl
	'You didn''t believe he would do it, but he did. He opens the door and pushes you out. You fall onto the cold pavement of the clinic hallway.'
	'Abdul watches you for a moment as you squirm and try to cover yourself. "Here your slut suit and payment for black cock whoring!" He laughs and throws the bag on you before shutting the door behind him.'
	'At least you are free once again...'
	money += 50000
	experimentAbsolved += 1
	gs 'stat'

	act 'Get up':gt 'poli', 'start'
end

--- experiment ---------------------------------