glife/locations/time

# time
If month = 1 and pogodaday ! day:
	pogodaday = day
	temper = rand(-30, 8)

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

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

		if osadki < painweather:
			$osadki = 'Clear the snow begins to melt some places forming slush.'
		else
			$osadki = 'Wet snow falls, which immediately melts forming slush.'
		end
	end

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

If month = 2 and pogodaday ! day:
	pogodaday = day
	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 begins to melt some places forming slush.'
		else
			$osadki = 'Wet snow falls, which immediately melts forming slush.'
		end
	end

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

If month = 3 and pogodaday ! day:
	pogodaday = day
	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 = 'Wet snow falls, which immediately melts forming slush.'
		end
	end

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

If month = 4 and pogodaday ! day:
	pogodaday = day
	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

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

If month = 5 and pogodaday ! day:
	pogodaday = day
	temper = rand(7, 25)
	osadki = rand(0, 10)

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

	$pogoda = 'From puddles in the street rastaevshego snow, dirt and debris all around seem after winter, something where new grass pleases the eye with its greenery, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 6 and pogodaday ! day:
	pogodaday = day
	temper = rand(15, 35)
	osadki = rand(0, 10)

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

	$pogoda = 'On the street the green grass, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 7 and pogodaday ! day:
	pogodaday = day
	temper = rand(20, 40)
	osadki = rand(0, 10)

	if osadki < painweather:
		$osadki = 'Clear.'
	else
		$osadki = 'Warm rain comes.'
	end

	$pogoda = 'Green grass on the street, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 8 and pogodaday ! day:
	pogodaday = day
	temper = rand(20, 35)
	osadki = rand(0, 10)

	if osadki < painweather:
		$osadki = 'Clear.'
	else
		$osadki = 'Warm rain comes.'
	end

	$pogoda = 'Outdoors green grass, where some are already visible yellowing leaves, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 9 and pogodaday ! day:
	pogodaday = day
	temper = rand(10, 30)
	osadki = rand(0, 10)

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

	$pogoda = 'Street zhuhnet grass, visible yellow leaves, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 10 and pogodaday ! day:
	pogodaday = day
	temper = rand(2, 20)
	osadki = rand(0, 10)

	if osadki < painweather:
		$osadki = 'Clear.'
	else
		$osadki = 'Goes cold rain.'
	end

	$pogoda = 'On the street faded grass, falling yellow leaves, mud and puddles around, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 11 and pogodaday ! day:
	pogodaday = day
	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

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

If month = 12 and pogodaday ! day:
	pogodaday = day
	temper = rand(-30, 8)
	if temper <= 0:
		osadki = rand(0, 10)

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

		if osadki < painweather:
			$osadki = 'Clear the snow begins to melt some places forming slush.'
		else
			$osadki = 'Wet snow falls, which immediately melts forming slush.'
		end
	end

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

pl '<<$pogoda>>'

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 mesec > 0 and preg = 0:
	'<b><font color="red">You have the blood flowing in the legs and staining the linen clothes.</font></b>'

	if clrbelo > 0:clrbelo -= 1

	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 temper <= 0:
	if palto = 1:bonusZ = -3
	if palto = 2:bonusZ = 0
	if palto = 3:bonusZ = 3

	if temper < -10 and palto = 1:
		frost += 1
		if energy < 5:frost += 1
		if tanga = 0:frost += 1
		if sweat > 0:frost += 1
	elseif temper < -20 and palto = 2:
		frost += 1
		if energy < 5:frost += 1
		if sweat > 0:frost += 1
	elseif temper< -30 and palto = 3:
		frost += 1
	end

	if palto <= 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

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