glife/locations/EvOtelMan

# EvOtelMan

if $ARGS[0] = '':
	music_on = 0
	minut += 15
	gs 'boymass', 'B'
	gs 'stat'
	
	'<<$boydesc>> hails a taxi when you''re outside, and has a short chat with the taxi driver.'
	'Then he beckons you: "<<$pcs_nickname>>, come on. Let''s go!"'
	'You get into the back seat of the taxi with him, and spend the fifteen minute taxi drive mostly in silence. You notice <<$boydesc>> giving the taxi driver an impressive tip when you arrive at the hotel... is he trying to impress you?'
	act 'Go to <<$boydesc>>''s room':
		if DPtipe = 1:
			cls
			BeInOtel += 1
			minut += 5
			gs 'stat'
			'<center><img src="images/locations/pavlovsk/community/disco/otel.jpg"></center>'
			'<<$boydesc>> actually has a fairly nice room. He must''ve counted on bringing someone back to the room with him, because a bottle of whisky and a fruit platter are already waiting at the table.'
			'He invites you to sit down in a comfortable chair and pours two glasses of whiskey, offering you one.'
			'"Let''s drink to meeting new acquaintances! I''m very fortunate to have met a beautiful and wonderful girl such as yourself, <<$pcs_nickname>>", he toasts cheerfully.'

			act 'Have a drink with him':gt 'EvOtelMan', 'sex'
		else
			gt 'EvOtelMan', 'sex'
		end
	end
end

if $ARGS[0] = 'sex':
	cls

	if DPtipe = 1:
		alko += 2
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		gs 'stat'
		'<center><img src="images/shared/sex/kiss/kiss.jpg"></center>'
		'You can tell he didn''t cheap out on the whisky at all, this is good stuff!'
		'The two of you enjoy the drink. Then <<$boydesc>> stands up and walks up to you, placing his hands on your shoulders while his lips find yours. He gives you a deep kiss while he begins to take off your clothes confidently.'
		
		gs 'arousal', 'kiss', 5
		gs 'stat'
	else
		gs 'stat'
		'<center><img src="images/shared/sex/kiss/kiss.jpg"></center>'
		'Immediately as you enter his hotel room, <<$boydesc>> puts his hands on your hips and pulls you close for a deep kiss. He slides his hands up and down your body, trying to find a way to get underneath your clothes.'
		
		gs 'arousal', 'kiss', 5
		gs 'stat'
		
	end

	!! MJ: Same condition.
	if ((pcs_horny < 75 or pcs_dom > 0) and pcs_vag = 0 and stat['vaginal'] = 0):
		act 'Tell him you''re still a virgin':
			cls
			minut += 5
			gs 'stat'
			tiprandeom = rand(0, 2)

			if tiprandeom < 2:
				'"No, wait!" you interrupt him. "Look... I like men, and I like you, but I''m not losing my virginity to someone I just met!"'
				'<<$boydesc>> smiles reassuringly and says: "Oh wow, a virgin huh? That''s okay... we can still have fun without you losing your virginity! Maybe you could use your mouth?"'
				'<<$boydesc>> unbuttons his pants, springing his cock free.'

				if pcs_dom > 0:
					act 'Tell him it''s not going to happen':
						cls
						pcs_dom += 1
						gs 'stat'
						'You laugh at his hubris, but set him straight: "Hah! I don''t think so..."'
						'<<$boydesc>> scratches his head, pondering for a moment. Then he suggests: "I can pay you? I''ll give you 500 <b>₽</b> for a blowjob?"'
						'He''s already counting the money out while he says it.'

						act 'Suck him off for money':
							cls
							money += 500
							gs 'stat'
							'You wordlessly extend your hand, and <<$boydesc>> readily gives you the money.'
							gt 'EvOtelMan', 'Blow'
						end

						act 'Leave the hotel':gt 'vokzalG'

					end
				end

				act 'Squat before him': gt 'EvOtelMan', 'Blow'
			else
				'<center><img src="images/locations/pavlovsk/community/disco/otel.jpg"></center>'
				'<<$boydesc>>''s eyes grow a bit wider, the moment you say the word ''virgin''.'
				'"Wow, you''re a virgin? Really?" he asks in an intrigued voice. "Can I see your pussy? Please? I haven''t seen a virgin pussy in forever... I''ll give you 500 <b>₽</b>! I just want to look at it, no touching!"'

				if pcs_dom > 0:
					act 'Tell him it''s not going to happen':
						cls
						pcs_dom += 1
						gs 'stat'
						'You laugh at his hubris, but set him straight: "Hah! I don''t think so..."'
						'<<$boydesc>> scratches his head, pondering for a moment. Then he suggests: "How about a blowjob then? I''ll give you 500 <b>₽</b>?"'
						'He''s already counting the money out while he says it.'

						act 'Suck him off for money':
							cls
							money += 500
							gs 'stat'
							'<center><img src="images/locations/pavlovsk/community/disco/otel.jpg"></center>'
							'You wordlessly extend your hand, and <<$boydesc>> readily gives you the money.'
							act 'Squat before him': gt 'EvOtelMan', 'Blow'
						end

						act 'Leave the hotel':gt 'vokzalG'
					end
				end

				act 'Show him':
					cls
					sub += 1
					money += 500
					gs 'stat'
					'<center><img src="images/locations/pavlovsk/community/disco/sex/kiska.jpg"></center>'
					'You shrug and think to yourself: "That''s an easy way to make some money!"'
					'You slowly take off your clothes and get down on his bed, spreading your legs widely. You can''t help but laugh a little when he comes back with a large flashlight.'
					'"So I can see it better!" he grins at you, almost giddy with anticipation. He''s clearly looking forward to this a lot.'
					'He examines your pussy for a few minutes, shining the flashlight inside you to try and catch glimpses of your hymen. "Wow, that''s so hot!" he mutters under his own breath.'
					'Then he looks at you with a serious expression and says: "Listen, I really want to be your first. I''ll give you... 5,000 <b>₽</b>. That''s right, five thousand rubles! What do you say?"'
					'Wow, that is a lot of money...'

					act 'Lose your virginity for money':
						cls
						bmSEX[Tboynum] += 1
						money += 5000
						gs 'stat'
						'<center><img src="images/shared/sex/vag/miss/sex.jpg"></center>'
						'"Well... alright", you say softly as you extend your hand. He gives you a hearty handshake and happily says: "Deal!"'
						'He puts a large pile of bank notes in your hand, and you quickly count it. It''s all there, as promised. When you put the money away, <<$boydesc>> eagerly throws you onto the bed and has you spread your legs for him.'
						dynamic $sexstart
						dynamic $sexstart2
						dynamic $sexcum
						
						gs 'arousal', 'vaginal', 30, 'prostitution'
						gs 'stat'
						
						act 'Brush up a little':gt 'EvOtelMan', 'End'
					end

					if pcs_dom > 0:
						act 'Say you''re saving yourself for marriage':
							cls
							pcs_dom += 1
							gs 'stat'
							'You laugh at his hubris, but set him straight: "Sorry, but... no. I''m saving myself for marriage, and no amount of money is going to change that!"'
							'<<$boydesc>> scratches his head, pondering for a moment. He looks rather disappointed. Then he sighs: "Fair enough, I can respect that. I still want you though... how about a blowjob then? I''ll give you 500 <b>₽</b>?"'
							'He''s already counting the money out while he says it.'

							act 'Suck him off for money':
								cls
								money += 500
								gs 'stat'
								'You wordlessly extend your hand, and <<$boydesc>> readily gives you the money.'
								act 'Squat before him': gt 'EvOtelMan', 'Blow'
							end

							act 'Leave the hotel':gt 'vokzalG'
						end
					end

					act 'Leave the hotel':gt 'vokzalG'
				end
			end
		end
	end

	if pcs_dom >= 5 and StoryLine > 0:
		act 'Suggest you want money':
			cls
			pcs_dom += 1
			minut += 5
			gs 'stat'
			'<center><img src="images/locations/pavlovsk/community/disco/otel.jpg"></center>'
			'You look at the clock and fake a yawn: "Oh wow, is it that late already? It''s been fun spending time with you, <<$boydesc>>, but I really should get going!"'
			'<<$boydesc>> frowns and protests: "Already? But we were having such a nice time!"'
			'"I know, babe!" you smile at him, letting the words linger in the air for moment. "I have to get up early tomorrow to find a new job, though! Money is very tight, you know?"'
			'<<$boydesc>> gives you a knowing smile. Apparently he travels around a lot, and paying for sex is nothing new to him.'
			'He decides to play along and says: "Oh, I see. Well, you''re such a sweet girl... I want to help you. Would 3,000 <b>₽</b> help? Surely you wouldn''t have to wake up early tomorrow, with that money in your pocket?"'
			'From the greedy look in his eyes and the large bulge in his pants, it''s very obvious that he expects to fuck you if you say yes.'

			act 'Agree to have sex for money':
				cls
				guy += 1
				bmSEX[Tboynum] += 1
				money += 3000
				gs 'stat'
				'<center><img src="images/shared/sex/vag/miss/sex.jpg"></center>'
				'"You''re a lifesaver, <<$boydesc>>! Thank you so much!" you smile at him, and quickly put away the money he counted out for you. You barely get to finish the sentence as <<$boydesc>> throws you down onto the bed and immediately jumps on top of you.'
				'"Finally! I''ve been dying to fuck you this whole evening... spread ''em, girl!" he grunts in your ear.'
				dynamic $sexstart
				dynamic $sexstart2
				dynamic $sexcum
				
				gs 'arousal', 'vaginal', 30, 'prostitution'
				gs 'stat'
				
				act 'Brush up a little':gt 'EvOtelMan', 'End'
			end

			if pcs_dom > 0:
				act 'Offer a blowjob for money instead':
					cls
					pcs_dom += 1
					gs 'stat'
					'<center><img src="images/locations/pavlovsk/community/disco/otel.jpg"></center>'
					'You laugh and say: "That''s very kind of you, but that''s too much! I don''t think I could thank you enough..."'
					'Before he is able to say anything, you get to the point: "And I really do need to leave soon. But... how about I give you a blowjob for 500 <b>₽</b>?"'
					'<<$boydesc>> looks a little disappointed at first, he really hoped he''d get to fuck you tonight. However, he is into you way too much to reject your offer.'

					act 'Blow him for money':
						cls
						money += 500
						gs 'stat'
						'You wordlessly extend your hand, and <<$boydesc>> readily gives you the money.'
						act'Squat before him': gt 'EvOtelMan', 'Blow'
					end

					act 'Leave the hotel':gt 'vokzalG'
				end
			end
		end
	end

	if pcs_dom > 0: act'Give him a blowjob': gt 'EvOtelMan', 'Blow'

	act 'Have sex with him':
		cls

		if boynumBlock = 0:guy += 1
		if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0:guy += 1

		bmSEX[Tboynum] += 1
		gs 'stat'
		'<center><img src="images/shared/sex/vag/miss/sex.jpg"></center>'
		'<<$boydesc>> throws you down onto the bed and immediately jumps on top of you.'
		'"Finally! I''ve been dying to fuck you this whole evening... spread ''em, girl!" he grunts in your ear.'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		
		gs 'arousal', 'vaginal', 30, 'prostitution'
		gs 'stat'
		
		act 'Brush up a little':gt 'EvOtelMan', 'End'
	end

end

if $ARGS[0] = 'Blow':
	cls
	if boynumBlock = 0:guy += 1
	if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0:guy += 1
	bmBJ[Tboynum] += 1
	gs 'stat'
	'<center><img src="images/shared/sex/blowjob/bj43.jpg"></center>'
	'You squat in front of <<$boydesc>> and take his throbbing cock in your hand. With a devious smile you slowly pull his foreskin back, and carefully place some kisses and licks on the tip of his penis.'
	'It doesn''t take long at all for him to start begging: "<<$pcs_nickname>>, please... I''m going to cum in no time if you keep that up!"'
	
	gs 'arousal', 'bj', 10, 'prostitution'
	gs 'stat'

	act 'Suck his dick':
		cls
		spafinloc = 12
		gs 'cum_manage'
		gs 'stat'
		'<center><img src="images/shared/sex/blowjob/bj44.jpg"></center>'
		'With a satisfied smile you wrap your lips around his cock and begin to suck, carefully clasping your <<$liptalk2>> around his shaft.'
		'In no time at all, you already feel the first jet of sperm land in your mouth! Either he was pent up for a while, or you''re really good at this...'

		gs 'arousal', 'bj', 10, 'prostitution'
		gs 'stat'
	
		act 'Keep sucking and swallow his load':
			cls
			swallow += 1
			water -= 10
			gs 'stat'
			'<center><img src="images/shared/sex/cum/mouth/bj49.jpg"></center>'
			'You look him in the eye while you continue to suck him off, feeling spray after spray land on your tongue. Wow, he must have been saving up for you!'
			'He cums so much that you don''t have enough time to swallow it all, and some of it flows out of your mouth onto the head of his penis.'
			'<<$boydesc>> groans happily and finally takes his cock out of your mouth, once you lap up the remains of his sperm. The pungent taste of sperm in your mouth is very strong, and you have no doubt that your breath smells like it too.'
			
			gs 'arousal', 'bj', 10, 'prostitution'
			gs 'stat'
			
			act 'Brush up a little':gt 'EvOtelMan', 'End'
		end

		act 'Ley him spray his load onto your face':
			cls
			spafinloc = 11
			gs 'cum_manage'
			facial += 1
			gs 'stat'
			'<center><img src="images/shared/sex/cum/facial/facial20.jpg"></center>'
			'You let his member slip out of your mouth, and smile happily at him when you feel another jet of sperm immediately land on your forehead. You close your eyes so no sperm can get in them but otherwise let him cover your face with his load, which <<$boydesc>> does with great enthusiasm.'
			
			gs 'arousal', 'bj', 10, 'prostitution'
			gs 'stat'
	
			act 'Brush up a little':gt 'EvOtelMan', 'End'
		end
	end

	act 'Suggest he fucks your ass':
		cls
		spafinloc = 3
		gs 'cum_manage'
		bmANAL[Tboynum] += 1
		gs 'stat'
		'<center><img src="images/shared/sex/anal/doggy/anal31.jpg"></center>'
		dynamic $sexstart
		dynamic $analsex
		
		gs 'arousal', 'anal', 30, 'prostitution'
		gs 'stat'
	
		act 'Brush up a little':gt 'EvOtelMan', 'End'
	end

	act 'Lie down on his bed':
		cls
		bmSEX[Tboynum] += 1
		gs 'stat'
		'<center><img src="images/shared/sex/vag/miss/sex.jpg"></center>'
		'When you lie down on his bed on your back, <<$boydesc>> pounces on top of you in no time and eagerly makes you spread your legs.'
		'"Finally! I''ve been dying to fuck you this whole evening... spread ''em, girl!" he grunts in your ear.'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		
		gs 'arousal', 'vaginal', 30, 'prostitution'
		gs 'stat'
		
		act 'Brush up a little':gt 'EvOtelMan', 'End'
	end
end

if $ARGS[0] = 'End':
	cls
	minut += 15
	gs 'stat'
	'<center><img src="images/pc/activities/otel1.gif"></center>'
	'After the two of you relax for a while longer, you smile at <<$boydesc>> and say: "That was fun! But I should really get going..."'
	'<<$boydesc>> stretches lazily on the bed, not bothering to get up. "You were great, <<$pcs_nickname>>! I hope I''ll run into you again, next time I''m in Pavlovsk!"'

	if sparrloc[temp] = 11 and sparrvol > 0:cumspclnt = 12 & gs 'cum_cleanup' & 'When you look around the room, you find a packet of sanitary napkins. You take one and quickly wipe the sperm off your face, in an attempt to make yourself presentable enough to go outside.'
	if cumsumass > 60:'You try to wipe the sperm from your buttocks with the sanitary napkins you found, but there''s more still leaking from your anus. A few seconds after you clean yourself, some more already dribbles down again. After a few wipes you give up and shrug, figuring you''ll deal with it later.'

	gs 'arousal', 'end'
	gs 'stat'
	
	act 'Leave the hotel':gt 'vokzalG'
end

--- EvOtelMan ---------------------------------