# outdoors 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 <> 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 <> 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 <> 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 <> 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 <> 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 <> 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 <> 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 <> 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 <> 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 <> 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 <> 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 <> 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: 'You have the blood flowing down your legs and staining your clothes.' if clrbelo > 0 and tanga = 1:clrbelo -= 1 & tanga = 0 & 'Your panties have been ruined and you discreetly remove and dispose of them.' 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 (totminut - Time15Minute) >= 15: !reset Time15Minute if frost = 0:Time15Minute = totminut ! begin Loop :Time15MinuteLoop 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 Time15Minute += 15 if (totminut - Time15Minute) >= 15:jump 'Time15MinuteLoop' end end --- outdoors ---------------------------------