glife/locations/therapist_hotel.qsrc

# therapist_hotel

if $ARGS[0] = 'start':
	CLOSE ALL
	$loc = 'therapist_hotel'
	$loc_arg = 'start'
	$menu_loc = 'therapist_hotel'
	$menu_arg = 'start'
	menu_off = 0
	$location_type = 'private_indoors'
	minut += 5
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/room.jpg"></center>'
	'Upon entering the room you hear the shower running which gives you a moment to look around the large suite. To start off, it looks lived in. There is a small kitchen in the corner with a mini fridge and a small portable stove with a tea kettle on it letting off some steam, letting the owner of the room know the water is soon to be ready. There is a laptop, open, on the desk with lots of papers lying around it, as if someone is transcribing them into digital form. There is one book on the bed, open and face down, as if someone was reading it.'
	'Suddenly the water in the shower stopped!'

	act 'Wait': gt 'therapist_hotel', 'event_switch'
	gs 'willpower', 'misc', 'resist', 'medium'
	if pcs_willpwr >= will_cost:
		act 'RUN!!!':
			gs 'willpower', 'pay', 'medium'
			gt 'pav_hotel'
		end
	end
end

if $ARGS[0] = 'event_switch':
	if therapistQW['hotel_visits'] = 0:
		gt 'therapist_hotel', 'event1'
	elseif therapistQW['hotel_visits'] = 1:
		gt 'therapist_hotel', 'event2'
	elseif therapistQW['hotel_visits'] = 2:
		gt 'therapist_hotel', 'event3'
	else
		if therapistQW['hotel_submit'] >= 4 and therapistQW['hotel_submit'] < 10:
			gt 'therapist_hotel', 'event5_submit'
		elseif therapistQW['hotel_submit'] = 10:
			gt 'therapist_hotel', 'event6_submit'
!!		elseif therapistQW['hotel_hypno_study'] >= 4:
!!			gt ?????
		else
			gt 'therapist_hotel', 'event4'
		end
	end
end


if $ARGS[0] = 'event1':
	menu_off = 1
	minut += 2
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/arrive.jpg"></center>'
	'When the man walks out of the shower in a heavy bathrobe, your mind becomes blank and you enter the black room.'
	'The Therapist walks over to you to check your panties as he makes sure you are not wearing any. Once he realizes this, he moves you over to the bed. "Welcome to my home," he says. "I''ve lived here since I divorced my wife, just waiting for the divorce to become official." He sits down in front of you. "So, when that happens, you will be my wife, but we need to make you want that, so this is the next part of your training." He continues.'

	act 'Continue':
		*clr & cla
		minut += 2
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better1.jpg"></center>'
		'"Every Saturday, you will show up here and we will do some more training. You can still meet me at the clinic but here?" He smiles and moves in to kiss you. "You will be trained to be my wife, in all facets. Now, please take a shower and come out naked when you are done.'

		act 'Continue':
			*clr & cla
			minut += 2
			$lastwornclothingtype['therapist'] = $clothingworntype
			lastwornclothingnumber['therapist'] = clothingwornnumber
			$lastwornpantytype['therapist'] = $pantyworntype
			lastwornpantynumber['therapist'] = pantywornnumber
			$lastwornbratype['therapist'] = $braworntype
			lastwornbranumber['therapist'] = brawornnumber
			dynamic $showerdin
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/naked.jpg"></center>'
			'After you shower, you walk out of the bathroom and stand naked before him. "Good, a clean wife makes a happy husband" he says and walks up to you and kisses you while fondling your chest. "Now, your first order, while you are in this room you will respond to Wife, not Cunt is that understood Wife?"'

			act 'Yes, Master': gt 'therapist_hotel', 'event1_post_shower'

			gs 'willpower', 'misc', 'resist', 'medium'
			if pcs_willpwr < will_cost:
				act 'No, Master (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			else
				act 'No, Master (<font><<will_cost>> Willpower</font>)':
					*clr & cla
					minut += 5
					gs 'willpower', 'pay', 'medium'
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/pavlov.jpg"></center>'
					'"Then get out of here until you do"'
					'He guides you out of the door and closes it behind you.'

					act 'Continue': gt 'pav_hotel'
				end
			end
		end
	end
end

if $ARGS[0] = 'event1_post_shower':
	minut += 2
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/bj.jpg"></center>'
	'"Let''s start off slow. As your husband, you have to keep me calm," he points to under the desk. When he says "get under there", you move under the desk and look at him before he sits in his chair and imprisons you. You just sit there for what feels like a couple of hours before he opens his robe and moves your face to his cock. Knowing what he wants you start to suck on his cock. You only hear, "Don''t stop, even if i cum, you keep my cock in your mouth" and he goes back to whatever he''s doing.'

	if hypnoHardToCum = 1: hypnoHardToCum = 2
	gs 'arousal', 'bj', 60, 'sub'
	gs 'stat'
	act 'Continue':
		*clr & cla
		minut += 2
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/sex.jpg"></center>'
		'You spend most of the day here, getting cum in your mouth and throat while he works. Once he pulls his cock from your mouth, and then pulls you from under the desk, you can see its already night time. "Get on the bed, on your back, I want to breed you as a reward tonight before we sleep"'

		gs 'arousal', 'bj', 120, 'sub'
		gs 'stat'
		act 'Thank you, Master':
			*clr & cla
			minut += 2
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/sex2.jpg"></center>'
			'You stand up and move to the bed and looking up at your therapist as he climbs on top of you and pushes himself inside you. He has his way with your body, fondling your chest, sucking your nipples, kissing and sucking on your neck. He enjoys your body until he cums deep inside you. Unlike back in the clinic, he stays inside you as he pulls a blanket over you and himself before falling asleep.'

			gs 'arousal', 'vaginal', 20, 'sub'
			gs 'cum_call', 0, 'A186', 2, 0, 15000, 60
			gs 'arousal', 'end'
			if hypnoHardToCum = 2: hypnoHardToCum = 1
			gs 'stat'

			act 'Sleep':
				therapistQW['hotel_visits'] = 1
				gs 'sleep_simple', 'simple'
				if hour < 7:
					pcs_sleep += 15 * (6 - hour)
					hour = 7
					minut = 0
					pcs_sleep = min(pcs_sleep, 100)
					gs 'stat'
				end
				gt 'therapist_hotel', 'event1_morning'
			end
		end
	end
end

if $ARGS[0] = 'event1_morning':
	dynamic $showerdin
	gs 'clothing', 'wear', $lastwornclothingtype['therapist'], lastwornclothingnumber['therapist']
	gs 'panties', 'wear', $lastwornpantytype['therapist'], lastwornpantynumber['therapist']
	gs 'bras', 'wear', $lastwornbratype['therapist'], lastwornbranumber['therapist']
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better1.jpg"></center>'
	'You wake up alone in a hotel room. You are naked and dripping of cum. You ask yourself, "What did I do last night?" after the hypnosis ends. You only remember sleeping with someone and having sex with them, but you have no idea who. You finally use the shower in the room, dress in what you wore the day before and leave the room.'

	act 'Continue': gt 'pav_hotel'
end


if $ARGS[0] = 'event2':
	menu_off = 1
	minut += 2
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/hotel_arrive2.jpg"></center>'
	'Once more, it''s Saturday night, and you find yourself entering a hotel room that you have a key to, with the goal of locating the person staying here so that you can return the key to them. However, you find yourself looking directly at him, someone you know, naked and hard while looking you over. Before you can do anything, your mind goes blank and you are in the black room of your hypnotized state, leaving you at his mercy.'
	'"My wife, you''ve returned to me. Come, remove your clothes and sit next to me and we''ll talk" he says to you, and as if your legs move on their own, you remove your clothes before sitting down beside him.'

	act 'Continue':
		*clr & cla
		minut += 2
		gs 'stat'
		'<center><video autoplay loop <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/hotel_shower_fondle.mp4"></video></center>'
		'"Today is an important day for you", the therapist said. “You will feel your heart flutter with love every time you see me, no matter if it''s at the clinic or out in public, as we begin your mental training. It will seem as if you are actually in love with me and you want to stay by my side every chance you get. It is imperative that you act the part when I take you out of your training if you intend to be my wife in real life. There will be times when I need you to do something for me, so when I snap, you will return to that dark room. Do you get it, wife?"'
		
		act '"Yes" - (continue)':
			*clr & cla
			minut += 5
			
			'"Wonderful, now remember, a clean wife is a happy wife. I will join you this time, to make sure you are completely clean." He says and takes your hand and pulls you into the bathroom and helps you get undressed, feeling you up each chance he gets. "Your young body is incredible".'
			
			act 'Go take a shower':
				*clr & cla
				minut += 5
				if func('pcs_has_attr', 'OR', 'body_tits_big', 'body_tits_huge'):
					'He spends a lot of time fondling your breasts in a gentle manner. "These will make feeding our children a wonderful sight" he says and pulls you into the shower.'
				else
					'"Have you ever thought about getting work done? While your current size is nice, they could be larger" he says and pulls you into the shower.'
				end

				act 'Continue': gt 'therapist_hotel', 'event2_shower'
			end
		end

		gs 'willpower', 'misc', 'resist', 'medium'
		if pcs_willpwr < will_cost:
			act '"No" - (rebel) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		else
			act '"No" - (rebel) (<font><<will_cost>> Willpower</font>)':
				*clr & cla
				minut += 5
				gs 'willpower', 'pay', 'medium'
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better1.jpg"></center>'
				'"Then come back when you are ready to take that step" He says and walks you to the door. You wake up in the hallway, standing outside a hotel room, unable to remember why you were there in the first place.'

				act 'Continue': gt 'pav_hotel'
			end
		end
	end
end

if $ARGS[0] = 'event2_shower':
	minut += 5
	$lastwornclothingtype['therapist'] = $clothingworntype
	lastwornclothingnumber['therapist'] = clothingwornnumber
	$lastwornpantytype['therapist'] = $pantyworntype
	lastwornpantynumber['therapist'] = pantywornnumber
	$lastwornbratype['therapist'] = $braworntype
	lastwornbranumber['therapist'] = brawornnumber
	dynamic $showerdin
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/system/image_needed.png"></center>'
	'In the warm water of the shower, the therapist orders you to stay still while he rubs his hands through your hair, scrubbing and massaging your scalp. He takes great care with his actions on your hair. In your mind this feels really pleasant. As he rinses your hair, he says, "Now wife, I want you to kneel before me and clean my cock and balls with your mouth. Be very thorough with your actions and don''t miss an inch." You turn to give him the blowjob that he has ordered you to do. "I want you to know what you''re doing but not who you''re doing it for. As if you are in a dream, wake up." He says and you get a bit of your consciousness back. You feel like you are in a hazy dream. His cock is in your mouth but you don''t know whose it is.'

	act 'Give Blowjob':
		*clr & cla
		gs 'arousal', 'bj', 30, 'sub'
		gs 'cum_call', 'mouth', 'A186', 2, 0, 15000, 60
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/system/image_needed.png"></center>'
		'Your eyes are clear but you are in a haze. You feel a cock in your mouth and you start sucking. It tastes delicious to you and you want to keep doing it. You move your mouth over the long shaft. As you lick and kiss, suck and fondle, you enjoy this man''s meat. You feel his hands touch the back of your head and this man cums in your throat, drinking up every last drop. "Holy hell gi.. Wife" he says, slipping on his training. "You''re going to be a fantastic lover when I''m done with your training." He says and takes your hand and pulls you into the hotel room.'

		act 'Continue':
			*clr & cla
			gs 'arousal', 'vaginal', 20, 'sub'
			gs 'cum_call', 0, 'A186', 2, 0, 15000, 60
			gs 'arousal', 'end'
			if hypnoHardToCum = 2: hypnoHardToCum = 1
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/sex2.jpg"></center>'
			'He places you on the bed and quickly pushes you back into his body. You moan as you feel everything happening to you. Your mind is still foggy but you are aware of the sensations. His actions make you moan and groan on the bed. You squirm over the covers as he takes you relentlessly. His lips on your breasts, his hands on your hips, he gives you a fuck you won''t forget. It''s not long before you hear him groan and feel your body warming up with his seed. "Fuck, Wife, I''ll never tire of you, now sleep" he says and your mind returns back to the black room as you feel him start up again, realizing he will fuck you in your sleep.'

			act 'Sleep':
				*clr & cla
				therapistQW['hotel_visits'] = 2
				gs 'sleep_simple', 'simple'
				if hour < 7:
					pcs_sleep += 15 * (6 - hour)
					hour = 7
					minut = 0
					pcs_sleep = min(pcs_sleep, 100)
					gs 'stat'
				end

				dynamic $showerdin

				gs 'clothing', 'wear', $lastwornclothingtype['therapist'], lastwornclothingnumber['therapist']
				gs 'panties', 'wear', $lastwornpantytype['therapist'], lastwornpantynumber['therapist']
				gs 'bras', 'wear', $lastwornbratype['therapist'], lastwornbranumber['therapist']
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/hotel_creampy2.jpg"></center>'
				'You wake up the next morning feeling like a million dollars. You sit up and feel something squirt out of your pussy. You were filled up by whomever you slept. Your subconscious mind makes your body want to keep it inside you. You get up, shower, dress and head back to town.'
				act 'Continue': gt 'pav_market'
			end
		end
	end

	gs 'willpower', 'misc', 'resist', 'medium'
	if pcs_willpwr < will_cost:
		act 'Bite down hard (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	else
		act 'Bite down hard (<font><<will_cost>> Willpower</font>)':
			*clr & cla
			minut += 5
			therapistQW['escaped'] = 1

			gs 'clothing', 'dispose', $lastwornclothingtype['therapist'], lastwornclothingnumber['therapist']
			gs 'panties', 'dispose', $lastwornpantytype['therapist'], lastwornpantynumber['therapist']
			gs 'bras', 'dispose', $lastwornbratype['therapist'], lastwornbranumber['therapist']

			'<center><img <<$set_imgh>> src="images/system/image_needed.png"></center>'
			'You don''t know why, but you feel this isn''t right. You can''t put your finger on why but this man isn''t your lover. As soon as you bite down hard on his cock, he screams out in pain. This wakes you up from your dreamlike state. Not sticking around, you grab a nearby robe and run out of the hotel room and into the night.'

			act 'Continue': gt 'pav_market'
		end
	end
end

if $ARGS[0] = 'event3':
	menu_off = 1
	minut += 2
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better1.jpg"></center>'
	'You make your way into the hotel room once again and see no one around. You wonder if its empty, but before you can look around, you hear a snap and your mind goes blank. "Welcome back, Wife. Today you will be doing house work for me and you will be doing it naked. You always want to be naked around me. This will change when we have children, but for now, this will be natural for you. When I say, <font color="purple">"This place is a mess"</font>, you will start cleaning up the place on your own. Do a good job and you will get a reward." he says and then asks. "Got it, wife?"'

	act 'Yes Sir':
		*clr & cla
		minut += 2
		$lastwornclothingtype['therapist'] = $clothingworntype
		lastwornclothingnumber['therapist'] = clothingwornnumber
		$lastwornpantytype['therapist'] = $pantyworntype
		lastwornpantynumber['therapist'] = pantywornnumber
		$lastwornbratype['therapist'] = $braworntype
		lastwornbranumber['therapist'] = brawornnumber
		gs 'clothing', 'strip'
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/hotel_clean.jpg"></center>'
		'"Good" he says and snaps his fingers again and you come out of your trance. "My dear, thank you for coming over, I really hope you had a good day" he says and gives you a kiss, which you return. "Sorry about being a bad host. This place is a mess, I''ve not had time to clean up" he says and your mind triggers and you remove your clothes, fold them up nicely, place then on the bed, then begin to clean up the hotel room.'

		if func('pcs_has_attr', 'OR', 'body_tits_big', 'body_tits_huge'):
			'You sense his eyes on you the whole time. "I love watching your body move" he says and this compliment makes you feel happy. You feel like you might love this man, and he''s helped you so much with all your issues. "Thank you, I like to keep my body in healthy shape, I want you to be happy when looking at me" You tell him.'
		else
			'You feel his eyes on you the entire time. "So, I have a friend in St. Petersberg that sells a cream that can make your breasts grow larger. I want you to go there and buy some and use it" he suggests. "It will help you relax and help you with that issue you told me about while you were under hypnosis a few weeks back" he lies and you nod your head. "If you think it will help." You tell him.'
		end

		act 'Finish cleaning the room':
			*clr & cla
			gs 'arousal', 'cuni', 35, 'sub'
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/shared/sex/kuni/kuni.jpg"></center>'
			'You finish cleaning up the hotel room and when you pick something up, you feel his hands on your bottom. He feels up your rear. This is what you want him to do, but you don''t move. It''s not long before he kneels down behind you and you feel his lips on your pussy and starts to make out with your lower hole. This causes you to moan out softly as he eats you out. This lasts for a few minutes before he pulls back and pushes you onto the bed and is quickly on top of you again.'

			act 'Submit':
				*clr & cla
				gs 'arousal', 'vaginal', 60, 'sub'
				gs 'cum_call', 0, 'A186', 2, 0, 15000, 60
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/system/image_needed.png"></center>'
				'You moan when he pushes his entire size inside you. You really want this. You push back and help him push deeper inside you. He grabs a hold of your waist and starts to push in and pull out of you. This carries on for several minutes before you feel him cum inside you and he holds you tight to his own body. "Mmmm, dear, your pussy is so perfect" he says giving you another compliment. He holds you on his cock and falls to his side and stays inside you as he pulls the blanket over you and spoons you as you both fall asleep.'

				act 'Sleep':
					*clr & cla
					therapistQW['hotel_visits'] = 3
					gs 'sleep_simple', 'simple'
					if hour < 7:
						pcs_sleep += 15 * (6 - hour)
						hour = 7
						minut = 0
						pcs_sleep = min(pcs_sleep, 100)
						gs 'stat'
					end

					dynamic $showerdin

					gs 'clothing', 'wear', $lastwornclothingtype['therapist'], lastwornclothingnumber['therapist']
					gs 'panties', 'wear', $lastwornpantytype['therapist'], lastwornpantynumber['therapist']
					gs 'bras', 'wear', $lastwornbratype['therapist'], lastwornbranumber['therapist']
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/system/image_needed.png"></center>'
					'You wake up the next morning to hands fondling your breasts and the therapist groaning in his sleep. You slowly and gently free yourself from his hold, get dressed and head out with a smile on your face. While your mind and heart feel this is right, something in the back of your mind is bothering you, but you just can''t place it.'
					act 'Leave': gt 'pav_market'
				end
			end

			gs 'willpower', 'misc', 'resist', 'medium'
			if pcs_willpwr < will_cost:
				act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			else
				act 'Resist (<font><<will_cost>> Willpower</font>)':
					*clr & cla
					gs 'arousal', 'vaginal', 60, 'sub', 'rape'
					gs 'willpower', 'pay', 'medium'
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/system/image_needed.png"></center>'
					'Something inside you is wanting to rebel, when you are pushed onto the bed. You feel as if something is wrong and when he pushes inside you, you moan out, "No...." softly as he starts pumping in and out of you. He is larger than you so you can’t really do much about this and when he grunts and cums inside you, you see a chance to do something. He pulls out and lays on the bed. "Mmm, that was good," he says and when you see him drift off to sleep, you grab your clothes and place the key card on the table and run out of the door and head home.'

					act 'Leave': gt 'pav_market'
				end
			end
		end
	end
end


if $ARGS[0] = 'event4':
	menu_off = 1
	minut += 2
	gs 'stat'

	$lastwornclothingtype['therapist'] = $clothingworntype
	lastwornclothingnumber['therapist'] = clothingwornnumber
	$lastwornpantytype['therapist'] = $pantyworntype
	lastwornpantynumber['therapist'] = pantywornnumber
	$lastwornbratype['therapist'] = $braworntype
	lastwornbranumber['therapist'] = brawornnumber
	gs 'clothing', 'strip'

	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better1.jpg"></center>'
	'You arrive at the hotel room on another Saturday night. You walk in like you own the place and strip down and take a shower. You spend a few minutes cleaning up and come out wearing only a towel, and you see the therapist watching TV.'

	act 'Continue':
		*clr & cla
		minut += 2
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/hotel_arrive4.jpg"></center>'
		'"Ah, my wife, how are you today." He says while getting up and walking over to kiss you on the lips. You return the kiss as if it was natural. "There is something I want you to do for me today" he says and snaps his fingers. "You will stay in here naked and ready for me. I''m leaving to go get us something to eat." He whispers and snaps his fingers again and you wake up. "I''ll be back in a few minutes," he explains and pulls your towel off as he leaves the room, leaving you naked and alone.'

		act 'Submit':
			*clr & cla
			therapistQW['hotel_submit'] += 1
			minut += 60
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/hotel_wait_tv.jpg"></center>'
			'You obey his orders and sit on the bed naked and watch whatever he was watching until he returns holding a bag of food.'

			act 'Continue': gt 'therapist_hotel', 'event4_post_wait'
		end

		if pcs_intel >= 90:
			act 'Look around the room':
				*clr & cla
				therapistQW['hotel_hypno_study'] += 1
				minut += 60
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/hotel_wait_tv.jpg"></center>'
				'There are a lot of items in the room, including his computer, books, files, and notes. You see a book on his table next to a file with your name on it. The book is called "The Theory of Hypnosis". You look at the back cover and read it: "Does mind control fascinate you? Are you interested in understanding the human mind? Do you want to learn how to influence others and bend them to your will? Imagine winning almost any argument, turning people to your way of thinking or controlling situations to your own advantage. This is all while ensuring others do not hold the same power over you. You should know that most of our choices are generated and managed through specific methods of covert manipulation. Reading this book you’ll uncover the most powerful principles in the world of Dark Psychology." You open the book and thumb through it. Sitting down on a chair near you, you read and gain a deeper understanding of Hypnotherapy. You spend a good hour learning a few things before hearing the door click. Putting the book down, you stand up and watch as the therapist returns with a bag of food.'

				if therapistQW['hotel_hypno_study'] >= 4:
					'This is the end of this path, more to come!'
					act 'Continue': gt 'therapist_hotel', 'event4_post_wait'
				else
					act 'Continue': gt 'therapist_hotel', 'event4_post_wait'
				end
			end
		end

		gs 'willpower', 'misc', 'resist', 'medium'
		if pcs_willpwr < will_cost:
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		else
			act 'Leave (<font><<will_cost>> Willpower</font>)':
				*clr & cla
				minut += 5
				therapistQW['hotel_left'] += 1
				gs 'willpower', 'pay', 'medium'

				gs 'clothing', 'wear', $lastwornclothingtype['therapist'], lastwornclothingnumber['therapist']
				gs 'panties', 'wear', $lastwornpantytype['therapist'], lastwornpantynumber['therapist']
				gs 'bras', 'wear', $lastwornbratype['therapist'], lastwornbranumber['therapist']
				gs 'stat'

				'<center><video autoplay loop <<$set_imgh>> src="images/pc/activities/misc/dress_<<rand(1, 2)>>.mp4"></video></center>'
				'As you stand there naked, you slowly come to and, seeing yourself naked, you quickly get dressed. You are not sure why you are here and decide to leave.'

				if therapistQW['hotel_left'] >= 1:
					'This is the end of this path, more to come!'
					act 'Leave': gt 'pav_market'
				else
					act 'Leave': gt 'pav_market'
				end
			end
		end
	end
end


if $ARGS[0] = 'event4_post_wait':
	minut += 5
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/hotel_lap.jpg"></center>'
	'He cleans off the desk and places the food on it. When he sits down, he pats his lap. "Come, sit on my lap," he says and you do just that. He wraps an arm around you and feeds you some of his fries. After about 15 minutes, he lifts you up and places you on the bed. Removing his clothes, he lies down next to you and wraps his arms around you. This time, he doesn''t have sex with you and just cuddles you until you both fall asleep.'

	act 'Sleep':
		*clr & cla
		therapistQW['hotel_visits'] += 1
		gs 'sleep_simple', 'simple'
		if hour < 7:
			pcs_sleep += 15 * (6 - hour)
			hour = 7
			minut = 0
			pcs_sleep = min(pcs_sleep, 100)
			gs 'stat'
		end

		dynamic $showerdin

		gs 'clothing', 'wear', $lastwornclothingtype['therapist'], lastwornclothingnumber['therapist']
		gs 'panties', 'wear', $lastwornpantytype['therapist'], lastwornpantynumber['therapist']
		gs 'bras', 'wear', $lastwornbratype['therapist'], lastwornbranumber['therapist']
		gs 'stat'
		
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better1.jpg"></center>'
		'The next morning, you wake up in the therapist''s arms. You slowly remove yourself from his hold, dress, and leave the room.'

		act 'Leave': gt 'pav_market'
	end
end

if $ARGS[0] = 'event5_submit':
	menu_off = 1
	minut += 2
	gs 'stat'

	$lastwornclothingtype['therapist'] = $clothingworntype
	lastwornclothingnumber['therapist'] = clothingwornnumber
	$lastwornpantytype['therapist'] = $pantyworntype
	lastwornpantynumber['therapist'] = pantywornnumber
	$lastwornbratype['therapist'] = $braworntype
	lastwornbranumber['therapist'] = brawornnumber
	gs 'clothing', 'strip'

	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/hotel_undressed_knee.jpg"></center>'
	'After another Saturday night in the hotel room, you feel flushed when you see your therapist. Your heart feels like it''s pounding a million miles a second. When he stands up in his robe, you see his cock and your mind goes blank. "Wife, welcome back." He walks up to you and kisses your lips and squeezes your chest. "Now, every time you come into this room, you will no longer enter a trance and you will stay, as my lover, you will be wet and ready as you want me but will wait for me to start anything. You will also strip down to nothing and will not want to wear clothing while you are here with me." He commands. "When I say the phrase, ‘My dear’, you will do whatever I command you while you are awake. Do you understand?" he asks, planting more triggers in your mind.'
	'"Yes, sir." you respond.'
	'"All right, now undress and present yourself to me."'
	*nl
	'You strip down to your birthday suit and turn to show him your body. He pulls you into his lap and moves a hand over your legs before moving it between your legs, feeling you up. "Now, wake up and be my woman."'
	*nl
	*nl
	'<center><font color="red"> ***Major Choice*** </font></center>'
	'<font color="red">If you continue from this point, you will enter a story moment where there are only 3 ways to break free. If you do not have these conditions meet, they will be passed up and you will fall into this bad end, unless you are into that kind of thing. This is a MAJOR POINT OF NO RETURN.</font>'

	act 'Accept':
		*clr & cla
		therapist['hotel_submit'] = 10
		gs 'arousal', 'vaginal_finger', 15, 'sub'
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/hotel_undressed_knee.jpg"></center>'
		'You come to and look at the therapist and when you feel his hand between your legs, you open them for him. "Good girl, tell me what you think about me," he says, as he slips a finger into your honeypot.'
		'"I think I am falling for you. From the dreams I''ve had about you, to kissing you after our sessions, I want to offer myself to you, but I don''t know just yet," you tell him and then moan out when he kisses your neck.'

		act 'Continue':
			*clr & cla
			gs 'arousal', 'cuni', 35, 'sub'
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/shared/sex/kuni/kuni.jpg"></center>'
			'"Take your time, I''ll just use your body and you feel like you want me to," he replies and lays you back on the bed and suckles on your neck while fingering you. "Mmm, you taste so delicious" he says over you, before moving down your body, suckling on your breasts for a bit before moving further down between your legs and starts to eat you out.'
			'"Sir?!" You moan out as he ravishes your pussy with his mouth and tongue.'
			'"You will be mine, your body will not deny me, you only have to say yes to me. My dear, tell me to fuck you." He exclaims and the trigger clicks in your mind.'

			act '"Sir, please, fuck me"':
				*clr & cla
				gs 'arousal', 'vaginal', 60, 'sub'
				gs 'cum_call', 0, 'A186', 2, 0, 15000, 60
				gs 'arousal', 'end'
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/sex2.jpg"></center>'
				'You say and he climbs on top of you and pushes inside you again. "Anything for you," he says and starts to have sex with you. This continues for the night. "My dear, you want my cum inside you, right? You love my cum in your body,” he explains.'
				'"Yes, I love your cum inside me, I love how it feels inside me." and with that he cums hard inside you.'
				'"Good Girl, I''ll keep cumming inside you until you are with my child," he says and you say nothing. "My Dear, tell me, You want my babies inside you, correct?"'
				'"Yes, Sir" you say and he kisses you again.'
				'"Good, but for now, let''s sleep. In the morning we will have more of this before you leave," he says and your eyes close and you fall into a deep sleep.'

				act 'Sleep':
					*clr & cla
					gs 'sleep_simple', 'simple'
					gs 'stat'
					if hour < 7:
						pcs_sleep += 15 * (6 - hour)
						hour = 7
						minut = 0
						pcs_sleep = min(pcs_sleep, 100)
						gs 'stat'
					end

					gs 'arousal', 'vaginal', 60, 'sub'
					gs 'cum_call', 0, 'A186', 2, 0, 15000, 60
					gs 'arousal', 'end'
					gs 'stat'

					'<center><video autoplay loop <<$set_imgh>> src="images/shared/sex/cum/vagcreampie/doggy5.mp4"></video></center>'
					'You wake up the next morning to the therapist pumping in and out of you. "Mmm, good morning my dear, you love me waking you up like this," he says and you nod in agreement with him. "Now be a good girl and just lay there and enjoy it." He says and spends an hour pumping more and more cum inside you.'

					act 'Leave':
						*clr & cla
						minut += 5
						gs 'stat'

						'<center><video autoplay loop <<$set_imgh>> src="images/pc/activities/misc/dress_<<rand(1, 2)>>.mp4"></video></center>'
						'He stops and kisses you and then pulls out of you and slowly gets dressed. “My dear, get up, clean up, then return the same time next week,” he says, leaving you alone to get dressed and cleaned up before leaving.'
						act 'Continue':
							*clr & cla
							minut += 15
							therapistQW['hotel_visits'] += 1
							dynamic $showerdin

							gs 'clothing', 'wear', $lastwornclothingtype['therapist'], lastwornclothingnumber['therapist']
							gs 'panties', 'wear', $lastwornpantytype['therapist'], lastwornpantynumber['therapist']
							gs 'bras', 'wear', $lastwornbratype['therapist'], lastwornbranumber['therapist']
							gs 'stat'

							gt 'pav_market'
						end
					end
				end
			end
		end
	end

	act 'Break free':
		*clr & cla
		minut += 5
		therapistQW['escaped'] = 2
		gs 'stat'
		
		'You come to and see that you are naked. "WHAT THE HELL?" you yell and slap the therapist. You quickly get up and grab your clothes and rush out of the hotel room to the front desk to ask them to call the police. After explaining everything, they send a single officer to the hotel room to find it empty. You are slapped with a 500 ₽ fine for public indecency, told not to waste their time, and sent on your way.'
		pcs_money -= 500
		if pcs_money < 0: pcs_money = 0
		'<center><font color="red"> ***Therapist is no longer an option for now*** </font></center>'

		act 'Get dressed and leave':
			gs 'clothing', 'wear', $lastwornclothingtype['therapist'], lastwornclothingnumber['therapist']
			gs 'panties', 'wear', $lastwornpantytype['therapist'], lastwornpantynumber['therapist']
			gs 'bras', 'wear', $lastwornbratype['therapist'], lastwornbranumber['therapist']
			gs 'stat'

			gt 'pav_market'
		end
	end
end

if $ARGS[0] = 'event6_submit':
	menu_off = 1
	minut += 2
	therapistQW['hotel_visits'] += 1

	$lastwornclothingtype['therapist'] = $clothingworntype
	lastwornclothingnumber['therapist'] = clothingwornnumber
	$lastwornpantytype['therapist'] = $pantyworntype
	lastwornpantynumber['therapist'] = pantywornnumber
	$lastwornbratype['therapist'] = $braworntype
	lastwornbranumber['therapist'] = brawornnumber
	gs 'clothing', 'strip'

	dynamic $showerdin
	gs 'stat'

	'<center><video autoplay loop <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/hotel_shower1.mp4"></video></center>'
	'You enter the hotel again, but this time it is different. The moment you walk in, you remove your clothes, folding them up before heading into the shower to get cleaned up.'
	'In your mind, you know this phrase, "A Clean Wife has a Happy Husband" You spend time making sure everything about yourself is clean before you dry off and enter the hotel room.'

	act 'Continue':
		*clr & cla
		minut += 15
		gs 'stat'

		'You see your husband working on something at his desk. You kneel before him and wait for him to notice you. After some time, he turns to look at you.'
		'"Wife, you look as beautiful as ever. I have something I want you to sign. You are my wife in all but name. Let''s make it official" he says and hands you a pen and a clip board.'
		'You look at it. Giving a quick read you see it''s a marriage certificate. "You will sign it now, won''t you My Dear?" he commands. You look down again at the packet before you.'
		*nl
		'<center><font color="red">If you sign this, you will be his wife, any boyfriends, girlfriends, lovers, husbands, anything where you live with them will be null and void. From this point on, the therapist is your husband and he WILL NOT divorce you.</font></center>'
		
		act 'Sign the paper':
			*clr & cla
			minut += 5
			gs 'arousal', 'bj', 30, 'sub'
			gs 'stat'

			'You give the paper a signature and he smiles. "Good, I''ll take this to the city offices on Monday." He says and pulls out his cock and moves your head to it.'
			'You start sucking on it without question. "Now, we are now married. This means you are to live with me, You will head home tonight, tell your family you are moving out, and you will live here with me until we find a place of our down, Do you understand?" he asks.'

			act '"Yes Sir"':
				*clr & cla
				minut += 5
				gs 'arousal', 'bj', 15, 'sub'
				gs 'cum_call', 'mouth', 'A186', 2, 0, 15000, 60
				gs 'stat'

				'"Good, Now finish up with your current task so you can tell your parents or loved ones the news. Tell them whatever you want, but tell them you are moving out."'
				'He says and cums into your mouth. You drink and swallow every drop. He lets you up and you get dressed. Without saying anything, you leave the motel and head home.'
				act 'Continue': 
					gs 'clothing', 'wear', $lastwornclothingtype['therapist'], lastwornclothingnumber['therapist']
					gs 'panties', 'wear', $lastwornpantytype['therapist'], lastwornpantynumber['therapist']
					gs 'bras', 'wear', $lastwornbratype['therapist'], lastwornbranumber['therapist']
					gs 'stat'

					gt 'therapist_hotel', 'event6_submit2'
				end
			end
		end

		act 'Don''t sign the paper':
			'He helps you to your feet and tells you to get dressed and leave. "I expect you to sign it the next time I see you" he says. You dress and leave.'
			act 'Leave':
				minut += 5
				gs 'clothing', 'wear', $lastwornclothingtype['therapist'], lastwornclothingnumber['therapist']
				gs 'panties', 'wear', $lastwornpantytype['therapist'], lastwornpantynumber['therapist']
				gs 'bras', 'wear', $lastwornbratype['therapist'], lastwornbranumber['therapist']
				gs 'stat'

				gt 'pav_market'
			end
		end
	end
end

if $ARGS[0] = 'event6_submit2':
	minut += 45
	! BREAKUP CODE
	gs 'lover', 'clear_all'
	gs 'stat'

	act 'Go to the hotel': gt 'therapist_hotel', 'event6_submit3'

	if func('homes_properties', 'is_current_home', 'parents_home'):
		cla
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/home/sisboyqw_00.jpg"></center>'
		'You return home and see your family watching TV. You head to your bedroom and see Anya on her bed reading a book. When you pull out your suitcase, she looks up from her book. "You going somewhere?" she asks.'
		*nl
		'"I''m moving out" you tell her.'
		*nl
		'"Oh, did you find a place for university?" she asks and helps you get your stuff together.'
		*nl
		'"Something like that" you tell her. "I found a place to live and I will be staying there" you tell her the truth but not the full truth.'
		*nl
		'"Well, make sure you come back from time to time" she says and gives you a hug before you head to the living room to tell your parents about the news.'

		act 'Continue':
			*clr & cla
			minut += 20
			gs 'stat'

			'You enter the living room with your suitcase and just say, "<<$npc_nickname[''A29'']>>, Dad, Im moving out. I have found a place to stay and I will be living there" you say and your mother stands up looking confused. "What are you talking about?" she says.'
			*nl
			'"I''m moving out" you repeat.'
			*nl
			'"I heard that, but why?" she asks as Valdimer walks up behind her to keep her back.'
			*nl
			'"Dear, stop, she''s out of school and she''s old enough to live on her own now." He walks up to you and gives you a hug. "Just make sure you come home from time to time" he says and you can see your mother starting to cry.'
			*nl
			'"Does this mean I can get her bed?" Kolka says loudly and from the bed room, you can hear Anya yell back. "OH HELL NO" and this causes Kolka to slump back into the chair he was sitting on.'
			*nl
			'"Just promise us you will be careful" Valdimer says and you nod. "I''ll be ok." you say and grab your suitcase and then leave home to return to the hotel.'

			act 'Go to the hotel': gt 'therapist_hotel', 'event6_submit3'
		end

	elseif husband > 0:
		! Divorce husband. Currently no dedicated function for this
		husband = 0
		divorced += 1
		gs 'stat'

		'<center><video autoplay loop <<$set_imgh>> src="images/shared/romance/misc/depart1.mp4"></video></center>'
		'You return home and head to the bedroom. You pull out your suitcase and start putting all your outfits into it. This takes you only a few minutes before you go to the living room to see your husband sleeping on the couch. You write up a quick note saying you no longer love him and have moved out. You remove your wedding ring and place it on the table with the note and you head back to the motel.'

	!	Living with others:
	elseif func('homes_properties', 'is_current_home', 'maid_bedroom') or func('homes_properties', 'is_current_home', 'niko_apartment') or func('homes_properties', 'is_current_home', 'vasilyhome') or func('homes_properties', 'is_current_home', 'university_dorm') or func('homes_properties', 'is_current_home', 'hunters_lodge') or func('homes_properties', 'is_current_home', 'shared_apartment') or func('homes_properties', 'is_current_home', 'grandparents_house') or func('homes_properties', 'is_current_home', 'meynold_household'):
		'You return home and head to the bedroom. You pull out your suitcase and start putting all your outfits into it. This takes you only a few minutes before you go to the living room to see no one is there. You write up a quick note saying you thank them for the times you spent together and will visit when they can. You take the key from your pocket and place it on the table with the note and you head back to the motel.'
	else
		'You return home and head to the bedroom. You pull out your suitcase and start putting all your outfits into it. You pull out your phone and cancel your rent payments and send a quick email to the agency saying the keys on the table and you have moved out. You take the key from your pocket and place it on the table and you head back to the motel.'
	end

end

if $ARGS[0] = 'event6_submit3':
	minut += 20

	$lastwornclothingtype['therapist'] = $clothingworntype
	lastwornclothingnumber['therapist'] = clothingwornnumber
	$lastwornpantytype['therapist'] = $pantyworntype
	lastwornpantynumber['therapist'] = pantywornnumber
	$lastwornbratype['therapist'] = $braworntype
	lastwornbranumber['therapist'] = brawornnumber
	gs 'clothing', 'strip'
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/naked1.jpg"></center>'
	'You return to the hotel room with your stuff. When you enter, you see the therapist waiting for you. "Welcome back, my wife. Looks like all went well" he says and you nod.'
	'"Just put your stuff in the closet there and lay on the bed and wait for me." He says and you strip down, putting your clothes into the closet, then you lay on the bed, naked. You are glad the TV is on and you watch it.'

	act 'Continue':
		*clr & cla
		minut += 90
		gs 'arousal', 'vaginal', 90, 'sub'
		gs 'cum_call', 'vagina', 'A186', 2, 0, 15000, 60
		gs 'stat'

		'<center><video autoplay loop <<$set_imgh>> src="images/shared/sex/vag/miss/old1.mp4"></video></center>'
		'You spend the next hour or two, naked on the bed, watching TV before he comes to bed. He pushes you on your back and before you know it, he is inside you having sex with you.'
		'You were already wet from being in his presence. He moves your hands above your head and spends the next few hours pumping in and out of you before you both pass out.'


		act 'Sleep':
			*clr & cla
			gs 'sleep_simple', 'simple'
			if hour < 7:
				pcs_sleep += 15 * (6 - hour)
				hour = 7
				minut = 0
				pcs_sleep = min(pcs_sleep, 100)
				gs 'stat'
			end

			gs 'arousal', 'vaginal', -90, 'sub'
			gs 'cum_call', 'vagina', 'A186', 2, 0, 15000, 60
			gs 'stat'

			'<center><video autoplay loop <<$set_imgh>> src="images/shared/sex/vag/miss/old2.mp4"></video></center>'
			'You wake up the next morning and your legs are on his shoulders and he is still having sex with you.'
			'He says nothing and you just lay there looking up at him. It takes him a bit and he cums deep inside you again. He stays inside you and looks down at you.'
			'"Good Morning, Wife. Tell me, Do you love being woken up like this?"'
			*nl
			'"Yes, sir, I love it" you reply.'
			*nl
			'"Good, you will let me use your body anytime, anywhere, anyhow I want, wont you my dear?" he says pulling out of you slowly.'
			*nl
			'"Yes, sir, my body is yours." you say.'
			*nl
			'"Good, now stay there for a bit and let my cum find your eggs" he says and gets off the bed'

			act 'Continue':
				*clr & cla
				minut += 5
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/naked1.jpg"></center>'
				'You lay there naked on the bed as he goes to get cleaned up. You lay there for a bit and when he exits the shower, you get up and go take one yourself. You wash up and return to him. "Now to make sure no one sees anything wrong with our pairing, you are free to leave and do whatever you want. But you will return here every night.'
				'This is your home now. You will have all the same freedoms you did in any place you lived before, only the difference is that you will be naked at all times while in this room. At night, we will have sex and you will allow it, even if you are not in the mood, isn''t that right my dear?" he says.'
				*nl
				'"Yes, Sir, thank you" you reply.'
				*nl
				'He gives you a kiss. "Now go, do whatever it is you like to do" he says and you get dressed and head to the lobby.'
				act 'Continue': gt 'therapist_hotel', 'event6_submit4'
			end
		end
	end
end

if $ARGS[0] = 'event6_submit4':
	minut += 5
	gs 'clothing', 'wear', $lastwornclothingtype['therapist'], lastwornclothingnumber['therapist']
	gs 'panties', 'wear', $lastwornpantytype['therapist'], lastwornpantynumber['therapist']
	gs 'bras', 'wear', $lastwornbratype['therapist'], lastwornbranumber['therapist']
	gs 'stat'

	HotelRoom['pav_hotel'] = 0
	hotelRoomDays['pav_hotel'] = 0
	therapistQW['hotel_key'] = 3
	gs 'homes_preperties', 'set_home', 'hotel_therapist'

	gt 'pav_hotel'

end


--- therapist_hotel ---------------------------------