Girl-Life-Anjuna/locations/gad_beach.qsrc

# gad_beach
!2024/05/05 - Mira schedule introduced.
!locat['A60'] = Mira''s location. See 'miroslava_schedule'

$loc = 'gad_beach'

if $ARGS[0] = 'start':
	$loc_arg = 'start'
	$location_type = 'public_outdoors'
	killvar '$locclass'
	menu_off = 1
	gs 'miroslava_schedule'
	gs 'stat'

	'<center><H4>Village Beach</H4></center>'
	!125e
	if hour >= 6 and hour < 22:
		if sunWeather = 1:
			if month >= 4 and month <= 10:
				'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadbitch_summer.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadbitch_winter.jpg"></center>'
			end
		else
			if month >= 4 and month <= 10:
				'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadbitch_soft.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadbitch_cold.jpg"></center>'
			end
		end
	else
		'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadbitch_night.jpg"></center>'
	end

	'A small country beach, where you can sunbathe and swim.'

	if locat['A60'] ! 51 and npc_QW['A63'] >= 13 and rand(0,10) = 0 and hour >= 8 and hour < 20 and month >= 5 and month <= 9 and temper >= 15 and sunWeather = 1:
		'<a href="exec: gt ''gad_river'', ''GuysBeach'' ">Kolyamba and Vasyan</a> are resting on the riverbank.'
	end

	if locat['A60'] = 51:
		if rand(0, 10) < 5:
			'<a href="exec:gt ''gad_beach'', ''Mira'', 1 ">Mira</a> is laying on the beach sunbathing.'
			if npc_rel['A60'] < 15: npc_rel['A60'] += 1
		else
			'<a href="exec:& gt ''gad_beach'', ''Mira'', 0 ">Mira</a> is in the river splashing water around and having fun.'
			if npc_rel['A60'] < 15: npc_rel['A60'] += 1
		end
	end

	act 'Walk to the river (0:05)':
		cla
		if PCloswimwear = 1:
			'You need to dress in regular clothes first.'
			act 'Return': gt 'gad_beach', 'start', 1
		elseif $clothingworntype = 'nude':
			'You need to put some clothes on first.'
			act 'Return': gt 'gad_beach', 'start', 1
		else
			minut += 5
			gt 'gad_river', 'start'
		end
	end

	if func('changingroom','count_swim_item') > 0: act 'Get changed': gt 'changingroom', 'view_swim_list'

	if $clothingworntype = 'nude':
		act 'Get dressed':
			clothesAtLocation = FUNC('lost_clothes_here','VillageRiver')
			cla
			minut += 5
			gs 'panties', 'wear', $lastwornpantytype['swim'], lastwornpantynumber['swim']
			gs 'bras', 'wear', $lastwornbratype['swim'], lastwornbranumber['swim']
			if clothesAtLocation = 1: gs 'clothing', 'recover_lost_clothes', 'VillageRiver', 1
			act 'Continue': gt 'gad_beach', 'start', 1
		end
	end

	if temper >= 15 and month >= 5 and month <= 9:
		if $clothingworntype ! 'nude' and (pcs_inhib >= 25 or exhibitionist_lvl > 1):
			act 'Strip naked':
				cla
				minut += 5
				$lastwornclothingtype['swim'] = $clothingworntype
				lastwornclothingnumber['swim'] = clothingwornnumber
				$lastwornpantytype['swim'] = $pantyworntype
				lastwornpantynumber['swim'] = pantywornnumber
				$lastwornbratype['swim'] = $braworntype
				lastwornbranumber['swim'] = brawornnumber
				gs 'clothing', 'strip_all', 'VillageRiver'
				'Without hesitation, you take off all your clothes and neatly fold them before putting them down on a pile. Without your clothes holding you back, you can go for a nice swim in the river or lie down in the sand and sunbathe.'
				act 'Continue': gt 'gad_beach', 'start', 1
			end
		end
		gs 'gad_beach', 'set_swimming_act'
		gs 'gad_beach', 'set_sunbath_act'
		gs 'gad_beach', 'set_desperado_act'
	end

!! extraordinary events at the river beach. Be aware, this part has to be at the end because it removes actions, which were set before.
	if locat['A60'] ! 51 and locat['A60_prev'] = 51:
		gt 'gad_beach', 'Mira_leaves'
	elseif locat['A60'] = 51 and ARGS[1] = 0:
		gt 'gad_beach', 'Arrive_Mira_already_there'
	end
end

if $ARGS[0] = 'set_swimming_act':
	if PCloswimwear = 1 and pcs_stam >= (5 * (10 - sport_clothes_exercise_bonus)) / 2:
		act 'Go for a swim':
			cla
			*clr
			cumspclnt = 4
			gs 'cum_cleanup'

			minut += 29
			gs 'exercise', 'tier1', 1, 'stren', 'vital'

			if pcs_inhib < 50:inhib_exp += rand(1,3)
			pcs_sweat = 10 + rand(0,4)
			if hour >= 22 or hour <= 6:
				if rand(0, 10) < 5 and locat['A60'] = 51:
					'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/rivertwogirls.jpg"></center>'
					'You and Mira take a nighttime swim in the river, splashing water at each other and having fun.'
				else
					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriverswim.jpg"></center>'
					'You take a nighttime swim in the river, feeling the refreshing and invigorating water flowing across your body.'
				end
			else
				if rand(0, 10) < 5 and locat['A60'] = 51:
					'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/rivertwogirls.jpg"></center>'
					'You and Mira swim in the river, splashing water at each other and having fun.'
				else
					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriverswim.jpg"></center>'
					'You swim in the river, feeling the refreshing and invigorating water across your body.'
				end
			end
			if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'

			act 'Get out of the water':
				temp_rand = rand(0, 9)
				if temp_rand <= 1 and locat['A60'] ! 51 and npc_QW['A63'] >= 13 and hour >= 8 and hour < 20:
					if temp_rand = 0:
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex13.jpg"></center>'
						'When you decide it''s time to get out of the river, you hear the sound of men laughing as they walk on the river bank approaching you. As they get closer, you see the village boys'' smirking faces, led by Mitya, headed towards the river bank while you are still in the shallow waters.'
						'They quickly undress and jump in the water. Within a few seconds, you are surrounded by the grinning boys. Then, without a word, they reach for you and roughly take turns forcing you to suck their cocks.'
						gs 'arousal', 'bj', 15, 'gangbang', 'sub', 'rough'
						gs 'arousal', 'hj', 15, 'gangbang', 'sub', 'rough'
						gs 'arousal', 'end'
						gs 'boyStat', 'A63'
						npc_sex[$boy] += 1
						gs 'cum_call','face',$boy, 1,'','',20
						gs 'cum_call','hair',$boy, 1,'','',20
						gs 'boyStat', 'A61'
						npc_sex[$boy] += 1
						gs 'cum_call','face',$boy, 1,'','',20
						gs 'cum_call', 'mouth_swallow', $boy, 1,'','',20
						gs 'boyStat', 'A62'
						npc_sex[$boy] += 1
						minut -= 10
						gs 'cum_call','face',$boy, 1,'','',20
						gs 'cum_call', 'mouth_swallow', $boy, 1,'','',20
						gang +=1
						gs 'stat'

						act 'Finish': gt 'gad_beach', 'start', 1
					else
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex19.jpg"></center>'
						'As soon as you get out of the river, you meet a grinning Kolyamba. He smiles wickedly and commands you to get down on your hands and knees so he can fuck you in the ass...'
						gs 'arousal', 'auto_lube', 'anal'
						gs 'boyStat', 'A61'
						npc_sex[$boy] += 1
						pose = 1
						gs 'dinSex','boy_wants_anal'
						gs 'arousal', 'anal', 20, 'sub'
						gs 'cum_call','anus',$boy, 1,'','',20
						gs 'cum_call','butt',$boy, 1,'','',20
						gs 'arousal', 'end'
						gs 'stat'

						act 'Finish': gt 'gad_beach', 'start', 1
					end
				else
					gt 'gad_beach', 'start', 1
				end
				killvar 'temp_rand'
			end
		end
	else
		if $clothingworntype = 'nude':
			act 'Go skinny dipping':
				*clr & cla
				cumspclnt = 4
				gs 'cum_cleanup'
				minut = minut + 20
				pcs_sweat = 10 + rand(0, 4)
				pcs_mood += 5
				inhib_exp += rand(1, 3)
				if pcs_stren < 30: gs 'exp_gain', 'stren', 1

				if hour >= 22 and hour <= 6:
					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/watergirls1.jpg"></center>'
					'You strip your clothes off and slowly step into the cold river, knowing that the darkness hides your nudity. You swim around, feeling the refreshing and invigorating water caressing your body.'
				else
					if rand(0, 15) >= 10 and locat['A60'] = 51:
						pcs_horny += rand(5, 15)
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/rivertwogirlsnude'+rand(0,5)+'.jpg"></center>'
						'You step into the river with Mira and have a good old-fashioned water fight, splashing each other until one of you finally surrenders.'
					else
						'<center><img <<$set_imgh>> src="images/locations/gadukino/river/watergirls.jpg"></center>'
						'You take your clothes off and swiftly step into the river. You sigh, feeling the cold, refreshing and tonic water.'
					end
				end
				if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
				act 'Get out of the water':
					if rand(0, 15) = 0 and locat['A60'] ! 51 and npc_QW['A63'] >= 13 and hour >= 8 and hour < 20:
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex12.jpg"></center>'
						'As soon as you step out of the water, you find your naked self in front of three boys here to do some fishing.'
						'Seeing you skinny dipping, they start to talk amongst themselves about how much of a shameless slut you are and that the only good thing you are for is serving men. You tell them to fuck off, but they are too worked up and not listening to you at all.'
						'One of the boys flips you over and starts penetrating your pussy as the other boy shoves his hardened cock into your protesting mouth. They have started to fuck you in an earnest and lust-filled frenzy.'
						'Your muffled moans and the sound of your wet pussy getting pounded fill the air. The boys soon orgasm and decide to ejaculate all over your body to show dominance.'
						gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
						gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
						gs 'arousal', 'hj', 10, 'gangbang', 'sub', 'rough'
						gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
						gs 'arousal', 'end'
						gs 'boyStat', 'A63'
						npc_sex[$boy] += 1
						gs 'cum_call','butt',$boy, 1
						gs 'boyStat', 'A61'
						npc_sex[$boy] += 1
						gs 'cum_call','anus',$boy, 1,'','',20
						gs 'boyStat', 'A62'
						npc_sex[$boy] += 1
						gs 'cum_call', 'mouth_swallow', $boy
						gs 'stat'
						gang +=1

						act 'Finish': gt 'gad_beach', 'start', 1
					else
						gt 'gad_beach', 'start', 1
					end
				end
			end
		end
	end
end


if $ARGS[0] = 'set_sunbath_act':
	if hour >= 8 and hour < 20 and sunWeather = 1:
		if PCloswimwear = 1 or $clothingworntype = 'nude':
			act 'Sunbathe (1:00)':
				if locat['A60'] = 51 and locat['A60_prev'] ! 51:
					*clr & cla
					minut += 5
					MiraVars['follow_time'] = 1
					if pcs_inhib < 50:inhib_exp += rand(1,3)
					gs 'stat'
					if $clothingworntype = 'nude':
						'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mira_go_river_nude.jpg"></center>'
					else
						'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mira_go_river.jpg"></center>'
					end
					'You are sunbathing by the river when Mira comes along. You smile, and she undresses and lays her towel next to yours.'

					act 'Continue': gt 'gad_beach', 'start', 1
				elseif $clothingworntype = 'nude':
					*clr & cla
					minut += 60
					inhib_exp += rand(1,3)
					if pcs_sweat < 35 : gs 'sweat', 'add', 5
					pcs_mood += 5
					if locat['A60'] = 51:
						'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/beachtwogirlsnude.jpg"></center>'
						'You lie next to Mira and gossip about the villagers, enjoying the sun.'
					else
						'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadrivernude.jpg"></center>'
						'You lie down on your towel and start sunbathing.'
					end
					if mc_inventory['suncream'] =  0:
						pcs_tan += 1
					elseif  mc_inventory['suncream'] > 0:
						mc_inventory['suncream'] -=  1
						'You smear the suntan lotion all over your body to help prevent sunburn.'
						pcs_tan += 3
					end
					act 'Finish sunbathing':
						if rand(0, 9) = 0 and locat['A60'] ! 51 and npc_QW['A63'] >= 13 and hour >= 8 and hour < 20:
							*clr & cla
							'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex14.jpg"></center>'
							'You hear several men''s voices rapidly approaching. Suddenly, a couple of the village boys emerge in front of you. Noticing that you are nude, they brighten up considerably. In a few minutes, despite you protesting lively, they have you on all fours and are roughly fucking you...'
							gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
							gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
							gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
							gs 'arousal', 'hj', 10, 'gangbang', 'sub', 'rough'
							gs 'boyStat', 'A62'
							npc_sex[$boy] += 1
							gs 'cum_call','butt',$boy, 1
							gs 'boyStat', 'A63'
							npc_sex[$boy] += 1
							gs 'cum_call','anus',$boy, 1,'','',20
							gs 'boyStat', 'A61'
							npc_sex[$boy] += 1
							gs 'cum_call','mouth_swallow',$boy
							gs 'arousal', 'end'
							gs 'stat'

							act 'Get dressed': gt 'gad_beach', 'start', 1
						else
							gt 'gad_beach', 'start', 1
						end
					end
				else
					*clr & cla
					minut += 60
					if pcs_sweat < 35 : gs 'sweat', 'add', 5
					pcs_mood += 5

					if locat['A60'] = 51:
						'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/beachtwogirls.jpg"></center>'
						'You lie next to Mira and gossip about trivial things, enjoying the sun.'
					else
						'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadrivergirl.jpg"></center>'
						'You sunbathe alone on the riverbank.'
					end
					if mc_inventory['suncream'] =  0:
						pcs_tan += 1
					elseif  mc_inventory['suncream'] > 0:
						mc_inventory['suncream'] -=  1
						pcs_tan += 3
						'You smear suntan lotion all over your body to prevent sunburn. Then, you''re all lathered up and sunbathing a few minutes later.'
					end
					act 'Finish':
						temp_rand = rand(0, 9)
						if temp_rand = 0 and locat['A60'] ! 51 and npc_QW['A63'] >= 13 and hour >= 8 and hour < 20:
							*clr & cla
							'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex15.jpg"></center>'
							'After a while, you hear some familiar voices quickly approaching you. A couple of minutes later, the village boys emerge from the bushes. Noticing you sunbathing, they brighten up considerably. But, in a short time, despite you protesting lively, all of your holes have been violated...'
							gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
							gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
							gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
							gs 'arousal', 'hj', 10, 'gangbang', 'sub', 'rough'
							gs 'arousal', 'end'
							gs 'boyStat', 'A61'
							npc_sex[$boy] += 1
							gs 'cum_call','butt',$boy, 1
							gs 'boyStat', 'A62'
							npc_sex[$boy] += 1
							gs 'cum_call','anus',$boy, 1,'','',20
							gs 'boyStat', 'A63'
							npc_sex[$boy] += 1
							gs 'cum_call','mouth_swallow',$boy
							gang += 1
							gs 'stat'

							act 'Finish': gt 'gad_beach', 'start', 1
						elseif temp_rand = 1 and locat['A60'] = 51 and MiraVars['QW'] >= 15 and hour >= 8 and hour < 20:
							*clr & cla
							'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex16.jpg"></center>'
							'After a while, you hear voices rapidly approaching from the village. You see the village boys emerge from the bushes in a couple of minutes. Seeing Mira, they smile obscenely, and without hesitation, they quickly surround her as she lies on the sand. You sit up and watch as they fuck her in all her holes...'

							gs 'arousal', 'voyeur_sex', 30, 'gangbang', 'dom'
							gs 'arousal', 'end'
							gs 'stat'

							act 'Finish': gt 'gad_beach', 'start', 1
						else
							killvar 'temp_rand'
							gt 'gad_beach', 'start', 1
						end
						killvar 'temp_rand'
					end
				end
			end
		end
	end
end


if $ARGS[0] = 'set_desperado_act':
	if grandpaQW['chore_bathe_horse_prog'] = 1:
		act 'Look at Desperado':
			*clr & cla

			'<center><img <<$set_imgh>> src="images/locations/gadukino/river/horse_river.jpg"></center>'
			'You see Desperado happily walking around in the river.'

			if PCloswimwear = 1 or $clothingworntype = 'nude':
				act 'Wash Desperado':
					*clr & cla

					cumspclnt = 4
					gs 'cum_cleanup'
					minut += 30
					pcs_sweat = 10 + rand(0,4)
					pcs_mood += 5
					if pcs_inhib < 50 or $clothingworntype = 'nude': inhib_exp += rand(1,3)
					gs 'exp_gain', 'hndiwrk', rand(1,3)
					grandpaQW['chore_bathe_horse_prog'] = 2
					gs 'stat'

					if $clothingworntype = 'nude':
						'<center><img <<$set_imgh>> src="images/locations/gadukino/river/wash_horse_nude.jpg"></center>'
					elseif PCloswimwear = 1:
						'<center><img <<$set_imgh>> src="images/locations/gadukino/river/wash_horse_swim.jpg"></center>'
					end
					'You jump in the river and swim over to Desperado. You take your time washing his beautiful chestnut coat.'
					'After half an hour, you are satisfied with your work, and Desperado is ready to be taken back home.'
					if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'

					act 'Get out of the water':
						minut += 5
						gt 'gad_beach', 'start', 1
					end
				end
				if Mira_Loc = 1 and npc_rel['A60'] > 0:
					act 'Wash Desperado with Mira':
						*clr & cla

						cumspclnt = 4
						gs 'cum_cleanup'
						minut += 30
						npc_rel['A60'] += 1
						pcs_sweat = 10 + rand(0,4)
						pcs_mood += 5
						if pcs_inhib < 50 or $clothingworntype = 'nude': inhib_exp += rand(1,3)
						gs 'exp_gain', 'hndiwrk', rand(1,3)
						grandpaQW['chore_bathe_horse_prog'] = 2
						gs 'stat'

						if $clothingworntype = 'nude':
							'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/wash_horse_mira_nude.jpg"></center>'
						elseif PCloswimwear = 1:
							'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/wash_horse_mira_swim.jpg"></center>'
						end
						'You invite Mira to wash Desperado with you; she agrees with nothing better to do.'
						'You swim over to Desperado and begin to splash water on him. You chat with Mira and sometimes splash her instead.'
						'After half an hour, you think Desperado looks cleaner than before and is ready to be taken back home.'
						if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'

						act 'Get out of the water':
							minut += 5
							gt 'gad_beach', 'start', 1
						end
					end
				end

			else
				'You cannot wear regular clothes to wash Desperado.'
				act 'Return': gt 'gad_beach', 'start', 1
			end
		end
	end
	if grandpaQW['chore_bathe_horse_prog'] = 2:
		act 'Lead Desperado back home (0:30)':
			if PCloswimwear = 1:
				cla
				'You need to dress in regular clothes first.'
				act'Return': gt 'gad_beach', 'start', 1
			elseif $clothingworntype = 'nude':
				cla
				'You need to put some clothes on first.'
				act'Return': gt 'gad_beach', 'start', 1
			else
				minut += 30
				gs 'exp_gain', 'hndiwrk', rand(0,3)
				grandpaQW['chore_bathe_horse'] = 2
				grandpaQW['chore_bathe_horse_prog'] = 0
				gs 'stat'

				gt 'gad_gpbarn','horse'
			end
		end
	end
end


if $ARGS[0] = 'Mira_leaves':
	minut += 5
	gs 'stat'
	if $clothingworntype = 'nude':
		'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mira_go_home_nude.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mira_go_home.jpg"></center>'
	end
	*nl
	'"<<$pcs_nickname>>, I have to go home, " Mira said and began gathering her stuff.'

	act 'Continue': gt 'gad_beach', 'start', 1
end

if $ARGS[0] = 'arrive_Mira_already_there':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mira_in_river.jpg"></center>'
	*nl
	'Arriving at the beach, you see Mira lying down, sunbathing on a towel.'
	minut += 5
	MiraVars['follow_time'] = 1
	gs 'stat'

	act 'Continue':
		if Miraswimday ! daystart:
			*clr & cla
			'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mirariver.jpg"></center>'
			*nl
			'"<<$pcs_nickname>>, why are you moping about on the shore? Get in the water and swim with me?" - Mira called out to you as she waded into the river.'
			minut += 1
			Miraswimday = daystart
			gs 'stat'
			act 'Agree and get changed':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/gadukino/river/undressbch1.jpg"></center>'
				*nl
				'"Wait, Mira, I have to change out of my clothes!" you cry in response, although she can hardly hear you as she is already splashing around in the river.'
				'You start to take off your clothes.'
				if func('changingroom','count_swim_item') > 0:
					act 'Change into swimwear':
						gs 'gad_beach', 'get_changed', 'start'
					end
				end
				if pcs_inhib >= 25 or exhibitionist_lvl > 1:
					act 'Strip naked':
						cla
						minut += 5
						$lastwornclothingtype['swim'] = $clothingworntype
						lastwornclothingnumber['swim'] = clothingwornnumber
						$lastwornpantytype['swim'] = $pantyworntype
						lastwornpantynumber['swim'] = pantywornnumber
						$lastwornbratype['swim'] = $braworntype
						lastwornbranumber['swim'] = brawornnumber
						gs 'clothing', 'strip_all', 'VillageRiver'
						inhib_exp += rand(1,3)
						'Without hesitation, you take off all your clothes and neatly fold them before putting them down in a pile. Without your clothes holding you back, you can go for a nice swim in the river or lie down in the sand and sunbathe.'

						act 'Swim':
							*clr & cla
							'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/rivertwogirlsnude'+rand(0,5)+'.jpg"></center>'
							*nl
							'You wade into the river and have fun with Mira spraying each other with water.'
							if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
							cumspclnt = 4 & gs 'cum_cleanup'

							minut += 20
							gs 'exercise', 'tier1', 10, 'stren', 'vital'

							pcs_sweat = 10 + rand(0,4)
							gs'stat'

							act 'Get out of the water': gt 'gad_beach', 1
						end
					end
				end
				act 'Second thoughts': gt 'gad_beach', 'second_thoughts'
			end
			act 'Refuse': gt 'gad_beach', 'second_thoughts'
		else
			gt 'gad_beach', 'start', 1
		end
	end
end



if $ARGS[0] = 'get_changed':
	menu_off = 1
	$loc_arg = 'get_changed'
	if $ARGS[1] = 'start':
		gt 'changingroom', 'view_swim_list'
	else
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/gadukino/river/undressbch.jpg"></center>'
		*nl
		'You put on your swimwear and neatly fold your clothes before putting them down in a pile. Now you can go for a nice swim in the river or just lie down in the sand and sunbathe.'
		if PCloswimwear = 1:
			act 'Swim':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/rivertwogirls.jpg"></center>'
				*nl
				'You wade into the river and have fun with Mira spraying each other with water.'
				if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
				cumspclnt = 4 & gs 'cum_cleanup'

				minut += 29
				if pcs_inhib < 50: inhib_exp += rand(1, 2)
				gs 'exercise', 'tier1', 1, 'stren', 'vital'


				pcs_sweat = 10 + rand(0, 4)
				gs 'stat'

				act 'Get out of the water': gt 'gad_beach', 'start', 1
			end
		else
			act 'Second thoughts': gt 'gad_beach', 'second_thoughts'
		end
	end
end

if $ARGS[0] = 'second_thoughts':
	*clr & cla
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mirariver.jpg"></center>'
	*nl
	if func('changingroom', 'count_swim_item') = 0:
		'"Actually, Mira, I can''t come in right now, as I didn''t bring a swimsuit", you replied you here. "I''m going to stay on the shore for a bit."'
		*nl
		'You should probably buy some swimwear if you intend to spend time at the beach.'
		*nl
	else
		'"Actually, Mira, I''ve changed my mind. I don''t feel like swimming just now," you replied to her. "I''m going to stay on the shore for a bit."'
	end
	minut += 1
	npc_rel['A60'] -= 1
	gs 'stat'

	act 'Continue': gt 'gad_beach', 'start', 1
end


if $ARGS[0] = 'Mira':
	menu_off = 1
	minut += 2
	gs 'stat'

	if ARGS[1] = 1:
		if MiraVars['QW'] < 12:
			'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mirabeach.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mirabeachnude.jpg"></center>'
		end
	else
		if MiraVars['QW'] < 12:
			'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mirariver.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mirarivernude.jpg"></center>'
		end
	end

	act 'Chat':
		delact 'Chat'
		minut += 10
		pcs_mood += 10
		gs 'stat'

		if MiraVars['QW'] < 7:
			if npc_rel['A60'] < 15: npc_rel['A60'] += 1
			'You and Mira are chatting about trivial things.'
		elseif MiraVars['QW'] = 7:
			'You decide to speak with Mira, "So what is there to do here in the village?"'
			'"It''s a lot quieter than a town, but we have a shop, this lovely beach, and some beautiful walks. Other than that, there are only the Gopnik guys, but they are just after one thing, and I don''t want that. Plus, dad would kill me."'
		elseif MiraVars['QW'] = 8:
			'Mira breaks the silence, "What brings you here to the village?"'
			'"My granma-ma and Pop-pop live here. My folks like to come here over the summer. They think the country air will be good for me."'
		elseif MiraVars['QW'] <= 10:
			'You talk to Mira about what it is like living in the village.'
		elseif MiraVars['QW'] <= 14:
			'Mira asks you about Pavlovsk, and you tell her all about it.'
		elseif MiraVars['QW'] <= 19:
			'You and Mira talk about clothes and shopping, she has a thing for shoes but can''t wear pretty heels because of all the mud.'
		elseif MiraVars['QW'] <= 29 or MiraVars['prostitute'] = 0:
			'It is always lovely to talk with Mira, and you gossip about boys.'
		elseif MiraVars['QW'] >= 30 and MiraVars['prostitute'] > 0:
			'You and Mira talk about her being the village prostitute and how she can improve her performance.'
		end
	end
	act 'Leave': gt 'gad_beach', 'start', 1
end


if $ARGS[0] = 'GuysBeach':
	*clr & cla
	menu_off = 1
	minut += 5
	pcs_horny += 10
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/gadukino/river/mitkaguysriver.jpg"></center>'
	'"Oh, hi, <<$pcs_nickname>>. So it''s just you today?" Kolyamba grinned.'

	temp_rand = rand(0, 10)
	if temp_rand <= 4:
		'"There doesn''t seem to be anyone else around, and all of us are as horny as bullfrogs. Do you want to have a little fun with us? Come on, spread your legs, show us your pussy and start playing with yourself..."'
	elseif temp_rand <= 8:
		'"There doesn''t seem to be anyone around, and we are as horny as bullfrogs. Do you want to have a little fun with us? How about you give us a blowjob? We''ll be really grateful, ha-ha!"'
	else
		'"Ah, no, Mira, it''s just our other hot babe. Come here, lovely. We have something exceptional for you."'
	end
	if temp_rand < 4:
		act 'Pleasure Kolyamba':
			*clr & cla
			gs 'boyStat', 'A61'
			pose = 0
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex.jpg"></center>'
			'You quickly take off your pants and climb onto Kolyamba, grabbing his cock, and leading it inside you.'

			gs 'arousal', 'vaginal', 10, 'sub', 'group'
			gs 'stat'

			act 'Pleasure Vasyan':
				*clr & cla
				gs 'boyStat', 'A62'
				pose = 0
				gs 'stat'
				temp_rand = rand(0, 2)
				if temp_rand = 0:
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex1.jpg"></center>'
					'Vasyan rolls you onto your back, sticking his cock into your wet pussy.'
					gs 'arousal', 'vaginal', 10, 'sub', 'group'
					gs 'arousal', 'end'
					gs 'stat'
				elseif temp_rand = 1:
					gs 'boyStat', 'A62'
					spafinloc = 12
					gs 'cum_manage'
					gs'stat'
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex2.jpg"></center>'
					'Vasya steps up to you and slaps you in the face while pulling out his cock, forcing you on your knees so he can beat you with his dick.'
					'He forcefully shoves the cock into your mouth and cums lavishly in your mouth...'
					gs 'arousal', 'bj', 5, 'sub', 'group', 'rough'
					gs 'arousal', 'end'
					gs 'stat'
				else
					gs 'boyStat', 'A62'
					pcs_ass += 1
					spafinloc = 3
					gs 'cum_manage'
					gs'stat'
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex3.jpg"></center>'
					'Vasyan forces you on all four and starts pumping his dick into your ass.'
					gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
					gs 'arousal', 'end'
					gs 'stat'
				end
				act 'Leave': gt 'gad_beach', 'start', 1
				killvar 'temp_rand'
			end
		end
	elseif temp_rand < 8:
		act 'Pleasure Kolyamba':
			*clr & cla
			gs 'boyStat', 'A61'
			spafinloc = 12
			gs 'cum_manage'
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex4.jpg"></center>'
			'You get down on your knees and start licking Kolyamba''s dick. Then, after a while, you start sucking it like a popsicle...'
			'He only manages to hold out for a short time finishing in your mouth...'

			gs 'arousal', 'bj', 5, 'sub', 'group', 'rough'
			gs 'stat'
			act 'Pleasure Vasyan':
				*clr & cla
				gs 'boyStat', 'A62'
				pose = 0
				gs 'stat'

				temp_rand = rand(0, 2)
				if temp_rand = 0:
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex5.jpg"></center>'
					'Vasyan lays you onto your back, using his fingers to stimulate your vaginal lips while sticking his cock into your wet pussy.'
					gs 'arousal', 'vaginal', 10, 'sub', 'group', 'rough'
					gs 'arousal', 'end'
					gs 'stat'
				elseif temp_rand = 1:
					gs 'boyStat', 'A62'
					spafinloc = 12
					gs 'cum_manage'
					gs'stat'
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex6.jpg"></center>'
					'Vasyan roughs you up with his hands and then takes out his dick, forcing you to suck him off.'
					'He shoves the cock into your mouth and soon cums violently...'
					gs 'arousal', 'bj', 5, 'sub', 'group', 'rough'
					gs 'arousal', 'end'
					gs 'stat'
				else
					gs 'boyStat', 'A62'
					pcs_ass += 1
					spafinloc = 3
					gs 'cum_manage'
					gs'stat'
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex7.jpg"></center>'
					'Vasyan forces you on all fours, telling you that you will enjoy this. Then, he pulls out his dick and starts fucking you in the ass.'
					gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
					gs 'arousal', 'end'
					gs 'stat'
				end
				act 'Leave': gt 'gad_beach', 'start', 1
				killvar 'temp_rand'
			end
		end
	else
		act 'Pleasure Kolyamba':
			*clr & cla
			gs 'boyStat', 'A61'
			pcs_ass += 1
			spafinloc = 3
			gs 'cum_manage'
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex8.jpg"></center>'
			'Kolyamba looks you in the eyes and asks if you trust him. You gulp and reply, "Yes." He takes out a blindfold and places it over your eyes so you can''t see what''s happening next. Kolyamba then proceeds to take both of your clothes off. You stand in front of him, blindfolded, naked, and full of anticipation.'
			'He orders you to get down on your knees. He grabs your head and tells you to open your mouth. While pleasuring him, he orders you to stop and moves the cock away from the mouth. He then lies down on the ground and tells you to mount him. You move on top of him while he grabs his cock and leads it inside your ass. He frantically starts thrusting his cock inside your ass, cumming after a short while.'

			gs 'arousal', 'bj', 10, 'sub', 'group', 'rough'
			gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
			minut -= 10
			gs 'stat'

			act 'Pleasure Vasyan':
				*clr & cla
				gs 'boyStat', 'A62'
				pose = 1
				gs 'stat'

				temp_rand = rand(0, 2)
				if temp_rand = 0:
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex9.jpg"></center>'
					'Vasyan tells you he heard about a sex position where both of you will reach ecstasy. Intrigued by this, you take your clothes off and start caressing his cock. He removes your hand from his cock and tells you to get down on your hands and knees. Vasya walks behind you, grabs his cock and enters you from behind. You gasp as he mounts you. Soon enough, you both cry out in ecstasy cumming at the same time.'

					$orgasm_or = 'yes'
					gs 'arousal', 'bj', 10, 'sub', 'group', 'rough'
					gs 'arousal', 'vaginal', 10, 'sub', 'group', 'rough'
					minut -= 10
					gs 'arousal', 'end'
					gs 'stat'

				elseif temp_rand = 1:
					gs 'boyStat', 'A62'
					spafinloc = 12
					gs 'cum_manage'
					gs'stat'

					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex10.jpg"></center>'
					'Vasyan steps closer to you and tells you he wants his cock sucked. You drop down on your knees and start sucking his glans.'
					'Feeling dissatisfied by your performance, he grabs you by the head. He forces his cock deep down your throat, mumbling something about teaching you how to do it properly. Finally, he finishes inside your mouth...'
					gs 'arousal', 'bj', 5, 'sub', 'group', 'rough', 'deepthroat'
					gs 'arousal', 'end'
					gs 'stat'
				else
					gs 'boyStat', 'A62'
					pcs_ass += 1
					spafinloc = 3
					gs 'cum_manage'
					gs'stat'

					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex11.jpg"></center>'
					'Vasyan forces you to your hands and knees and starts thrusting his dick into your anus.'
					gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
					gs 'arousal', 'end'
					gs 'stat'
				end
				act 'Leave': gt 'gad_beach', 'start', 1
				killvar 'temp_rand'
			end
		end
	end
	act 'Leave': gt 'gad_beach', 'start', 1
	killvar 'temp_rand'
end




--- gad_beach ---------------------------------