123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370 |
- # 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>>'
- ! 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 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 ---------------------------------
|