glife/locations/gadriver.qsrc

# gadriver
!!2022/05/02

if $ARGS[0] = 'start':
	$loc_arg = 'start'
	$loc = 'gadriver'
	menu_off = 0
	$menu_loc = 'gadriver'
	$menu_arg = 'start'
	$location_type = 'public_outdoors'

	gs 'stat'

	'<center><H2>Slavka River</H2></center>'

	if month >= 5 and month <= 9:
		if hour >= 6 and hour < 22:
			'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver_night.jpg"></center>'
		end
	else
		if hour >= 8 and hour < 18:
			'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver_winter.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver_winter_night.jpg"></center>'
		end
	end

	'A large river flows lazily for a few hundred meters on the northern outskirts of Gadukino.'

	if hour >= 6 and hour < 21 and sunWeather = 1: 'You see the local <a href="exec:gt ''gadriver'', ''fishers''">fishermen</a> fishing with their rods on the riverbank.'

	temp_gr = rand(0,20)

	if temp_gr = 1 and hour < 5 and month >= 5 and month <= 9 and npc_QW['A60'] >= 20: 'Right next to the path leading to the river, you see <a href="exec: gt ''gadriver'', ''mirapunish'' ">Mira</a> naked, bound with ropes between two trees...'

	if temp_gr = 4 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5:
		if mitkaguysriver ! daystart:
			mitkaguysriver = daystart
			'While going to the river, you meet Kolyamba and Vasyan. They first invite you to join them, then insist you go with them.'

			act 'Go with them':
				*clr & cla
				menu_off = 1
				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex17.jpg"></center>'
				'The boys take you to Vasyan''s house, where they rudely keep pushing you until you are bent over the kitchen table. They then take turns fucking you...'
				gs 'boyStat', 'A61'
				npc_sex[$boy] += 1
				pose = 1
				if mesec = 0:
					gs 'dinsex', 'boy_puts_condom'
					gs 'dinsex','vaginal_sex',20,'sub','gangbang'
					gs 'dinsex','sexcum'
				else
					gs 'dinSex','boy_wants_anal','','lubri'
					gs 'dinsex','analsex',20,'sub','gangbang'
				end
				gs 'boyStat', 'A62'
				npc_sex[$boy] += 1
				if mesec = 0:
					gs 'dinsex', 'boy_puts_condom'
					gs 'dinsex','vaginal_sex',20,'sub','gangbang'
					gs 'dinsex','sexcum'
				else
					gs 'dinSex','boy_wants_anal','','lubri'
					gs 'dinsex','analsex',20,'sub','gangbang'
				end
				gs 'stat'

				act 'Finish':minut += 10 & gt'gadukino'
			end
		else
			act 'Walk to Gadukino (0:20)':minut += 20 & gt 'gadukino'
			act 'Walk to the road (0:10)':minut += 10 & gt 'gadroad'
			act 'Walk to the beach (0:05)':minut += 5 & gt 'gadriver', 'gadbitch'
		end
	elseif temp_gr = 5 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5:
		if mitkaguysriver ! daystart:
			mitkaguysriver = daystart
			'While walking towards the river, you meet the village boys you''ve been drinking with recently. They ask you to go with them.'

			act 'Go with them':
				*clr & cla
				menu_off = 1
				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex18.jpg"></center>'
				'The boys lead you to Vasyan''s house and start undressing; following their lead, you strip off, too, "We''re going to fuck your ass. I hope you can enjoy it, but I''m not going to be upset if you don''t."'
				gs 'arousal', 'auto_lube', 'anal'
				'They don''t say anything more before they spend the next hour fucking you in the ass...'
				gs 'arousal', 'anal', 20, 'gangbang', 'sub'
				gs 'arousal', 'anal', 20, 'gangbang', 'sub'
				gs 'arousal', 'anal', 20, 'gangbang', 'sub'
				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','butt',$boy,1
				gs 'boyStat', 'A62'
				npc_sex[$boy] += 1
				gs 'cum_call','butt',$boy,1
				pcs_ass += 3
				gs 'stat'

				act 'Leave': gt'gadukino'
			end
		else
			act 'Walk to Gadukino (0:20)':minut += 20 & gt 'gadukino'
			act 'Walk to the road (0:10)':minut += 10 & gt 'gadroad'
			act 'Walk to the beach (0:05)':minut += 5 & gt 'gadriver', 'gadbitch'
		end
	elseif temp_gr = 6 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5:
		if mitkaguysriver ! daystart:
			mitkaguysriver = daystart
			'On your way to the river, you meet Vasyan. But, unfortunately, he insists you follow him home...'

			act 'Go with him':
				*clr & cla
				menu_off = 1
				gs 'boyStat', 'A62'
				npc_sex[$boy] += 1
				pose = 1

				if mesec = 0:
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex20.jpg"></center>'
					'As soon as you open the door, Vasyan pushes you inside and pulls your clothes off crudely. Once you are naked, he moves you towards the sofa and forces you to your knees...'
					gs 'arousal', 'vaginal', 20, 'sub'
					gs 'cum_call','butt',$boy,1
				else
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex21.jpg"></center>'
					'As soon as you open the door, Vasyan pushes you inside and pulls your clothes off crudely. He then throws you onto his bed. Noticing that you are slightly bleeding, he asks if it is that time of the month. You whimper, "Yes." He curses angrily, turns you over and begins roughly fucking your ass...'
					gs 'arousal', 'anal', 20, 'sub'
					gs 'cum_call','butt',$boy,1
				end
				gs 'arousal', 'end'
				gs 'stat'

				act 'Finish': gt'gadukino'
			end
		else
			act 'Walk to Gadukino (0:20)':minut += 20 & gt 'gadukino'
			act 'Walk to the road (0:10)':minut += 10 & gt 'gadroad'
			act 'Walk to the beach (0:05)':minut += 5 & gt 'gadriver', 'gadbitch'
		end
	else
		act 'Walk to Gadukino (0:20)':minut += 20 & gt 'gadukino'
		act 'Walk to the road (0:10)':minut += 10 & gt 'gadroad'
		act 'Walk to the beach (0:05)':minut += 5 & gt 'gadriver', 'gadbitch'
	end
end

if $ARGS[0] = 'gadbitch':
	PC_arrive = iif($loc_arg ! 'gadbitch', 1 , 0)
	$location_type = 'public_outdoors'
	$loc_arg = 'gadbitch'
	$loc = 'gadriver'
	killvar '$locclass'
	menu_off = 1
	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 MiraLoc = 1:temp_gr = rand(0,20)

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

	if MiraLoc ! 1 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 ''gadriver'', ''GuysRiver'' ">Kolyamba and Vasyan</a> are resting on the riverbank.'

	act 'Walk to the river (0:05)':
		cla
		if PCloswimwear = 1:
			cla
			'You need to dress in regular clothes first.'
			act'Return':gt'gadriver', 'gadbitch'
		elseif $clothingworntype = 'nude':
			'You need to put some clothes on first.'
			act'Return':gt'gadriver', 'gadbitch'
		else
			minut += 5
			gt 'gadriver', '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 'gadriver', 'gadbitch'
		end
	end

	if temper >= 15 and month >= 5 and month <= 9:
		temp_gr = rand(0,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 'gadriver', 'gadbitch'
			end
		end
		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 += 30
				gs 'exercise', 'tier1', 1, 'stren'
				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 MiraLoc = 1:
						'<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 MiraLoc = 1:
						'<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':
					if MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp_gr = 0 and hour >= 8 and hour < 20:
						*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'gadriver', 'gadbitch'
					elseif MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp_gr = 1 and hour >= 8 and hour < 20:
						*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'gadriver', 'gadbitch'
					else
						gt'gadriver', 'gadbitch'
					end
				end
			end
		else
			if $clothingworntype = 'nude':
				act 'Go skinny dipping':
					cla
					*clr
					temp_gr = rand(0,15)
					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 temp_gr >= 10 and MiraLoc = 1:
							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 MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp_gr = 0 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'gadriver', 'gadbitch'
						else
							gt'gadriver', 'gadbitch'
						end
					end
				end
			end
		end
		if hour >= 8 and hour < 20 and sunWeather = 1:
			if PCloswimwear = 1 or $clothingworntype = 'nude':
				act 'Sunbathe (1:00)':
					if Mira_no = 0 and npc_rel['A60'] > 0 and MiraLoc ! 1 and rand(1,10) > 7 and hour > 8 and hour < 20 and sunWeather = 1 and temper >= 15:
						cla
						*clr
						MiraLoc = 1
						mira_go_river = 1
						minut += 5
						mira_go_blok = 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'gadriver', 'gadbitch'
					elseif $clothingworntype = 'nude':
						*clr & cla
						minut += 60
						inhib_exp += rand(1,3)
						if pcs_sweat < 35 : gs 'sweat', 'add', 5
						pcs_mood += 5
						if temp_gr < 10 and MiraLoc = 1:
							'<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 krem = 0:
							pcs_tan += 1
						elseif krem > 0:
							krem -= 1
							'You smear the suntan lotion all over your body to help prevent sunburn.'
							pcs_tan += 3
						end
						act 'Finish sunbathing':
							if MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp_gr = 0 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'gadriver', 'gadbitch'
							else
								gt'gadriver', 'gadbitch'
							end
						end
					else
						*clr & cla
						minut += 60
						if pcs_sweat < 35 : gs 'sweat', 'add', 5
						pcs_mood += 5

						if temp_gr < 10 and MiraLoc = 1:
							'<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 krem = 0:
							pcs_tan += 1
						elseif krem > 0:
							krem -= 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':

							if MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp_gr = 0 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'gadriver', 'gadbitch'
							elseif MiraLoc = 1 and npc_QW['A60'] >= 15 and temp_gr = 1 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'gadriver', 'gadbitch'
							else
								gt'gadriver', 'gadbitch'
							end
						end
					end
				end
			end
		end
		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'gadriver', 'gadbitch'
						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'gadriver', 'gadbitch'
							end
						end
					end

				else
					'You cannot wear regular clothes to wash Desperado.'
					act 'Return': gt'gadriver', 'gadbitch'
				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'gadriver', 'gadbitch'
				elseif $clothingworntype = 'nude':
					cla
					'You need to put some clothes on first.'
					act'Return':gt'gadriver', 'gadbitch'
				else
					minut += 30
					gs 'exp_gain', 'hndiwrk', rand(0,3)
					grandpaQW['chore_bathe_horse'] = 2
					grandpaQW['chore_bathe_horse_prog'] = 0
					gs 'stat'

					gt'gadsarai','horse'
				end
			end
		end
	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 (mira_go_blok = 0 and MiraLoc = 1 and rand(1,10) = 5) or (MiraLoc = 1 and hour >= 20):
		*clr & cla
		minut += 5
		mira_go_blok = 1
		mira_no_home = 0
		MiraLoc = 0
		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'gadriver', 'gadbitch'
	elseif Mira_no = 0 and MiraLoc = 1 and hour > 8 and hour < 20 and sunWeather = 1 and temper >= 15 and PC_arrive = 1:
		*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.'
		MiraLoc = 1
		minut += 5
		mira_go_blok = 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 'gadriver','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.'
								temp_gr = rand(0,15)
								cumspclnt = 4 & gs 'cum_cleanup'
								minut += 20
								gs 'exercise', 'tier1', 10, 'stren'
								pcs_sweat = 10 + rand(0,4)
								gs'stat'

								act 'Get out of the water':gt'gadriver', 'gadbitch'
							end
						end
					end
					act'Second thoughts': gt 'gadriver', 'second_thoughts'
				end
				act'Refuse': gt 'gadriver', 'second_thoughts'
			else
				gt'gadriver', 'gadbitch'
			end
		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.'
				temp_gr = rand(0,15)
				cumspclnt = 4 & gs 'cum_cleanup'
				minut += 30
				if pcs_inhib < 50:inhib_exp += rand(1,2)
				gs 'exercise', 'tier1', 1, 'stren'
				pcs_sweat = 10 + rand(0,4)
				gs'stat'

				act 'Get out of the water':gt'gadriver', 'gadbitch'
			end
		else
			act'Second thoughts': gt 'gadriver', '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'gadriver', 'gadbitch'
end

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

	if sun = 1:
		if npc_QW['A60'] < 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 npc_QW['A60'] < 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 'Leave':gt 'gadriver', 'gadbitch'

	act 'Chat':
		*clr & cla
		minut += 10
		pcs_mood += 10
		gs 'stat'
		if sun = 1:
			if npc_QW['A60'] < 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 npc_QW['A60'] < 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
		if npc_QW['A60'] >= 0:
			if npc_QW['A60'] >= 30 and miraprost > 0 and sunWeather = 1:
				'You and Mira talk about her being the village prostitute and how she can improve her performance.'
			elseif npc_QW['A60'] >= 20 and sunWeather = 1:
				'It is always lovely to talk with Mira, and you gossip about boys.'
			elseif npc_QW['A60'] >= 15 and sunWeather = 1:
				'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 npc_QW['A60'] >= 11 and sunWeather = 1:
				'Mira asks you about Pavlovsk, and you tell her all about it.'
			elseif npc_QW['A60'] >= 9 and sunWeather = 1:
				'You talk to Mira about what it is like living in the village.'
			elseif npc_QW['A60'] >= 8 and sunWeather = 1:
				'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 npc_QW['A60'] = 7 and sunWeather = 1:
				'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 npc_QW['A60'] < 7 and sunWeather = 1:
				if npc_rel['A60'] < 15:npc_rel['A60'] += 1
				'You and Mira are chatting about trivial things.'
			end
		end
		act 'Leave':gt 'gadriver', 'gadbitch'
	end
end

if $ARGS[0] = 'mirapunish':
	*clr & cla
	menu_off = 1
	minut += 10
	pcs_horny += rand(25,75)
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/mirapunish.jpg"></center>'
	'You approach Mira. She looks distressed and embarrassingly smiles as you start asking what happened. She pleads with you to release her. As you untie her, she explains that Kolyamba punished her for barely biting his cock as she sucked it...'
	'"Thank God you showed up," she says with a sigh of relief as you untie her. "I''m glad you found me and not one of those old hags from the village. They would call me a whore, and I would get scolded for being promiscuous. Those old hags hate us, you know. We''re young and beautiful, and they are just mean old wretches." said the naked Mira, revealing her true feelings about the villagers. She continues quietly, "Or it could have been even worse. Someone could have abused me, raped me or even killed m..." Then, she suddenly stops and lunges in your arms, weeping. "Thank you," she tells you. "You saved my life!"'

	act 'Leave':gt 'gadriver', 'gadbitch'
end

if $ARGS[0] = 'GuysRiver':
	*clr & cla
	menu_off = 1
	minut += 5
	pcs_horny += 10
	gs 'stat'
	temp_gr = rand(0,10)

	'<center><img <<$set_imgh>> src="images/locations/gadukino/river/mitkaguysriver.jpg"></center>'
	'"Oh, hi, <<$pcs_nickname>>. So it''s just you today?" Kolyamba grinned.'
	if temp_gr <= 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_gr > 4 and temp_gr <= 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_gr < 4:
		act 'Pleasure Kolyamba':
			*clr & cla
			gs 'boyStat', 'A61'
			pose = 0
			temp_gr = rand(0,2)
			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_gr = rand(0,2)
				if temp_gr = 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_gr = 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'gadriver', 'gadbitch'
			end
		end
	elseif temp_gr < 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_gr = rand(0,2)
				if temp_gr = 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_gr = 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'gadriver', 'gadbitch'
			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_gr = rand(0,2)

				if temp_gr = 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_gr = 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'gadriver', 'gadbitch'
			end
		end
	end
	act 'Leave':gt'gadriver', 'gadbitch'
end

if $ARGS[0] = 'fishers':
	*clr & cla
	menu_off = 1
	minut += 2
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriverfishers.jpg"></center>'

	if fishersday ! daystart:
		act 'Greet':
			cla
			*clr
			fishersday = daystart
			minut += 3
			if fishersQW < 3:fishersQW += 1
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/locations/gadukino/river/hifishers.jpg"></center>'
			'You politely greet the fishermen, but they are too focused on fishing. One of them absently waves in your general direction in response.'

			if fishersQW >= 3:
				act 'Chat':
					cla
					*clr
					minut += 10
					if fishersQW = 3:fishersQW = 4
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
					'You keep watching as the fishermen throw out their lures. One catches a fish and shows off his trophy before putting it into the fish bail. The two of you chat about fishing.'

					act 'Leave':gt 'gadriver', 'start'
				end
			end
			if fishersQW = 4:
				act 'Ask to borrow a fishing rod':
					cla
					*clr
					minut += 10
					fishersQW = 5
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
					'You decide to try your luck at fishing and ask the fishermen if they could lend you a fishing rod. Uncle Stepan, a friend of the family, points to a pile of spare rods and tells you to pick one.'

					act 'Fishing':gt 'gadriver', 'fishing'
				end
			end
			if fishersQW = 5:
				act 'Fishing with them':
					cla
					*clr
					minut += 10
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
					'You decide to join your new friends. Uncle Stepan tells you he has plenty of spare rods and hands you a rod while his eyes travel up and down your body.'

					act 'Fishing':gt 'gadriver', 'fishing'
				end
			end

			act 'Leave':gt 'gadriver', 'start'
		end
	else
		act 'Leave':gt 'gadriver', 'start'
	end
end

if $ARGS[0] = 'fishing':
	cla
	*clr
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver.jpg"></center>'
	'The stream quietly flows over the rocks, pleasantly tickling your ears. You gaze at the village that''s entirely peaceful. There is a sense of serenity about it today.'
	'You caught <<fish>> fish.'
	if hour < 22:
		act 'Throw the bait':
			*clr & cla
			minut += rand(5,10)
			if hour < 12:
				temp_gr = rand(5,20)
			elseif hour >= 12 and hour < 18:
				temp_gr = rand(0,20)
			else
				temp_gr = rand(10,20)
			end
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/locations/gadukino/river/fishingriver.jpg"></center>'
			'You throw out the lure and watch the bobber for signs of a nibble.'

			if temp_gr > rand(15,19):
				cla
				*clr
				minut += 1
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/locations/gadukino/river/nofishingriver.jpg"></center>'
				'Suddenly the bobber dives under the water dramatically. You got one!'

				act 'Pull':
					cla
					*clr
					minut += 1
					temp_gr = rand(0,120)
					if temp_gr < 50:gs 'exp_gain', 'react', 1
					gs 'stat'

					if pcs_react > temp_gr:
						pcs_mood += rand(5,10)
						minut += 1
						gs 'exp_gain', 'react', 1
						fish += 1
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/gadukino/river/fishyes.jpg"></center>'
						'You skillfully strike, pulling the rod up sharply. You feel the rod straining slightly, and after a few moments, you excitedly pull a small fish out of the water.'
					else
						pcs_mood -= rand(5,10)
						minut += 1
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/gadukino/river/gadriver.jpg"></center>'
						'You strike, but the lack of tension makes the fish escape from the hook.'

					end
					act 'Throw another bait':gt 'gadriver', 'fishing'
				end
			else
				'The bobber remains perfectly still. Eventually, you decide to try a different lure.'
				act 'Retrieve bait':gt 'gadriver', 'fishing'
			end
		end
		act 'Finish':
			cla
			*clr
			minut += 5
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
			'You''re tired, so you return the fishing rod to uncle Stepan.'
			if fish > 0:
				act 'Release your catch':
					cla
					*clr
					minut += 5
					fish = 0
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
					'You decide to release all the fish you caught today. The other fishermen shake their heads disapprovingly, throwing sidelong glances at your body as you dump the fish back into the river.'

					act 'Leave':gt $loc, $loc_arg
				end
				act 'Give the fish to Uncle Stepan':
					cla
					*clr
					minut += 5
					fish = 0
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
					'You give all the fish you caught to uncle Stepan, and he makes a show out of reluctantly accepting them. Still, you can see that he is pretty happy with this arrangement.'

					act 'Leave':gt $loc, $loc_arg
				end
				act 'Bring a fish to Boniface':
					cla
					*clr
					minut += 5
					fish -= 1
					pcs_mood += rand(15,40)
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/villcat2.jpg"></center>'
					'As soon as you enter the house, Boniface immediately jumps to the floor and twines around your feet. Then, the furry beast starts loudly yowling and pawing at your legs. He has obviously detected the smell of fresh fish. You treat Boniface to a small fish, and within a few minutes, all that remains is a pile of fish bones.'
					if fish >0: fish = 0 & 'You try to give the rest of the fish to your grandmother, but she takes one look at the intact fish and points at your grandfather. He sighs heavily, then takes the fish outside to clean them.'

					act 'Finish': gt 'gadhouse', 'start'
				end
				act 'Give the fish to your grandmother':
					cla
					*clr
					minut += 5
					'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/givefish.jpg"></center>'
					'You try to give the fish to your grandmother, but she takes one look at the intact fish and points at your grandfather. He sighs heavily, then takes the fish outside to clean them.'

					act 'Finish': gt 'gadhouse', 'start'
				end
			else
				act 'Leave':gt $loc, $loc_arg
			end
		end
	else
		cla
		*clr
		minut += 5
		pcs_mood -= rand(5,10)
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
		'Uncle Stepan says, "It''s time to head home, young lady." You reluctantly return his fishing rod, knowing that''s it for today.'

		if fish > 0:
			act 'Release your catch':
				cla
				*clr
				minut += 5
				fish = 0
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
				'You decide to release all the fish you caught today. The other fishermen shake their heads disapprovingly, throwing sidelong glances at your body as you dump the fish back into the river.'

				act 'Leave':gt $loc, $loc_arg
			end
			act 'Give to Uncle Stepan':
				cla
				*clr
				minut += 5
				fish = 0
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
				'You give all the fish caught to uncle Stepan, who reluctantly accepts them. You can see he is pretty happy with this arrangement.'

				act 'Leave':gt $loc, $loc_arg
			end
			if grandmaQW['block'] = 0:
				act 'Bring a fish to Boniface':
					cla
					*clr
					minut += 5
					fish -= 1
					pcs_mood += rand(15,40)
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/villcat2.jpg"></center>'
					'As soon as you enter the house, Boniface immediately jumps to the floor and twines around your feet. Then, the furry beast starts loudly yowling and pawing at your legs. He has obviously detected the smell of fresh fish. You treat Boniface to a small fish, and within a few minutes, all that remains is a pile of fish bones.'
					if fish >0: fish = 0 & 'You try to give the rest of the fish to your grandmother, but she takes one look at the intact fish and points at your grandfather. He sighs heavily, then takes the fish outside to clean them.'

					act 'Finish': gt 'gadhouse', 'start'
				end
				act 'Give the fish to your grandmother':
					cla
					*clr
					minut += 5
					'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/givefish.jpg"></center>'
					'You try to give the fish to your grandmother, but she takes one look at the intact fish and points at your grandfather. He sighs heavily, then takes the fish outside to clean them.'

					act 'Finish': gt 'gadhouse', 'start'
				end
			end
		else
			act 'Leave':gt $loc, $loc_arg
		end
	end
end
--- gadriver ---------------------------------