glife/locations/gadriver

# Gadriver
$metka = $ARGS[0]
$loc = $CURLOC

clr
gs'stat'
gs'time'

'<center><H4>River Zmeyavka</H4></center>'

if month >= 5 and month <= 9:
	if hour >= 6 and hour < 22:
		'<center><img src="images/qwest/gadukino/river/Gadriver.jpg"></center>'
	else
		'<center><img src="images/qwest/gadukino/river/Gadriver_night.jpg"></center>'
	end
else
	if hour >= 8 and hour < 18:
		'<center><img src="images/qwest/gadukino/river/Gadriver_winter.jpg"></center>'
	else
		'<center><img src="images/qwest/gadukino/river/Gadriver_winter_night.jpg"></center>'
	end
end

'A small village creek flowing just off Gadyukino.'
temp = RAND(0,20)
if temp = 0 and hour >= 6 and hour < 22 and month >= 5 and month <= 9 and sunWeather = 1:'On the banks spread their fishing rods <a href="exec: dynamic $fishers ">local fishermen</a>.'
if temp = 1 and hour < 5 and month >= 5 and month <= 9 and miragopQW >= 20:'Right next to the path leading to the river, is completely naked <a href="exec: dynamic $mirapunish ">Mira</a>, crucified between two trees...'

act 'to the beach':minut += 5 & gt'Gadriver', 'Gadbitch'
act 'In the village':minut += 20 & mirainriver = 0 & gt'gadukino'

if $ARGS[0] = 'Gadbitch':
	cla
	clr
	*clr
	gs'stat'

	'<center><H4>Village beach</H4></center>'

	if hour >= 6 and hour < 22:
		if sunWeather = 1:
			'<center><img src="images/qwest/gadukino/river/Gadbitch_soft.jpg"></center>'
		else
			'<center><img src="images/qwest/gadukino/river/Gadbitch_cold.jpg"></center>'
		end
	else
		'<center><img src="images/qwest/gadukino/river/Gadbitch_night.jpg"></center>'
	end

	'A small country beach, where you can somehow sunbathe and swim.'
	if mirainriver = 1:temp = RAND(0,20)
	if mirainriver = 1 and temp < 10:'On the beach sunning razomlevshie<a href="exec: dynamic $mirameadow ">Mira</a>.'
	if mirainriver = 1 and temp >= 10:'The river splashing fun <a href="exec: dynamic $mirameadow ">Mira</a>.'

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

		if bikini > 0:
			act 'bathe':
				cla
				*clr
				cumpussy = 0
				cumbelly = 0
				cumass = 0
				cumlip = 0
				cumface = 0
				cumfrot = 0
				minut += 30
				sweat = -3
				manna += 5
				willpower = willpower + 5
				if stren < 30:stren = stren + 1
				if hour >= 22 and hour <= 6:
					'<center><img src="images/qwest/gadukino/river/GadRiverSwim_night.jpg"></center>'
					'You iskupnulis in the creek, feeling the refreshing and invigorating water.'
				else
					if temp >= 10 and mirainriver = 1:
						'<center><img src="images/qwest/gadukino/river/RiverTwoGirls.jpg"></center>'
						'You iskupnulis in the creek, splashing fun with Mira at each other with water.'
					else
						'<center><img src="images/qwest/gadukino/river/GadRiverSwim.jpg"></center>'
						'You iskupnulis in the creek, feeling the refreshing and invigorating water.'
					end
				end
				act 'Get out of the water':minut += 5 & gt'Gadriver', 'Gadbitch'
			end
		else
			act 'bathe nude':
				cla
				*clr
				cumpussy = 0
				cumbelly = 0
				cumass = 0
				cumlip = 0
				cumface = 0
				cumfrot = 0
				minut += 20
				sweat = -3
				manna += 5
				willpower += 5
				if stren < 30:stren = stren + 1
				if hour >= 22 and hour <= 6:
					'<center><img src="images/qwest/gadukino/river/watergirls1.jpg"></center>'
					'You stripped naked and quickly iskupnulis in the creek, feeling the refreshing and invigorating water.'
				else
					if temp >= 10 and mirainriver = 1:
						horny += RAND(5,15)
						gs 'stat'
						'<center><img src="images/qwest/gadukino/river/RiverTwoGirlsNude.jpg"></center>'
						'You iskupnulis in the creek, splashing fun with Mira at each other with water.'
					else
						'<center><img src="images/qwest/gadukino/river/watergirls.jpg"></center>'
						'You stripped naked and quickly iskupnulis in the creek, feeling the refreshing and invigorating water.'
					end
				end
				act 'Get out of the water':minut += 5 & gt'Gadriver', 'Gadbitch'
			end
		end
		if hour >= 8 and hour < 20:
			if bikini > 0 and sunWeather = 1:
				act 'Sunbathing (1:00)':
					cla
					*clr
					minut += 60
					sweat += 1
					manna += 5

					if temp < 10 and mirainriver = 1:
						'<center><img src="images/qwest/gadukino/river/BeachTwoGirls.jpg"></center>'
						'You lie next to Mira on the sand and talking about nothing, thrilled the sun.'
					else
						'<center><img src="images/qwest/gadukino/river/GadRiverGirl.jpg"></center>'
						'you sunbathe.'
					end
					if krem = 0:
						tan += 1
					elseif krem > 0:
						krem -= 1
						tan += 3
						'You body is smeared with cream for sunburn and went sunbathing.'
					end
					act 'further':minut += 5 & gt'Gadriver', 'Gadbitch'
				end
			else
				act 'Sunbathe nude (1:00)':
					cla
					*clr
					minut += 60
					sweat += 1
					manna += 5
					if temp < 10 and mirainriver = 1:
						'<center><img src="images/qwest/gadukino/river/BeachTwoGirlsNude.jpg"></center>'
						'You lie next to Mira on the sand and talking about nothing, thrilled the sun.'
					else
						'<center><img src="images/qwest/gadukino/river/GadRiverNude.jpg"></center>'
						'You strip naked and lie down to sunbathe.'
					end
					if krem = 0:
						tan += 1
					elseif krem > 0:
						krem -= 1
						tan += 3
						'You body is smeared with cream for sunburn and went sunbathing.'
					end
					act 'Further':minut += 5 & gt'Gadriver', 'Gadbitch'
				end
			end
		end
	end

	act 'escape':minut += 5 & gt'Gadriver'
end

$mirameadow = {
	cls
	minut += 2
	gs 'stat'


	if temp < 10:
		if miragopQW < 12:
			'<center><img src="images/qwest/gadukino/river/MiraBeach.jpg"></center>'
		else
			'<center><img src="images/qwest/gadukino/river/MiraBeachNude.jpg"></center>'
		end
	else
		if miragopQW < 12:
			'<center><img src="images/qwest/gadukino/river/MiraRiver.jpg"></center>'
		else
			'<center><img src="images/qwest/gadukino/river/MiraRiverNude.jpg"></center>'
		end
	end
	act 'escape':minut += 5 & gt'Gadriver', 'Gadbitch'

	act'chat':
	cls
	minut+=10
	manna+=10
	gs'stat'
		if temp < 10:
		if miragopQW < 12:
			'<center><img src="images/qwest/gadukino/river/MiraBeach.jpg"></center>'
		else
			'<center><img src="images/qwest/gadukino/river/MiraBeachNude.jpg"></center>'
		end
		else
			if miragopQW < 12:
				'<center><img src="images/qwest/gadukino/river/MiraRiver.jpg"></center>'
			else
				'<center><img src="images/qwest/gadukino/river/MiraRiverNude.jpg"></center>'
			end
		end
	 'You are chatting with Mira about trifles'
	act 'escape':minut += 5 & gt'Gadriver', 'Gadbitch'
	end
}

$fishers = {
	cls
	minut += 2
	gs 'stat'

	'<center><img src="images/qwest/gadukino/river/GadRiverFishers.jpg"></center>'

	act 'escape':minut += 5 & gt'Gadriver', 'Gadbitch'
}

$mirapunish = {
	cls
	minut += 10
	horny += RAND(25,75)
	gs 'stat'

	'<center><img src="images/qwest/gadukino/river/MiraPunish.jpg"></center>'
	'You come closer to her and Miroslav happily smiling to you, asking for her release. As long as you untie her, she tells you that it is so Kolyamba punished for what she lightly bit his cock as he sucked...'
	'- Thank God - with a sigh of relief she adds to her story. - Well, it was you got to me and not someone else, and then imagine what would have been a picture - naked Mirka, Crucified night among the trees, stay away and do what you want, even fuck, even beat, kill ... Well had passed, thank you, she asks, you did great was saved!'

	act 'escape':minut += 5 & gt'Gadriver', 'Gadbitch'
}
--- Gadriver ---------------------------------