1
0

outdoors 8.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384
  1. # outdoors
  2. if month = 1 and weatherDay ! daystart:
  3. weatherDay = daystart
  4. temper = rand(-30, 8)
  5. if temper <= 0:
  6. osadki = rand(0, 10)
  7. if osadki < painweather:
  8. $osadki = 'Clear.'
  9. else
  10. $osadki = 'Light, fluffy snow.'
  11. end
  12. else
  13. osadki = rand(0, 10)
  14. if osadki < painweather:
  15. $osadki = 'Clear, the snow is begining to melt in some places forming slush.'
  16. else
  17. $osadki = 'Wet snow falls, immediately melting to form slush.'
  18. end
  19. end
  20. $weather = 'On the street there is snow, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
  21. end
  22. if month = 2 and weatherDay ! daystart:
  23. weatherDay = daystart
  24. temper = rand(-35, 8)
  25. if temper <= 0:
  26. osadki = rand(0, 10)
  27. if osadki < painweather:
  28. $osadki = 'Cloudy and windy.'
  29. else
  30. $osadki = 'It''s snowing.'
  31. end
  32. else
  33. osadki = rand(0, 10)
  34. if osadki < painweather:
  35. $osadki = 'Clear, the snow is begining to melt in some places forming slush.'
  36. else
  37. $osadki = 'Wet snow falls, immediately melting to form slush.'
  38. end
  39. end
  40. $weather = 'On the street there is snow, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
  41. end
  42. if month = 3 and weatherDay ! daystart:
  43. weatherDay = daystart
  44. temper = rand(-20, 17)
  45. if temper <= 0:
  46. osadki = rand(0, 10)
  47. if osadki < painweather:
  48. $osadki = 'Clear and cloudless.'
  49. else
  50. $osadki = 'It''s snowing.'
  51. end
  52. else
  53. osadki = rand(0, 10)
  54. if osadki < painweather:
  55. $osadki = 'Clear, the snow is begining to melt in some places forming slush.'
  56. else
  57. $osadki = 'Wet snow falls, immediately melting to form slush.'
  58. end
  59. end
  60. $weather = 'On the street there is snow, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
  61. end
  62. if month = 4 and weatherDay ! daystart:
  63. weatherDay = daystart
  64. temper = rand(2, 20)
  65. osadki = rand(0, 10)
  66. if osadki < painweather:
  67. if hour >= 7 and hour <= 20:
  68. $osadki = 'Clear.'
  69. else
  70. $osadki = 'Clear.'
  71. end
  72. else
  73. $osadki = 'Rain.'
  74. end
  75. $weather = 'On the street the snow melts, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
  76. end
  77. if month = 5 and weatherDay ! daystart:
  78. weatherDay = daystart
  79. temper = rand(7, 25)
  80. osadki = rand(0, 10)
  81. if osadki < painweather:
  82. $osadki = 'Clear.'
  83. else
  84. $osadki = 'Rain.'
  85. end
  86. $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 <<temper>> degrees Celsius. <<$osadki>>'
  87. end
  88. if month = 6 and weatherDay ! daystart:
  89. weatherDay = daystart
  90. temper = rand(15, 35)
  91. osadki = rand(0, 10)
  92. if osadki < painweather:
  93. $osadki = 'Clear.'
  94. else
  95. $osadki = 'Rain.'
  96. end
  97. $weather = 'Green grass lines the streets, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
  98. end
  99. if month = 7 and weatherDay ! daystart:
  100. weatherDay = daystart
  101. temper = rand(20, 40)
  102. osadki = rand(0, 10)
  103. if osadki < painweather:
  104. $osadki = 'Clear.'
  105. else
  106. $osadki = 'Light showers.'
  107. end
  108. $weather = 'Green grass lines the streets, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
  109. end
  110. if month = 8 and weatherDay ! daystart:
  111. weatherDay = daystart
  112. temper = rand(20, 35)
  113. osadki = rand(0, 10)
  114. if osadki < painweather:
  115. $osadki = 'Clear.'
  116. else
  117. $osadki = 'Light showers.'
  118. end
  119. $weather = 'The grass is green, in the trees the leaves are already turning yellow, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
  120. end
  121. if month = 9 and weatherDay ! daystart:
  122. weatherDay = daystart
  123. temper = rand(10, 30)
  124. osadki = rand(0, 10)
  125. if osadki < painweather:
  126. $osadki = 'Clear.'
  127. else
  128. $osadki = 'Rain.'
  129. end
  130. $weather = 'Streets lined with green grass, visible yellow leaves, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
  131. end
  132. if month = 10 and weatherDay ! daystart:
  133. weatherDay = daystart
  134. temper = rand(2, 20)
  135. osadki = rand(0, 10)
  136. if osadki < painweather:
  137. $osadki = 'Clear.'
  138. else
  139. $osadki = 'Rain and hail.'
  140. end
  141. $weather = 'The grass is fading and patchy, yellow and brown leaves fall from the trees, mud and puddles dot the street, temperature is <<temper>> degrees Celsius. <<$osadki>>'
  142. end
  143. if month = 11 and weatherDay ! daystart:
  144. weatherDay = daystart
  145. temper = rand(-20, 17)
  146. if temper <= 0:
  147. osadki = rand(0, 10)
  148. if osadki < painweather:
  149. $osadki = 'Clear and cloudless.'
  150. else
  151. $osadki = 'It''s snowing.'
  152. end
  153. else
  154. osadki = rand(0, 10)
  155. if osadki < painweather:
  156. $osadki = 'Clear, the snow begins to melt some places forming slush.'
  157. else
  158. $osadki = 'Cold rain.'
  159. end
  160. end
  161. $weather = 'The street is dirty with a thin snow cover, temperature is <<temper>> degrees Celsius. <<$osadki>>'
  162. end
  163. if month = 12 and weatherDay ! daystart:
  164. weatherDay = daystart
  165. temper = rand(-30, 8)
  166. if temper <= 0:
  167. osadki = rand(0, 10)
  168. if osadki < painweather:
  169. $osadki = 'Cloudy and windy.'
  170. else
  171. $osadki = 'Light fluffy snow.'
  172. end
  173. else
  174. osadki = rand(0, 10)
  175. if osadki < painweather:
  176. $osadki = 'Clear skies, the snow is beginning to melt in some places forming slush.'
  177. else
  178. $osadki = 'Wet snow falls, immediately melting to form slush.'
  179. end
  180. end
  181. $weather = 'The street is covered in snow, the temperature is <<temper>> degrees Celsius. <<$osadki>>'
  182. end
  183. ! WD: Variable not set needed for events in Village Gadyukino
  184. if osadki < painweather:
  185. set sunWeather = 1
  186. else
  187. set sunWeather = 0
  188. end
  189. if osadki >= painweather and umbrella = 0:
  190. if mop > 1:
  191. mop = 0
  192. 'You do not have an umbrella.'
  193. end
  194. if hapri = 1:
  195. hapri = 0
  196. if curly > 0:curly -= 1
  197. 'You do not have an umbrella.'
  198. end
  199. end
  200. if isprok = 0 and isprokp = 0 and mesec > 0 and preg = 0:
  201. '<b><font color="red">You have the blood flowing down your legs and staining your clothes.</font></b>'
  202. if clrbelo > 0 and tanga = 1:clrbelo -= 1 & tanga = 0 & '<b><font color="red">Your panties have been ruined and you discreetly remove and dispose of them.</font></b>'
  203. sweat += 1
  204. manna -= 10
  205. willpower -= 10
  206. gs 'starenie'
  207. end
  208. ! WD: Fix vibrator arousal triggering every time module is called, moved too 'stat' location
  209. !!!0.2.6 extension: Optimized a bit of code
  210. !! if vibratorin = 1:horny += rand(1, 5)
  211. !!!
  212. if hour = 0:
  213. fcolor = rgb(255, 255, 255)
  214. bcolor = rgb(0, 0, 0)
  215. elseif hour = 1:
  216. fcolor = rgb(255, 255, 255)
  217. bcolor = rgb(5, 5, 5)
  218. elseif hour = 2:
  219. fcolor = rgb(255, 255, 255)
  220. bcolor = rgb(10, 10, 10)
  221. elseif hour = 3:
  222. fcolor = rgb(255, 255, 255)
  223. bcolor = rgb(30, 15, 15)
  224. elseif hour = 4:
  225. fcolor = rgb(255, 255, 255)
  226. bcolor = rgb(60, 20, 20)
  227. elseif hour = 5:
  228. fcolor = rgb(255, 255, 255)
  229. bcolor = rgb(100, 40, 40)
  230. elseif hour = 6:
  231. fcolor = rgb(0, 0, 0)
  232. bcolor = rgb(200, 100, 100)
  233. elseif hour = 7:
  234. fcolor = rgb(0, 0, 0)
  235. bcolor = rgb(250, 150, 150)
  236. elseif hour = 8:
  237. fcolor = rgb(0, 0, 0)
  238. bcolor = rgb(250, 200, 200)
  239. elseif hour = 9:
  240. fcolor = rgb(0, 0, 0)
  241. bcolor = rgb(250, 245, 245)
  242. elseif hour = 10:
  243. fcolor = rgb(0, 0, 0)
  244. bcolor = rgb(255, 250, 250)
  245. elseif hour = 11:
  246. fcolor = rgb(0, 0, 0)
  247. bcolor = rgb(255, 255, 255)
  248. elseif hour = 12:
  249. fcolor = rgb(0, 0, 0)
  250. bcolor = rgb(255, 255, 255)
  251. elseif hour = 13:
  252. fcolor = rgb(0, 0, 0)
  253. bcolor = rgb(255, 255, 255)
  254. elseif hour = 14:
  255. fcolor = rgb(0, 0, 0)
  256. bcolor = rgb(255, 250, 250)
  257. elseif hour = 15:
  258. fcolor = rgb(0, 0, 0)
  259. bcolor = rgb(255, 245, 245)
  260. elseif hour = 16:
  261. fcolor = rgb(0, 0, 0)
  262. bcolor = rgb(250, 240, 240)
  263. elseif hour = 17:
  264. fcolor = rgb(0, 0, 0)
  265. bcolor = rgb(250, 230, 230)
  266. elseif hour = 18:
  267. fcolor = rgb(0, 0, 0)
  268. bcolor = rgb(250, 220, 220)
  269. elseif hour = 19:
  270. fcolor = rgb(0, 0, 0)
  271. bcolor = rgb(250, 210, 210)
  272. elseif hour = 20:
  273. fcolor = rgb(0, 0, 0)
  274. bcolor = rgb(250, 200, 200)
  275. elseif hour = 21:
  276. fcolor = rgb(0, 0, 0)
  277. bcolor = rgb(250, 150, 150)
  278. elseif hour = 22:
  279. fcolor = rgb(255, 255, 255)
  280. bcolor = rgb(25, 25, 25)
  281. elseif hour = 23:
  282. fcolor = rgb(255, 255, 255)
  283. bcolor = rgb(5, 5, 5)
  284. end
  285. if temper <= 0:
  286. if (totminut - Time15Minute) >= 15:
  287. !reset Time15Minute
  288. if frost = 0:Time15Minute = totminut
  289. ! begin Loop
  290. :Time15MinuteLoop
  291. if defaultcoat = 5:bonusZ = -3
  292. if defaultcoat = 0:bonusZ = 0
  293. if defaultcoat = 3:bonusZ = 3
  294. if temper < -10 and defaultcoat < 4 and defaultcoat ! 0:
  295. if temper < -30:
  296. frost += 2
  297. else
  298. frost += 1
  299. end
  300. if energy < 20:frost += 1
  301. if tanga = 0:frost += 1
  302. if sweat > 0:frost += 1
  303. elseif temper < -20 and (defaultcoat = 4 or defaultcoat = 5 or defaultcoat = 8 or defaultcoat = 10 or defaultcoat = 12):
  304. frost += 1
  305. if energy < 20:frost += 1
  306. if sweat > 0:frost += 1
  307. elseif temper< -30 and (defaultcoat = 6 or defaultcoat = 7 or defaultcoat = 9 or defaultcoat = 11):
  308. frost += 1
  309. end
  310. if defaultcoat = 0:
  311. if temper < -10:frost += 1
  312. if temper < -20:frost += 2
  313. if temper < -30:frost += 5
  314. end
  315. if frost >= 12:sick += 1
  316. if sick > 0 and sickstage = 0:sickstage = 1
  317. Time15Minute += 15
  318. if (totminut - Time15Minute) >= 15:jump 'Time15MinuteLoop'
  319. end
  320. end
  321. --- outdoors ---------------------------------