glife/locations/027_time

# time
If month = 1 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-30,8)
	if temper <= 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear.'
		end
		if osadki >= painweather:
		set $osadki = 'Goes fluffy snow.'
		end
	end
	if temper > 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear the snow begins to melt some places forming slush.'
		end
		if osadki >= painweather:
		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
		end
	end
set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 2 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-35,8)
	if temper <= 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Cloudy and windy.'
		end
		if osadki >= painweather:
		set $osadki = 'It´s snowing.'
		end
	end
	if temper > 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear the snow begins to melt some places forming slush.'
		end
		if osadki >= painweather:
		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
		end
	end
set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 3 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-20,17)
	if temper <= 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear and cloudless.'
		end
		if osadki >= painweather:
		set $osadki = 'It´s snowing.'
		end
	end
	if temper > 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear the snow begins to melt some places forming slush.'
		end
		if osadki >= painweather:
		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
		end
	end
set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 4 and pogodaday ! day:
set pogodaday = day
set temper = RAND(2,20)
set osadki = RAND(0,10)
	if osadki < painweather:
		if hour >= 7 and hour <= 20:
		set $osadki = 'Clear.'
		end
		if hour < 7 or hour > 20:
		set $osadki = 'Clear.'
		end
	end
	if osadki >= painweather:
	set $osadki = 'Rain.'
	end

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

If month = 5 and pogodaday ! day:
set pogodaday = day
set temper = RAND(7,25)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Rain.'
	end

set $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:
set pogodaday = day
set temper = RAND(15,35)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Rain.'
	end

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

If month = 7 and pogodaday ! day:
set pogodaday = day
set temper = RAND(20,40)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Warm rain comes.'
	end

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

If month = 8 and pogodaday ! day:
set pogodaday = day
set temper = RAND(20,35)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Warm rain comes.'
	end

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

If month = 9 and pogodaday ! day:
set pogodaday = day
set temper = RAND(10,30)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Rain.'
	end

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

If month = 10 and pogodaday ! day:
set pogodaday = day
set temper = RAND(2,20)
set osadki = RAND(0,10)
	if osadki < painweather:
	set $osadki = 'Clear.'
	end
	if osadki >= painweather:
	set $osadki = 'Goes cold rain.'
	end

set $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:
set pogodaday = day
set temper = RAND (-20,17)
	if temper <= 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear and cloudless.'
		end
		if osadki >= painweather:
		set $osadki = 'It´s snowing.'
		end
	end
	if temper > 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear the snow begins to melt some places forming slush.'
		end
		if osadki >= painweather:
		set $osadki = 'Cold rain.'
		end
	end
set $pogoda = 'The street is dirty and thin snow cover, temperature <<temper>> degrees Celsius. <<$osadki>>'
end

If month = 12 and pogodaday ! day:
set pogodaday = day
set temper = RAND (-30,8)
	if temper <= 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Cloudy and windy.'
		end
		if osadki >= painweather:
		set $osadki = 'Goes fluffy snow.'
		end
	end
	if temper > 0:
	set osadki = RAND(0,10)
		if osadki < painweather:
		set $osadki = 'Clear the snow begins to melt some places forming slush.'
		end
		if osadki >= painweather:
		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
		end
	end
set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
end

pl '<<$pogoda>>'
if osadki >= painweather and umbrella = 0 and mop > 1:
set mop = 0
'You do not have an umbrella and on the moisture flowed your cosmetics.'
end

if osadki >= painweather and umbrella = 0 and hapri = 1:
set hapri = 0
if curly > 0: set curly -= 1
'You do not have an umbrella and on the moisture your hair has deteriorated.'
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: set clrbelo -= 1
set sweat += 1
set manna -= 10
set willpower -= 10
gs 'starenie'
end

if hour = 0:
fcolor = rgb(255,255,255)
bcolor = rgb(0,0,0)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 1:
fcolor = rgb(255,255,255)
bcolor = rgb(5,5,5)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 2:
fcolor = rgb(255,255,255)
bcolor = rgb(10,10,10)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 3:
fcolor = rgb(255,255,255)
bcolor = rgb(30,15,15)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 4:
fcolor = rgb(255,255,255)
bcolor = rgb(60,20,20)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 5:
fcolor = rgb(255,255,255)
bcolor = rgb(100,40,40)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 6:
fcolor = rgb(0,0,0)
bcolor = rgb(200,100,100)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 7:
fcolor = rgb(0,0,0)
bcolor = rgb(250,150,150)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 8:
fcolor = rgb(0,0,0)
bcolor = rgb(250,200,200)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 9:
fcolor = rgb(0,0,0)
bcolor = rgb(250,245,245)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 10:
fcolor = rgb(0,0,0)
bcolor = rgb(255,250,250)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 11:
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 12:
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 13:
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 14:
fcolor = rgb(0,0,0)
bcolor = rgb(255,250,250)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 15:
fcolor = rgb(0,0,0)
bcolor = rgb(255,245,245)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 16:
fcolor = rgb(0,0,0)
bcolor = rgb(250,240,240)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 17:
fcolor = rgb(0,0,0)
bcolor = rgb(250,230,230)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 18:
fcolor = rgb(0,0,0)
bcolor = rgb(250,220,220)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 19:
fcolor = rgb(0,0,0)
bcolor = rgb(250,210,210)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 20:
fcolor = rgb(0,0,0)
bcolor = rgb(250,200,200)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 21:
fcolor = rgb(0,0,0)
bcolor = rgb(250,150,150)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 22:
fcolor = rgb(255,255,255)
bcolor = rgb(25,25,25)
if vibratorin = 1:
horny = horny + rand(1,5)
end
end
if hour = 23:
fcolor = rgb(255,255,255)
bcolor = rgb(5,5,5)
if vibratorin = 1:
horny = horny + rand(1,5)
end
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:
		set frost += 1
		if energy < 5: set frost += 1
		if tanga = 0: set frost += 1
		if sweat > 0: set frost += 1
		end
	if temper<-20 and palto = 2:
		set frost += 1
		if energy < 5: set frost += 1
		if sweat > 0: set frost += 1
		end
	if temper<-30 and palto = 3: set frost += 1
	if palto <= 0:
		if temper<-10: frost += 1
		if temper<-20: frost += 2
		if temper<-30: frost += 5
		end
	if frost >= 12: set sick += 1
	if sick > 0 and sickstage = 0: set sickstage = 1
end
--- time ---------------------------------