# EvOtelMan

if $ARGS[0] = '':
	music_on = 0
	minut += 15
	gs 'tboyopr'
	gs 'stat'

	'A man walked up to standing next to the club and exchange a taxi driver with him a few words turned to you. "<<$name>> go." You with the man got into a taxi and quickly drove to the hotel. The man led you to your room.'
	act 'Walk into the room':
		if DPtipe = 1:
			cls
			BeInOtel += 1
			minut += 5
			gs 'stat'
			'<center><img src="images/qwest/alter/Ev/otel.jpg"></center>'
			'The room was quite decent. The man went to the fridge and began to spread on the table. Misted bottle of whiskey servilat banking caviar, fruit plate. Laying everything on the table, the man tripped you a chair on which you sat. He sat in the chair next to you and poured whiskey glasses. "Well, let''s drink to <<$name>> acquaintance. I''m so glad to have met such a beautiful and wonderful girl like you."'

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

if $ARGS[0] = 'sex':
	cls
	minut += 5

	if DPtipe = 1:
		horny += 20
		alko += 2
		cumspclnt = 2
		gs 'cum_cleanup'
		fbreath = 0
		gs 'stat'
		'<center><img src="images/qwest/alter/Ev/kiss.jpg"></center>'
		'You drank with the man and he got up from his chair walked up to you. His lips began to kiss your hands and began to pull off your clothes.'
	else
		gs 'stat'
		'<center><img src="images/qwest/alter/Ev/kiss.jpg"></center>'
		'You entered the room and closed the door barely a man as he stared at you with a kiss, and his hands began to fumble through your body trying to steal your clothes.'
	end

	!! MJ: Same condition.
	if ((horny < 75 or dom > 0) and vagina = 0 and sex = 0):
		act 'I have a girl and a bank of virginity':
			cls
			minut += 5
			gs 'stat'
			tiprandeom = rand(0, 2)

			if tiprandeom < 2:
				'You have admitted that you like men, but you are still a girl would want to keep your virginity. The man smiled and said that sex can be engaged and remaining girl. <<$bname>> took a cock from his pants.'

				if dom > 0:
					act 'Not even hope':
						cls
						sub += 1
						gs 'stat'
						'You laughed and refused to man. <<$bname>> scratching his head, "Do you want me to give you five hundred <b>₽</b>?"'

						act 'Come on':
							cls
							money += 500
							gs 'stat'
							'You reached your palm and the man gave you five hundred <b>₽</b>.'
							gt 'EvOtelMan', 'Blow'
						end

						act 'Leave':gt 'vokzalG'

					end
				end
				
				act 'Squat': gt 'EvOtelMan', 'Blow'
			else
				'<center><img src="images/qwest/alter/Ev/otel.jpg"></center>'
				'<<$bname>> interested, "Really? Are you a virgin? I will give you five hundred if you show me your pussy"'

				if dom > 0:
					act 'Not even hope':
						cls
						sub += 1
						gs 'stat'
						'You laughed and refused to man. <<$bname>> scratching his head, "Well then, how a bout a blowjob? I''ll give you five hundred."'

						act 'Come on':
							cls
							money += 500
							gs 'stat'
							'<center><img src="images/qwest/alter/Ev/otel.jpg"></center>'
							'You reached your palm and the man gave you five hundred <b>₽</b>.'
							act 'Squat': gt 'EvOtelMan', 'Blow'
						end

						act 'Leave':gt 'vokzalG'
					end
				end

				act 'Show':
					cls
					sub += 1
					money += 500
					gs 'stat'
					'<center><img src="images/qwest/alter/Ev/kiska.jpg"></center>'
					'You undressed and showed her pussy man. He considered with interest you. "Cool. Listen. I''ll give you five pieces if you let me be your first boyfriend."'

					act 'Agree.':
						cls
						minut += 30
						!!sex += 1
						$boy = $bname
						bmSEX[Tboynum] += 1
						money += 5000
						gs 'stat'
						'<center><img src="images/qwest/alter/Ev/sex.jpg"></center>'
						'You stretched palm and man shaking hands you counted five thousand. After that <<$bname>> threw you on the bed and spread your legs.'
						dynamic $sexstart
						dynamic $sexstart2
						dynamic $sexcum
						act 'Brush up':gt 'EvOtelMan', 'End'
					end

					if dom > 0:
						act 'No, I''m going to stay a virgin until marriage':
							cls
							sub += 1
							gs 'stat'
							'You laughed and refused to man. <<$bname>> scratching his head, "Well then, how about a blowjob? I''ll give you five hundred."'

							act 'Come on':
								cls
								money += 500
								gs 'stat'
								'You reached your palm and the man gave you five hundred <b>₽</b>.'
								act 'Squat': gt 'EvOtelMan', 'Blow'
							end

							act 'Leave':gt 'vokzalG'
						end
					end

					act 'Leave':gt 'vokzalG'
				end
			end
		end
	end

	if dom >= 5 and StoryLine > 0:
		act 'Breeding for loot':
			cls
			sub += 1
			minut += 5
			gs 'stat'
			'<center><img src="images/qwest/alter/Ev/otel.jpg"></center>'
			'You looked at the clock. "Well, we had a good time, but perhaps I''ll go. And then swear the nurse will not give money for lunch then." <<$bname>> You smiled, "I''ll give you three, it will suffice you for lunch?"'

			act 'Agree to have sex for money.':
				cls
				minut += 30
				!!sex += 1
				guy += 1
				$boy = $bname
				bmSEX[Tboynum] += 1
				money += 3000
				gs 'stat'
				'<center><img src="images/qwest/alter/Ev/sex.jpg"></center>'
				'You stretched palm and man shaking hands you counted three thousand. After that <<$bname>> threw you on the bed and spread your legs.'
				dynamic $sexstart
				dynamic $sexstart2
				dynamic $sexcum
				act 'Brush up':gt 'EvOtelMan', 'End'
			end

			if dom > 0:
				act 'Oral sex is the maximum':
					cls
					sub += 1
					gs 'stat'
					'<center><img src="images/qwest/alter/Ev/otel.jpg"></center>'
					'You laughed and denied the men said that blowjob is the maximum for which he can rely. <<$bname>> scratching his head, "No problem, I''ll give you five hundred."'

					act 'Come on':
						cls
						money += 500
						gs 'stat'
						'You reached your palm and the man gave you five hundred <b>₽</b>.'
						act'Squat': gt 'EvOtelMan', 'Blow'
					end

					act 'Leave':gt 'vokzalG'
				end
			end
		end
	end

	if dom > 0: act'Squat': gt 'EvOtelMan', 'Blow'

	act 'Sex':
		cls
		minut += 30
		!!sex += 1

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

		$boy = $bname
		bmSEX[Tboynum] += 1
		gs 'stat'
		'<center><img src="images/qwest/alter/Ev/sex.jpg"></center>'
		'<<$bname>> threw you on the bed and spread your legs.'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		act 'Brush up':gt 'EvOtelMan', 'End'
	end
	
end

if $ARGS[0] = 'Blow':
	cls
	bj += 1
	if boynumBlock = 0:guy += 1
	if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0:guy += 1
	sub += 1
	minut += 10
	bmBJ[Tboynum] += 1
	gs 'stat'
	'<center><img src="images/qwest/alter/Ev/bj.jpg"></center>'
	'You squatted in front of the man and took his cock hand. Slightly moving the skin on the penis you licked the head. Your nimble tongue began to caress hot and hard cock male. <<$bname>> said "<<$name>>, I will soon be over."'

	act 'Suck':
		cls
		spafinloc = 12
		gs 'cum_manage'
		minut += 10
		gs 'stat'
		'<center><img src="images/qwest/alter/Ev/bj2.jpg"></center>'
		'You lips wrapped around his cock and started sucking carefully clasping his solid shaft <<$liptalk2>>. <<$bname>> groans and you feel like your mouth hits the jet of sperm.'

		act 'Sucking swallowing sperm':
			cls
			swallow += 1
			water -= 10
			minut += 10
			gs 'stat'
			'<center><img src="images/qwest/alter/Ev/bj3.jpg"></center>'
			'You continued to suck cock and swallow cum sperm gets into your mouth. Semen was so much that you do not have time to swallow everything and it flows out of your mouth over the penis. Finally <<$bname>> ceases to finish and you get the dick out of your mouth smelling sperm. In the mouth, the taste of nasty cumshot obliznuvshis you realize that your <<$liptalk3>> wet with semen.'
			act 'Brush up':gt 'EvOtelMan', 'End'
		end

		act 'Remove the mouth':
			cls
			spafinloc = 11
			gs 'cum_manage'
			facial += 1
			minut += 10
			gs 'stat'
			'<center><img src="images/qwest/alter/Ev/bj4.jpg"></center>'
			'You remove a member from his mouth and jet of sperm immediately slapped you in the face. You shut his eyes for fear that the sperm gets into your eyes and feel as another spurt of hot Cum landed on your face.'
			act 'Brush up':gt 'EvOtelMan', 'End'
		end
	end

	act 'Substitute ass':
		cls
		minut += 30
		spafinloc = 3
		gs 'cum_manage'
		$boy = $bname
		bmANAL[Tboynum] += 1
		gs 'stat'
		'<center><img src="images/qwest/alter/Ev/anal.jpg"></center>'
		dynamic $sexstart
		dynamic $analsex
		act 'Brush up':gt 'EvOtelMan', 'End'
	end

	act 'Lie on your back.':
		cls
		minut += 30
		!!sex += 1
		$boy = $bname
		bmSEX[Tboynum] += 1
		gs 'stat'
		'<center><img src="images/qwest/alter/Ev/sex.jpg"></center>'
		'You lay on your back. <<$bname>> lay on top and spread your legs.'
		dynamic $sexstart
		dynamic $sexstart2
		dynamic $sexcum
		act 'Brush up':gt 'EvOtelMan', 'End'
	end
end

if $ARGS[0] = 'End':
	cls
	minut += 15
	gs 'stat'
	'<center><img src="images/qwest/alter/Ev/otel1.gif"></center>'
	'Getting ready to leave you started to dress. <<$bname>> stretched and rolled over on the bed. "It was great <<$name>>."'

	if sparrloc[temp] = 11 and sparrvol > 0:cumspclnt = 12 & gs 'cum_cleanup' & 'You found napkins and wiped the sperm off your face.'
	if cumsumass > 60:'You try to wipe the cum from your buttocks, but you cannot wipe your ass clean when your anus is still leaking sperm.'

	act 'Leave':gt 'vokzalG'
end

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