# 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 = 'It_Is_Clear.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Is fluffy snow.'
		 end
     end
     if temper > 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'It_Is_Clear, snow begins to melt something where forming slush.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Falling sleet, who immediately melts forming slush.'
		 end
     end
set $pogoda = 'On the street there is snow, 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 = 'Clear 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 = 'It_Is_Clear, snow begins to melt something where forming slush.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Falling sleet, who immediately melts forming slush.'
		 end
     end
set $pogoda = 'On the street there is snow, 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 = 'It_Is_Clear, snow begins to melt something where forming slush.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Falling sleet, who immediately melts forming slush.'
		 end
     end
set $pogoda = 'On the street there is snow, 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 = 'It_Is_Clear.'
         end
         if hour < 7 or hour > 20:
         set $osadki = 'It_Is_Clear.'
         end
	 end
	 if osadki >= painweather:
	 set $osadki = 'the rain.'
	 end

set $pogoda = 'On the street the snow melts, 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 = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'the rain.'
	 end

set $pogoda = 'On the street puddles of snow rastaevshego, circle of dirt and debris shown after winter, something new where the grass is pleasing to the eye for its greenery, 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 = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'the rain.'
	 end

set $pogoda = 'Green grass on the street, 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 = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'Is warm rain.'
	 end

set $pogoda = 'Green grass on the street, 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 = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'Is warm rain.'
	 end

set $pogoda = 'Green grass on the street, something which is 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 = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'the rain.'
	 end

set $pogoda = 'On the street zhuhnet grass, visible yellow leaves, 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 = 'It_Is_Clear.'
	 end
	 if osadki >= painweather:
	 set $osadki = 'There is a cold rain.'
	 end

set $pogoda = 'On the street faded grass, falling yellow leaves, around mud and puddles, 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 = 'It_Is_Clear, snow begins to melt something where forming slush.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'cold rain.'
		 end
     end
set $pogoda = 'The street is thin and dirty 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 = 'Clear and windy.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Is fluffy snow.'
		 end
     end
     if temper > 0: 
     set osadki = RAND (0,10)
		 if osadki < painweather:
		 set $osadki = 'It_Is_Clear, snow begins to melt something where forming slush.'
		 end
		 if osadki >= painweather:
		 set $osadki = 'Falling sleet, who immediately melts forming slush.'
		 end
     end
set $pogoda = 'On the street there is snow, 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 .'
end

if osadki >= painweather and umbrella = 0 and hapri = 1:
set hapri = 0
if curly > 0:set curly = curly - 1
'You do not have an umbrella .'
end

if isprok = 0 and mesec > 0 and preg = 0:
'<B><font color=red>You have blood flowing in the legs soiling underwear and clothing.</font></B>'
if clrbelo > 0:set clrbelo = clrbelo - 1
set sweat = sweat + 1
set manna = manna - 10
set willpower = 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 ---------------------------------

