glife/locations/pav_pool_events.qsrc

# pav_pool_events

!! 2023/09/13
!! Based on the Mod Swimlessons by Darcanlos
!! Rewritten by Vengeance
!! Code updated by Anjuna


	!!=============================================!!
	!!                                             !!
	!!             Support Functions               !!
	!!                                             !!
	!!=============================================!!


if $ARGS[0]= 'timedesc':
	if hour >= 8 and hour < 10:
		'The pool is almost empty given how early in the morning it is.'
	elseif hour >= 10 and hour < 12:
		'The pool is mostly used by families with children and older people at this time.'
	elseif hour >= 12 and hour < 18:
		'The pool is crowded with all kinds of people. It''s difficult to move around.'
	elseif hour >= 18 and hour < 20:
		'Given how late it''s getting, only a few adults are in the pool right now.'
	else
		'It''s rather late now and you''re the only person in the pool, which means you can enjoy it all to yourself. The silence is very relaxing.'
	end
end




	!!=============================================!!
	!!                                             !!
	!!                Store Events                 !!
	!!                                             !!
	!!=============================================!!


if $ARGS[0] = 'store_simsuit_buy':
	minut += 4
	gs 'stat'
	'<center><h3>Pool Store</h3></center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/storeclerk.jpg"></center>'
	'The store clerk looks bored and doesn''t even seem to notice you until you speak to him. You ask for some swimwear, but he just looks directly into your eyes without saying anything. The silence feels extremely intimidating, but he finally responds after what seems like an eternity.'
	'"I don''t get much stock delivered here, so I only have this. It''s yours for 1200 <b>₽</b>." He shows you a skimpy polka dot bikini that barely covers anything. It isn''t pretty, but there aren''t any other options.'

	if money >= 1200:
		act 'Buy it':
			*clr & cla
			minut += 2
			gs 'stat'
			'<center><h3>Pool Store</h3></center>'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/storeclerk.jpg"></center>'
			if pcs_inhib >= 80:
				'The cheap, flimsy bikini looks like it could fall apart at any moment, and is also far too revealing for your taste, but with no other options available, you reluctantly purchase it.'
			else
				'The cheap, flimsy bikini is cheap looks like it could fall apart at any moment, but with no other options available, you reluctantly purchase it.'
			end
			money -= 1200
			gs 'pav_pool_events', 'buy_cheap_swimsuit'
			gs 'stat'

			act 'Leave': gt 'pav_pool', 'entrance'
		end

		act 'Leave': gt 'pav_pool', 'entrance'

	else
		act 'I don''t have enough money':
			*clr & cla
			minut += 1
			gs 'stat'
			'<center><h3>Pool Store</h3></center>'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/storeclerk.jpg"></center>'
			'"Well, how much do you have?" he asks with a wide grin on his face.'
			if money ! 0:
				'You count your money. "I only have <<money>> <b>₽</b>. Do you have anything for that amount?"'
			else
				'Your purse is empty. "Well, I don''t have anything..."'
			end
			*nl
			'"I have a....suggestion. If you let me see you naked, then I''ll give it to you, free of charge..." he says with a perverted smile.'
			'You look at him perplexed, but he just keeps smiling at you.'
			gs 'willpower', 'humiliation', 'self'
			if will_cost > pcs_willpwr:
				act 'Do it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			else
				act 'Do it (<<will_cost>> Willpower)':
					gs 'willpower', 'pay', 'self'
					*clr & cla
					minut += 2
					gs 'stat'
					'<center><h3>Pool Store</h3></center>'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/divider.jpg"></center>'
					'You hide behind the divider and undress. You can see his shadow through the semi-transparent cloth but are unaware that, due to the position of the lights, he can see you quite well.'

					act 'Continue':
						*clr & cla
						minut += 2
						'<center><h3>Pool Store</h3></center>'
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/photo.jpg"></center>'
						'Once you finish stripping down, you slowly come out from behind the divider and he immediately starts taking photos. It looks like quite an expensive camera, and the objectifying shutter sound is very distinctive every time he shoots.'
						'You feel ashamed, and after a short while decide that he''s seen enough and disappear behind the divider again.'
						'You quickly pull your clothes back on and leave with the bikini in hand, not looking back at him. You can feel his creepy stare on the back of your head and pick up your pace.'
						money = 0
						pav_swimpool['storeclerkvisit'] = 1
						gs 'pav_pool_events', 'buy_cheap_swimsuit'
						gs 'stat'

						act 'Leave': gt 'pav_pool', 'entrance'
					end
				end

			end

			act 'Refuse and leave': gt 'pav_pool', 'entrance'
		end
	end
end



if $ARGS[0] = 'buy_cheap_swimsuit':
	!if swimwear[145] = 0: swimwear[145] = 1 & swimwearH[145] = 40 & swimwearB[145] = pcs_hips & swimwearS[145] = 0
	!!scandalicious bikini 46
	!!if allure_bikinis[125] = 0: allure_bikinis[125] = 1 & allure_bikinis_h[125] = 40 & allure_bikinis_b[125] = pcs_hips & allure_bikinis_s[125] = 0
	if scandalicious_bikinis[46] = 0:
		scandalicious_bikinis[46]   = 1
		scandalicious_bikinis_h[46] = 40
		scandalicious_bikinis_b[46] = pcs_hips
		scandalicious_bikinis_s[46] = 0
	end
end




	!!=============================================!!
	!!                                             !!
	!!               Locker Events                 !!
	!!                                             !!
	!!=============================================!!


if $ARGS[0] = 'naked_mirror':
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/nakedcover.jpg"></center>'
	'You''re standing naked in front of the mirror when you hear a noise behind you.'
	pcs_mood -= 2
	gs 'stat'

	temp_rand = rand(1,5)
	if temp_rand = 1:
		'You turn around and find a girl studying you from head to toe. "Sorry!" she squeaks before quickly leaving.'
	elseif temp_rand = 2:
		'You turn around and find a man studying you from head to toe. "Got the wrong locker room, but it sure was worth it!" he says before leaving with a smile.'
	elseif temp_rand = 3:
		'You turn around and find a man savoring your body with his eyes. "Nice... It sure is worth it to come in here from time to time," he says before leaving.'
	elseif temp_rand = 4:
		'You turn around and find the janitor drooling at your body with hungry passion in his eyes. "I''m really sorry! I didn''t think there was anybody in here," he says, his face flushed red as he turns around and leaves.'
	else
		'You turn around and find a boy pointing a camera right at your naked body as your breasts and groin are fully exposed. "Got her!" he screams to someone else before running out. You cover yourself and wait until you''re alone again, but they got a perfect view of you before you could react.'
	end

	act 'Continue': gt 'pav_pool', 'mirror', 1
end

if $ARGS[0] = 'naked_locker':
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/nakedcover.jpg"></center>'
	'You''re standing naked in the changing room when you hear a noise behind you.'
	pcs_mood -= 2
	gs 'stat'

	temp_rand = rand(1,5)
	if temp_rand = 1:
		'You turn around and find a girl studying you from head to toe. "Sorry!" she squeaks before quickly leaving.'
	elseif temp_rand = 2:
		'You turn around and find a man studying you from head to toe. "Got the wrong locker room, but it sure was worth it!" he says before leaving with a smile.'
	elseif temp_rand = 3:
		'You turn around and find a man savoring your body with his eyes. "Nice... It sure is worth it to come in here from time to time," he says before leaving.'
	elseif temp_rand = 4:
		'You turn around and find the janitor drooling at your body with hungry passion in his eyes. "I''m really sorry! I didn''t think there was anybody in here," he says, his face flushed red as he turns around and leaves.'
	else
		'You turn around and find a boy pointing a camera right at your naked body as your breasts and groin are fully exposed. "Got her!" he screams to someone else before running out. You cover yourself and wait until you''re alone again, but they got a perfect view of you before you could react.'
	end

	act 'Continue': gt 'pav_pool', 'lockerfemale', 1
end


if $ARGS[0] = 'locker_clothed_to_nude':
	menu_off = 1
	minut += 3
	gs 'stat'

	if rand(0, 9) = 0:
		if pav_swimpool['storeclerkvisit'] >= 1:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/photoclothing.jpg"></center>'
			'As you take your clothes off, you are startled when you think you hear a camera click, as if someone was taking photos, but you don''t see anything.'
			'You''re certain that it sounded like that creepy store clerk''s camera, but you can''t see anything and just tell yourself that you''re being paranoid and continue stripping.'
			pav_swimpool['storeclerkhiddenphotos'] += 1
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/spychange<<rand(1,2)>>.jpg"></center>'
			'As you take your clothes off, you can''t shake the feeling that you''re being watched, but you don''t see anything.'
		end
	else
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/change.jpg"></center>'
		'You take your clothes off.'
	end

	act 'Continue': gt 'pav_pool', 'lockerfemale'
end

if $ARGS[0] = 'locker_swim_to_nude':
	menu_off = 1
	minut += 1
	!!stage = 1
	gs 'stat'

	if rand(0, 9) = 0:
		if pav_swimpool['storeclerkvisit'] >= 1:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/photoclothing.jpg"></center>'
			'As you take your swimwear off, you are startled when you think you hear a camera click, as if someone was taking photos, but you don''t see anything.'
			'You''re certain that it sounded like that creepy store clerk''s camera, but you can''t see anything and just tell yourself that you''re being paranoid and continue stripping.'
			pav_swimpool['storeclerkhiddenphotos'] += 1
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/spychangebikini.jpg"></center>'
			'As you take your swimwear off, you can''t shake the feeling that you''re being watched, but you don''t see anything.'
		end
	else
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/change.jpg"></center>'
		'You take your swimwear off.'
	end

	act 'Continue': gt 'pav_pool', 'lockerfemale'
end

if $ARGS[0] = 'locker_nude_to_clothed':
	menu_off = 1
	minut += 5
	gs 'stat'

	if rand(0, 9) = 0:
		if pav_swimpool['storeclerkvisit'] >= 1:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/photoclothing.jpg"></center>'
			'As you change back into your clothes, you are startled when you think you hear a camera click, as if someone was taking photos, but you don''t see anything.'
			'You''re certain that it sounded like that creepy store clerk''s camera, but as you don''t see anything, you tell yourself you''re just being paranoid and continue getting dressed.'
			pav_swimpool['storeclerkhiddenphotos'] += 1
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/spychange<<rand(1,2)>>.jpg"></center>'
			'As you change back into your clothes, you can''t shake the feeling that you''re being watched, but you don''t see anything.'
		end
	else
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/change.jpg"></center>'
		'You change back into your clothes.'
	end

	act 'Continue': gt 'pav_pool', 'lockerfemale'
end


if $ARGS[0] = 'locker_nude_to_swim':
	menu_off = 1
	minut += 2

	if rand(0, 9)=0:
		if pav_swimpool['storeclerkvisit'] >= 1:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/photoclothing.jpg"></center>'
			'As you put your swimwear on, you are startled when you think you hear a camera click, as if someone was taking photos, but you don''t see anything.'
			'You''re certain that it sounded like that creepy store clerk''s camera, but you can''t see anything and quickly continue dressing yourself.'
			pav_swimpool['storeclerkhiddenphotos'] += 1
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/spychangebikini.jpg"></center>'
			'As you put your swimwear on, you can''t shake the feeling that you''re being watched, but you don''t see anything.'
		end
	else
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/change.jpg"></center>'
		'You put your swimwear on.'
	end

	act 'Continue': gt 'pav_pool', 'lockerfemale'
end


if $ARGS[0] = 'locker_clothed_to_swim':
	menu_off = 1
	minut += 5
	gs 'stat'

	temp_rand = rand(0, 9)
	! Clothed to nude
	if temp_rand = 0:
		if pav_swimpool['storeclerkvisit'] >= 1:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/photoclothing.jpg"></center>'
			'As you take your clothes off, you are startled when you think you hear a camera click, as if someone was taking photos, but you don''t see anything.'
			'You''re certain that it sounded like that creepy store clerk''s camera, but you can''t see anything and just tell yourself that you''re being paranoid and continue getting dressed.'
			pav_swimpool['storeclerkhiddenphotos'] += 1
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/spychange<<rand(1,2)>>.jpg"></center>'
			'As you take your clothes off, you can''t shake the feeling that you''re being watched, you quickly change into your swimwear.'
		end
	! Nude to swim
	elseif temp_rand = 1:
		if pav_swimpool['storeclerkvisit'] >= 1:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/photoclothing.jpg"></center>'
			'As you put your swimwear on, you are startled when you think you hear a camera click, as if someone was taking photos, but you don''t see anything.'
			'You''re certain that it sounded like that creepy store clerk''s camera, but you can''t see anything and quickly continue dressing yourself.'
			pav_swimpool['storeclerkhiddenphotos'] += 1
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/spychangebikini.jpg"></center>'
			'As you put your swimwear on, you can''t shake the feeling that you''re being watched, but you don''t see anything.'
		end
	else
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/change.jpg"></center>'
		'You take your clothes off and change into your swimwear.'
	end

	act 'Continue': gt 'pav_pool', 'lockerfemale'
end


if $ARGS[0] = 'locker_swim_to_clothed':
	menu_off = 1
	minut += 6
	gs 'stat'

	temp_rand = rand(0, 9)
	! Swim to nude
	if temp_rand = 0:
		if pav_swimpool['storeclerkvisit'] >= 1:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/photoclothing.jpg"></center>'
			'As you take your swimwear off, you are startled when you think you hear a camera click, as if someone was taking photos, but you don''t see anything.'
			'You''re certain that it sounded like that creepy store clerk''s camera, but you can''t see anything and just tell yourself that you''re being paranoid and continue getting dressed.'
			pav_swimpool['storeclerkhiddenphotos'] += 1
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/spychangebikini.jpg"></center>'
			'As you take your swimwear off, you can''t shake the feeling that you''re being watched, but you don''t see anything.'
		end

	! Nude to clothed
	elseif temp_rand = 1:
		if pav_swimpool['storeclerkvisit'] >= 1:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/photoclothing.jpg"></center>'
			'As you change back into your clothes, you are startled when you think you hear a camera click, as if someone was taking photos, but you don''t see anything.'
			'You''re certain that it sounded like that creepy store clerk''s camera, but as you don''t see anything, you tell yourself you''re just being paranoid and continue getting dressed.'
			pav_swimpool['storeclerkhiddenphotos'] += 1
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/spychange<<rand(1,2)>>.jpg"></center>'
			'As you change back into your clothes, you can''t shake the feeling that you''re being watched, but you don''t see anything.'
		end
	else
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/change.jpg"></center>'
		'You take your swimwear off and change back into your clothes.'
	end

	act 'Continue': gt 'pav_pool', 'lockerfemale'
end



if $ARGS[0] = 'shower_late':
	if rand(1,2) = 1:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/covershower.jpg"></center>'
		'As you turn off the water, the silence is suddenly broken by a noise behind you. You look back and see an old man with a camera, who is startled at being caught and runs off. He had been filming you during your shower!'
	else
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/covershower.jpg"></center>'
		'As you turn off the water, the silence is suddenly broken by a noise behind you. You look back and see a girl staring at you, who is startled at being caught and runs off. You don''t know how long she was standing there watching you shower.'
	end

	act 'Continue': gt 'pav_pool', 'showerfemale'
end




	!!=============================================!!
	!!                                             !!
	!!                Swim Events                  !!
	!!                                             !!
	!!=============================================!!


if $ARGS[0]= 'relaxedswim':
	minut += 15
	if pcs_sweat > 10: pcs_sweat = 10 + rand(0, 4)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/relaxedswim2.jpg"></center>'
	act 'Continue': gt 'pav_pool', 'poolwater'

	if hour >= 8 and hour < 10:
		'The pool is almost empty, so you enjoy your swim a lot.'
		pcs_mood += 8
	elseif hour >= 10 and hour < 12:
		'The pool is mostly used by families with children and older people at this time. It''s still quiet enough for you to enjoy your swim undisturbed.'
		pcs_mood += 5
		temp_rand = rand(1,10)
		if     temp_rand = 1:
			cla
			act 'Continue': gt 'pav_pool_events', 'kidsplash'

		elseif temp_rand = 2:
			cla
			act 'Continue': gt 'pav_pool_events', 'kidsplashgroup'

		end
	elseif hour >= 12 and hour < 18:
		'The pool is crowded with all kinds of people. It''s noisy and difficult to move around, so swimming is far from peaceful and relaxing.'
		pcs_mood -= 5
		temp_rand = rand(1,15)
		if temp_rand = 1:
			cla
			act 'Continue': gt 'pav_pool_events', 'kidsplash'
		elseif temp_rand = 2:
			cla
			act 'Continue': gt 'pav_pool_events', 'kidsplashgroup'
		elseif temp_rand = 3 and PCloOnePiece = 0:
			cla
			act 'Continue': gt 'pav_pool_events', 'pullstringbottom'
		elseif temp_rand = 4:
			cla
			act 'Continue': gt 'pav_pool_events', 'assgrab'
		elseif temp_rand = 5:
			cla
			act 'Continue': gt 'pav_pool_events', 'assgrabbihand'
		elseif temp_rand = 6:
			cla
			act 'Continue': gt 'pav_pool_events', 'gropedfrombelow'
		end
	elseif hour >= 18 and hour < 21:
		'Given how late in the evening it is, only a few adults are in the water, so you enjoy your swim undisturbed.'
		if rand(1, 15) = 1:
			cla
			act 'Continue': gt 'pav_pool_events', 'late_assault'
		end
	end
end

if $ARGS[0]= 'exerciseswim':
	if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/exerciseswim.jpg"></center>'
	act 'Continue': gt 'pav_pool', 'poolwater'

	if hour >= 8 and hour < 10:
		'The pool is almost empty, so you enjoy your swim a lot.'
		gs 'exercise', 'tier1', 15, 'stren', 'vital'
		fat -= rand(0, 4)
		!!gs 'sweat', 'add', 5
		!!pcs_agil += 1
	elseif hour >= 10 and hour < 12:
		'The pool is mostly used by families with children and older people at this time. You enjoy your swim mostly undisturbed.'
		gs 'exercise', 'tier1', 15, 'stren', 'vital'
		fat -= rand(0, 4)
		!!gs 'sweat', 'add', 5
		!!pcs_agil += 1
	elseif hour >= 12 and hour < 18:
		'The pool is crowded with of all kinds of people. It''s difficult to move around and your attempts at doing exercise fail.'
		minut += 15
		temp_rand = rand(1,13)
		if temp_rand = 2:
			cla
			act 'Continue': gt 'pav_pool_events', 'kidsplash'
		elseif temp_rand = 3:
			cla
			act 'Continue': gt 'pav_pool_events', 'kidsplashgroup'
		elseif temp_rand = 4 and PCloOnePiece = 0:
			cla
			act 'Continue': gt 'pav_pool_events', 'pullstringbottom'
		elseif temp_rand = 5:
			cla
			act 'Continue': gt 'pav_pool_events', 'assgrab'
		elseif temp_rand = 6:
			cla
			act 'Continue': gt 'pav_pool_events', 'assgrabbihand'
		elseif temp_rand = 7:
			cla
			act 'Continue': gt 'pav_pool_events', 'gropedfrombelow'
		end
	elseif hour >= 18 and hour < 21:
		'Given how late it is, only a few adults are in the water, so you enjoy your swim undisturbed.'
		gs 'exercise', 'tier1', 15, 'stren', 'vital'
		fat -= rand(0, 4)
		!!gs 'sweat', 'add', 5
		!!pcs_agil += 1
		if rand(1, 15) = 1:
			cla
			act 'Continue': gt 'pav_pool_events', 'late_assault'
		end
	end
end

if $ARGS[0]= 'dive':
	minut += 5
	if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/dive.jpg"></center>'
	act 'Continue': gt 'pav_pool', 'poolwater'

	if hour >= 8 and hour < 10:
		'The pool is almost empty, so you play under the water undisturbed.'
		pcs_mood += 5
	elseif hour >= 10 and hour < 12:
		'The pool is mostly used by families with children and older people at this time. You enjoy diving and seeing other people underwater with you from time to time.'
		pcs_mood += 5
	elseif hour >= 12 and hour < 18:
		'The pool is crowded with all kinds of people. It''s difficult to move around on the surface, but diving around them is quite fun.'
		pcs_mood += 5
		temp_rand = rand(1,10)
		if temp_rand = 1:
			cla
			act 'Continue': gt 'pav_pool_events', 'divedickout'
		elseif temp_rand = 2:
			cla
			act 'Continue': gt 'pav_pool_events', 'kidsunderwater'
		end
	elseif hour >= 18 and hour < 21:
		'Given how late it is, only a few adults are in the water. You enjoy diving and seeing other people underwater with you from time to time.'
		pcs_mood += 5
		if rand(1, 15) = 1:
			cla
			act 'Continue': gt 'pav_pool_events', 'late_assault'
		end
	end
end

if $ARGS[0]= 'edgepool':
	if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
	minut += 10
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/edgepool4.jpg"></center>'
	act 'Continue': gt 'pav_pool', 'poolwater'

	if hour >= 8 and hour < 10:
		'The pool is almost empty, so you sit by the side of the water undisturbed.'
		pcs_mood += 5
	elseif hour >= 10 and hour < 12:
		'The pool is mostly used by families with children and older people at this time. You enjoy watching the people having fun in the water.'
		pcs_mood += 5
	elseif hour >= 12 and hour < 18:
		'The pool is crowded with all kinds of people. You try to enjoy watching the activity in the water.'
		pcs_mood += 3
		temp_rand = rand(1,10)
		if temp_rand = 1:
			cla
			act 'Continue': gt 'pav_pool_events', 'approachbehind'
		elseif temp_rand = 2 and hour > 20:
			cla
			act 'Continue': gt 'pav_pool_events', 'sideflirt'
		end
	elseif hour >= 18 and hour < 21:
		'Given how late in the evening it is, only a few adults are in the water. You quietly observe them swimming around in the pool.'
		pcs_mood += 5
		if rand(1,5) = 1:
			cla
			act 'Continue': gt 'pav_pool_events', 'sideflirt'
		end
	end
end

if $ARGS[0]= 'relaxedwater':
	if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/relaxedwater1.jpg"></center>'
	act 'Continue': gt 'pav_pool', 'poolwater'

	if hour >= 8 and hour < 10:
		'The pool is almost empty, so you enjoy lying in the water a lot.'
		pcs_mood += 5
	elseif hour >= 10 and hour < 12:
		'The pool is mostly used by families with children and older people at this time. You enjoy lying in the water mostly undisturbed.'
		pcs_mood += 5
		temp_rand = rand(1,10)
		if temp_rand = 1:
			cla
			act 'Continue': gt 'pav_pool_events', 'kidsplash'
		elseif temp_rand = 2:
			cla
			act 'Continue': gt 'pav_pool_events', 'kidsplashgroup'
		end
	elseif hour >= 12 and hour < 18:
		'The pool is crowded with all kinds of people. It''s impossible to relax in the water without someone constantly bumping into you or getting stinging water splashed across your face.'
		pcs_mood -= 5

		temp_rand = rand(1,12)
		if temp_rand = 1:
			cla
			act 'Continue': gt 'pav_pool_events', 'kidsplash'
		elseif temp_rand = 2:
			cla
			act 'Continue': gt 'pav_pool_events', 'kidsplashgroup'
		!{ elseif temp_rand = 3:
			cla
			act 'Continue': gt 'pav_pool_events', 'relaxgropebelow'
		}
		elseif temp_rand = 4 and PCloOnePiece = 0:
			cla
			act 'Continue': gt 'pav_pool_events', 'pullstringbottom'
		end
	elseif hour >= 18 and hour < 21:
		'Given how late in the evening it is, only a few adults are in the pool, so you enjoy lying in the water mostly undisturbed.'
		pcs_mood += 5
		if rand(1, 15) = 1 and pav_swimpool['rape_event'] = 0 and hour > 20:
			cla
			act 'Continue': gt 'pav_pool_events', 'late_assault'
		end
	end
end

if $ARGS[0]= 'feetwater':
	pav_swimpool['disableact'] = 0
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/sitwater.jpg"></center>'
	'You sit at the edge of the pool, enjoying the water around your feet while observing the activity around you.'
	act 'Stand up': gt 'pav_pool', 'pool'
	act 'Slide into the water': gt 'pav_pool', 'poolwater'
	act 'Keep sitting': gt 'pav_pool_events', 'feetwater'

	if hour >= 8 and hour < 10:
		'The pool is almost empty, so you watch the movement of the water and the odd swimmer that passes by from time to time.'
		pcs_mood += 5
		minut += 10
		gs 'stat'
	elseif hour >= 10 and hour < 12:
		'You enjoy watching people having fun in the water.'
		pcs_mood += 5
		minut += 10
		gs 'stat'
	elseif hour >= 12 and hour < 18:
		'The pool is crowded with all kinds of people and sitting here is proving not to be as relaxing as you hoped. You get splashed with water from time to time.'
		pcs_mood -= 1
		temp_rand = rand(1, 10)
		if temp_rand = 1:
			'Some children push you from behind and you fall into the water as they run away snickering loudly.'
			minut += 3
			gs 'stat'
			cla
			act 'Continue': gt 'pav_pool', 'poolwater'
		elseif temp_rand = 2:
			'Some children keep purposefully splashing you with water.'
			pcs_mood -= 1
			minut += 7
			gs 'stat'
		elseif temp_rand = 3:
			'A ball bounces off your head and lands nearby. You throw it back to the apologetic children that threw it.'
			minut += 10
			gs 'stat'
		end
	elseif hour >= 18 and hour < 21:
		'You observe the few people in the pool while swaying your feet in the water.'
		pcs_mood += 5
		minut += 10
		gs 'stat'
	end
end




	!!==============================================!!
	!!                                              !!
	!!            WATER TOP LOST EVENTS             !!
	!!                                              !!
	!!==============================================!!


if $ARGS[0] = 'watertoplost':
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/losttop.jpg"></center>'
	gs 'pav_pool_events', 'timedesc'
	'You are topless in the water, a fact you''re trying to hide.'

	if (hour >= 8 and hour < 12) or (hour >= 18 and hour < 21):
		'You see the few people scattered around the pool looking at you from time to time.'
	elseif hour >= 12 and hour < 18:
		'You could try to reach the edge of the pool, but you would have to get very close to other people. You could also wait and hope that the pool empties a little without calling attention to yourself.'
	end

	act 'Try to reach the edge':
		if hour >= 12 and hour < 18:
			gt 'pav_pool_events', 'tryreachedgenotop'
		else
			minut += 3
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/losttop.jpg"></center>'
			gs 'pav_pool_events', 'timedesc'
			'You reach the edge of the pool and manage to climb out unnoticed before running to the locker room. You can get rid of this bottom since it''s useless now.'
			dynamic $clothingworntype + '[<<clothingwornnumber>>] = 0'
			pav_swimpool['toplost'] = 0
			gs 'clothing', 'strip'
			act 'Continue': gt 'pav_pool', 'lockerfemale'
		end
	end

	act 'Wait around':
		if hour >= 12 and hour < 18:
			temp_rand = rand(1,7)
			if temp_rand <= 2:
				gt 'pav_pool_events', 'WTL_nothinghappens'
			elseif temp_rand = 3:
				gt 'pav_pool_events', 'WTL_mast'
			else
				gt 'pav_pool_events', 'WTL_boystole'
			end
		else
			gt 'pav_pool_events', 'WTL_nothinghappens'
		end
	end
end

if $ARGS[0]= 'WTL_nothinghappens':
	minut += 15
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/losttop.jpg"></center>'
	gs 'pav_pool_events', 'timedesc'
	'You wait around topless in the water for a while. You have to avoid some people from time to time, but you''re left alone.'
	'You notice several people staring at you, but nobody disturbs you.'
	act 'Continue': gt 'pav_pool_events', 'watertoplost'
end

if $ARGS[0]= 'WTL_mast':
	minut += 15
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/assgrab1.jpg"></center>'
	gs 'pav_pool_events', 'timedesc'
	'You''re topless in the water with only your head poking out when you suddenly feel someone behind you start forcefully squeezing your ass.'
	gs 'willpower', 'humiliation', 'self'
	if will_cost > pcs_willpwr:
		act 'Stop it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	else
		act 'Stop it (<<will_cost>> Willpower)':
			gs 'willpower', 'pay', 'self'
			*clr & cla
			gs 'stat'
			if rand(1,100) < 75:
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/stopit.jpg"></center>'
				'You manage to shake them off and move away without looking back.'
				act 'Continue': gt 'pav_pool_events', 'watertoplost'
			else
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/bottomlost.jpg"></center>'
				'You manage to shake them off and attempt to move away, but they tug on your bikini bottom string, undoing the knot.'
				'Struggling to get away from them, it takes you a moment to notice and by then your bikini is almost completely gone.'
				'You manage to grab onto your floating bikini bottom and find some space to redo the knot and put it back on.'
				act 'Continue': gt 'pav_pool_events', 'watertoplost'
			end
		end
	end

	gs 'willpower', 'humiliation', 'self', 'easy'
	if will_cost > pcs_willpwr:
		act 'Flee (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	else
		act 'Flee (<<will_cost>> Willpower)':
			gs 'willpower', 'pay', 'self'
			*clr & cla
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/waterleave.jpg"></center>'
			'You manage to get rid of your assailant and flee to an emptier part of the pool.'
			act 'Continue': gt 'pav_pool_events', 'watertoplost'
		end
	end

	act 'Freeze':
		*clr & cla
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/grope2.jpg"></center>'
		'You freeze, not sure how to react. Your assailant is standing behind you and notices your submissivness, which makes him bolder.'
		'"I''ve got your bikini top right here. I''ll give it back in a minute."'

		act 'Turn around':
			*clr & cla
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim//toploosen.jpg"></center>'
			'You turn and notice that your assailant has his dick out and is discreetly masturbating as he stares at you.'
			'He seems to be reaching climax and ejaculates while looking directly into your eyes.'
			'He hands your bikini top back while smiling at you and leaves without saying anything. To your disgust, you realize that he jacked off into it. You quickly clean it as best as you can before putting it back it on.'
			act 'Continue': gt 'pav_pool', 'poolwater'
		end
	end
end

if $ARGS[0]= 'WTL_boystole':
	if pav_swimpool['boystole'] ! 1:
		gt 'pav_pool_events', 'watertoplost'
	end
	minut += 15
	gs 'stat'
	pav_swimpool['boystole'] = 0
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/losttop.jpg"></center>'
	'The boy that stole your bikini top approaches you. "Let me see your tits and I''ll give it back."'
	gs 'willpower', 'humiliation', 'self'
	if will_cost <= pcs_willpwr:
		act 'Refuse (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/losttop.jpg"></center>'
			'You shake your head and he laughs. "Well, good luck then," he says mockingly before swimming away with your bikini top.'
			act 'Continue': gt 'pav_pool_events', 'watertoplost'
		end
	else
		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Reluctantly do it':
		*clr & cla
		gs 'stat'
		pav_swimpool['boystole'] = 0
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/exposebreasts.jpg"></center>'

		if tits <= 2:
			'You look around before nodding and reluctantly removing your hands from your breasts. He dives down to take a look at you.'
			'He immediately surfaces with a disappointed look on his face. "I wanted to see some tits! That fat kid over there has bigger tits than you!"'
			'He returns your bikini top and swims away. You quickly put it back on before anyone sees you, feeling a little hurt by his comments.'
		elseif tits <= 5:
			'You look around before nodding and reluctantly removing your hands from your breasts. He dives down to take a look at you.'
			'He surfaces after a short while with a smile on his face. "Nice tits!"'
			'He returns your bikini top and swims away. You quickly put it back on before anyone sees you.'
		else
			'You look around before nodding and reluctantly removing your hands from your breasts. He dives down to take a look at you.'
			'After what feels like an eternity, he finally surfaces with a huge grin on his face. "Your tits are fucking huge! They''re bigger than my head!"'
			'You blush as he returns your bikini top and swims away looking rather satisfied. You quickly put it back on before anyone sees you.'
		end

		act 'Continue': gt 'pav_pool', 'poolwater'
	end
end

if $ARGS[0]= 'tryreachedgenotop':
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/losttop.jpg"></center>'
	'You slowly move towards the edge of the pool while trying to avoid people. You manage for the most part, but do come into contact with someone who thankfully doesn''t seem to notice anything.'
	gs 'pav_pool_events', 'timedesc'
	'You reach the edge of the pool and manage to climb out unnoticed before running to the locker room. You can get rid of this bottom since it''s useless now.'
	dynamic $clothingworntype + '[<<clothingwornnumber>>] = 0'
	pav_swimpool['toplost'] = 0
	gs 'clothing', 'strip'
	act 'Continue': gt 'pav_pool', 'lockerfemale'
end


	!! PCloOnePiece = 0             0 = bikini, 1 = one-piece

	!!===========================================================!!
	!!                                                           !!
	!!                  Repeatable Events                        !!
	!!                                                           !!
	!!===========================================================!!


if $ARGS[0] = 'kidsplash':
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/kidsplash.jpg"></center>'
	'You''re minding your own business and quietly swimming when a kid suddenly splashes you hard with water. The little brat seems to have done it on purpose, and he swims away laughing.'
	pcs_mood -= 2
	act 'Continue': gt 'pav_pool', 'poolwater'
end

if $ARGS[0] = 'kidsplashgroup':
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/kidsplashgroup.jpg"></center>'
	'While swimming, a group of boys start splashing each other with huge amounts of water and you end up caught in the middle. By the time you can reopen your stinging eyes, they are long gone.'
	pcs_mood -= 2
	act 'Continue': gt 'pav_pool', 'poolwater'
end

if $ARGS[0] = 'divedickout':
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/penisout.jpg"></center>'
	'While diving, you see a guy with his dick hanging out of his shorts. It seems he''s doing it on purpose as it''s somewhat hard. Did he swim over to you on purpose so you would see it?'
	act 'Continue': gt 'pav_pool', 'poolwater'
end

if $ARGS[0] = 'approachbehind':
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/approachbehindhard.jpg"></center>'
	'You''re at the edge of the pool with your back towards the water when you suddenly feel something hard pressing against your ass. As you turn around, you notice a fat older man resting his stomach against your back with what feels like his hard dick pressing against your ass.'
	'You turn around with a look of shocked disgust on your face and he backs off. "Sorry, I fell..." he says with a grin as he leaves.'
	pcs_mood -= 2
	act 'Continue': gt 'pav_pool', 'poolwater'
end

if $ARGS[0] = 'kidsunderwater':
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/boysdiving.jpg"></center>'
	'While diving, you encounter a group of children who look like they will cause you trouble. You take a different course to avoid them.'
	pcs_mood -= 2
	act 'Continue': gt 'pav_pool', 'poolwater'
end

if $ARGS[0] = 'pullstringbottom':
	if PCloOnePiece = 0:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pullstringbottom2.jpg"></center>'
		'You''re minding your own business and quietly swimming when you suddenly feel someone forcefully pull on the strings of your bikini bottom.'
		pcs_mood -= 2

		act 'Continue':
			*clr & cla
			'Before you can react, it has loosened and slipped off you into the water. You frantically start looking around for it, very conscious of the fact that your groin is now on full display to anyone under the water.'
			'Thankfully, you soon see your bottom floating nearby and manage to grab it, quickly putting it back on and tightly redoing the strings. By the time you finish, your assailant has long since disappeared into the crowd.'
			act 'Continue': gt 'pav_pool', 'poolwater'
		end
	else
		gt 'pav_pool', 'poolwater'
	end
end

if $ARGS[0] = 'assgrab':
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/assgrab1.jpg"></center>'
	'While swimming, you suddenly feel a hand pawing at and squeezing your ass. You turn in time to see an underwater shadow swimming away.'
	pcs_mood -= 2
	act 'Continue': gt 'pav_pool', 'poolwater'
end

if $ARGS[0] = 'assgrabbihand':
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/assgrab2.jpg"></center>'
	'While swimming, you suddenly feel two hands forcefully pawing at and squeezing your ass. You turn in time to see an underwater shadow swimming away.'
	pcs_mood -= 2
	act 'Continue': gt 'pav_pool', 'poolwater'
end

if $ARGS[0] = 'gropedfrombelow':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/gropedfrombelow.jpg"></center>'
	'While swimming, you suddenly feel two hands grabbing your waist from below and sliding along your body as you pass above.'
	'You shiver at the thought that some stranger just assaulted you and decide not to look back.'
	pcs_mood -= 2
	act 'Continue': gt 'pav_pool', 'poolwater'
end

if $ARGS[0] = 'sideflirt':
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/flirtside.jpg"></center>'
	'It''s rather late now and only you and an older man are in the pool. He swims up to you as you relax at the edge. "Nice evening for a swim, isn''t it?"'
	'You notice him making no effort to hide the fact that he''s checking you out.'
	pcs_mood += 4
	gs 'willpower', 'misc', 'self', 'medium'
	if will_cost > pcs_willpwr:
		act 'Blow him off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	else
		act 'Blow him off (<<will_cost>> Willpower)':
			gs 'willpower', 'pay', 'self'
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/flirtside.jpg"></center>'
			'"If you say so..." you answer in the most uninterested tone you can manage and look away from him.'
			'"Whatever. You''re not worth the effort," he replies and goes back to swimming laps.'
			'You scoff and shake your head before deciding that it''s time to go. You climb out of the pool and head for the locker room.'
			act 'Continue': gt 'pav_pool', 'lockerfemale'
		end
	end

	act 'Show interest':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/flirtside.jpg"></center>'
		'"It is. I love feeling the water on my skin," you reply and he smiles while continuing to check you out.'
		'You spend some time talking about different topics and you find yourself enjoying the conversation.'

		if rand(1,10) < 5:
			act 'Continue':
				*clr & cla
				minut += 1
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/flirtside.jpg"></center>'
				'He thanks you for your time and leaves. It''s getting late and you decide that it''s time to go. You climb out of the pool and head for the locker room.'
				pcs_mood += 8
				gs 'stat'
				act 'Continue': gt 'pav_pool', 'lockerfemale'
			end
		else
			act 'Continue':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/abouttokiss.jpg"></center>'
				'You didn''t realize that he''s slowly been inching closer to you, and is now so close that you feel him pressing against you.'
				'He then grabs and pulls you towards him, about to kiss you.'
				gs 'willpower', 'kiss', 'resist', 'hard'
				if will_cost > pcs_willpwr:
					act 'Pull away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				else
					act 'Pull away (<<will_cost>> Willpower)':
						gs 'willpower', 'pay', 'self'
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/ladder<<rand(1,2)>>.jpg"></center>'
						'You slide out of his hands, climb out of the pool and make a dash for the locker room without looking back.'
						'"Oh come on, I''m sure you would have enjoyed it!" he shouts at you as you flee.'
						act 'Continue': gt 'pav_pool', 'lockerfemale'
					end
				end
				gs 'willpower', 'kiss', 'resist'
				if will_cost > pcs_willpwr:
					act 'Kiss him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				else
					act 'Kiss him (<<will_cost>> Willpower)':
						gs 'willpower', 'pay', 'self'
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/kisswater.jpg"></center>'
						'You decide to accept the kiss. Your lips welcome each other and soon both your tongues entangle each other in a long deep kiss while he holds your face with both hands.'
						pav_swimpool['kiss_event'] = 1
						act 'Continue': gt 'pav_pool_events', 'edge_kiss'
					end
				end

				act 'Stay passive':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/kisswater.jpg"></center>'
					'You freeze, not sure how to react. He notices your submissivness, but doesn''t seem to care. He engulfs your lips in his mouth as his tongue inches deeper into your mouth.'
					pav_swimpool['kiss_event'] = 2
					act 'Continue': gt 'pav_pool_events', 'edge_kiss'
				end
			end
		end
	end
end

if $ARGS[0] = 'edge_kiss':
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pussyplay.jpg"></center>'
	if pav_swimpool['kiss_event'] = 1:
		'He seems to takes your active involvement as permission for more and you feel his hand slide into your bikini bottom as his tongue continues exploring your mouth.'
		'He starts massaging your clit as he continues making out with you. You start becoming incredibly aroused from the pleasure.'
	elseif pav_swimpool['kiss_event'] = 2:
		'Thanks to your submissiviness, he starts to take your body for granted; his hand slides into your bikini bottom as his tongue continues exploring your mouth.'
		'He starts massaging your clit as he continues to make out with you. You remain frozen in place, still unsure about what''s happening.'
	end

	temp_rand = rand(1,3)
	if temp_rand = 1:
		act 'Continue':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/waterleave.jpg"></center>'
			'After a short while, he seems to have had enough, smiles at you and swims away.'
			'You fix your bikini bottom before climbing out of the pool and heading for the locker room. It''s getting late and you don''t really want to be here anymore.'
			act 'Continue': gt 'pav_pool', 'lockerfemale'
		end
	elseif temp_rand = 2:
		act 'Continue':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/blowforced.jpg"></center>'
			'After a short while, he breaks the kiss. "Take a deep breath, you''ll need it!"'
			'You barely manage to take a quick gulp of air before he shoves you under the water, where you''re greeted by the sight of his hard dick throbbing in front of you.'
			if pav_swimpool['kiss_event'] = 1:
				'He shoves his dick into your mouth and starts thrusting with great determination. You get the hint and start passionately sucking his dick.'
			elseif pav_swimpool['kiss_event'] = 2:
				'He shoves his dick into your mouth and starts thrusting with great determination. You make efforts to break free from his grip as he fucks your unwilling mouth.'
			end

			act 'Continue':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/cummouth.jpg"></center>'

				gs 'arousal', 'bj', -3, 'rough', 'sub'
				$orgasm_or = 'no'
				gs 'cum_call', 'mouth', 'pool stranger', 0
				gs 'cum_call', 'hair', 'pool stranger', 0, '', -1, 10
				gs 'arousal', 'end'
				gs 'stat'
				if pav_swimpool['kiss_event'] = 1:
					'After a short while, you feel his dick starting to throb and shots of cum start blasting into your throat as he holds you firmly in place. Your mouth is soon full of cum, and you try to gulp as much down as you can. Once he releases you, the rest of the cum spills out of your mouth and into the water. Quite a lot of the sticky mess gets tangled in your hair.'
					'You surface to find him climbing out of the pool, seemingly done with you. You can''t believe you actually did that. You decide it''s time for you to leave as well and climb out of the pool and head for the locker room.'
				elseif pav_swimpool['kiss_event'] = 2:
					'You eventually manage to get his dick out of your mouth, but he still holds you under the water. He starts jerking off and his cum soon starts blasting into the water in front of you. It gets tangled in your hair and some of it ends up in your mouth.'
					'You surface to find him climbing out of the pool, seemingly done with you. You can''t believe you let him do that to you! You climb out of the pool and run to the locker room to get cleaned up.'
					pcs_mood -= 5
				end
				act 'Continue': gt 'pav_pool', 'lockerfemale'
			end
		end
	else
		act 'Continue':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pussyplay1.jpg"></center>'
			'He pulls your bikini bottom down slightly and you feel something hard pushing between your legs and probing your labia. He starts to slowly hump you without penetrating, sliding the whole length of his hard dick between your legs with each thrust.'
			gs 'willpower', 'sex', 'self'
			if will_cost > pcs_willpwr:
				act 'Have sex with him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			else
				act 'Have sex with him (<<will_cost>> Willpower)':
					*clr & cla
					gs 'willpower', 'pay', 'self'
					'<center><video autoplay loop src="images/locations/pavlovsk/community/swim/poolfuck.mp4"></video></center>'
					gs 'arousal', 'vaginal', -3, 'exhibitionism', 'sub'
					gs 'cum_call', '', 'pool stranger', 0, '', 10000, 50
					gs 'arousal', 'end'
					gs 'stat'
					'You''re far too horny now, so you untie your bikini bottom and pull it off before wrapping yourself around him, the tip of his dick pressing against your pussy.'
					'He doesn''t hesitate and immediately slides you down onto his shaft, causing you to let out a quiet moan. You grip him tightly as he thrusts his full length in and out of your pussy, doing your best to stay as quiet as possible.'
					*nl
					if birth_control['think_safe'] = 1:
						'This goes on for a while until he stops thrusting and holds you tightly as you feel a warmth spilling deep into your pussy. He just came inside you! Even though you''re on birth control and it was the heat of the moment, you''re still a little pissed that he didn''t say anything. When he pulls out, his cum spills out of you into the water.'
						'"That pussy was amazing!" he says before giving you a final passionate kiss and letting you down. You watch as he fixes his shorts and climbs out of the pool. You grab your bikini bottom and make a dash for the locker room, deciding it''s best not to hang around half naked in the pool with cum leaking out of you.'
					else
						'This goes on for a while until he stops thrusting and holds you tightly as you feel a warmth spilling deep into your pussy. He just came inside you and you''re not on birth control! You panic and try to climb off of him. When you do, his cum spills out of you into the water.'
						'You then give him a slap, pissed that he would cum inside you without saying anything. "What the fuck, asshole?! I''m not on the pill!" you scream, but he just pulls his shorts up and climbs out of the pool, leaving you to it. You grab your bikini bottom and make your way to the locker room, no longer in the mood for swimming.'
					end
					act 'Continue': gt 'pav_pool', 'lockerfemale'
				end
			end

			act 'Stop him':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/ladder<<rand(1,2)>>.jpg"></center>'
				'You break the kiss and quickly push yourself away from him before pulling your bikini bottom back up. "What the fuck, asshole?! I''m not some cheap whore for you to fuck!" you shout at him angrily.'
				'"Don''t tease guys if you''re going to be such a fucking prude about it! Whatever, bitch..." he scoffs before swimming away.'
				'Deciding it''s time to leave, you climb out of the pool and run to the locker room.'
				gs 'stat'
				act 'Continue': gt 'pav_pool', 'lockerfemale'
			end
		end
	end
end

if $ARGS[0] = 'late_assault':
	pav_swimpool['rape_event'] = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool5.jpg"></center>'
	'It''s rather late now and only you and an old man are in the pool. You''re creeped out by the way he keeps staring at you and avoid him as much as possible as you finish your swim.'
	'After a few more minutes, you decide it''s getting late and swim over to the edge to climb out. Just as you''re about to pull yourself up, a hand suddenly covers your mouth and you''re dragged kicking and thrashing back into the water.'

	act 'Continue':
		*clr & cla
		minut += 2
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/assault1.jpg"></center>'
		'"Shut the fuck up and stop struggling, bitch! I''m going to have some fun with you and you''re going to let me, otherwise you''re going to regret it. Understand?"'

		if pcs_agil >= 50:
			gs 'willpower', 'humiliation', 'self'
			if will_cost > pcs_willpwr:
				act 'Try to slip away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			else
				act 'Try to slip away (<<will_cost>> Willpower)':
					gs 'willpower', 'humiliation', 'self'
					gs 'willpower', 'pay', 'self'
					*clr & cla
					minut += 2
					gs 'stat'
					'You contort your limber body and manage to slip out of his grasp. Seizing the opportunity, you quickly make your way out of the pool before he can grab you again and run to the locker room without looking back.'
					act 'Continue': gt 'pav_pool', 'lockerfemale'
				end
			end
		end

		if pcs_stren >= 60:
			gs 'willpower', 'rape', 'resist'
			if will_cost > pcs_willpwr:
				act 'Elbow him in the face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			else
				act 'Elbow him in the face (<<will_cost>> Willpower)':
					gs 'willpower', 'rape', 'resist'
					gs 'willpower', 'pay', 'self'
					*clr & cla
					minut += 2
					gs 'stat'
					'Your elbow makes contact with his nose and he reels back in pain, letting you go. You quickly make your way out of the pool before he can grab you again and run to the locker room without looking back. You can hear him loudly cursing about how you''ve broken his nose.'
					act 'Continue': gt 'pav_pool', 'lockerfemale'
				end
			end
		end

		act 'Surrender':
			*clr & cla
			minut += 2
			gs 'stat'
			'You silently and fearfully nod your head as you feel his other hand slide into your bikini bottom and start stroking your pussy.'

			act 'Continue':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/assault2.jpg"></center>'
				if stat['think_virgin'] = 1:
					stat['think_virgin'] = 0
					pav_swimpool['virgin_rape'] = 1
					gs 'stat'
					'Panic and dread set in as you realize that you''re about to lose your virginity to this rapist, but you''re helpless to resist as he bends you over and pulls your bikini bottom off. You squirm as you feel the tip of his dick pushing against your pussy and instinctively try to pull away, but he tightens his grip before forcing his way inside.'
					'You squeal in pain as your virgin pussy is violently deflowered, causing the man to chuckle. "Oh, have I popped your cherry? This <i>is</i> going to be fun..."'
				else
					pav_swimpool['rape'] = 1
					gs 'stat'
					'You''re helpless to resist as he bends you over the edge of the pool and pulls your bikini bottom off. You feel the tip of his dick pushing against your pussy and you instinctively try to pull away, but he holds you tightly and forces his full length inside you.'
					'You again try to escape, but he responds by roughly pulling on your hair. "I told you not to fucking squirm, bitch!"'
				end

				act 'Continue':
					*clr & cla
					gs 'stat'
					minut += 5
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/assault2.jpg"></center>'
					'He starts violently thrusting in and out of your pussy, holding you by your hair and using it as a handle to apply more force. Your only thought is hoping this will end soon...'

					act 'Continue':
						*clr & cla
						minut += 5
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/assault3.jpg"></center>'
						'After a few minutes, he pulls you on top of him, slides you down onto his dick and resumes roughly fucking you.'
						'Your attention wanders around the pool. To your dismay, it''s completely empty and you realize that nobody is coming to help you. Your thoughts are interrupted when your assailant suddenly groans and you feel a warmth spilling into your pussy. He''s cumming inside you!'
						'It might be shock, but you somehow manage to ignore the fact that you''re being filled with a stranger''s cum and instead concentrate on the eerie sounds of the deserted pool.'
						gs 'arousal', 'vaginal', 10, 'rape'
						gs 'cum_call', '', 'pool rapist', 0, '', 15000, 60
						gs 'arousal', 'end'
						gs 'stat'

						act 'Continue':
							*clr & cla
							gs 'stat'
							minut += 5
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/assault4.jpg"></center>'
							'When he finishes emptying his load inside you, he pulls out and immediately plugs your pussy with his fingers before leaning in and whispering into your ear.'
							'"Just making sure it stays in there. I want you to get pregnant with my baby so you can always remember what happened here. Don''t think about telling anyone either, because nobody will believe a slutty little bitch like you."'
							'He keeps his fingers jammed inside your pussy for a few minutes before he finally releases you and climbs out of the pool. You stay frozen in place until you''re sure he''s gone, not willing to look back at him as he makes his escape.'
							if pav_swimpool['virgin_rape'] = 1 and birth_control['think_safe'] = 1:
								'You start sobbing as your emotions overwhelm you. That man defiled your womanhood and wanted you to get pregnant from it! Luckily, your birth control should stop that from happening. You can''t find your bikini bottom, so you slowly climb out of the pool, clutching your stomach as a sharp pain shoots through your sore and tender pussy before making your way to the locker room, trying not to think about what happened.'
							elseif pav_swimpool['virgin_rape'] = 1:
								'You start sobbing as your emotions overwhelm you. That man defiled your womanhood and wants you to get pregnant from it! You clutch your stomach. That''s likely to happen given that you''re not on birth control. "What am I going to do?!" you think to yourself as a sharp pain suddenly shoots through your sore and tender pussy. You can''t find your bikini bottom, so you slowly climb out of the pool and make your way to the locker room, trying not to think about what happened.'
							elseif birth_control['think_safe'] = 1:
								'You place a hand on your stomach. Even though you can feel his sperm inside you, you''re on birth control and so shouldn''t need to worry about getting pregnant. You can''t find your bikini bottom, so you climb out of the pool and quickly make your way to the locker room, trying not to think about what happened.'
							else
								'You place a hand on your stomach and hold in your sobs. You can feel his sperm inside you and hope that his words about you getting pregnant don''t come true. You can''t find your bikini bottom, so you climb out of the pool and quickly make your way to the locker room, trying not to think about what happened.'
							end
							act 'Continue': gt 'pav_pool', 'lockerfemale'
						end
					end
				end
			end
		end
	end
end


--- pav_pool_events ---------------------------------