[Added] Pavlovsk Pool & Events. Original Mod by Darcanlos, rewritten by Vengeance, code updated by Anjuna

glife.qproj

@@ -1064,6 +1064,8 @@
 		<Location name="tour_guide"/>
 		<Location name="shop_coco_carmen"/>
 		<Location name="marisha_ev"/>
+		<Location name="pav_pool"/>
+		<Location name="pav_pool_event"/>
 	</Folder>
 	<Folder name="Pav Lake">
 		<Location name="pav_lake"/>

locations/pav_pool.qsrc

@@ -0,0 +1,668 @@
+# pav_pool
+
+!! 2023/09/13
+!! Based on the Mod Swimlessons by Darcanlos
+!! Rewritten by Vengeance
+!! Code updated by Anjuna
+
+
+$loc = 'pav_pool'
+
+
+if $ARGS[0] = 'building' or $ARGS[0] = '':
+	$loc_arg = 'building'
+	$location_type = 'public_outdoors'
+
+	minut += 4
+	if hour >= 8 and hour <= 20:
+		gs 'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/entrance.jpg"></center>'
+		'Pavlovsk''s public swimming pool is rather dated, but still serves it''s purpose quite well.'
+		'The entrance fee is 100 <b>₽</b> for the full day, but students get a discount and it only costs you 60 <b>₽</b>.'
+
+		if SchoolAtestat = 0:
+			pav_swimpool['entrancefee'] = 60
+
+		else
+			pav_swimpool['entrancefee'] = 100
+		end
+		
+		if pav_swimpool['entrancepaid'] = daystart:
+			'<b>You''ve already paid the fee, so you can enter.</b>'
+			act 'Enter': gt 'pav_pool', 'entrance'
+
+		else
+			if money < pav_swimpool['entrancefee']:
+				act 'Pay and enter': '<br><font color="red">You don''t have enough money to pay for entrance!</font>'
+
+			else
+				act 'Pay and enter':
+					money -= pav_swimpool['entrancefee']
+					pav_swimpool['entrancepaid'] = daystart
+					gs 'stat'
+					gt 'pav_pool', 'entrance'
+				end
+			end
+		end
+
+		act 'Leave': gt 'pav_residential'
+
+	else
+		gs 'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/entrance.jpg"></center>'
+		'The swimming pool is currently closed. Opening hours are from 08:00 to 21:00.'
+
+		act 'Leave': gt 'pav_residential'
+	end
+end
+
+
+
+if $ARGS[0] = 'entrance':
+	minut += 2
+	
+	$loc_arg = 'entrance'
+	$location_type = 'public_indoors'
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/entrance.jpg"></center>'
+	'You''re currently inside the entrance to the swimming pool.'
+	'From here you can access the <a href="exec:minut += 1 & gt ''pav_pool'', ''lockerfemale''">girls locker room</a>, visit the <a href="exec:minut += 1 & gt ''pav_pool'', ''cafeteria''">cafeteria</a> or browse the pool''s <a href="exec:minut += 1 & gt ''pav_pool'', ''store''">store</a>.'
+	*nl
+	'There is a sign by the store''s entrance that reads: "If closed, I''m working in the pool. Be back soon." It seems like the store clerk is also the janitor.'
+
+	act 'Leave': gt 'pav_pool', 'building'
+end
+
+
+
+if $ARGS[0] = 'store':
+	!! Outside of the first visit. Clerk has an 80% chance of being away in the busy times and a 30% in the down times.
+	minut += 1
+
+	$loc_arg = 'store'
+	$location_type = 'public_indoors'
+
+	if pav_swimpool['storeclerkvisit'] > 0 and (( (hour >= 8 and hour <= 10) or hour >= 17) and rand(1, 10) <= 8) or rand(1, 10) <= 3:
+		gs 'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/store.jpg"></center>'
+		'The store is closed right now. The clerk must be doing janitor work somewhere.'
+
+		act 'Leave': gt 'pav_pool', 'entrance'
+
+	else
+		gs 'stat'
+
+		'<center><h3Pool Store</h3></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/store.jpg"></center>'
+		'The store is small and barely has anything on display, but they might have some swimwear available. There is a divider if you wish to try anything on, but it doesn''t seem to offer much privacy.'
+
+		!!Buy one specific swimsuit.
+		act 'Ask for swimwear':
+			if scandalicious_bikinis[46] = 1:
+				*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>'
+				'You already own a bikini which looks similar to the one they have on sale here.'
+
+				act 'Continue': gt 'pav_pool', 'store'
+
+			else
+				gt 'pav_pool_events', 'store_simsuit_buy'
+			end
+		end
+
+		act 'Leave': gt 'pav_pool', 'entrance'
+	end
+end
+
+
+
+if $ARGS[0] = 'lockerfemale':
+	!! Clothing change events
+	!!-------------------------------------------------------------------!!
+	
+	$loc = 'pav_pool'
+	$loc_arg = 'lockerfemale'
+	$location_type = 'private'
+
+	if $temp_curclothes = 'nude':
+		killvar '$temp_curclothes'
+
+		if PCloswimwear = 1:
+			!! Locker events nude -> swimwear
+
+
+		elseif $clothingworntype ! 'nude' or $pantyworntype ! 'none':
+			!! Locker events nude -> normal clothing
+			gt 'pav_pool_events', 'locker_nude_to_clothed'
+		end
+
+	elseif $temp_curclothes = 'swimwear':
+		killvar '$temp_curclothes'
+
+		if $clothingworntype = 'nude' and $pantyworntype = 'none':
+			!! Locker events swim -> nude
+			gt 'pav_pool_events', 'locker_swim_to_nude'
+
+		elseif PCloswimwear ! 1:
+			!! Locker events swim -> clothing
+		end
+
+	elseif $temp_curclothes = 'norm':
+		killvar '$temp_curclothes'
+
+		if $clothingworntype = 'nude' and $pantyworntype = 'none':
+			!! Locker events clothing -> nude
+			gt 'pav_pool_events', 'locker_clothed_to_nude'
+
+		elseif PCloswimwear = 1:
+			!! Locker events clothing -> swim
+		end
+	end
+	!!-------------------------------------------------------------------!!
+
+
+	!!ARGS[1] = 1 prevents this event from triggering repeatedly
+	if rand(1, 10) = 1 and $clothingworntype = 'nude' and $pantyworntype = 'none' and ARGS[1] = 0:
+		gt 'pav_pool_events', 'naked_locker'
+	end
+
+	minut += 1
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/lockers.jpg"></center>'
+	'The changing rooms are old and murky. They are uncomfortable, cramped and you always feel compelled to leave as quickly as possible. The small windows on one side don''t make you feel any better.'
+	'From here you can access the <a href="exec:minut += 1 & gt ''pav_pool'', ''showerfemale''">showers</a> or go to the <a href="exec:minut += 1 & gt ''pav_pool'', ''mirror''">mirrors</a> area, highly contested in busy times. You can also access the pool, but only in swimwear.'
+
+	if func('changingroom','count_swim_item') > 0:
+		act 'Change your clothes':
+			!!Remember current clothes for clothing change events.
+			if $clothingworntype = 'nude' and $pantyworntype = 'none':
+				$temp_curclothes = 'nude'
+			elseif PCloswimwear = 1:
+				$temp_curclothes = 'swimwear'
+			else
+				$temp_curclothes = 'norm'
+			end
+
+			$loc = 'pav_pool'
+			$loc_arg = 'lockerfemale'
+
+			!!Ignore Inhibition through willpower.
+			gt 'changingroom', 'view_swim_list', 1
+		end
+
+	else
+		*nl
+		'You should buy some swimwear if you intend on spending time at the pool.'
+		*nl
+	end
+
+
+	if PCloswimwear = 1:
+		gs 'shoes', 'strip'
+		act 'Enter the pool area':
+			!if $clothingworntype = 'swimwear' or $clothingworntype = 'scandalicious_swimsuit' or $clothingworntype = 'scandalicious_bikinis' or $clothingworntype = 'allure_swimsuit':
+			gt 'pav_pool', 'pool'
+		end
+	else
+		*nl
+		'You need to put some swimwear on first if you want to go in the pool.'
+		*nl
+	end
+
+
+	act 'Leave':
+		if PCloswimwear = 1 or $clothingworntype = 'nude':
+			cla
+			'You need to get dressed first!'
+			act 'Return': gt 'pav_pool', 'lockerfemale'
+		else
+			minut += 3
+			gs 'stat'
+			gt 'pav_pool', 'entrance'
+		end
+	end
+
+end
+
+
+
+if $ARGS[0] = 'showerfemale':
+	$loc_arg = 'showerfemale'
+	$location_type = 'private'
+
+	menu_off = 1
+	minut += 1
+	gs 'stat'
+	
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/showergirl.jpg"></center>'
+	'The showers have seen better days. Thankfully, the water from the shower is very warm and feels great on your skin.'
+	
+	if $clothingworntype ! 'nude':
+		'You need to strip before you can shower.'
+
+	else
+		act 'Take a shower':
+			*clr & cla
+			minut += 15
+			dynamic $showerdin
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/watch2.jpg"></center>'
+
+			if     hour >=  8 and hour < 10:
+				'Almost nobody comes here this early in the morning, so you have the shower to yourself.'
+
+			elseif hour >= 10 and hour < 12:
+				'The pool is rather busy at this time, mostly with families with children and a few older people. An older woman is showering right now, but it''s otherwise quiet.'
+
+			elseif hour >= 12 and hour < 18:
+				'The pool and showers are crowded and you have to wait for someone else to finish first.'
+			
+			elseif hour >= 18 and hour < 20:
+				'Not many people visit the pool this late in the evening, with only a handful of adults coming for an after work swim. You have the shower to yourself.'
+
+			elseif hour >= 20 and hour < 21:
+				'It''s rather late and the pool will be closing soon. You think you''re among the last people in the building, so you''re alone and can enjoy the shower all to yourself.'
+			end
+
+
+			if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
+
+			if rand(1,3) = 1 and hour >= 18 and hour < 21:
+				act 'Finish': gt 'pav_pool_event', 'shower_late'
+
+			else
+				act 'Finish': gt 'pav_pool', 'showerfemale'
+			end
+		end
+	end
+
+	act 'Go back to the changing room': gt 'pav_pool', 'lockerfemale'
+end
+
+
+
+if $ARGS[0] = 'mirror':
+	!! ARGS[1] = 1 prevents the same event from triggering repeatedly.
+	$loc_arg = 'mirror'
+	$location_type = 'private'
+
+	if rand(1,10) = 1 and $clothingworntype = 'nude' and $pantyworntype = 'none' and ARGS[1] = 0:
+		gt 'pav_pool_event', 'naked_mirror'
+	end
+
+	minut += 1
+	gs 'stat'
+	$locM = 'pav_pool'
+	$locM_arg = 'mirror'
+
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/mirrorsink.jpg"></center>'
+	'The area where the <a href="exec:minut += 1 & gt ''mirror'', ''start''">mirrors</a> are is just as murky as the rest of the changing room. It''s almost like the owners don''t care about the dilapidated appearance.'
+
+	if $clothingworntype = 'nude':
+		*nl
+		'You are completely naked.'
+	end
+
+	act 'Go back to the changing room': gt 'pav_pool', 'lockerfemale'
+		if cumloc[11] = 1 or cumloc[12] or cumloc[16] = 1:
+			act 'Clean the cum from your face':
+				*clr & cla
+				menu_off = 1
+				minut += 5
+
+				pcs_makeup = 1
+
+				cumspclnt = 9
+				gs 'cum_cleanup'
+				cumspclnt = 13
+				gs 'cum_cleanup'
+
+				if pcs_sweat > 19 : pcs_sweat -= 5
+
+				gs 'stat' 
+
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/washface.jpg"></center>'
+				'You carefully wash the cum from your face at the sink.'
+
+				act 'Finish': gt 'pav_pool', 'mirror'
+			end
+		end
+	end
+end	
+
+
+
+if $ARGS[0]= 'cafeteria':
+	*clr & cla
+
+	$loc_arg = 'cafetaria'
+	$location_type = 'public_indoors'
+	minut += 1
+
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/cafeteria<<rand(1,2)>>.jpg"></center>'
+	'You are in the cafeteria. They don''t have a lot on the menu, just some snacks.'
+	'Two girls are currently ordering from the cashier.'
+
+	act 'Order':
+		!!Removed rand()... No event, just sometimes it doesn''t work. 
+		!!if rand(1,100) < 93:
+	
+		*clr & cla
+		minut += 1
+
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/cafeteriaturn.jpg"></center>'
+		'It''s finally your turn. You sit on one of the stools while you order.'
+
+		if money < 100:
+			'You don''t have enough money to buy a snack.'
+			act 'Return': gt 'pav_pool', 'cafeteria'
+
+		else
+			act 'Buy a snack (100 <b>₽</b>) (0:05)':
+				*clr & cla
+				gs 'stat'
+
+				minut += 5
+				money -= 100
+				pcs_health += 10
+				pcs_mood += 20
+				fat += 6
+				pcs_energy += 20
+
+				if pcs_hydra >= 100:
+					pcs_hydra += 10
+
+				else
+					pcs_hydra += 20
+				end
+
+				cumspclnt = 2
+				gs 'cum_cleanup'
+				pcs_breath = 0
+				gs 'food', 'aftermeal'
+
+				'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+				'You enjoy a small tasty, but somewhat fattening, snack.'
+
+				gs 'stat'
+
+				act 'Return': gt 'pav_pool', 'cafeteria'
+			end
+		end
+
+
+		act 'Drink some water (0:05)':
+			*clr & cla
+			frost = 1
+			if alko > 0: alko -= 1
+
+			minut += 5
+			pcs_health += 10
+			pcs_energy += 4
+
+			if pcs_hydra >= 100:
+				pcs_hydra += 25
+
+			else
+				pcs_hydra += 50
+			end
+
+			cumspclnt = 2
+			gs 'cum_cleanup'
+			pcs_breath = 0
+			gs 'beverage', 'afterdrink'
+
+			'<center><img <<$set_imgh>> src="images/locations/shared/brothel/barorderwater.jpg"></center>'
+			'You enjoy a glass of water.'
+
+			gs 'stat'
+
+			act 'Return': gt 'pav_pool', 'cafeteria'
+		end
+
+
+		act 'Leave': gt 'pav_pool', 'pool'
+	end
+end
+
+
+
+if $ARGS[0] = 'pool':
+	*clr & cla
+
+	$loc_arg = 'pool'
+	$location_type = 'public_indoors'
+	minut += 1
+	gs 'stat'
+
+
+	if     hour >=  8 and hour < 10:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool1.jpg"></center>'
+		'The pool is almost empty this early in the morning. You can enjoy it almost all to yourself.'
+
+	elseif hour >= 10 and hour < 12:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool2.jpg"></center>'
+		'The pool is mostly used by families with children and older people at this time.'
+
+	elseif hour >= 12 and hour < 18:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool3.jpg"></center>'
+		'The pool is crowded with all kinds of people. This won''t be a relaxing swim...'
+
+	elseif hour >= 18 and hour < 20:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool4.jpg"></center>'
+		'Not many visit the pool this late in the evening, with only a few adults coming for an after work swim.'
+
+	elseif hour >= 20 and hour < 21:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool5.jpg"></center>'
+		'It''s rather late and the pool will be closing soon, so you''re mostly alone and can enjoy the pool all to yourself.'
+	end
+
+
+	'The pool is rather old, but still has a certain charm to it. The wall to wall windows allow for a nice atmosphere during the day and there is an upper balcony where people often watch from above.'
+	'From here you can access the <a href="exec:minut += 1 & gt ''pav_pool'', ''lockerfemale''">female locker room</a>.'
+	
+	act 'Climb into the pool':
+		*clr & cla
+		minut += 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/ladder<<rand(1,2)>>.jpg"></center>'
+		'You slowly climb down the ladder into the pool, probing the temperature as you go down.'
+		act 'Continue': gt 'pav_pool', 'poolwater'
+	end
+	
+	act 'Dive into the water':
+		*clr & cla
+		minut += 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/diving.jpg"></center>'
+
+		if pcs_agil < 45:
+			'You climb up to the top of the diving board and try to jump elegantly into the water, but the landing is anything but that...'
+
+			temp_rand = rand(1,100)
+			if temp_rand < 20:
+				act 'Continue':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/bareass.jpg"></center>'
+					'As you enter the water, your bikini bottom slides down your legs and leaves your ass exposed. Thankfully, nobody seems to notice and you quickly pull it up before anyone sees you.'
+					act 'Continue': gt 'pav_pool', 'poolwater'
+				end
+
+			elseif temp_rand => 20 and temp_rand < 40:
+				act 'Continue':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/toploosen.jpg"></center>'
+					'As you enter the water, the knot of your bikini top loosens and your breasts pop out. Thankfully, nobody seems to notice and you quickly tie it back on before anyone sees you.'
+					act 'Continue': gt 'pav_pool', 'poolwater'
+				end
+
+			elseif temp_rand => 40 and temp_rand < 50:
+				act 'Continue':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/losttop.jpg"></center>'
+					'You dive into the pool and pop your head out of the water thinking that you still need to improve on your diving when you hear some boys giggling and looking at you. It''s then that you realize your bikini top is gone!'
+					'You cover your breasts and frantically look for your bikini top. Thankfully, you spot it floating nearby, grab it and quickly put it back on. The boys smile at you and leave.'
+					pcs_mood -= 3
+					act 'Continue': gt 'pav_pool', 'poolwater'
+				end
+
+			elseif temp_rand => 50 and temp_rand < 60:
+				act 'Continue':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/bottomlost2.jpg"></center>'
+					'You dive into the pool and pop your head out of the water thinking that you still need to improve your diving when you feel the water tickling your bare pussy and realize that your bikini bottom is gone!'
+					'You cover your groin and frantically look for your bikini bottom. Thankfully, you spot it floating nearby, grab it and quickly slide it back on before anyone notices.'
+					pcs_mood -= 3
+					act 'Continue': gt 'pav_pool', 'poolwater'
+				end
+			end
+
+		elseif pcs_agil >= 45 and pcs_agil <= 70:
+			'You climb up to the top of the diving board and jump, but end up painfully bellyflopping into the water. You need to practice being more agile.'
+
+		else
+			'You climb up to the top of the diving board and make a very elegant jump, sliding into the water without causing a single ripple.'
+		end
+
+
+		act 'Continue': gt 'pav_pool', 'poolwater' 
+	end
+
+	act 'Sit with your feet in the water': gt 'pav_pool_events', 'feetwater' 
+end
+
+
+
+if $ARGS[0]= 'poolwater':
+	minut += 1
+	$loc_arg = 'poolwater'
+	$location_type = 'public_indoors'
+
+	pcs_hairbsh = 0
+	cumspclnt = 10
+	gs 'cum_cleanup'
+
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/inwater1.jpg"></center>'
+	'You are in the water. It feels very relaxing.'
+
+
+	if     hour >=  8 and hour < 10:
+		'The pool is almost empty this early in the morning, so you have it almost all to yourself.'
+
+	elseif hour >= 10 and hour < 12:
+		'The pool mostly contains families with children and older people swimming.'
+
+	elseif hour >= 12 and hour < 18: 
+		'The pool is crowded with all kinds of people. It''s difficult to move around and exercising will be impossible.'
+
+	elseif hour >= 18 and hour < 20: 
+		'Not many visit the pool this late in the evening, with only a few adults in the water.'
+
+	elseif hour >= 20 and hour < 21: 
+		'It''s rather late and the pool will be closing soon. You are among the last people in the building, so you can enjoy the pool all to yourself.'
+	end
+
+
+	if hour >= 10 and hour < 18:
+		'It''s rather busy, but you can try to do a bit of swimming or dive for a bit of fun. You could also just try to relax at the edge of the pool or right here in the water.'
+
+	else
+		'The pool is almost empty, so you''re free to do a bit of relaxed swimming, exercise with a more powerful swim or dive for a bit of fun. You could also just relax at the edge of the pool or right here in the water.'
+	end
+
+
+	if hour >= 8 and hour < 21:
+		act 'Relaxed swim': gt 'pav_pool_events', 'relaxedswim' 
+
+		if hour < 12 or hour >= 18:
+			act 'Exercise': gt 'pav_pool_events', 'exerciseswim'
+		end
+
+		act 'Dive': gt 'pav_pool_events', 'dive' 
+		act 'Relax at the edge of the pool': gt 'pav_pool_events', 'edgepool'
+		act 'Relax in the water': gt 'pav_pool_events', 'relaxedwater'
+	end
+
+	act 'Exit pool': gt 'pav_pool', 'exitpool'
+end
+
+
+
+if $ARGS[0]= 'exitpool':
+	minut += 1
+	$loc_arg = 'exitpool'
+
+	gs 'stat'
+
+	temp_rand = rand(1,15)
+	if temp_rand <= 4 and PCloOnePiece = 0 and hour >= 10 and hour < 18:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/exitloosebra.jpg"></center>'
+		'As you exit the pool, you don''t notice that your top has loosened and your breasts are almost on full display for all to see.'
+
+		act 'Continue':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/lostbra.jpg"></center>'
+			'You finally notice when your top falls off and your breasts are fully exposed. You cover them as best as you can, but a group of boys have already seen you and seem to be enjoying the show.'
+			'"Oh, come on! We already saw them, let us see some more!"'
+			'You pick up your bikini top, trying not to show anything else and run towards the locker rooms to put it back on.'
+			pcs_mood -= 5
+			act 'Continue': gt 'pav_pool', 'lockerfemale'
+		end
+
+	elseif temp_rand = 5 and PCloOnePiece = 0 and hour >= 10 and hour < 18:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/exitloosebra.jpg"></center>'
+		'As you exit the pool, you don''t notice that your bikini top has loosened and your breasts are almost on full display for all to see.'
+
+		act 'Continue':
+			*clr & cla
+
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/bratkid.jpg"></center>'
+			'You finally notice when your top falls off and your breasts are completely exposed. You cover them as best as you can and turn around to look for your top just in time to see a boy pick it up with a devious smile.'
+			'"If you want it back, come and get it!" He then jumps in the water and swims off.'
+
+			act 'Run to the locker room':
+				cla
+				'Blushing in embarrassment, you run to the locker room. Once there you strip naked. You can get rid of this bottom since it''s useless now.'
+
+				dynamic $clothingworntype + '[<<clothingwornnumber>>] = 0'
+				gs 'clothing', 'strip'
+
+				act 'Continue': gt 'pav_pool', 'lockerfemale'
+			end
+			act 'Jump into the water after him':
+				pav_swimpool['boystole'] = 1
+				pav_swimpool['toplost'] = 1
+				*clr & cla
+
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/toplesspool.jpg"></center>'
+				'You jump bravely into the water after him. He swims off towards the other side of the pool and you attempt to follow, but the pool is full and many notice your lewdness. You suddenly realize, stop and cover yourself as a number of people stare at you.'
+				'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.'
+
+				act 'Wait': gt 'pav_pool_events', 'watertoplost'
+				act 'Try to reach the edge': gt 'pav_pool_events', 'tryreachedge'
+			end
+		end
+
+	else
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/ladder<<rand(1,2)>>.jpg"></center>'
+		'You climb out of the pool.'
+
+		act 'Continue': gt 'pav_pool', 'pool'
+	end
+end
+
+
+
+--- pav_pool ---------------------------------

locations/pav_pool_events.qsrc

@@ -0,0 +1,1281 @@
+# 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 >= 1750:
+		act 'Buy swimwear':
+			*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 -= 1750
+			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
+			
+			'"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
+
+	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
+
+	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_nude_to_clothed':
+	menu_off = 1
+	minut += 5
+	if rand(1, 100) < 90:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/change.jpg"></center>'
+		'You change back into your clothes.'
+
+	else
+		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
+	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(1,100) < 90:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/change.jpg"></center>'
+		'You take your swimwear off.'
+
+	else
+		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
+	end
+
+	act 'Continue': gt 'pav_pool', 'lockerfemale'
+end
+
+
+
+if $ARGS[0] = 'locker_clothed_to_nude':
+	if rand(1,100) < 90:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/change.jpg"></center>'
+		'You take your clothes off.'
+	else
+		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
+	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
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/relaxedswim.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:
+			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':
+	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, '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, '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:
+			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, '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
+	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':
+	minut += 10
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/edgepool.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':
+	minut += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/relaxedwater.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:
+			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:
+			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
+
+	elseif hour >= 10 and hour < 12:
+		'You enjoy watching people having fun in the water.'
+		pcs_mood += 5
+
+	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
+
+		elseif temp_rand = 3:
+			'A ball bounces off your head and lands nearby. You throw it back to the apologetic children that threw it.'
+		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/toplesspool.jpg"></center>'
+
+	gs 'pav_pool_events', 'timedesc'
+
+	'You are topless in the water, with only your head poking out.'
+
+	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/toplesspool.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/toplesspool.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/xxx.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//xxx.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 realise 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/toplesspool.jpg"></center>'
+	'The boy that stole your bikini top approaches you. "If you want it back, let me see your tits!"'
+
+	gs 'willpower', 'humiliation', 'self'
+	if will_cost <= pcs_willpwr:
+		act 'Refuse (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'self'
+
+			*clr & cla
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/toplesspool.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
+
+
+
+
+	!! 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/pullstringbottom.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 on birth control
+					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
+
+
+
+
+!!=============================================================!!
+!!                                                             !!
+!!                    Unfinished Events                        !!
+!!                                                             !!
+!!=============================================================!!
+
+
+if $ARGS[0]='tryreachedgenotop':
+	minut += 3
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/xxx.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'
+	!! act 'Continue' (Accidently deleted act for getting out of pool topless. Needs added back in) 
+end	
+
+
+
+if $ARGS[0] = 'late_assault':
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool5.jpg"></center>'
+    'It''s rather late now and only you and a much older 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 burly hand suddenly covers your mouth and you''re dragged kicking and thrashing back into the water.' 
+
+	act 'Continue':
+		*clr & cla
+		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?"'
+		'You silently and fearfully nod your head as you feel his other hand slide between your legs and start stroking your pussy through your bikini bottom. You panic when you''re suddenly pulled under the water.'
+
+		act 'Continue':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/assault2.jpg"></center>'
+			'You''re helpless to resist as he bends you over and pulls your bikini bottom off. You then 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''s too strong and responds by tightening his grip on you and roughly pulling on your hair.'
+
+			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 mind starts going blank due to the lack of air as he fucks you under the water, your only thought being when this will end.'
+
+				act 'Continue':
+					*clr & cla
+					minut += 5
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/assault3.jpg"></center>'
+					'Just as you''re about to black out, he suddenly pulls you upright and your head breaches the surface. You splutter and gasp deeply for air as he drags you over to the shallow end, where he pulls you on top of him, slides you back down onto his dick and resumes roughly fucking you.'
+					'Your attention wanders around the pool. To your dismay, it''s completely empty and you realise 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 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
+
+
+--- pav_pool_events ---------------------------------
+