glife/locations/therapist

# therapist
'<center><b><font color="maroon">Psychologist</font></b></center>'
'<center><img src="images/_nuki/therapist/room.jpg"></center>'
CLOSE ALL
PLAY 'sound/Clock.mp3',80
$location_type = 'event'
if $ARGS[0] = '':
	act 'Raise your mood':
		cla
		money -= 1000
		minut += 60
		
		'You talk about your problems for a while, and in a few places Dr. Pavlov asks you some pointed questions. Although he makes you look at your own actions and desires closely, making you aware of your own issues, it somehow makes you feel better about yourself.'
	end	
	act 'Raise your confidance':
		cla
		$therapy = 'confidance'
		act 'Just talk':
			
		end
		act 'Hypnotherapy':gt 'therapist', 'hypno'
	end
	act 'Raise your dominance':
		cla
		$therapy = 'dominance'
		act 'Just talk':
			
		end
		act 'Hypnotherapy':gt 'therapist', 'hypno'
	end
	act 'Lower your dominance':
		cla
		$therapy = 'submission'
		act 'Just talk':
			
		end
		act 'Hypnotherapy':gt 'therapist', 'hypno'
	end
!	act 'Hypnotherapy to fight addiction':
!		gt 'therapist', 'hypno'
!	end
!	act 'Hypnotherapy for personality change':
!		gt 'therapist', 'hypno'
!	end
	act 'You need no help right now':gt $loc
end

$cumdesciption2 = 'pussy is full with fresh sperm, leaking out of you'
$cumdesciption2 = 'ass is full of fresh sperm, slowly leaking out of you'
$cumdesciption3 = 'cum filled pussy'
$cumdesciption3 = 'cum filled ass'

if $ARGS[0] = 'hypno':
	if firsthypno = 0:
		$firsthypno = 'While you are Under, I will call you <i>Cunt</i>, and you will respond to it. You will also call me Master.<br>You reply, "yes, <i>Master</i>."'
		$firsthypno2 = '"Miss <<$surname>>, everything that happens while you are in the black room you will not remember. Understand it?"<br>"Yes, Dr. Pavlov."'
	else
		$firsthypno = ''
		$firsthypno2 = '"<i>Cunt</i>, what do you know about the black room?"<br>"I know that everything that happens here I will not remember, <i>Master</i>."'
	end
	CLOSE 'sound/Clock.mp3'
	if sound = 0:PLAY 'sound/Rainstorm.mp3',40 & PLAY 'sound/Clock.mp3',80
	'"All right, then. Please, lay on the couch, and try to get comfortable."'
	'While he waits for you to lay down ot the couch as you wish, he starts a CD player, that plays the soothing sounds of raining. After you are comfortable, he starts to talk in a strangely hypnotic voice.'
	'"Please, close your eyes."'
	'He waits a little, the only sound in the room is the clock ticking, and the sound of rain.'
	'"You are standing in front of a house. This house has three rooms, but each of them can only be reached through the one before. The first room is the green room, then the blue room, and at last the black room..."'
	''
	'You mind tries to imagine the things the doctor tells you, and this is your last concious memory.'
	act 'Continue':
		*clr
		minut += 15
		'<center><img width=700 src="images/_nuki/therapist/hypnotism<<rand(1,4)>>.jpg"></center>'
		hypnoStrength += 10
		if hypnoTime < 15:
			if hypnoStrength >= 20:hypnoStrength = hypnoStrength-20 & hypnoTime += 1
		elseif hypnoStrength > 20
			hypnoStrength = 20
		end
		
		if $therapy = 'confidance':
			willpower += 5
			$session = 'You will feel more confident. You are smart, beautiful, and if other people has other opinions, that is their problem. You know what you want, and do not fear to act upon your desires."<br>...<br>...<br>...'
		elseif $therapy = 'dominance':
			dom += 2
			$session = 'You like to do what you want to do. It pleases you if people do what you tell them to do, or act according to your wishes, and you like to couse them pleasure this way. You have to be in control constantly, but that means others around you can relax."<br>...<br>...<br>...'
		elseif $therapy = 'submission':
			sub += 6
			$session = 'You want to be told what to do and what to think, what to feel and whom to please. Obeying to others pleases you because it pleases them, and for a while you do not have to take responsibility for you actions."<br>...<br>...<br>...'
		end
		'<font color=brown>'
			$firsthypno2
			'"Good. <<$firsthypno>>"'
			'"All right <i>Cunt</i>, let''s work on your <<$therapy>>. <<$session>>'
			'"And now let''s play. You will enjoy the play, <i>Cunt</i>, but you will not remeber anything about it whan you are Awake. Understand?"'
			'"Yes, <i>Master</i>."'
			'"Perfect! Then take off all of your clothes."'
		'</font>'
		act 'Taking off clothes':
			cla
			*clr
			'<center><img width=500 src="images/_nuki/therapist/stripping<<rand(1,3)>>.gif"></center>'
			'<font color=brown>'
			'You stand up from the couch and start to take off all of you clothing. While you do this, Dr. Pavlov opens up his pants and takes out his dick, slowli masturbating as he watches you. When you are done, he motions you closer to him.'
			'"Come here, <i>Cunt</i>, I want you to suck me!"'
			'You obediently walk to him, lower yourself before him, then taking him into your hands you begin to suck him off.'
			'</font>'
			if hypnoTime < 4:
				act 'Continue':gt 'therapist', 'hypnoSuck'
			else
				if hypnoTime < 10:
					act 'Continue':gt 'therapist', 'hypnoFuck'
				elseif rand(0,3) = 0:
					act 'Continue':gt 'therapist', 'hypnoPerv'
				else 
					act 'Continue':gt 'therapist', 'hypnoFuck'
				end
			end
		end
	end
end


if $ARGS[0] = 'hypnoSuck':
	act 'Wake up':gt 'therapist', 'hypnoEnd'
end


if $ARGS[0] = 'hypnoFuck':
	act 'Wake up':gt 'therapist', 'hypnoEnd'
end


if $ARGS[0] = 'hypnoPerv':
	pervact = rand(1,4)
	if pervact = 0 and pregchem < 1863:
	!impregnation
		'<font color=brown>'
		'"Tell me <i>Cunt</i>, are you pregnant?"'
		if knowpreg = 1:
			'"Yes <i>Master</i>, I am."'
			'"I am happy for you! You know, every child is precious. Do you know who the father is?"'
			if $wombthfath = '' or $wombthfath = 'Unknown':
				'"No, <i>Master</i>, I do not."'
				'"So you really are a cunt, Cunt! You fucked someone, and you got knocked up!" he laughs a while, then looks at you.'
				'"You will not attempt to abort this child, you want to give birth to it, even though you do not know whos child do you carry."'
			elseif $wombthfath = 'Kolka':
				'"I believe that the father of my child is <<$wombpotfath>>", my little brother.'
				'"Heh, so you not only had some incestous sex with your brother, but you also managed to get knocked up?" he seems to like a perverseness of the thought. "You will not attempt to abort this child, you want to give birth to yourlittle niece or nephew."'
			elseif $wombthfath = 'Stepfather':
				'"I believe that the father of my child is <<$wombpotfath>>."'
				'"Heh, so you fucked you mother''s husband, the man who had changed your nappies? I think it is kind of nice of you to give him an another child... or is is grandchild? It seems to be complicated, doesn''t it?" he seems to like a perverseness of the thought. "You will not attempt to abort this child, he or she is not only your child, but your sibling too. You want to give birth to your sister."'
			elseif strcomp($wombthfath, '.*Rapist$') = -1:
				'"I believe that the <<$wombpotfath>> who raped me also impregnated me."'
				'"I am sorry to hear that. But you will not attempt to abort this child, the thought abhors you, even though you were raped. The child is innocent of his father''s actions. You want to give birth to it."'
			elseif strcomp($wombthfath, '.*a porn actor$') = -1:
				'"I think that the father is <<$wombpotfath>>."'
				'"So, you got knocked up by a porn actor? How did that happened?"'
				'"I did a porn scene with him, and he came inside my pussy."'
				'"Wow, a porn actress getting knocked up in a porn shoot! That is kinky! You will not attempt to abort this child, the thought abhors you. You want to give birth to it."'
			elseif strcomp($wombthfath, '.*Business partner$') = -1:
				'"I think that the father is a business partner my boss gave me to at work."'
				'"So, you got knocked up by a guy whom your boss said to fuck for good relations?"'
				
			elseif strcomp($wombthfath, '.*Courier$') = -1:
				'"I think that the father is a courier who fucked me at work."'
				'"So, you got knocked up by a guy whom gives you mails?"'
				'"Yes, I believe that happened."'
				'"Wow, what a slut! You will not attempt to abort this child, you want to give birth to it."'
			else
				'"I believe that the father of my child is <<$wombpotfath>>."'
				'"Nice! You will not attempt to abort this child, you want to give it birth."'
			end
			if thinkpreg = 0:
				'"I do not know, <i>Master</i>. I do not think so."'
				'"You know what, let''s do a test." He pulls out a pregnancy test from his desk drawer, and hand it to you.'
				'"Go to the bathroom, piss on this stick then come back."'
				'You do what he instructs you, finishing with the bathroom break in five minutes, and handing the test to him.'
				'"Good, now masturbate while we wait for the result." You do what he instructs you to do while he waits for a few minutes for the fersult to show up.'
	            if pregchem > 30:
					PavlovKnowpreg = 1
					'He looks at you with a slightly sadistic smile. "Congratulations, you are pregnant."'
				else
					'The test showed one band. Not pregnant.'
				end
			else
				'"I do not know, <i>Master</i>. It is possible."'
			end
		else
			'"Great! Turn around and stand still, <i>Cunt</i>!" says the doctor, opening up his desk drawer and taking out a new syringe, a needle and a bottle of some liquid stuff.'
			'You turn around, waiting patiently, while he prepares an injection of some sort.'
			if PavlovImpreg = 0:
				'"Do you know what this is?" ask Dr. Pavlov showing you the now empty vial. Its label reads ''chorionic gonadotropin'', which is not helpful to you at all, so you shake your head and reply.'
				'"No, <i>Master</i>, I do not know what is that."'
				'Dr. Pavlov smiles, kisses your lips and says, "This is a fast-acting fertility shot, called HCG. It will ripen one - or more - of your eggs in about 36 hours, readying for fertilization."'
				'You turn your head around and glance at him with the beginning of a panic, but he sees it and quickly acts upon it.'
				'"<I>Cunt</i>, you do not have any objection against getting pregnant, understand?"'
				'You nod your head, the panic forgotten, but Dr. Pavlov continues.'
				'"You want to get pregnant with my child, but you will have no objection of carrying the child of anyone that I instruct you to fuck. Do you want go get pregnant with my child?"'
				'"Yes, <i>Master</i>, I want to get pregnant with your child, or the child of someone you choose for me."'
				'"Good girl!" he says, and pushes the needle into your naked bum, injecting you with the fertility hormone.'
			else
				'"I decided it is time for yet another fertility shot, since you are still not pregnant," he scowls at you.'
				'"I really am sorry, <i>Master</i>. I kept your seed im my body as long as I could."'
			end
				'"Yes, <i>Master</i>, I want to get pregnant with your child, or the child of someone you choose for me."'
				'"Good girl!" he says, and pushes the needle into your naked bum, injecting you with the fertility hormone.'
		'</font>'
		killvar 'pervact'
		act 'Wake up':gt 'therapist', 'hypnoEnd'
	elseif pervact = 1:
	!buddy
		
		act 'Wake up':gt 'therapist', 'hypnoEnd'
		
	elseif pervact = 2:
	!dog
		act 'Wake up':gt 'therapist', 'hypnoEnd'
	else
	!giving orders
		
		act 'Wake up':gt 'therapist', 'hypnoEnd'
	end
end


if $ARGS[0] = 'hypnoEnd':
	CLOSE ALL
	if hypnoTime < 4:
		'When you wake up, you see your therapist looking at you.'
		'"How do you feel, Miss <<$surname>>?"'
		'You have a nagging feeling that you have forgotten somehing you should remember, but it is quickly forgotten, when you realize that you feel better about your problem. The therapy certainly helped a lot.'
		'You certainly do not notice that your mouth tastes like sperm.'
	elseif hypnoTime < 7:
		'When you wake up, you see your therapist smiling.'
		'"Very good, Miss <<$surname>>. How do you feel?"'
		'You ponder about it for a while, then you realize, that you feel better about your problem. The therapy certainly helped a lot.'
		'You don''t even notice that your <<$cumdesciption2>>.'
	elseif hypnoTime < 10:
		hypnoAddict = 1
		hypnoDay = daystart
		if exhibi < 2: exhibi += 1
		pain['vaginal'] -= 3
		pain['asshole'] -= 3
		'When you wake up, you see your therapist smiling.'
		'"Very good, Miss <<$surname>>. How do you feel?"'
		'You didn''t even have to ponder about it, you immediately answer that you feel better. The therapy certainly helped a lot.'
		'You are also unconsciously aroused when you feel your therapist''s sperm slowly leaking out of your <<$cumdesciption3>>.'
	else
		hypnoAddict = 2
		hypnoDay = daystart
		if exhibi < 5: exhibi += 1
		pain['vaginal'] -= 6
		pain['asshole'] -= 6
		'When you wake up, you see your therapist fixing his shirt.'
		'"Miss <<$surname>>, how do you feel right now?"'
		'Without hesitation, you reply.'
		'"I feel wounderful, Dr. Pavlov."'
		'"Good, just as expected," nods the doctor, as he escorts you aout of his office.'
		'You feel aroused, and you try to close your legs as you walk out, unconsciously trying to keep you psychologist''s sperm inside your <<$cumdesciption3>> as long as possible.'
	end
	act 'Leave':gt $loc
end

$hypnoDaychange = {
	if hypnoStrength = 0 and hypnoTime > 0:
		if hypnoAddict = 0:
			hypnoStrength = 19
			hypnoTime -= 1
		elseif hypnoAddict = 1:
			if rand(0,2) = 0: 
				hypnoStrength = 19
				hypnoTime -= 1
				if hypnoTime < 7:hypnoAddict = 0
			end
		else
			if rand(0,4) = 0: 
				hypnoStrength = 19
				hypnoTime -= 1
				if hypnoTime < 10:hypnoAddict = 1
			end
		end
	elseif hypnoStrength > 0:
		hypnoStrength -= 1
	end
	if hypnoDay > 6: 
		if hypnoAddict = 1:
			hypnoWithdrawal = 1
		elseif hypnoAddict = 2:
			hypnoWithdrawal = 2
		end
	end
}

$hypnoAddiction = {
	if hypnoAddict = 1:
		if cumloc[0] > 0 or cumloc[3] > 0: 
			horny += 1
			mana += 1
			willpower += 1
		end
	else
		if cumloc[0] > 0 or cumloc[3] > 0:
			horny += 2
			mana += 2
			willpower += 2
		end
	end
}

--- therapist ---------------------------------