glife/locations/gad_river.qsrc

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

$loc = 'gad_river'
$menu_loc = 'gad_river'

if $ARGS[0] = 'start':
	gs 'shortgs', 'setloc', 'gad_river', 'start'
	$location_type = 'public_outdoors'
	menu_off = 0
	gs 'miroslava_schedule'
	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 ''gad_river'', ''fishers''">fishermen</a> fishing with their rods on the riverbank.'

	temp_rand = rand(0, 20)

	if temp_rand = 1 and hour < 5 and month >= 5 and month <= 9 and MiraVars['QW'] >= 20:
		'Right next to the path leading to the river, you see <a href="exec: gt ''gad_river'', ''mirapunish'' ">Mira</a> naked, bound with ropes between two trees...'
	elseif temp_rand = 4 and GadBoy['river_day'] ! daystart and (locat['A60'] / 10) ! 5 and npc_QW['A63'] >= 13 and hour >= 5:
		GadBoy['river_day'] = 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
	elseif temp_rand = 5 and GadBoy['river_day'] ! daystart and (locat['A60'] / 10) ! 5 and npc_QW['A63'] >= 13 and hour >= 5:
		GadBoy['river_day'] = 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
	elseif temp_rand = 6 and GadBoy['river_day'] ! daystart and (locat['A60'] / 10) ! 5 and npc_QW['A63'] >= 13 and hour >= 5:
		GadBoy['river_day'] = 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 the beach (0:05)': minut += 5 & gt 'gad_beach', 'start'
		act 'Walk to the road (0:10)': minut += 10 & gt 'gad_road', 'start'
		act 'Walk to Gadukino (0:20)': minut += 20 & gt 'gadukino'
	end
	killvar 'temp_rand'
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 'gad_beach', 'start'
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 'Leave': gt 'gad_river', 'start'
	else
		act 'Greet':
			*clr & cla
			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':
					*clr & cla
					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 'gad_river', 'start'
				end
			end
			if fishersQW = 4:
				act 'Ask to borrow a fishing rod':
					*clr & cla
					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 'gad_river', 'fishing'
				end
			elseif fishersQW = 5:
				act 'Fishing with them':
					*clr & cla
					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 'gad_river', 'fishing'
				end
			end

			act 'Leave': gt 'gad_river', 'start'
		end
	end
end


if $ARGS[0] = 'fishing':
	*clr & cla
	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_rand = rand(0, 15)
			elseif hour >= 12 and hour < 18:
				temp_rand = rand(0, 20)
			else
				temp_rand = rand(0, 10)
			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_rand < rand(1, 5):
				*clr & cla
				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':
					*clr & cla
					minut += 1
					temp_rand = rand(0, 120)
					if temp_rand < 50: gs 'exp_gain', 'react', 1
					gs 'stat'

					if pcs_react > temp_rand:
						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 'gad_river', 'fishing'
					killvar 'temp_rand'
				end
			else
				'The bobber remains perfectly still. Eventually, you decide to try a different lure.'
				act 'Retrieve bait': gt 'gad_river', 'fishing'
			end
			killvar 'temp_rand'
		end
		act 'Finish':
			*clr & cla
			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 'Leave': gt $loc, $loc_arg
			else
				act 'Release your catch':
					*clr & cla
					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':
					*clr & cla
					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':
					*clr & cla
					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.'
					if 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.'
						if fish_stored >= 10:
							'He sighs heavily, then takes the fish outside to preserve them. Since you can''t store anymore fish in the root celler, your grandfather decide to give the remaining <<fish>> away.'
						elseif fish_stored + fish > 10:
							fish -= (10 - fish_stored)
							'He sighs heavily, then takes the fish outside to preserve and store them, filling up the remaining space. He decides to give the remaining <<fish>> fish away.'
						else
							fish_stored += fish
							'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 preserve and store them in the root celler.'
							if fish_stored < 10:
								'There''s still space for <<10 - fish_stored>> kg of preserved fish.'
							else
								'There''s no more space for preserved fish in the root celler.'
							end
						end
						fish = 0
					end
					act 'Finish': gt 'gad_gphouse', 'start'
				end
				act 'Give the fish to your grandmother':
					*clr & cla
					minut += 5
					gs 'stat'
					'<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.'
					'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.'
					if fish_stored >= 10:
						'He sighs heavily, then takes the fish outside to preserve them. Since you can''t store anymore fish in the root celler, your grandfather decide to give the remaining <<fish>> away.'
					elseif fish_stored + fish > 10:
						fish -= (10 - fish_stored)
						'He sighs heavily, then takes the fish outside to preserve and store them, filling up the remaining space. He decides to give the remaining <<fish>> fish away.'
					else
						fish_stored += fish
						'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 preserve and store them in the root celler.'
						if fish_stored < 10:
							'There''s still space for <<10 - fish_stored>> kg of preserved fish.'
						else
							'There''s no more space for preserved fish in the root celler.'
						end
					end
					fish = 0
					act 'Finish': gt 'gad_gphouse', 'start'
				end
			end
		end
	else
		*clr & cla
		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 'Leave': gt $loc, $loc_arg
		else
			act 'Release your catch':
				*clr & cla
				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':
				*clr & cla
				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':
					*clr & cla
					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.'
					if 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.'
						if fish_stored >= 10:
							'He sighs heavily, then takes the fish outside to preserve them. Since you can''t store anymore fish in the root celler, your grandfather decide to give the remaining <<fish>> away.'
						elseif fish_stored + fish > 10:
							fish -= (10 - fish_stored)
							'He sighs heavily, then takes the fish outside to preserve and store them, filling up the remaining space. He decides to give the remaining <<fish>> fish away.'
						else
							fish_stored += fish
							'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 preserve and store them in the root celler.'
							if fish_stored < 10:
								'There''s still space for <<10 - fish_stored>> kg of preserved fish.'
							else
								'There''s no more space for preserved fish in the root celler.'
							end
						end
						fish = 0
					end
					act 'Finish': gt 'gad_gphouse', 'start'
				end
				act 'Give the fish to your grandmother':
					*clr & cla
					minut += 5
					gs 'stat'

					'<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.'
					'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.'
					if fish_stored >= 10:
						'He sighs heavily, then takes the fish outside to preserve them. Since you can''t store anymore fish in the root celler, your grandfather decide to give the remaining <<fish>> away.'
					elseif fish_stored + fish > 10:
						fish -= (10 - fish_stored)
						'He sighs heavily, then takes the fish outside to preserve and store them, filling up the remaining space. He decides to give the remaining <<fish>> fish away.'
					else
						fish_stored += fish
						'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 preserve and store them in the root celler.'
						if fish_stored < 10:
							'There''s still space for <<10 - fish_stored>> kg of preserved fish.'
						else
							'There''s no more space for preserved fish in the root celler.'
						end
					end
					fish = 0
					act 'Finish': gt 'gad_gphouse', 'start'
				end
			end
		end
	end
end

--- gad_river ---------------------------------