glife/locations/gadriver

# gadriver

if $ARGS[0] = 'start':
	$metka = $ARGS[0]
	$loc = $CURLOC
    $location_type = 'public_outdoors'

	clr
	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 a hundred meters in 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 = rand(0,20)

	if temp = 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 = 4 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5 and sub > 0:
		if mitkaguysriver ! daystart:
			mitkaguysriver = daystart
			'While going to the river you meet Kolyamba and Vasya. They first invite you to join them, then insist you go with them.'
			
			act 'Go with them':
				cls
				gs 'boyStat', 'A61'
				pose = 1
				gs 'cum_manage'
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex17.jpg"></center>'
				'The boys take you to Vasya''s house, where, they rudely keep pushing you until you are bent over the kitchen table. They then take turns fucking you...'
				gs 'boyStat', 'A62'
				gs 'arousal', 'vaginal', 40, 'group', 'sub'
				gs 'arousal', 'end'
				gs 'stat'
				act 'Finish':minut += 10 & gt'gadukino'
			end
		else
			act 'To the beach':minut += 5 & gt 'Gadriver', 'Gadbitch'
			act 'To the village':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
		end
	elseif temp = 5 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5 and sub > 0:
		if mitkaguysriver ! daystart:
			mitkaguysriver = daystart
			'While walking towards the river you meet the village boys, whom you''ve been drinking with recently. They ask you to go with them.'
			
			act 'Go with them':
				cls
				gs 'boyStat', 'A63'
				pose = 0
				pcs_ass += 3
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex18.jpg"></center>'
				'The boys lead you to Vasya''s house, where they spend an hour fucking you in the ass...'
				gs 'boyStat', 'A61'
				gs 'boyStat', 'A62'
				gs 'arousal', 'anal', 60, 'group', 'sub'
				gs 'arousal', 'end'
				gs 'stat'
				act 'Leave':minut += 10 & gt'gadukino'
			end
		else
			act 'Go to the beach':minut += 5 & gt 'Gadriver', 'Gadbitch'
			act 'Go to the village':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
		end
	elseif temp = 6 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5 and sub > 0:
		if mitkaguysriver ! daystart:
			mitkaguysriver = daystart
			'On your way to the river you meet Vasya, he insists you follow him home...'
			
			act 'Go with him':
				cls
				gs 'boyStat', 'A62'
				pose = 1
				gs 'stat'
				
				if mesec = 0:
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex20.jpg"></center>'
					'As soon as you open the door, Vasya pushes you inside and starts pulling your clothes off crudely. Once you are naked, he pushes you towards the sofa and forces you to your knees...'
					gs 'arousal', 'vaginal', 20, 'sub'
					gs 'arousal', 'end'
					gs 'stat'
				else
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex21.jpg"></center>'
					'As soon as you open the door, Vasya pushes you inside and starts pulling 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 'arousal', 'end'
					gs 'stat'
				end

				act 'Finish':minut += 10 & gt'gadukino'
			end
		else
			act 'Go to the beach':minut += 5 & gt 'Gadriver', 'Gadbitch'
			act 'Go to the village':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
		end
	else
		act 'Go to the beach':minut += 5 & gt 'Gadriver', 'Gadbitch'
		act 'Go to the village':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
	end
end

if $ARGS[0] = 'Gadbitch':
	$metka = $ARGS[0]
	$loc = $CURLOC
    $location_type = 'public_outdoors'
	cls
	gs 'stat'

	'<center><H4>Village Beach</H4></center>'
	
	!125s
	!start before everything
	
    if (mira_go_blok = 0 and MiraLoc = 1 and rand(1,10) = 5) or (MiraLoc = 1 and hour >= 20):
	    cla
	    *clr
        minut += 5
        mira_go_blok = 1
        mira_no_home = 0
        MiraLoc = 0
        gs 'stat'
			if $clothingworntype = 'nude':
				'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_go_home_nude.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_go_home.jpg"></center>'
			end
		'"<<$pcs_nickname>>, I have to go home, "  Mira said to you and began to gather her stuff.'
		act 'Further': gt'Gadriver', 'Gadbitch'
		exit
	end
		
    if Mira_no = 0 and MiraLoc ! 1 and rand(1,10) < 3 and hour > 8 and hour < 20 and sunWeather = 1 and temper >= 15: 
	    cla
	    *clr
        MiraLoc = 1
        minut += 5
        mira_go_blok = 1
        gs 'stat'
	    '<center><img <<$set_imgh>> src="images/characters/village/mira/mira_in_river.jpg"></center>'
	    'Arriving at the beach, you see Mira laying down, sunbathing on a towel.'
	    
        act 'Further': 
		
			if rand(0,3) = 0 and Miraswimday ! daystart:
				cla
				*clr
				minut += 1
				Miraswimday = daystart
				gs 'stat'
				
				gs 'Miroslava', 'miraclothes'
				'"<<$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.'
				
				act'Agree':
					if ($clothingworntype = 'nude' or $clothingworntype = 'swimwear'):
						cla
						*clr
						temp = RAND(0,15)
						cumspclnt = 4 & gs 'cum_cleanup'
						minut += 30
						gs 'exercise', 'tier1', 1, 'stren_exp', 'exhibition_exp'
						pcs_sweat = 10 + rand(0,4)
						gs'stat'
						
						if $clothingworntype = 'swimwear':
							'<center><img <<$set_imgh>> src="images/characters/village/mira/rivertwogirls.jpg"></center>'
							'You wade into the river, you have fun with Mira spraying each other with water.'
						else
							'<center><img <<$set_imgh>> src="images/characters/village/mira/rivertwogirlsnude'+rand(0,5)+'.jpg"></center>'
							'You wade into the river, you have fun with Mira spraying each other with water.'
						end    

						act 'Get out of the water':gt'Gadriver', 'Gadbitch'

					else
						cla
						*clr
						minut += 5
						gs 'underwear', 'wear'
						gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
						'<center><img <<$set_imgh>> src="images/locations/gadukino/river/undressbch.jpg"></center>'
						'"Wait Mira, I have to change into my swimsuit!" you cry in response, although she could hardly hear you as she is already splashing around in the river.'
						'You take off your clothes, put on a swimsuit and run into the water after Mira.'
						
						act'Swim':
							cla
							*clr
							temp = RAND(0,15)
							cumspclnt = 4 & gs 'cum_cleanup'
							minut += 30
							gs 'exercise', 'tier1', 1, 'stren_exp'
							pcs_sweat = 10 + rand(0,4)
							gs'stat'
						
							'<center><img <<$set_imgh>> src="images/characters/village/mira/rivertwogirls.jpg"></center>'
							'You wade into the river, you have fun with Mira spraying each other with water.'
		  
							act 'Get out of the water':gt'Gadriver', 'Gadbitch'		
						end
					end
				end
				act'Refuse':
					cla
					*clr
					minut += 1
					npc_rel['A60'] -= 1
					gs 'stat'
					
					'<center><img <<$set_imgh>> src="images/characters/village/mira/mirariver.jpg"></center>'
					'"No, Mira I don''t feel like swimming just now," you replied you her. "I''m going to stay on the shore for a bit."'
					act 'Further': gt'Gadriver', 'Gadbitch'
				end
			end	
		end
	end   	

	!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.'

	act 'Get changed':gt 'changingroom', 'view_swim_list'

	mira_temp = rand(1,10)
	if MiraLoc = 1:temp = 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.'
		else
			'<a href="exec:sun = 0 & gt ''Gadriver'', ''Mira'' ">Mira</a> is in the river splashing water around and having fun.'
		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'' ">Bob Colby</a> is resting on the riverbank.'

	if temper >= 15 and month >= 5 and month <= 9:

		if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
			act 'Go for a swim':
				cla
				*clr
				cumspclnt = 4
				gs 'cum_cleanup'
				minut += 30
				if $clothingworntype = 'nude': gs 'exercise', 'tier1', 1, 'stren_exp', 'exhibition_exp'
				if $clothingworntype ! 'nude': gs 'exercise', 'tier1', 1, 'stren_exp'
				pcs_sweat = 10 + rand(0,4)
				temp = RAND(0,9)
				if hour >= 22 or hour <= 6:
					if RAND(0,10) < 5 and MiraLoc = 1:
						'<center><img <<$set_imgh>> src="images/characters/village/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/village/mira/rivertwogirls.jpg"></center>'
						'You and Mira take a 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 swim in the river, feeling the refreshing and invigorating water flowing across your body.'
					end
				end
				
				act 'Get out of the water':
					if MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp = 0 and hour >= 8 and hour < 20:
						cls
						gs 'boyStat', 'A63'
						pose = 0
						spafinloc = 12
						gs 'cum_manage'
						spafinloc = 11
						gs 'cum_manage'
						swallow += RAND(0,3)
						gs 'stat'
						
						'<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 smirking faces of the village boys 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. Without a word they reach for you and roughly take turns forcing you to suck their cocks.'
						
						gs 'arousal', 'bj', 40, 'gangbang', 'sub', 'rough'
						gs 'arousal', 'end'
						gs 'stat'
				
						act 'Finish':minut += 5 & gt'Gadriver', 'Gadbitch'
					elseif MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp = 1 and hour >= 8 and hour < 20 and sub > 0:
						cls
						gs 'boyStat', 'A61'
						pose = 1
						gs 'stat'
						
						'<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', 'anal', 20, 'group', 'sub'
						gs 'arousal', 'end'
						gs 'stat'
						
						act 'Finish':minut += 5 & gt'Gadriver', 'Gadbitch'
					else
						minut += 5 & gt'Gadriver', 'Gadbitch'
					end
				end
			end
		end
	
		act 'Go skinny dipping':
			cla
			*clr
			temp = RAND(0,15)
			cumspclnt = 4
			gs 'cum_cleanup'
			minut = minut + 20
			pcs_sweat = 10 + rand(0,4)
			pcs_mood += 5
			pcs_willpwr = pcs_willpwr + 5
			if pcs_stren < 30: stren_exp += 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 in to the cold river, kwowing that the darkness hides your nudity. You swim around feeling the refreshing and invigorating water caressing your body.'
			else
				if temp >= 10 and MiraLoc = 1:
					pcs_horny += RAND(5,15)
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/characters/village/mira/rivertwogirlsnude'+rand(0,5)+'.jpg"></center>'
					'You step in to the river, you and Mira 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 invigorating water.'
				end
			end
			act 'Get out of the water':
				if MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp = 0 and hour >= 8 and hour < 20:
					cls
					gs 'boyStat', 'A63'
					pose = 1
					pcs_ass += 1
					pcs_vag += 1
					spafinloc = 12
					gs 'cum_manage'
					spafinloc = 11
					gs 'cum_manage'
					spafinloc = 3
					gs 'cum_manage'
					gang += 1
					swallow += RAND(0,1)
					gs 'stat'
					
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex12.jpg"></center>'
					'As soon as you step out of the water, you find yourself standing naked in front of a couple of the village boys, judging from the fishing poles they are carrying, you know they were coming to the river to do some fishing.'
					'But, seeing you skinny dipping, they instead start talking amongst themselves about how much of a slut you are and the only good thing you are for is sucking cock. You tell them to fuck off, but they are too worked up and not listening to you at all.'
					
					gs 'boyStat', 'A62'
					gs 'boyStat', 'A61'
					gs 'arousal', 'vaginal', 30, 'gangbang', 'sub'
					gs 'arousal', 'anal', 30, 'gangbang', 'sub'
					minut -= 30
					gs 'arousal', 'end'
					gs 'stat'

					act 'Finish':minut += 5 & gt'Gadriver', 'Gadbitch'
				else
					minut += 5 & gt'Gadriver', 'Gadbitch'
				end
			end
		end
		if hour >= 8 and hour < 20 and sunWeather = 1:
			if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
				act 'Sunbathe (1:00)':
					if Mira_no = 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 PCloExhibit + 10 > pcs_exhibition:exhibition_exp += rand(1,3)
						gs 'stat'
						if $clothingworntype = 'nude':
							'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_go_river_nude.jpg"></center>'
						else
							'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_go_river.jpg"></center>'
						end
						'You are sunbathing by the river when Mira comes along. You smile, she undresses and lays her towel next to yours.'
						
						act 'Further': gt'Gadriver', 'Gadbitch'
					else
						cla
						*clr
						minut += 60
						if pcs_sweat < 35 : pcs_sweat += 5
						pcs_mood += 5

						if temp < 10 and MiraLoc = 1:
							'<center><img <<$set_imgh>> src="images/characters/village/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 a sunburn. Few minutes later you''re all oiled in and start sunbathing.'
						end
						act 'Finish':

							if MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp = 0 and hour >= 8 and hour < 20:
								cls
								gs 'boyStat', 'A61'
								pose = 1
								pcs_ass += 1
								pcs_vag += 1
								spafinloc = 12
								gs 'cum_manage'
								spafinloc = 11
								gs 'cum_manage'
								spafinloc = 3
								gs 'cum_manage'
								gs 'cum_manage'
								gang += 1
								swallow += RAND(0,1)
								gs 'stat'
									
								'<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 minutes later you see the village boys emerge from the bushes. Noticing you sunbathing, they brighten up greatly. In a short amount of time, despite you protesting lively, all of your holes have been violated...'
								
								gs 'boyStat', 'A62'
								gs 'boyStat', 'A63'
								
								gs 'arousal', 'vaginal', 30, 'gangbang', 'sub'
								gs 'arousal', 'anal', 30, 'gangbang', 'sub'
								minut -= 30
								gs 'arousal', 'end'
								gs 'stat'
					
								act 'Finish':minut += 5 & gt'Gadriver', 'Gadbitch'
							elseif MiraLoc = 1 and npc_QW['A60'] >= 15 and temp = 1 and hour >= 8 and hour < 20:
								cls
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex16.jpg"></center>'
								'After a while, you hear voices rapidly approaching from the village, in a couple of minutes you see the village boys emerge from the bushes.  Seeing Miroslava they smile obscenely, and without hesitation they quickly surround her as she lays on the sand. You sit up and watch as they fuck her in all her holes...'

								gs 'arousal', 'voyeur', 30, 'gangbang', 'dom'
								gs 'arousal', 'end'
								gs 'stat'
					
								act 'Finish':minut += 5 & gt'Gadriver', 'Gadbitch'
							else
								minut += 5
								gt'Gadriver', 'Gadbitch'
							end
						end
					end
				end
			end

			act 'Sunbathe nude (1:00)':
				cla
				*clr
				minut += 60
				exhibition_exp += rand(1,3)
				if pcs_sweat < 35 : pcs_sweat += 5
				pcs_mood += 5
				if temp < 10 and MiraLoc = 1:
					'<center><img <<$set_imgh>> src="images/characters/village/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 strip down 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 a sunburn. You use the lotion all of your body and lie down.'
					pcs_tan += 3
				end
				act 'Finish sunbathing and get dressed':
					if MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp = 0 and hour >= 8 and hour < 20:
						cls
						gs 'boyStat', 'A63'
						pose = 1
						pcs_ass += 1
						pcs_vag += 1
						gang += 1
						swallow += RAND(0,1)
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex14.jpg"></center>'
						'As you get ready to put on some clothes, you hear several men''s voices rapidly approaching. All of a sudden a couple of the village boys emerge in front of you. Noticing that you are nude, they brighten up greatly and in a few minutes, despite you protesting lively, they have you on all fours and are roughly fucking you...'
						spafinloc = 0
						gs 'cum_manage'
						gs 'boyStat', 'A61'
						spafinloc = 3
						gs 'cum_manage'
						gs 'boyStat', 'A62'
						spafinloc = 3
						gs 'cum_manage'
						gs 'arousal', 'vaginal', 30, 'gangbang', 'sub', 'rough'
						gs 'arousal', 'anal', 30, 'gangbang', 'sub', 'rough'
						minut -= 30
						gs 'arousal', 'end'
						gs 'stat'
						act 'Get dressed':minut += 5 & gt'Gadriver', 'Gadbitch'
					else
						minut += 5
						gt'Gadriver', 'Gadbitch'
					end
				end
			end
		end
	end

	act 'Leave':
		if $clothingworntype = 'swimwear':
			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
end


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


	if sun = 1:
		if npc_QW['A60'] < 12:
			'<center><img <<$set_imgh>> src="images/characters/village/mira/mirabeach.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/characters/village/mira/mirabeachnude.jpg"></center>'
		end
	else
		if npc_QW['A60'] < 12:
			'<center><img <<$set_imgh>> src="images/characters/village/mira/mirariver.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/characters/village/mira/mirarivernude.jpg"></center>'
		end
	end
	act 'Leave':minut += 5 & gt 'Gadriver', 'Gadbitch'

	act 'Chat':
		cls
		minut += 10
		pcs_mood += 10
		gs 'stat'
		if sun = 1:
			if npc_QW['A60'] < 12:
				'<center><img <<$set_imgh>> src="images/characters/village/mira/mirabeach.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/characters/village/mira/mirabeachnude.jpg"></center>'
			end
		else
			if npc_QW['A60'] < 12:
				'<center><img <<$set_imgh>> src="images/characters/village/mira/mirariver.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/characters/village/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 nice 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 strike up some conversation with Mira, "So what is there to do here in the village?"'
				'"Its a lot quicker than town, we do have a shop, this lovely beach and there are some beautiful walks. Other than that there''s 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:
				'You and Mira are chatting about trivial things.'
			end
		end
		act 'Leave':minut += 5 & gt 'Gadriver', 'Gadbitch'
	end
end

if $ARGS[0] = 'mirapunish':
	cls
	minut += 10
	pcs_horny += RAND(25,75)
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/characters/village/mira/mirapunish.jpg"></center>'
	'You approach Mira, she is looking distressed and embarrassingly smiles as you start asking what happened. She pleads 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 it was you who found me and not one of those old hags from the village. They would be calling me a whore and I would get scolded about being promiscuous. Those old hags hate us you know. We''re young and beautiful and they are just mean old wrenches." 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..."  All of a sudden she stops and lunges herself in your arms weeping. "Thank you," she tells you. "You saved my life!"'

	act 'Leave':minut += 5 & gt 'Gadriver', 'Gadbitch'
end

if $ARGS[0] = 'GuysRiver':
	cls
	minut += 5
	pcs_horny += 10
	gs 'stat'
	temp = 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 <= 4:
		'"There doesn''t seem to be anyone else around and all of us are as horny as bullfrogs, 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 > 4 and temp <= 8:
		'"There doesn''t seem to be anyone around, and we are as horny as bullfrogs, 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 really special for you."'
	end
	if temp < 4:
		act 'Pleasure Kolyambu':
			cls
			gs 'boyStat', 'A61'
			pose = 0
			temp = 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, grabing his cock, leading it inside you.'

			gs 'arousal', 'vaginal', 10, 'sub', 'group'
			gs 'stat'
								
			act 'Pleasure Vasya':
				cls
				gs 'boyStat', 'A62'
				pose = 0
				gs 'stat'
				temp = RAND(0,2)
				if temp = 0:
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex1.jpg"></center>'
					'Vasya, 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 = 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 your on your knees so he can slap 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>'
					'Vasya 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':minut += 5 & gt'Gadriver', 'Gadbitch'
			end
		end
	elseif temp < 8:
		act 'Pleasure Kolyamba':
			cls
			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, 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 Vasya':
				cls
				gs 'boyStat', 'A62'
				pose = 0
				gs 'stat'
				temp = RAND(0,2)
				if temp = 0:
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex5.jpg"></center>'
					'Vasya, lays you onto your back, using his fingers stimulating 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 = 1:
					gs 'boyStat', 'A62'
					spafinloc = 12
					gs 'cum_manage'
					gs'stat'
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex6.jpg"></center>'
					'Vasya steps up and roughs you up a little 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>'
					'Vasya forces you on all four, telling you that you will enjoy this. 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':minut += 5 & gt'Gadriver', 'Gadbitch'
			end
		end	
	else
		act 'Pleasure Kolyamba':
			cls
			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 taking both or 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 Vasya':
				cls
				gs 'boyStat', 'A62'
				pose = 1
				gs 'stat'
				temp = RAND(0,2)
				
				if temp = 0:
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex9.jpg"></center>'
					'Vasya 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 = 1:
					gs 'boyStat', 'A62'
					spafinloc = 12
					gs 'cum_manage'
					gs'stat'
					
					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex10.jpg"></center>'
					'Vasya 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 and forces his cock deep down your throat mumbling something about teaching you how to do it properly. 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>'
					'Vasya 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':minut += 5 & gt'Gadriver', 'Gadbitch'
			end
		end
	end	
	if pcs_dom > 0:
		act 'Leave':minut += 5 & gt'Gadriver', 'Gadbitch'
	end
end

if $ARGS[0] = 'fishers':
	cls
	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 totally 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 of them catches a fish and shows off his trophy before putting it into the fish bail. The two of you chat about fishing.'
				
					act 'Leave':minut += 5 & 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. A friend of the family, Uncle Stepan 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 he hands you a rod while his eyes travel up and down your body.'
					
					act 'Fishing':gt 'Gadriver', 'fishing'
				end
			end
			
			act 'Leave':minut += 5 & gt 'Gadriver', 'start'
		end
	else
		act 'Leave':minut += 5 & gt 'Gadriver', 'start'
	end
end

if $ARGS[0] = 'fishing':
	cla
	*clr
	'<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 completely peaceful, there is a sense of serenity about it today.'
	'You caught <<fish>> fish.'
	if hour < 22:
		act 'Throw the bait':
			cls
			minut += RAND(5,10)
			if hour < 12:
				temp = RAND(5,20)
			elseif hour >= 12 and hour < 18:
				temp = RAND(0,20)
			else
				temp = RAND(10,20)
			end
			gs 'stat'
			
			'<center><img <<$set_imgh>> src="images/locations/gadukino/river/fishingriver.jpg"></center>'
			'You throw out the lure and carefully watch the bobber for signs of nibble.'
			
			if temp > 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 = RAND(0,120)
					if temp < 50:react_exp += 1
					gs 'stat'
					
					if pcs_react > temp:
						pcs_mood += rand(5,10)
						minut += 1
						react_exp += 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 feeling 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':minut += 5 & gt $loc, $metka
				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, but you can see that he is actually quite happy with this arrangement.'
					
					act 'Leave':minut += 5 & gt $loc, $metka
				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 down to the floor and twines around your feet. The furry beast starts yowling very loudly 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 point at your grandfather. He sighs heavily then takes the fish outside to clean them.'
					
					act 'Finish': gt 'Gadhouse'
				end
				act 'Give the fish to your grandmother':
					cla
					*clr
					minute += 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 point at your grandfather. He sighs heavily then takes the fish outside to clean them.'

					act 'Finish': gt 'Gadhouse'
				end
			else
				act 'Leave':minut += 5 & gt $loc, $metka
			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':minut += 5 & gt $loc, $metka
			end
			act 'Give to Uncle Stepa':
				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 and he reluctantly accepts them, you can see he is quite happy with this arrangement.'
				
				act 'Leave':minut += 5 & gt $loc, $metka
			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 down to the floor and twines around your feet. The furry beast starts yowling very loudly 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 point at your grandfather. He sighs heavily then takes the fish outside to clean them.'
				
				act 'Finish': gt 'Gadhouse'
			end
			act 'Give the fish to your grandmother':
				cla
				*clr
				minute += 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 point at your grandfather. He sighs heavily then takes the fish outside to clean them.'

				act 'Finish': gt 'Gadhouse'
			end
		else
			act 'Leave':minut += 5 & gt $loc, $metka
		end
	end
end

--- gadriver ---------------------------------