time 8.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358
  1. # time
  2. If month = 1 and pogodaday ! day:
  3. set pogodaday = day
  4. set temper = rand(-30, 8)
  5. if temper <= 0:
  6. set osadki = rand(0, 10)
  7. if osadki < painweather:set $osadki = 'Clear.'
  8. if osadki >= painweather:set $osadki = 'Goes fluffy snow.'
  9. end
  10. if temper > 0:
  11. set osadki = rand(0, 10)
  12. if osadki < painweather:set $osadki = 'Clear the snow begins to melt some places forming slush.'
  13. if osadki >= painweather:set $osadki = 'Wet snow falls, which immediately melts forming slush.'
  14. end
  15. set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
  16. end
  17. If month = 2 and pogodaday ! day:
  18. set pogodaday = day
  19. set temper = rand(-35, 8)
  20. if temper <= 0:
  21. set osadki = rand(0, 10)
  22. if osadki < painweather:set $osadki = 'Cloudy and windy.'
  23. if osadki >= painweather:set $osadki = 'It´s snowing.'
  24. end
  25. if temper > 0:
  26. set osadki = rand(0, 10)
  27. if osadki < painweather:set $osadki = 'Clear the snow begins to melt some places forming slush.'
  28. if osadki >= painweather:set $osadki = 'Wet snow falls, which immediately melts forming slush.'
  29. end
  30. set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
  31. end
  32. If month = 3 and pogodaday ! day:
  33. set pogodaday = day
  34. set temper = rand(-20, 17)
  35. if temper <= 0:
  36. set osadki = rand(0, 10)
  37. if osadki < painweather:set $osadki = 'Clear and cloudless.'
  38. if osadki >= painweather:set $osadki = 'It´s snowing.'
  39. end
  40. if temper > 0:
  41. set osadki = rand(0, 10)
  42. if osadki < painweather:set $osadki = 'Clear the snow begins to melt some places forming slush.'
  43. if osadki >= painweather:set $osadki = 'Wet snow falls, which immediately melts forming slush.'
  44. end
  45. set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
  46. end
  47. If month = 4 and pogodaday ! day:
  48. set pogodaday = day
  49. set temper = rand(2, 20)
  50. set osadki = rand(0, 10)
  51. if osadki < painweather:
  52. if hour >= 7 and hour <= 20:set $osadki = 'Clear.'
  53. if hour < 7 or hour > 20:set $osadki = 'Clear.'
  54. end
  55. if osadki >= painweather:set $osadki = 'Rain.'
  56. set $pogoda = 'On the street the snow melts, the temperature <<temper>> degrees Celsius. <<$osadki>>'
  57. end
  58. If month = 5 and pogodaday ! day:
  59. set pogodaday = day
  60. set temper = rand(7, 25)
  61. set osadki = rand(0, 10)
  62. if osadki < painweather:set $osadki = 'Clear.'
  63. if osadki >= painweather:set $osadki = 'Rain.'
  64. 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>>'
  65. end
  66. If month = 6 and pogodaday ! day:
  67. set pogodaday = day
  68. set temper = rand(15, 35)
  69. set osadki = rand(0, 10)
  70. if osadki < painweather:set $osadki = 'Clear.'
  71. if osadki >= painweather:set $osadki = 'Rain.'
  72. set $pogoda = 'On the street the green grass, the temperature <<temper>> degrees Celsius. <<$osadki>>'
  73. end
  74. If month = 7 and pogodaday ! day:
  75. set pogodaday = day
  76. set temper = rand(20, 40)
  77. set osadki = rand(0, 10)
  78. if osadki < painweather:set $osadki = 'Clear.'
  79. if osadki >= painweather:set $osadki = 'Warm rain comes.'
  80. set $pogoda = 'Green grass on the street, the temperature <<temper>> degrees Celsius. <<$osadki>>'
  81. end
  82. If month = 8 and pogodaday ! day:
  83. set pogodaday = day
  84. set temper = rand(20, 35)
  85. set osadki = rand(0, 10)
  86. if osadki < painweather:set $osadki = 'Clear.'
  87. if osadki >= painweather:set $osadki = 'Warm rain comes.'
  88. set $pogoda = 'Outdoors green grass, where some are already visible yellowing leaves, temperature <<temper>> degrees Celsius. <<$osadki>>'
  89. end
  90. If month = 9 and pogodaday ! day:
  91. set pogodaday = day
  92. set temper = rand(10, 30)
  93. set osadki = rand(0, 10)
  94. if osadki < painweather:set $osadki = 'Clear.'
  95. if osadki >= painweather:set $osadki = 'Rain.'
  96. set $pogoda = 'Street zhuhnet grass, visible yellow leaves, the temperature <<temper>> degrees Celsius. <<$osadki>>'
  97. end
  98. If month = 10 and pogodaday ! day:
  99. set pogodaday = day
  100. set temper = rand(2, 20)
  101. set osadki = rand(0, 10)
  102. if osadki < painweather:set $osadki = 'Clear.'
  103. if osadki >= painweather:set $osadki = 'Goes cold rain.'
  104. set $pogoda = 'On the street faded grass, falling yellow leaves, mud and puddles around, temperature <<temper>> degrees Celsius. <<$osadki>>'
  105. end
  106. If month = 11 and pogodaday ! day:
  107. set pogodaday = day
  108. set temper = rand(-20, 17)
  109. if temper <= 0:
  110. set osadki = rand(0, 10)
  111. if osadki < painweather:set $osadki = 'Clear and cloudless.'
  112. if osadki >= painweather:set $osadki = 'It´s snowing.'
  113. end
  114. if temper > 0:
  115. set osadki = rand(0, 10)
  116. if osadki < painweather:set $osadki = 'Clear the snow begins to melt some places forming slush.'
  117. if osadki >= painweather:set $osadki = 'Cold rain.'
  118. end
  119. set $pogoda = 'The street is dirty and thin snow cover, temperature <<temper>> degrees Celsius. <<$osadki>>'
  120. end
  121. If month = 12 and pogodaday ! day:
  122. set pogodaday = day
  123. set temper = rand(-30, 8)
  124. if temper <= 0:
  125. set osadki = rand(0, 10)
  126. if osadki < painweather:set $osadki = 'Cloudy and windy.'
  127. if osadki >= painweather:set $osadki = 'Goes fluffy snow.'
  128. end
  129. if temper > 0:
  130. set osadki = rand(0, 10)
  131. if osadki < painweather:set $osadki = 'Clear the snow begins to melt some places forming slush.'
  132. if osadki >= painweather:set $osadki = 'Wet snow falls, which immediately melts forming slush.'
  133. end
  134. set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
  135. end
  136. pl '<<$pogoda>>'
  137. if osadki >= painweather and umbrella = 0 and mop > 1:
  138. set mop = 0
  139. 'You do not have an umbrella and on the moisture flowed your cosmetics.'
  140. end
  141. if osadki >= painweather and umbrella = 0 and hapri = 1:
  142. set hapri = 0
  143. if curly > 0:set curly -= 1
  144. 'You do not have an umbrella and on the moisture your hair has deteriorated.'
  145. end
  146. if isprok = 0 and mesec > 0 and preg = 0:
  147. '<b><font color="red">You have the blood flowing in the legs and staining the linen clothes.</font></b>'
  148. if clrbelo > 0:set clrbelo -= 1
  149. set sweat += 1
  150. set manna -= 10
  151. set willpower -= 10
  152. gs 'starenie'
  153. end
  154. if vibratorin = 1:horny += rand(1, 5)
  155. if hour = 0:
  156. fcolor = rgb(255, 255, 255)
  157. bcolor = rgb(0, 0, 0)
  158. end
  159. if hour = 1:
  160. fcolor = rgb(255, 255, 255)
  161. bcolor = rgb(5, 5, 5)
  162. end
  163. if hour = 2:
  164. fcolor = rgb(255, 255, 255)
  165. bcolor = rgb(10, 10, 10)
  166. end
  167. if hour = 3:
  168. fcolor = rgb(255, 255, 255)
  169. bcolor = rgb(30, 15, 15)
  170. end
  171. if hour = 4:
  172. fcolor = rgb(255, 255, 255)
  173. bcolor = rgb(60, 20, 20)
  174. end
  175. if hour = 5:
  176. fcolor = rgb(255, 255, 255)
  177. bcolor = rgb(100, 40, 40)
  178. end
  179. if hour = 6:
  180. fcolor = rgb(0, 0, 0)
  181. bcolor = rgb(200, 100, 100)
  182. end
  183. if hour = 7:
  184. fcolor = rgb(0, 0, 0)
  185. bcolor = rgb(250, 150, 150)
  186. end
  187. if hour = 8:
  188. fcolor = rgb(0, 0, 0)
  189. bcolor = rgb(250, 200, 200)
  190. end
  191. if hour = 9:
  192. fcolor = rgb(0, 0, 0)
  193. bcolor = rgb(250, 245, 245)
  194. end
  195. if hour = 10:
  196. fcolor = rgb(0, 0, 0)
  197. bcolor = rgb(255, 250, 250)
  198. end
  199. if hour = 11:
  200. fcolor = rgb(0, 0, 0)
  201. bcolor = rgb(255, 255, 255)
  202. end
  203. if hour = 12:
  204. fcolor = rgb(0, 0, 0)
  205. bcolor = rgb(255, 255, 255)
  206. end
  207. if hour = 13:
  208. fcolor = rgb(0, 0, 0)
  209. bcolor = rgb(255, 255, 255)
  210. end
  211. if hour = 14:
  212. fcolor = rgb(0, 0, 0)
  213. bcolor = rgb(255, 250, 250)
  214. end
  215. if hour = 15:
  216. fcolor = rgb(0, 0, 0)
  217. bcolor = rgb(255, 245, 245)
  218. end
  219. if hour = 16:
  220. fcolor = rgb(0, 0, 0)
  221. bcolor = rgb(250, 240, 240)
  222. end
  223. if hour = 17:
  224. fcolor = rgb(0, 0, 0)
  225. bcolor = rgb(250, 230, 230)
  226. end
  227. if hour = 18:
  228. fcolor = rgb(0, 0, 0)
  229. bcolor = rgb(250, 220, 220)
  230. end
  231. if hour = 19:
  232. fcolor = rgb(0, 0, 0)
  233. bcolor = rgb(250, 210, 210)
  234. end
  235. if hour = 20:
  236. fcolor = rgb(0, 0, 0)
  237. bcolor = rgb(250, 200, 200)
  238. end
  239. if hour = 21:
  240. fcolor = rgb(0, 0, 0)
  241. bcolor = rgb(250, 150, 150)
  242. end
  243. if hour = 22:
  244. fcolor = rgb(255, 255, 255)
  245. bcolor = rgb(25, 25, 25)
  246. end
  247. if hour = 23:
  248. fcolor = rgb(255, 255, 255)
  249. bcolor = rgb(5, 5, 5)
  250. end
  251. if temper <= 0:
  252. if palto = 1:bonusZ = -3
  253. if palto = 2:bonusZ = 0
  254. if palto = 3:bonusZ = 3
  255. if temper < -10 and palto = 1:
  256. set frost += 1
  257. if energy < 5:set frost += 1
  258. if tanga = 0:set frost += 1
  259. if sweat > 0:set frost += 1
  260. end
  261. if temper < -20 and palto = 2:
  262. set frost += 1
  263. if energy < 5:set frost += 1
  264. if sweat > 0:set frost += 1
  265. end
  266. if temper< -30 and palto = 3:set frost += 1
  267. if palto <= 0:
  268. if temper < -10:frost += 1
  269. if temper < -20:frost += 2
  270. if temper < -30:frost += 5
  271. end
  272. if frost >= 12:set sick += 1
  273. if sick > 0 and sickstage = 0:set sickstage = 1
  274. end
  275. --- time ---------------------------------