iWhore/locations/mod_iwhore_pbath.qsrc

# mod_iwhore_pbath

if $ARGS[0] = 'start':
	cls
	minut += 2
	gs 'stat'
	'<center><h4>Pavlovsk public restroom</h4></center>'
	if hour > 7 and hour < 20:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/restrday.jpg"></center>'
		if money > 5:
			act 'ladies': money -= 5 & gt 'mod_iwhore_pbath', 'female'
			act 'mens': money -= 5 & gt 'mod_iwhore_pbath', 'male'
		else
			act 'try anyway': gt 'mod_iwhore_pbath', 'bathfee'
		end
	else
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/restrnigh.jpg"></center>'
		if money > 5:
			act 'ladies': money -= 5 & gt 'mod_iwhore_pbath', 'female'
			act 'mens':gt 'mod_iwhore_pbath', 'male'
		else
			act 'try anyway': gt 'mod_iwhore_pbath', 'bathfee'
		end
	end
	'Two clearly signs tell you where do you have to go...'
	if new_whore = 6:
		new_whore += 1
		msg 'You can now start a "new" carreer. Use the right clothes and according to the right location you can work as a prostitute in Pavlovsk. Maybe one day, with the enough fame, you will be approached even out from the work.'
	end

	act 'Return':minut += 1 & gt 'pav_residential'
end

if $ARGS[0] = 'bathfee':
	cla
	*clr
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/noenter'+rand(0,1)+'.jpg"></center>'
	'The bath are not for free...I knew it!'
	act'Leave the door': gt 'mod_iwhore_pbath', 'start'
	act 'Return':minut += 1 & gt 'pav_residential'
end

if $ARGS[0] = 'female':

	$locM_arg = $ARGS[0]
	$locM = 'mod_iwhore_pbath'
	$locM_arg = 'female'
	$loc_arg = $ARGS[0]
	$loc = 'mod_iwhore_pbath'
	$loc_arg = 'female'
	$location_type = 'bathroom'
	cls
	minut += 1
	gs 'stat'
	'<center><h4>The ladies'' room</h4></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/female.jpg"></center>'
	'You open the door to the ladies'' room and go in. There are sinks, <a href="exec:gt ''mirror'', ''start''">mirrors</a> and various stalls; the <a href="exec: middle_stall = 1 & gt ''mod_iwhore_pbath'', ''middle_stall''">middle</a> and the <a href="exec: middle_stall = 1 & gt ''mod_iwhore_pbath'', ''middle_stall''">last</a> ones'

	act 'Leave':minut += 1 & gt 'mod_iwhore_pbath', 'start'

	if (cumloc[6] = 1 or cumloc[7] = 1):
		act 'Wipe the cum off your clothes (0:10)':
			cla
			*clr
			cumspclnt = 6
			gs 'cum_cleanup'
			minut += 10

			'You wipe the cum off your clothes and thoroughly rinse out the stains with water.'

			act 'Finish':gt 'mod_iwhore_pbath', 'female'
		end
	end

	gs 'mod_iwhore_dincollect' , 'client'
	gs 'mod_iwhore_dincollect' , 'tampon'
	gs 'mod_iwhore_dincollect' , 'quickwash'
	gs 'mod_iwhore_dincollect' , 'wearpan'
	gs 'mod_iwhore_dincollect' , 'removepan'
	gs 'mod_iwhore_dincollect' , 'basin'

end

if $ARGS[0] = 'male':

	$locM = 'mod_iwhore_pbath'
	$locM_arg = 'male'
	$loc = 'mod_iwhore_pbath'
	$loc_arg = 'male'
	$locM_arg = $ARGS[0]
	$loc_arg = $ARGS[0]

	$location_type = 'public_indoors'
	cls
	minut += 1
	gs 'stat'
	'<center><h4>The men''s room</h4></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/male_pic.jpg"></center>'
	'You open the door to the men''s room and go in. There are <a href="exec:gt ''mirror'', ''start''">mirrors</a> that line the wall, as sinks rest under them.'


	act 'Leave':minut += 1 & gt 'mod_iwhore_pbath', 'start'

	if (cumloc[6] = 1 or cumloc[7] = 1):
		act 'Wipe the cum off your clothes (0:10)':
			cla
			*clr
			cumspclnt = 6
			gs 'cum_cleanup'
			minut += 10

			'You wipe the cum off your clothes and thoroughly rinse out the stains with water.'

			act 'Finish':gt 'mod_iwhore_pbath', 'male'
		end
	end

	gs 'mod_iwhore_dincollect' , 'client'
	gs 'mod_iwhore_dincollect' , 'tampon'
	gs 'mod_iwhore_dincollect' , 'quickwash'
	gs 'mod_iwhore_dincollect' , 'wearpan'
	gs 'mod_iwhore_dincollect' , 'removepan'
	gs 'mod_iwhore_dincollect' , 'basin'

end

if $ARGS[0] = 'clientfee':
	*clr & cla
	if inna_varvara_pimp >= 15: gs 'mod_iwhore_dincollect' , 'whore_check_pro'
	killvar 'bath_ender'
	minut += 1
	gs 'stat'
	protect = 0
	if new_whore < 50:
		if new_whore = 20 or new_whore = 30 or new_whore = 40 or new_whore = 44 or new_whore = 48:
			want_stall = rand(21,22)
			new_whore += 1
		else
			want_stall = rand(1,20)
		end
	else
		if Krestovoz_pimp_protection ! 1:
			want_stall = rand(1,22)
		else
			want_stall = rand(1,20)
		end
	end
!	want_stall = rand(1,20)
	if hour >= 18 or hour =< 6:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/restrnigh.jpg"></center>'
	elseif hour < 18 and hour > 6:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/restrday.jpg"></center>'
	else
		''
	end
	'The client wait for you... .'
	act 'Five or ten?...':
		if rand(0,2) = 2:
			cla
			*clr
			if hour >= 18 or hour =< 6:
				'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/10ruble'+rand(0,1)+'.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/10rublen0.jpg"></center>'
			end
			'"For what?" The client ask... .<br>"To enter the bathroom honey"<br>"You are really cheap...let''s go!"<br>"Don''t be silly, you know the prices; it''s the fee for the bath: five to close a stall, ten to close the whole restroom."<br>"What? It''s on me? No way! I''ll pay for your service, not for a stupid locked fucking bath! You can pay for it!"'
			if want_stall >=1 and want_stall =< 10:
				act 'Pay for him and enter the male restroom': money -= 5 & gt 'mod_iwhore_pbath', 'male'
				act 'Pay for him and enter the female restroom': money -= 5 & gt 'mod_iwhore_pbath', 'female'
			elseif want_stall = 21 or want_stall = 22:
				act 'Pay for him and enter the male restroom': money -= 5 & gt 'mod_iwhore_hardlife', 'bath_rape_male'
				act 'Pay for him and enter the female restroom': money -= 5 & gt 'mod_iwhore_hardlife', 'bath_rape_female'
			else
				act 'Pay for him and enter the male restroom': money -= 10 & gt 'mod_iwhore_pbath', 'male'
				act 'Pay for him and enter the female restroom': money -= 10 & gt 'mod_iwhore_pbath', 'female'
			end
			if you_blow_him = 1:
				act 'Leave':
					cla
					*clr
					you_blow_him = 0
					gs 'mod_iwhore_dincollect', 'whore_check_fastender'
					'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/street/day/work/rublepay.jpg"></center>'
					'"As you wish. You owe me half of a blowjob...quick." The man curse you with words but he doesn''t refuse to pay for your sevice; the next time he''ll think twice before leaving you to pay...his blue balls will be a great teacher.'
					gt 'mod_iwhore_pbath', 'start'
				end
			else
				act 'Leave':gt 'mod_iwhore_pbath', 'start'
			end
		else
			cla
			*clr
			if hour >= 18 or hour =< 6:
				'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/10ruble'+rand(0,1)+'.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/10rublen0.jpg"></center>'
			end
			'"For what?" The client ask... .<br>"To enter the bathroom honey"<br>"You are really cheap...let''s go!"<br>"Don''t be silly, you know the prices; it''s the fee for the bath: five to close a stall, ten to close the whole restroom."<br>"It''s on me? Well i guess i''m the one who want some pricacy...ok, let''s go."'
			if rand(0,5) = 5 and (want_stall = 21 or want_stall = 22):
				act 'Enter the male restroom': gt 'mod_iwhore_hardlife', 'bath_rape_male'
				act 'Enter the female restroom': gt 'mod_iwhore_hardlife', 'bath_rape_female'
			else
				act 'Enter the male restroom':gt 'mod_iwhore_pbath', 'male'
				act 'Enter the female restroom':gt 'mod_iwhore_pbath', 'female'
			end
		end
	end
end

if $ARGS[0] = 'client':
	cla
	*clr
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/client.jpg"></center>'
	'"I''m ready honey, what do you like to do to me?"'
	if (want_stall >= 1 and want_stall =< 4) or (want_stall >= 11 and want_stall =< 14) or want_stall = 22:
		'Let me see those ass of yours'
		act 'Show': gt 'mod_iwhore_pbathw', 'bathanal'
	elseif (want_stall >= 5 and want_stall =< 8) or (want_stall >= 15 and want_stall =< 18) or want_stall = 21:
		'Spread your pussy slut, i need a fuck.'
		act 'Show':gt 'mod_iwhore_pbathw', 'bathvag'
	else
		'Show me your boobs, i want to see your puppies'
		act 'Show':gt 'mod_iwhore_pbathw', 'bathbj'
	end
end


if $ARGS[0] = 'wender':
	cla
	*clr
	gs 'arousal', 'massage', 5, 'prostitution', 'exhibitionism', 'unknown'
	gs 'stat'
	if hour > 6 and hour < 18:
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/day/work/zplace0.mp4"></video></center>'
		'For the whole walk the man doesn''t stop stripping and exposing your body; you try too keep your clothes on as much as you can. "...Really man? Can''t you wait? We almost arrived..." .'
	else
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/night/work/zplace'+rand(0,1)+'.mp4"></video></center>'
		'For the whole walk the man doesn''t stop stripping and exposing your body; you try too keep your clothes on as much as you can, but with the night favor you cannot stop him to constantly finger your pussy in the middle of the street...this will cost in time terms..."...Really man? Can''t you ...mmmmh....wait? We almost ....mmmmm..." .'
	end

	act 'Finally...': gt 'mod_iwhore_pbath', 'clientfee'
end

if $ARGS[0] = 'ender':
	if inna_varvara_pimp >= 15: gs 'mod_iwhore_dincollect' , 'whore_check_pro'
	if Krestovoz_pimp_protection ! 1:
		bath_ender = rand(0,21)
	else
		bath_ender = rand(0,20)
	end
	if bath_ender =< 10:
		cla
		*clr
		money += 30
		gs 'mod_iwhore_dincollect' , 'prezik'
		if hour > 6 and hour < 18:
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/day/work/zplace1.mp4"></video></center>'
		else
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/night/work/zplace3.mp4"></video></center>'
		end
		'"...right." You barely finish to tell him where both of you have to go that you find yourself sucking his cock... . Gently the man put your head on work; without any objection you continue with your duties... .'
		gs 'mod_iwhore_dincollect','oralsex',5,'prostitution', 'unknown'
		gs 'stat'
		if bath_ender =< 9:
			act '...':
				cla
				*clr
				stat['bj'] += 1
				gs 'arousal', 'bj', 5, 'prostitution', 'unknown'
				gs 'stat'
				you_blow_him = 1
				if hour > 6 and hour < 18:
					'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/day/client/single/car/bj/vbj'+rand(0,17)+'.mp4"></video></center>'
				else
					'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/night/client/single/car/bj/vbj'+rand(0,22)+'.mp4"></video></center>'
				end
				'Your eyes tear up and you start to gag, but he doesn''t care as he takes control and face fucks you until you''re a wet, slobbering mess. Finally you arrived... . "Well ... bitch? I cannot exit the car with you sucking..."'

				act 'Stop sucking and go to the bath': gt 'mod_iwhore_pbath', 'clientfee'
			end
		else
		!bath_ender = 10
			act '...': gt 'mod_iwhore_pbath', 'fastender'
		end
	elseif bath_ender >= 11 and bath_ender =< 20:
		cla
		*clr
		gs 'arousal', 'massage', 2, 'prostitution', 'unknown'
		gs 'arousal', 'vaginal_finger', 3, 'prostitution', 'unknown'
		gs 'stat'
		if hour > 6 and hour < 18:
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/day/work/zplace0.mp4"></video></center>'
		else
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/night/work/zplace2.mp4"></video></center>'
		end
		'For the whole trip the man continue to touch your legs reaching your crotch and rubbing your pussy; you let him do. Once arrived you both exit from the car..."Well ... bitch?"'
		act 'Go to the bath': gt 'mod_iwhore_pbath', 'clientfee'
	elseif bath_ender = 21:
		cla
		*clr
		gs 'mod_iwhore_dincollect' , 'prezik'
		if hour > 6 and hour < 18:
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/day/work/zplace1.mp4"></video></center>'
		else
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/night/work/zplace3.mp4"></video></center>'
		end
		'"...right." You barely finish to tell him where both of you have to go that you find yourself sucking his cock... . Gently the man put your head on work; without any objection you continue with your duties... .'
		gs 'mod_iwhore_dincollect','oralsex',5,'prostitution', 'unknown'
		gs 'stat'
		act '...': gt 'mod_iwhore_hardlife', 'car_rape_ender'
	end
end

if $ARGS[0] = 'fastender':

	cla
	*clr
	guy += 1
	pav_sex += 1
	gs 'fame', 'pav', 'prostitute', rand(3,9)
	stat['bj'] += 1
	gs 'arousal', 'bj', 1, 'prostitution', 'unknown'
	gs 'arousal', 'end'
	gs 'stat'
	if hour > 6 and hour < 18:
		spafinloc = 11
		gs 'cum_manage'
		gs 'mod_iwhore_dincollect' , 'venerasiakOral'
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/day/work/zfast.mp4"></video></center>'
		'...."UUhhghh ....stupid bitch.....!....." While sucking the man''s cock, with your free hand you continue to jerk him...it seems you hit a sensible spot...'
	else
		spafinloc = 12
		gs 'cum_manage'
		gs 'mod_iwhore_dincollect' , 'venerasiakOral'
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/street/night/work/zfast.mp4"></video></center>'
		'...."UUhhghh ....stupid bitch.....!....." You don''t know how it was possible but as soon as you arrived you find your face covered in cum.... . That was fast... .'
	end

	act 'Collect money':
		cla
		*clr
		gs 'mod_iwhore_dincollect', 'whore_check_fastender'
		if hour > 6 and hour < 18:
			'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/street/day/work/streetdeal1.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/street/day/work/rublepay.jpg"></center>'
		end
		'"Do you need another round honey?... ."<br>"..."<br>The man, clearly embarassed, pass you your payment... . "You know where to find me... ." You give him a flying kiss and turn back to your occupations.'
		act 'Leave': gt $loc, $loc_arg
	end
end

!!!GDKCOPY!!!!

if $ARGS[0] = 'middle_stall':
	cls
	minut += 1
	gs 'stat'
	'<center><b><font color="maroon">Middle Stall</font></b></center>'
	if rand (0,5) = 5:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sitting.jpg"></center>'
	else
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/sit'+rand(0,7)+'.mp4"></video></center>'
	end
	if stat['bj'] = 0:
		gs 'stat'
		'You walk down to the middle stall and sit down, next to the toilet are rather large almost perfectly round holes. Puzzled, you wonder how it got there and why no one has fixed them.'
	elseif stat['bj'] >= 1:
		pcs_horny += 10
		gs 'stat'
		'You walk down to the middle stall. The large almost perfectly round holes is still there. You wonder how many women have used that hole. You feel a little excited as you contemplate your next move.'
	end

	if pcs_horny >=40:
		act 'Caress Yourself':
			gs 'arousal', 'masturbate', 4
			gs 'stat'
			if pcs_inhib < 40:inhib_exp += rand(1,3)
			cls
			if rand (0,1) = 1:
				cls
				gs 'stat'
				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/caress1.mp4"></video></center>'
				'Feeling a bit turned on, you close the door to the stall and you behind to reach down your underwear and start rubbing your clit.'
				act 'Continue': gs 'mod_iwhore_dincollect', 'contmast'
			else
				cls
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/shared/sex/mast/mastr.jpg"></center>'
				'Feeling a bit turned on, you close the door to the stall and you sit down exposing your pussy and begin to run your clit.'
				act 'Continue':
					if new_gh_whore < 1 and rand(0,1) = 1:
						gt 'mod_iwhore_pbath', 'mast_visit'
					elseif new_gh_whore >= 2 and rand(0,20) =< 5:
						gt 'mod_iwhore_pbath', 'mast_visit'
					else
						gs 'mod_iwhore_dincollect', 'contmast'
					end
				end
			end
		end
	end

	act 'Pee':
		if new_gh_whore < 1 and rand(0,2) = 2:
			gt 'mod_iwhore_pbath', 'pblc_pee_first'
		elseif new_gh_whore >= 2 and rand(0,20) =< 2:
			gt 'mod_iwhore_pbath', 'pee_visit'
		else
			gs 'mod_iwhore_dincollect', 'pblc_pee'
		end
	end

	act 'Look at the Hole': gt 'mod_iwhore_pbath', 'hole'

	if new_gh_whore >= 2 and rand(0,20) =< 2:
		act 'Sign the wall':
			if rand(0,20) =< 2:
				gt 'mod_iwhore_pbath', 'sign_visit'
			else
				gt 'mod_iwhore_pbath', 'sign_art_graffiti'
			end
		end
	end

	act 'Get Up':
		cla
		minut += 1
		gs 'stat'
		'You decide not to look in the hole and leave.'
		act 'Leave': gt $locM, $locM_arg
	end
end

if $ARGS[0] = 'pblc_pee_first':

	if rand(0,1) = 1:
		*clr
		cla
		minut +=5
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/first0.jpg"></center>'
		'"...at least it seems to be clean..."'
		act '...':
			*clr
			cla
			'<center><img <<$set_imgh>> src="images/pc/pee/pee-public/1.jpg"></center>'
			gs 'stat'
			'"...It doesn''t came out!...Maybe a little fart..."...(lewed sound)...."...Owww! That''s....owww...what did i ate yesterday?...owww..."'
			act 'Concentrate...':
				*clr
				cla
				'<center><img <<$set_imgh>> src="images/pc/pee/pee-public/' + rand(4,6) + '.jpg"></center>'
				gs 'stat'
				'"...Ooooh that''s it..."'
				act 'Leave': gt $locM, $locM_arg
			end
		end
	else
		gs 'npcgeneratec', 0, 'unknown guy', rand(18,40)
		gs 'boyStat', $npclastgenerated
		minut +=5
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/first0base.jpg"></center>'
		if stat['bj'] = 0:
			gs 'stat'
			if pcs_horny > 50:
				'...''...I should take care of my kitten, i''m starting to see cocks everywhere...hey! it''s real...''...'
			else
				'...''...let it flow, let it flow, let it f...uh?...what...''...'
			end
		elseif stat['bj'] >= 1:
			pcs_horny += 10
			gs 'stat'
			'"...Oh!...well...it''s not that i''m really surprised...yet..."'
		end
		gs 'mod_iwhore_dincollect' , 'gh_first'
	end
end

if $ARGS[0] = 'pee_visit':

	*clr
	cla
	gs 'npcgeneratec', 0, 'unknown guy', rand(18,40)
	gs 'boyStat', $npclastgenerated
	minut +=5
	'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/visit4.mp4"></video></center>'
	'...''...let it flow, let it flow, let it f...uh?...what...''...'

	'"...Oh!...well...it''s not that i''m really surprised...yet..."'

	act 'Blow Him': gt 'mod_iwhore_pbath', 'blowjob'
	act 'Jerk Him': gt 'mod_iwhore_pbath', 'jerkoff'
	act 'Leave': gt $locM, $locM_arg
end

if $ARGS[0] = 'mast_visit':

	*clr
	cla
	gs 'npcgeneratec', 0, 'unknown guy', rand(18,40)
	gs 'boyStat', $npclastgenerated
	minut +=5
	if new_gh_whore < 1:
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/mastvisit0.mp4"></video></center>'
		'...''...mmm...dripping...i had to try that...mmm....'' ...'
	else
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/mastvisit'+rand(0,3)+'.mp4"></video></center>'
		'...''...mmm....mmm....OH!...they could wait a little at least...'' ...'
	end

	wait 2000
	'...''...That doesn''t help...or...'' ...'
	if new_gh_whore < 1:
		act 'Stop masturbate':
			*clr
			cla
			minut +=5
			'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/first0base.jpg"></center>'
			if stat['bj'] = 0:
				gs 'stat'
				if pcs_horny >=50:
					'...''...why my pussy is twinching?...''...'
				else
					'...''...i''m scared...''...'
				end
			elseif stat['bj'] >= 1:
				pcs_horny += 10
				gs 'stat'
				'...''...mmm, it seems he''s cool off a little...maybe...''...'
			end
			gs 'mod_iwhore_dincollect' , 'gh_first'
		end
	else
		act 'Blow Him': gt 'mod_iwhore_pbath', 'mast_bj'
		act 'Jerk Him': gt 'mod_iwhore_pbath', 'mast_hj'
		act 'Leave': gt $locM, $locM_arg
	end
end

if $ARGS[0] = 'sign_visit':

	*clr
	cla
	minut +=5
	'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/visit'+rand(0,2)+'.mp4"></video></center>'
	'...''...a little here...and there....'' ...'
	wait 2000
	'...''...mmm...what about...oooH!...'' ...'
	act 'Blow Him': gt 'mod_iwhore_pbath', 'blowjob'
	act 'Jerk Him': gt 'mod_iwhore_pbath', 'jerkoff'
	act 'Leave': gt $locM, $locM_arg
end

if $ARGS[0] = 'sign_art_graffiti':

	*clr
	cla
	minut +=5
	'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/sign.mp4"></video></center>'
	'...''...a little here...and there....'' ...'
	wait 2000
	'...''...mmm...what about...or...maybe...'' ...'
	wait 3000
	act 'Done!':
		cls
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/graffiti.jpg"></center>'
		'You look at your wonderful draw...'
		*nl
		'"...Not bad...but....uhmmmm...it lack of something..."'
		act 'Leave': gt $locM, $locM_arg
! 		to write
!		act 'Blow Him': gt 'mod_iwhore_pbath', 'blowjob'
	end
end

if $ARGS[0] = 'hole':
	cls
	gs 'npcgeneratec', 0, 'unknown guy', rand(18,40)
	gs 'boyStat', $npclastgenerated
	minut +=5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ghlooking.jpg"></center>'
	wait 700
	if new_gh_whore < 1:
		act 'Sign the wall':
			cls
			gs 'stat'
			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghstartled.mp4"></video></center>'
			'While looking through the hole you decided to write something on the wall just above it. While you were focused on writing, you didn''t notice the dick poking through the hole until the tip of it nearly went into your mouth. Startled you jerk away from the offending penis.'
			act 'Stop painting':
				*clr
				cla
				minut +=5
				'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/first0base.jpg"></center>'
				if stat['bj'] = 0:
					gs 'stat'
					if pcs_horny >=50:
						'...''...what the...mmmm....that''s a different kind of brush...''...'
					else
						'...''...what the...''...'
					end
				elseif stat['bj'] >= 1:
					pcs_horny += 10
					gs 'stat'
					'...''...ummmm, it seems he cool off a little...maybe...or maybe not...''...'
				end
				act 'Touch the shaft':gt 'mod_iwhore_pbath', 'virgin'
				act 'Quickly leave the stall':
					cla
					*clr
					'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
					'You shudder in disgust at the thought that some stranger''s dick was just practically in your mouth, you get up and quickly leave.'
					act'Leave':gt $locM, $locM_arg
				end
				gs 'mod_iwhore_dincollect' , 'gh_first'
			end
		end
	elseif new_gh_whore >= 1 and rand (0,50) < 10:
		cls
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ghseemen.jpg"></center>'
		'You look through the hole and see several men with their backs to you, using the urinals.'
		act 'Stick your finger in the hole':
			cls
			money += 100
			minut += 10
			gs 'stat'
			if new_gh_whore = 1:
				'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghfinger'+rand(1,5)+'.jpg"></center>'
				'You put your finger in the hole hoping to entice a man to come over...'
				'The man slips 100 <b>₽</b> into the hole, and then puts his erect cock through the hole.'
				act 'Mmmm...that''s a good shape...': gt 'mod_iwhore_pbath', 'not_alone'
				act 'Jerk Him': gt 'mod_iwhore_pbath', 'virgin'
			elseif new_gh_whore > 1:
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ready.jpg"></center>'
				'You poke your finger in the hole showing that you are ready to serve a man. Then you put your face close to the hole and open your mouth.'
				'The stranger slips 100 <b>₽</b> into the hole, and then his erect cock pokes out of the hole.'
				act 'Blow Him':
					if pcs_horny >=60 and rand(0,2) = 2:
						gt 'mod_iwhore_pbath', 'mast_bj'
					else
						gt 'mod_iwhore_pbath', 'blowjob'
					end
				end
				act 'Jerk Him':
					if pcs_horny >=60 and rand(0,2) = 2:
						gt 'mod_iwhore_pbath', 'mast_hj'
					else
						gt 'mod_iwhore_pbath', 'jerkoff'
					end
				end

			end
			act 'Stop':
				cla
				*clr
				!Second thougth	LOOKFORSOMETHING
				'Seeing the dick poke through, you reconsider what you are about to do, do you really want to suck some strange man''s dick, through a hole in the bathroom for money?'
				act 'Take his money and Leave':gt 'mod_iwhore_pbath', 'rape'
				act 'Give back the money and Leave':
					money -= 100
					gt $locM, $locM_arg
				end
				act 'Blow Him': gt 'mod_iwhore_pbath', 'blowjob'
			end
		end
		act 'Move away':
			cla
			'You move away from the hole reconsidering what you were about to do and quickly leave the stall.'
			act 'Leave': gt $locM, $locM_arg
		end
	else
		cls
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ghseenomen.jpg"></center>'
		'Looking through the hole, you can see a row of urinals on the other side. The hole must be to the men''s room next door. You don''t see any men currently in there.'
		act 'Wait':
			cla
			'You decide stay and wait for someone to come.'
			act 'Keep looking': gs 'mod_iwhore_pbath', 'hole'
		end
		act 'Leave': gt $locM, $locM_arg
	end
end

if $ARGS[0] = 'virgin':
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/hj/hj0.jpg"></center>'
	if gloryhole = 0:
		'You tentatively reach out and gently touch the dick, half afraid to, but also half wanting to.'
	else
		'You tentatively reach out and gently touch the dick...everytime your finger touch it the cock move up and down fully erected...''...maybe it''s painful staying that way...''...'
	end
	act 'Quickly leave the stall':
		cls
		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
		'You shudder in disgust at the thought that you were just touching some stranger''s dick. You get up and quickly leave.'
		act'Leave': gt $locM, $locM_arg
	end
	act 'Grab it':
		cls
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/hj/hj1.jpg"></center>'
		if gloryhole = 0:
			'Biting your lip and deciding you want to feel it some more, you reach over again and grab it. You caress it with your hand, it is harder than you expected and warm to the touch, it almost feels like it is throbbing in your hand. Unexplained feelings of excitement run through your body. You hear through the wall the guy saying, "Stop playing with it and stroke it." "Huh?" You reply, not knowing why he wants you to stroke it. He replies, "Really, you don''t know? Just grab it with your hand and slide it up and down."'
		else
			'Biting your lip and deciding you want to feel it some more, you reach over again and grab it. You caress it with your hand, it is hard and is throbbing in your hand. Feelings of excitement run through your body...."Stop playing with it and stroke it." "..." ..."You cannot let me that way...at least grab it with your hand and slide it up and down."'
		end
		gs 'arousal', 'foreplay', 5, 'unknown'
		gs 'stat'
		act 'Slide your hand on his penis':
			cls
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/hj/vhj0.mp4"></video></center>'
			if gloryhole = 0:
				'You decide to gently slide your hand on his dick. You feel his hard penis throb as you continue to slide your hand up and down. To your surprise you are really enjoying stroking the dick, your pussy starts to itch from the experience. As you get more turned on, you grab it with both hands and stroke it.'
			else
				'You decide to gently slide your hand on his dick. You feel his hard penis throb as you continue to slide your hand up and down. Your pussy starts to itch from the experience; as you get more turned on, you grab it with both hands and stroke it.'
			end
			gs 'arousal', 'hj', 5, 'unknown'
			gs 'stat'
			act 'Continue Stroking':
				cls
				gs 'stat'
				'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/hj/vhj0.mp4"></video></center>'
				'"...You are a low starter...mmm...but when you begin...mmmm..." The man seems to appreciate your effort and your strokes becomes more furious; your top falls down but you don''t stop and continue stroke the man with your nipples now fully erected...'
				act '...':
					cls
					spafinloc = 13
					spafinloc = 11
					minut +=5
					gs 'arousal', 'end'
					gs 'cum_manage'
					gs 'stat'
					'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/facial0.jpg"></center>'
					if gloryhole = 0:
						'Just as you fall on your knees tired of the position, without any warning, hot white liquid start spurting out the tip of his penis and with a last stroke an heavy cum blast cover your face and exposed tits. You look at your hands, watching the sperm run down the back of your hand and down onto your arm. The man panting says, "That was," he takes another breath, "That was great."...  ...''...sniff sniff...at least it''s not on my top...sniff sniff...''... . You cannot avoid to smell the pungent scent of the man''s cum... '
						act 'Curious as you are...':
							cls
							minut +=2
							spafinloc = 12
							gs 'cum_manage'
							gs 'stat'
							'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/virgin0.mp4"></video></center>'
							'You decide to lick a bit of the white liquid off your hand curiously wanting to know what it tastes like. It''s slimy and tastes tart.'
							act 'Leave':  gt $locM, $locM_arg
						end
					else
						'You move on your knees to continue jerk him off, but the man doesn''t last long and without any warning cum start spurting out the tip of his penis and with a last stroke an heavy cum blast cover your face and exposed tits. You look at your hands, watching the sperm run down the back of your hand and down onto your arm. The man panting says, "That was," he takes another breath, "That was great."...  ...''...at least it''s not on my top...''... '
						act 'Lick it':
							cls
							minut +=2
							spafinloc = 12
							gs 'cum_manage'
							gs 'stat'
							'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/virgin0.mp4"></video></center>'
							'You decide to lick a bit of the white liquid off your hand before it dry '
							act 'Leave':  gt $locM, $locM_arg
						end
					end
					act 'Leave':  gt $locM, $locM_arg
				end
			end
		end
		act 'Stop':
			cls
			gs 'arousal', 'end'
			gs 'stat'
			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
			'You let go of him, wondering what possessed you to grab some stranger''s dick in the first place. You quickly leave the stall, you can hear the guy. "Hey why did you stop?... Hello? Are you still there? What the fuck!"'
			act 'Quickly get out': gt $locM, $locM_arg
		end
	end
end

if $ARGS[0] = 'not_alone':

	*clr & cla
	gs 'arousal', 'foreplay', 5, 'unknown'
	gs 'stat'
	'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/hj/vhj0.mp4"></video></center>'
	'You start stroking the man feeling the power you have on him; you begin with no mercy and soon the man ask you to go easy..."...Hey hey hey...it''s delicate!..."'

	act 'Lube it':
		*clr & cla
		gs 'arousal', 'bj', 5, 'unknown'
		gs 'stat'
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/kru/aj/a0.mp4"></video></center>'
		'Overwelmed by your sensations you don''t care anymore; not wanting to lose this shaft you decide to give him a little help; you glance his tip and put the man''s member in your mouth..."Happy?..." ....The man doesn''t answer but his body does...'
		act 'Keep stroking':
			*clr & cla
			gs 'arousal', 'foreplay', 5, 'unknown'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/hj/vhj2.mp4"></video></center>'
			'..."Shit baby, you are good at this."... Excited by the man''s scent and situation you start to pinch your nipples and return to stroke him...'
			wait 4000
			act 'It starts to be dry again...':
				*clr & cla
				gs 'arousal', 'bj', 5, 'unknown'
				gs 'stat'
				'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/kru/aj/a3.mp4"></video></center>'
				'You take again the man''s member in your mouth and with your free hand you start touching your crotch... . You bob your head up and down, blowing him while your soaked pussy start to drip..."...Keep going i''m near..."'
				act '"Do not dare!"':
					*clr & cla
					gs 'arousal', 'foreplay', 5, 'unknown'
					gs 'stat'
					'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/kru/aj/a2.mp4"></video></center>'
					'You have not finished with your pussy and for sure you don''t want to leave unsatisfied... . You return to jerk the man, who''s a little disappointed..."...Shit girl...why you stop?...". You don''t care and keep to play with your kitten till you had enough; he has nothing to be disappointed: his hard cock is the prove he like it...'
					act 'Show your skill':
						*clr & cla
						gs 'arousal', 'bj', 2, 'unknown'
						gs 'stat'
						'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/bj/vbjpassion0.mp4"></video></center>'
						'...but you crave for his cock right now, and you know what to do. You take his balls in your mouth and like a pro you lick all the lengh of his shaft finishing with his tips wrapped by your lips. "...That''s ... that''s ....owww...don''t stop don''t stop...owwww uuuuhhh!....that''s it!"'
						act 'Work your money':
							*clr & cla
							gs 'arousal', 'bj', 3, 'unknown'
							gs 'stat'
							'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/bj/vbjmast6.mp4"></video></center>'
							'Time to put and end on this...of course your pussy need attention too...'
							wait 5000
							'..."...Anf anf ...i''m cuminggghh!!!!..."...'
							act '...':
								*clr & cla
								spafinloc = 13
								spafinloc = 12
								spafinloc = 11
								money += 100
								minut +=5
								new_gh_whore = 2
								gs 'arousal', 'bj', 2, 'unknown'
								gs 'cum_manage'
								gs 'stat'
								'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vswa0.mp4"></video></center>'
								'You made a great work, he discharge his load almost everywhere; you try to catch it with your mouth but you cannot avoid some spurts here and there. "UUuughhh!!!! Shit!!!...these are the best rubles i spent in my life."... ''...mmm ... tasty...''... . "Here take this i want you to have a bonus...you really earned it." The man slipped another 100 rubles into the hole that you let fall into the floor...you still have something in your hand.... "...Emmh...you can left the grip now..."'
								wait 3000
								act 'Leave':  gt $locM, $locM_arg
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'blowjob':
	cla
	*clr
	guy += 1
	gloryhole += 1
	pcs_throat += 1
	gs 'mod_iwhore_dincollect' , 'prezik'
	gs 'arousal', 'bj', 5, 'unknown'
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/bj/bj'+rand(0,6)+'.jpg"></center>'
	'You wrap your lips around his dick and take his <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock in your mouth and start to suck it, you suck the cock enthusiastically.'

	if stat['vaginal'] > 0 or stat['anal'] > 0:act 'Undress':gt 'mod_iwhore_pbath', 'ghsex'
	act 'Continue to Suck':
		cla
		*clr
		gs 'arousal', 'bj', 5, 'unknown'
		gs 'stat'
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/bj/vbj'+rand(0,30)+'.mp4"></video></center>'
		'You suck on his dick, bobbing your head, sometimes using your hands to stroke his shaft at the same time, other times your hands massage his balls. Before to long you hear the guy moan in pleasure, "I''m coming."'
		act 'Swallow':
			cls
			gs 'arousal', 'end'
			swallow += 1
			spafinloc = 12
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vswa'+rand(0,29)+'.mp4"></video></center>'
			'Despite what he says you keep sucking his dick, you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
			act 'Get up':  gt $locM, $locM_arg
		end
		act 'Step back':
			cls
			gs 'arousal', 'end'
			spafinloc = 11
			facial += 1
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vfacial'+rand(0,6)+'.mp4"></video></center>'
			'You pull your mouth off his dick but keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
			act 'Get up':  gt $locM, $locM_arg
		end
	end
end

if $ARGS[0] = 'jerkoff':
	cla
	*clr
	guy += 1
	gs 'arousal', 'foreplay', 5, 'unknown'
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/hj/hj'+rand(2,8)+'.jpg"></center>'
	'You spit on your hand and wrap it around his <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock; you keep the peace and start to feel his throbbing...'

	if stat['vaginal'] > 0 or stat['anal'] > 0:act 'Undress':gt 'mod_iwhore_pbath', 'ghsex'
	act 'Continue to jerk':
		cla
		*clr
		gs 'arousal', 'foreplay', 5, 'unknown'
		gs 'stat'
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/hj/vhj'+rand(0,12)+'.mp4"></video></center>'
		'Your hands continue to stroke his shaft; some times your hands massage his balls, and you try to catch the moment the man reach his climax. Before to long you hear the guy moan in pleasure, "I''m coming."'
		act 'Point it to your face':
			cls
			gs 'arousal', 'end'
			spafinloc = 11
			facial += 1
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vfacial'+rand(0,6)+'.mp4"></video></center>'
			'You keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
			act 'Get up':  gt $locM, $locM_arg
		end
		act 'Step back':
			cls
			gs 'arousal', 'end'
			spafinloc = 13
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/hand'+rand(0,1)+'.mp4"></video></center>'
			'You keep jerking him off, shortly later, hot spurts of cum start flying, the remnants slowly drip all over your hand.'
			act 'Get up':  gt $locM, $locM_arg
		end
	end

	act 'Blow him':
		cla
		*clr
		gs 'mod_iwhore_dincollect' , 'prezik'
		gs 'arousal', 'bj', 5, 'unknown'
		gs 'stat'
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/bj/vbj'+rand(0,30)+'.mp4"></video></center>'
		'You decide that you want to taste the man and start sucking on his dick, bobbing your head, sometimes using your hands to stroke his shaft at the same time, other times your hands massage his balls. Before to long you hear the guy moan in pleasure, "I''m coming."'
		act 'Swallow':
			cls
			gs 'arousal', 'end'
			swallow += 1
			spafinloc = 12
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vswa'+rand(0,29)+'.mp4"></video></center>'
			'Despite what he says you keep sucking his dick, you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
			act 'Get up':  gt $locM, $locM_arg
		end
		act 'Step back':
			cls
			gs 'arousal', 'end'
			spafinloc = 11
			facial += 1
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vfacial'+rand(0,6)+'.mp4"></video></center>'
			'You pull your mouth off his dick but keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
			act 'Get up':  gt $locM, $locM_arg
		end
	end
end

if $ARGS[0] = 'mast_bj':
	cla
	*clr
	guy += 1
	gloryhole += 1
	pcs_throat += 1
	gs 'mod_iwhore_dincollect' , 'prezik'
	gs 'arousal', 'bj', 5, 'unknown'
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/bj/bj'+rand(0,8)+'.jpg"></center>'
	'You wrap your lips around his dick and take his <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock in your mouth and start to suck it, you suck the cock enthusiastically.'

	if stat['vaginal'] > 0 or stat['anal'] > 0:act 'Undress':gt 'mod_iwhore_pbath', 'ghsex'
	act 'Continue to Suck':
		cla
		*clr
		gs 'arousal', 'bj', 5, 'unknown'
		gs 'stat'
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/bj/vbjmast'+rand(0,6)+'.mp4"></video></center>'
		'You suck on his dick, bobbing your head, sometimes using your hands to stroke his shaft at the same time, other times your hands massage his balls. Before to long you hear the guy moan in pleasure, "I''m coming."'
		act 'Swallow':
			cls
			gs 'arousal', 'end'
			swallow += 1
			spafinloc = 12
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vswa'+rand(0,29)+'.mp4"></video></center>'
			'Despite what he says you keep sucking his dick, you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
			act 'Get up':  gt $locM, $locM_arg
		end
		act 'Step back':
			cls
			gs 'arousal', 'end'
			spafinloc = 11
			facial += 1
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vfacial'+rand(0,6)+'.mp4"></video></center>'
			'You pull your mouth off his dick but keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
			act 'Get up':  gt $locM, $locM_arg
		end
	end
end

if $ARGS[0] = 'mast_hj':
	cla
	*clr
	guy += 1
	gs 'arousal', 'foreplay', 5, 'unknown'
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/hj/hjmast'+rand(0,6)+'.jpg"></center>'
	'You spit on your hand and wrap it around his <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock; you keep the peace and start to feel his throbbing...'


	if stat['vaginal'] > 0 or stat['anal'] > 0:act 'Undress':gt 'mod_iwhore_pbath', 'ghsex'
	act 'Continue to jerk':
		cla
		*clr
		gs 'arousal', 'foreplay', 5, 'unknown'
		gs 'stat'
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/hj/vhjmast'+rand(0,2)+'.mp4"></video></center>'
		'Your hands continue to stroke his shaft; some times your hands massage his balls, and you try to catch the moment the man reach his climax. Before to long you hear the guy moan in pleasure, "I''m coming."'
		act 'Point it to your face':
			cls
			gs 'arousal', 'end'
			spafinloc = 11
			facial += 1
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vfacial'+rand(0,6)+'.mp4"></video></center>'
			'You keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
			act 'Get up':  gt $locM, $locM_arg
		end
		act 'Step back':
			cls
			gs 'arousal', 'end'
			spafinloc = 13
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/hand'+rand(0,1)+'.mp4"></video></center>'
			'You keep jerking him off, shortly later, hot spurts of cum start flying, the remnants slowly drip all over your hand.'
			act 'Get up':  gt $locM, $locM_arg
		end
	end

	act 'Blow him':
		cla
		*clr
		gs 'mod_iwhore_dincollect' , 'prezik'
		gs 'arousal', 'bj', 5, 'unknown'
		gs 'stat'
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/bj/vbj'+rand(0,30)+'.mp4"></video></center>'
		'You decide that you want to taste the man and start sucking on his dick, bobbing your head, sometimes using your hands to stroke his shaft at the same time, other times your hands massage his balls. Before to long you hear the guy moan in pleasure, "I''m coming."'
		act 'Swallow':
			cls
			gs 'arousal', 'end'
			swallow += 1
			spafinloc = 12
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vswa'+rand(0,29)+'.mp4"></video></center>'
			'Despite what he says you keep sucking his dick, you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
			act 'Get up':  gt $locM, $locM_arg
		end
		act 'Step back':
			cls
			gs 'arousal', 'end'
			spafinloc = 11
			facial += 1
			gs 'cum_manage'
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vfacial'+rand(0,6)+'.mp4"></video></center>'
			'You pull your mouth off his dick but keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
			act 'Get up':  gt $locM, $locM_arg
		end
	end
end

if $ARGS[0] = 'ghsex':
	cls
	gs 'arousal', 'hj', 5, 'unknown'
	gs 'stat'
	'<center><b><font color="maroon">Stall</font></b></center>'
	if rand (0,9) = 9:
		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghundress.mp4"></video></center>'
	else
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/undress'+rand(0,7)+'.mp4"></video></center>'
	end
	'You let go of him and quickly undress, once you are naked you start stroking him again while you line yourself up with his dick. You badly want to fuck him.'

	if stat['anal'] > 0:
		act 'Ass':gt 'mod_iwhore_pbath', 'anal'
	end
	if stat['vaginal'] > 0:
		act 'Pussy':gt 'mod_iwhore_pbath', 'pussy'
	end
end

if $ARGS[0] = 'anal':
	cla
	*clr
	gs 'arousal', 'masturbate', 5, 'unknown', 'sub'
	gs 'arousal', 'anal', 5, 'unknown', 'sub'
	minut += 5
	gs 'stat'
	if rand (0,16) = 16:
		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghintoass.mp4"></video></center>'
	else
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/insertion/vanal'+rand(0,14)+'.mp4"></video></center>'
	end
	'You rub your wet pussy and get your fingers nice and wet and then rub it on your asshole, you do the same to his dick, then you guide his <<npc_dick[$npclastgenerated]>>cm <<$npc_thdick[$npclastgenerated]>> cock into your ass. You feel his dick enter your tight ass, feelings of pain and pleasure rush through you.'

	act 'Keep Going':
		cls
		gs 'stat'
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/anal/vanal'+rand(0,38)+'.mp4"></video></center>'
		if pcs_ass < 10:
			pcs_ass += 2
			agape = 2
			'The pain doesn''t fade and instead it starts to hurt worse after a while and the pleasure starts to fade. You fuck his dick with your ass, at first taking him deeper and deeper, as you get faster and faster. As the pleasure fades and the pain gets worse you slow down and don''t take him as deep. you start to rub your clit to help with the sensation of pleasure. You consider stopping as the pain gets worse, but you can tell by the throbbing of his dick and ragged breathing he is about to cum and decided to keep it up so he can finish.'
		elseif pcs_ass < 20:
			pcs_ass += 1
			agape = 1
			'The pain fades slowly and soon all you feel pleasure. You fuck his dick with your ass, taking him deeper and deeper, as you get faster and faster, you start to rub your clit as you feel yourself getting close to climax. You can tell by the throbbing of his dick and ragged breathing he is about to cum.'
		else
			pcs_ass += 1
			'The pain fades quickly and soon all you feel pleasure. You fuck his dick with your ass, taking him deeper and deeper, as you get faster and faster, you start to rub your clit as you feel yourself getting close to climax. You can tell by the throbbing of his dick and ragged breathing he is about to cum.'
			gs 'arousal', 'anal', 5, 'unknown', 'sub'
			gs 'arousal', 'end'
			gs 'stat'
		end

		act 'Let him cum in your ass':
			cls
			spafinloc = 3
			gs 'cum_manage'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/anal/vanal'+rand(0,5)+'.mp4"></video></center>'
			'You feel his dick throb as he shoots his load of sperm deep in your ass, filling it up. When you pull your ass off his dick, you feel the hot sperm spilling out of your gaping asshole.'
			gs 'arousal', 'anal', 10, 'unknown', 'sub'
			gs 'arousal', 'end'
			gs 'stat'

			act 'Get up':  gt $locM, $locM_arg
		end
		act 'Let him cum all over your ass':
			cls
			spafinloc = 4
			gs 'cum_manage'
			if rand (0,1) = 1:
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ghcumonass.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/anal/butt0.jpg"></center>'
			end
			'You pull your ass away, feeling his cock slip out of your asshole, just as you feel hot splashing of cum landing on your butt, coating your cheeks and running down the crack of your ass.'
			gs 'arousal', 'anal', 10, 'unknown', 'sub'
			gs 'arousal', 'end'
			gs 'stat'

			act 'Get up':  gt $locM, $locM_arg
		end
		act 'Turn around and kneel...':
			*clr & cla
			gs 'stat'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/atm'+rand(0,2)+'.mp4"></video></center>'
			'You pop out the man''s dick from your asshole and immediately squat in front of his manhood'
			act 'Let him cum in your mouth':
				cls
				spafinloc = 12
				swallow += 1
				gs 'cum_manage'
				'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vswa'+rand(0,29)+'.mp4"></video></center>'
				'Once down on your knees you take his dick into your mouth and start sucking him, tasting your own ass on his dick. But you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
				gs 'arousal', 'bj', 10, 'unknown'
				gs 'arousal', 'end'
				gs 'stat'

				act 'Get up':  gt $locM, $locM_arg
			end
			act 'Let him cum on your face':
				cls
				spafinloc = 11
				facial += 1
				gs 'cum_manage'
				'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vfacial'+rand(0,6)+'.mp4"></video></center>'
				'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
				gs 'arousal', 'hj', 10, 'unknown'
				gs 'arousal', 'end'
				gs 'stat'

				act 'Get up':  gt $locM, $locM_arg
			end
		end
		act 'Stop':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/analpain.jpg"></center>'
			'The pain gets to be to much and and you can''t take it anymore, on the verge of tears you stop and pull your ass off his dick. You quickly get dressed and leave, you wonder if it was supposed to hurt that much. You can hear the guy yelling at you for having stopped before he finished.'
			gs 'arousal', 'end'
			gs 'stat'

			act 'Leave': gt $locM, $locM_arg
		end
	end
end


if $ARGS[0] = 'pussy':
	cls
	gs 'stat'
	gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
	gs 'stat'
	if rand (0,5) = 5:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/vag/vag'+rand(0,4)+'.jpg"></center>'
	else
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/insertion/vvag'+rand(0,2)+'.mp4"></video></center>'
	end
	'You turn around and back up to the hole, you use one hand to guide his dick into your pussy. The <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock slides easily into your wet pussy, causing you to moan in pleasure as you move your hips back and forth. You start humping his dick with fast movements, taking the full length of him balls deep into you, which causes him to moan loudly. After several minutes, you hear him on the other side of the wall yell out, "I''m gonna come."'

	if protect ! 1:
		act 'Allow him to cum inside':
			cls
			spafinloc = 0
			gs 'cum_manage'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/vag/vvag'+rand(0,9)+'.mp4"></video></center>'
			'Instead of pulling away, you moan "Inside me, please," and push yourself hard against the opening in the wall. You feel his hot sperm fill your pussy in spurt after spurt. When you finally pull yourself off him, you can feel the sperm leaking out of your pussy.'
			gs 'cuminsidereact', 'an unknown guy from the gloryhole'
			gs 'arousal', 'vaginal', 10, 'unknown'
			gs 'arousal', 'end'
			gs 'stat'

			act 'Get dressed':  gt $locM, $locM_arg
		end
		act 'Splat your pussy':
			cls
			spafinloc = 14
			spafinloc = 1
			gs 'cum_manage'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/vag/vvagout'+rand(0,4)+'.mp4"></video></center>'
			'You push yourself hard against the opening in the wall one last time before pulling him out. You feel his hot jizz splattering on your pussy spurt after spurt...you wonder if this is a waste...'
			gs 'arousal', 'vaginal', 10, 'unknown'
			gs 'arousal', 'end'
			gs 'stat'

			act 'Get dressed':  gt $locM, $locM_arg
		end
	else
		act 'Let him end':
			cla
			*clr
			'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/vag/vag'+rand(0,4)+'.jpg"></center>'
			if sexcontra = 4:
				spafinloc = 0
				gs 'cum_manage'
				gs 'cuminsidereact', 'an unknown guy from the gloryhole'
				gs 'arousal', 'vaginal', 10, 'unknown'
				gs 'arousal', 'end'
				gs 'stat'
				'You still are in extasy... <<$boydesc>> look at his dick and think, "Well it happens..."...it take some time to you to realize his cum is seeping into your pussy...'
			elseif sexcontra = 5:
				spafinloc = 0
				gs 'cum_manage'
				gs 'cuminsidereact', 'an unknown guy from the gloryhole'
				gs 'arousal', 'vaginal', 10, 'unknown'
				gs 'arousal', 'end'
				gs 'stat'
				'You still are in extasy... <<$boydesc>> look at his dick and think, "What the...whatever.."...it take some time to you to realize his cock has no condom on it while you start to feel a slimy liquid sensation inside your cunt.'
			else
				gs 'arousal', 'vaginal', 10, 'unknown'
				gs 'arousal', 'end'
				gs 'stat'
				'You still are in extasy...<<$boydesc>> groaned and you realized that he came in the condom... . You feel the heat through the rubber, and your pussy start to clench. "Hey...leave the grip...you''ll vacuum the condom into your pussy if you continue..."'
			end
			sexcontra = 0
			protect = 0
			act 'Get dressed':  gt $locM, $locM_arg
		end
	end

	act 'Quickly turn around and get on your knees':
		cla
		*clr
		act 'Let him cum in your mouth':
			cls
			spafinloc = 12
			swallow += 1
			gs 'cum_manage'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vswa'+rand(0,29)+'.mp4"></video></center>'
			if protect ! 1:
				'Once down on your knees you take his dick into your mouth and start sucking him. You are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
			else
				'Once down on your knees you pull out his condom and take his dick into your mouth and start sucking him. You are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
			end

			gs 'arousal', 'bj', 10, 'unknown'
			gs 'arousal', 'end'
			gs 'stat'
			act 'Get dressed':  gt $locM, $locM_arg
		end
		act 'Let him cum on your face':
			cls
			spafinloc = 11
			facial += 1
			gs 'cum_manage'
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vfacial'+rand(0,6)+'.mp4"></video></center>'
			if protect ! 1:
				'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
			else
				'You pull out his condom and put your face near his dick jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
			end

			gs 'arousal', 'hj', 10, 'unknown'
			gs 'arousal', 'end'
			gs 'stat'
			act 'Get dressed':  gt $locM, $locM_arg
		end
	end
end


if $ARGS[0] = 'rape':
	cla
	*clr
	dick = rand(9, 25)
	if rand(1, 20) > 12:
		gs 'npcgeneratec', 0, 'rapist', rand(19,45)
		gs 'boyStat', $npclastgenerated
		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape3.mp4"></video></center>'
		'Just as you are leaving the women''s restroom a naked man storms out of the men''s restroom and grabs you by the hair and drags you inside the men''s room. He rips off your top and forces you down on your knees, shoving his dick in your mouth, forcing you to suck his dick.'
		act 'Continue':
			cls
			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape4.mp4"></video></center>'
			'You bite down his dick, which makes him pull his dick out of your mouth. "Fine you little fucking cunt, we''ll do this the hard way." He lifts you up and forces you between two urinals with your face up against the wall. He roughly shoves his cock in your ass, the only lubrication is the bit of your saliva still on his dick. It feels like he is ripping your ass open, you cry and scream. He just jackhammers your ass balls deep, while holding you by the throat.'
			gs 'arousal', 'anal', 10, 'unknown', 'sub', 'rough'
			gs 'stat'
			act 'Continue':
				cls
				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape1.mp4"></video></center>'
				'As you scream he reaches up and clamps a hand over your mouth to muffle your screams, he continues you pound your ass balls deep with his dick. Not relenting no matter how much you struggle or cry. "You think it''s funny bitch to steal a man''s hard earned money, well you won''t think it is so funny after I am done with you. I''m going to fuck your ass till it bleeds like your cunt."'
				'He keeps ripping your ass up with his dick, the pain is unbearable, but there is nothing you can do about it. You really wish you hadn''t taken his money and kept it.'
				gs 'arousal', 'anal', 10, 'unknown', 'sub', 'rough'
				gs 'stat'
				act 'Continue':
					cls
					spafinloc = 12
					rape += 1
					gs 'cum_manage'
					if pcs_ass < 10:
						pcs_ass += 3 & agape = 3
					elseif pcs_ass < 20:
						pcs_ass += 2 & agape = 3
					else
						pcs_ass += 2 & agape = 2 & pcs_horny += RAND(20,40)
					end
					'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/cumspit.mp4"></video></center>'
					'Finally he pulls the dick out of your ass and forces you back to your knees, he shoves his dick back in your mouth and you can taste your own ass on his dick. He says to you. "You fucking bite me again bitch and I will call everyone I know and we will train fuck your ass for days." Afraid he is serious you suck his dick until he finally shoots his load in your mouth.'
					gs 'arousal', 'bj', 10, 'unknown', 'sub', 'rough'
					gs 'arousal', 'end'
					gs 'stat'
					'With that he lets go of you and walks off in disgust.'
					act '...recover... .':
						cla
						*clr
						money = 0
						'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/rape/zend1.jpg"></center>'
						'As the man finish he turns to you..."Do not try anything stupid. Is that clear? IS THAT CLEAR???" You nod in fear, and calling the police is not an option... . "Good slut... ." You can do nothing when the man pick your purse and robber your money; your only hope is that''s the end. Finally he straight his jacket and made him way to the exit leaving you on the floor in your own piss that''s starting to flow. You take some time to recover, but it seems you are safe...'
						act '...': gt $loc, $loc_arg
					end
				end
			end
		end
!	elseif hour >= 20 and hour <= 23:
		!To write: the man lock you in the bath till the next day. At the 7:00 the service comes to clean the bath...
!		if music_on = 1:
!			$track_loop = 'sound/komb.mp3'
!			volume = 50
!			music_loop = 1
!			pl '<a href="exec: music_on = 0 & gt $loc">Turn off the music</a>'
!		else
!			music_loop = 0
!			close all
!			pl '<a href="exec: music_on = 1 & gt $loc">Play music</a>'
!		end
!		cla
!		*clr
!		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_yaho.jpg"></center>'
!		'You run into the crowd and start dancing to blend in. You hear a man yell out, "Where''s that bitch that took my money?" He storms off and you feel like it''s your lucky day today.'
!		act 'Dance':
!			cla
!			*clr
!			minut +=10
!			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance.jpg"></center>'
!			'You continue to dance until the man has left.'
!			act 'Stop': gt 'gdkin'
!		end
	else
		cla
		*clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/gorodok.jpg"></center>'
		'You run from the public restroom and don''t stop until you are back in the residential area'
		act 'Catch your breath':
			minut += 5
			gt 'pav_residential'
		end
	end
end

!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!PEE!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!
!gs 'din_van', 'pblc_pee'-----gs 'din_van', 'pblc_pee_end'




if $ARGS[0] = 'pblc_pee_end':
	act 'Finish and wipe':
		*clr
		cla
		'<center><img <<$set_imgh>> src="images/pc/pee/wiping/' + rand(1,9) + '.jpg"></center>'
		rand_pee = rand(0,6)
		if rand_pee = 0:
			'Gathering some toilet paper from the roll, you reach down wipe your vagina clean from the last drops of pee leaking from you before dropping the paper into the toilet.'
		elseif rand_pee = 1:
			'Wrapping some toilet paper around your hand, you reach around and give your pussy and ass a quick wipe before letting the paper drop into the bowl.'
		elseif rand_pee = 2:
			'You take a wad of toilet paper in your fist before using it to gently pay your vagina dry. You toss the used material in the toilet and flush it down.'
		elseif rand_pee = 3:
			'You gather some of the rough, cheap toilet paper and use it to lightly wipe yourself, not wanting to irritate your sensitive skin. You drop it into the dirty toilet and use your foot to push the handle in order to flush.'
		elseif rand_pee = 4:
			'Looking over for the roll of toilet paper see that the roll has been used up. Noticing that the stall next to you seems occupied, you politely ask the stranger to help you out. The stranger chuckles a bit before kindly handing you a wad under the stall wall, which you happily use.'
		else
			*clr
			'<center><img <<$set_imgh>> src="images/pc/pee/wiping/no' + rand(1,6) + '.jpg"></center>'
			'Reaching out for toilet paper you sigh as you notice that the roll is empty. Annoyed, you wiggle your ass to shake the last few drops from your lady bits before pulling up your panties and walking out of the stall.'
		end

		act 'Finish':gt $loc, $loc_arg
	end
end
--- mod_iwhore_pbath ---------------------------------