# time
if month = 1 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(-30, 8)

	if temper <= 0:
		osadki = rand(0, 10)

		if osadki < painweather:
			$osadki = 'Clear.'
		else
			$osadki = 'Light, fluffy snow.'
		end
	else
		osadki = rand(0, 10)

		if osadki < painweather:
			$osadki = 'Clear, the snow is begining to melt in some places forming slush.'
		else
			$osadki = 'Wet snow falls, immediately melting to form slush.'
		end
	end

	$weather = 'On the street there is snow, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

if month = 2 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(-35, 8)

	if temper <= 0:
		osadki = rand(0, 10)

		if osadki < painweather:
			$osadki = 'Cloudy and windy.'
		else
			$osadki = 'It''s snowing.'
		end
	else
		osadki = rand(0, 10)

		if osadki < painweather:
			$osadki = 'Clear, the snow is begining to melt in some places forming slush.'
		else
			$osadki = 'Wet snow falls, immediately melting to form slush.'
		end
	end

	$weather = 'On the street there is snow, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

if month = 3 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(-20, 17)

	if temper <= 0:
		osadki = rand(0, 10)

		if osadki < painweather:
			$osadki = 'Clear and cloudless.'
		else
			$osadki = 'It''s snowing.'
		end
	else
		osadki = rand(0, 10)

		if osadki < painweather:
			$osadki = 'Clear, the snow is begining to melt in some places forming slush.'
		else
			$osadki = 'Wet snow falls, immediately melting to form slush.'
		end
	end

	$weather = 'On the street there is snow, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

if month = 4 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(2, 20)
	osadki = rand(0, 10)

	if osadki < painweather:
		if hour >= 7 and hour <= 20:
			$osadki = 'Clear.'
		else
			$osadki = 'Clear.'
		end
	else
		$osadki = 'Rain.'
	end

	$weather = 'On the street the snow melts, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

if month = 5 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(7, 25)
	osadki = rand(0, 10)

	if osadki < painweather:
		$osadki = 'Clear.'
	else
		$osadki = 'Rain.'
	end

	$weather = 'Puddles in the street left by snow, winter has covered everything in dirt and debris, some places where new grass grows are pleasantly green, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

if month = 6 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(15, 35)
	osadki = rand(0, 10)

	if osadki < painweather:
		$osadki = 'Clear.'
	else
		$osadki = 'Rain.'
	end

	$weather = 'Green grass lines the streets, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

if month = 7 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(20, 40)
	osadki = rand(0, 10)

	if osadki < painweather:
		$osadki = 'Clear.'
	else
		$osadki = 'Light showers.'
	end

	$weather = 'Green grass lines the streets, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

if month = 8 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(20, 35)
	osadki = rand(0, 10)

	if osadki < painweather:
		$osadki = 'Clear.'
	else
		$osadki = 'Light showers.'
	end

	$weather = 'The grass is green, in the trees the leaves are already turning yellow, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

if month = 9 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(10, 30)
	osadki = rand(0, 10)

	if osadki < painweather:
		$osadki = 'Clear.'
	else
		$osadki = 'Rain.'
	end

	$weather = 'Streets lined with green grass, visible yellow leaves, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

if month = 10 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(2, 20)
	osadki = rand(0, 10)

	if osadki < painweather:
		$osadki = 'Clear.'
	else
		$osadki = 'Rain and hail.'
	end

	$weather = 'The grass is fading and patchy, yellow and brown leaves fall from the trees, mud and puddles dot the street, temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

if month = 11 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(-20, 17)

	if temper <= 0:
		osadki = rand(0, 10)

		if osadki < painweather:
			$osadki = 'Clear and cloudless.'
		else
			$osadki = 'It''s snowing.'
		end
	else
		osadki = rand(0, 10)

		if osadki < painweather:
			$osadki = 'Clear, the snow begins to melt some places forming slush.'
		else
			$osadki = 'Cold rain.'
		end
	end

	$weather = 'The street is dirty with a thin snow cover, temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

if month = 12 and weatherDay ! daystart:
	weatherDay = daystart
	temper = rand(-30, 8)
	if temper <= 0:
		osadki = rand(0, 10)

		if osadki < painweather:
			$osadki = 'Cloudy and windy.'
		else
			$osadki = 'Light fluffy snow.'
		end
	else
		osadki = rand(0, 10)

		if osadki < painweather:
			$osadki = 'Clear skies, the snow is beginning to melt in some places forming slush.'
		else
			$osadki = 'Wet snow falls, immediately melting to form slush.'
		end
	end

	$weather = 'The street is covered in snow, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
end

! WD: Variable not set needed for events in Village Gadyukino
if osadki < painweather:
	set sunWeather = 1
else
	set sunWeather = 0
end

if osadki >= painweather and umbrella = 0:
	if mop > 1:
		mop = 0
		'You do not have an umbrella.'
	end

	if hapri = 1:
		hapri = 0

		if curly > 0:curly -= 1

		'You do not have an umbrella.'
	end
end

if isprok = 0 and isprokp = 0 and mesec > 0 and preg = 0:
	'<b><font color="red">You have the blood flowing down your legs and staining your clothes.</font></b>'

	if clrbelo > 0 and tanga = 1:clrbelo -= 1 & tanga = 0 & '<b><font color="red">Your panties have been ruined and you discreetly remove and dispose of them.</font></b>'

	sweat += 1
	manna -= 10
	willpower -= 10
	gs 'starenie'
end

! WD: Fix vibrator arousal triggering every time module is called, moved too 'stat' location
!!!0.2.6 extension: Optimized a bit of code
!! if vibratorin = 1:horny += rand(1, 5)
!!!

if hour = 0:
	fcolor = rgb(255, 255, 255)
	bcolor = rgb(0, 0, 0)
elseif hour = 1:
	fcolor = rgb(255, 255, 255)
	bcolor = rgb(5, 5, 5)
elseif hour = 2:
	fcolor = rgb(255, 255, 255)
	bcolor = rgb(10, 10, 10)
elseif hour = 3:
	fcolor = rgb(255, 255, 255)
	bcolor = rgb(30, 15, 15)
elseif hour = 4:
	fcolor = rgb(255, 255, 255)
	bcolor = rgb(60, 20, 20)
elseif hour = 5:
	fcolor = rgb(255, 255, 255)
	bcolor = rgb(100, 40, 40)
elseif hour = 6:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(200, 100, 100)
elseif hour = 7:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(250, 150, 150)
elseif hour = 8:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(250, 200, 200)
elseif hour = 9:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(250, 245, 245)
elseif hour = 10:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 250, 250)
elseif hour = 11:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
elseif hour = 12:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
elseif hour = 13:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
elseif hour = 14:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 250, 250)
elseif hour = 15:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 245, 245)
elseif hour = 16:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(250, 240, 240)
elseif hour = 17:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(250, 230, 230)
elseif hour = 18:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(250, 220, 220)
elseif hour = 19:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(250, 210, 210)
elseif hour = 20:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(250, 200, 200)
elseif hour = 21:
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(250, 150, 150)
elseif hour = 22:
	fcolor = rgb(255, 255, 255)
	bcolor = rgb(25, 25, 25)
elseif hour = 23:
	fcolor = rgb(255, 255, 255)
	bcolor = rgb(5, 5, 5)
end

if (totminut - Time15Minute) >= 15:
	!reset Time15Minute
	if frost = 0:Time15Minute = totminut
	! begin Loop
	:Time15MinuteLoop

	if temper <= 0:
		if defaultcoat = 5:bonusZ = -3
		if defaultcoat = 0:bonusZ = 0
		if defaultcoat = 3:bonusZ = 3

		if temper < -10 and defaultcoat < 4 and defaultcoat ! 0:
			if temper < -30:
				frost += 2
			else
				frost += 1
			end
			if energy < 20:frost += 1
			if tanga = 0:frost += 1
			if sweat > 0:frost += 1
		elseif temper < -20 and (defaultcoat = 4 or defaultcoat = 5 or defaultcoat = 8 or defaultcoat = 10 or defaultcoat = 12):
			frost += 1
			if energy < 20:frost += 1
			if sweat > 0:frost += 1
		elseif temper< -30 and (defaultcoat = 6 or defaultcoat = 7 or defaultcoat = 9 or defaultcoat = 11):
			frost += 1
		end

		if defaultcoat = 0:
			if temper < -10:frost += 1
			if temper < -20:frost += 2
			if temper < -30:frost += 5
		end

		if frost >= 12:sick += 1
		if sick > 0 and sickstage = 0:sickstage = 1
	end

	if (totminut - Time15Minute) >= 15:jump 'Time15MinuteLoop'
end

--- time ---------------------------------

