outdoors 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392
  1. # outdoors
  2. if $ARGS[0] = 'weather':
  3. if weatherDay ! daystart:
  4. sunWeather = 0
  5. if month = 1:
  6. weatherDay = daystart
  7. temper = rand(-25, 0)
  8. if temper <= 0:
  9. if rand(0, 11) < 6:
  10. $osadki = 'Clear.'
  11. sunWeather = 1
  12. else
  13. $osadki = 'Light, fluffy snow.'
  14. end
  15. else
  16. if rand(0, 11) < 6:
  17. $osadki = 'Clear, the snow is beginning to melt in some places forming slush.'
  18. sunWeather = 1
  19. else
  20. $osadki = 'Wet snow falls, immediately melting to form slush.'
  21. end
  22. end
  23. gs 'outdoors', 'temp_set'
  24. $weather = '<b>On the street there is snow, the temperature is <<$temperature>> degrees Celsius. <<$osadki>></b>'
  25. elseif month = 2:
  26. weatherDay = daystart
  27. temper = rand(-30, 0)
  28. if temper <= 0:
  29. if rand(0, 10) < 6:
  30. $osadki = 'Cloudy and windy.'
  31. sunWeather = 1
  32. else
  33. $osadki = 'It''s snowing.'
  34. end
  35. else
  36. if rand(0, 10) < 6:
  37. $osadki = 'Clear, the snow is beginning to melt in some places forming slush.'
  38. sunWeather = 1
  39. else
  40. $osadki = 'Wet snow falls, immediately melting to form slush.'
  41. end
  42. end
  43. gs 'outdoors', 'temp_set'
  44. $weather = '<b>On the street there is snow, the temperature is <<$temperature>> degrees Celsius. <<$osadki>></b>'
  45. elseif month = 3:
  46. weatherDay = daystart
  47. temper = rand(-20, 8)
  48. if temper <= 0:
  49. if rand(0, 10) < 6:
  50. $osadki = 'Clear and cloudless.'
  51. sunWeather = 1
  52. else
  53. $osadki = 'It''s snowing.'
  54. end
  55. else
  56. if rand(0, 10) < 6:
  57. $osadki = 'Clear, the snow is beginning to melt in some places forming slush.'
  58. sunWeather = 1
  59. else
  60. $osadki = 'Wet snow falls, immediately melting to form slush.'
  61. end
  62. end
  63. gs 'outdoors', 'temp_set'
  64. $weather = '<b>On the street there is snow, the temperature is <<$temperature>> degrees Celsius. <<$osadki>></b>'
  65. elseif month = 4:
  66. weatherDay = daystart
  67. temper = rand(-5, 15)
  68. if rand(0, 10) < 6:
  69. $osadki = 'Clear.'
  70. sunWeather = 1
  71. else
  72. $osadki = 'Rain.'
  73. end
  74. gs 'outdoors', 'temp_set'
  75. $weather = '<b>On the street the snow melts, the temperature is <<$temperature>> degrees Celsius. <<$osadki>></b>'
  76. elseif month = 5:
  77. weatherDay = daystart
  78. temper = rand(3, 22)
  79. if rand(0, 10) < 6:
  80. $osadki = 'Clear.'
  81. sunWeather = 1
  82. else
  83. $osadki = 'Rain.'
  84. end
  85. gs 'outdoors', 'temp_set'
  86. $weather = '<b>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 <<$temperature>> degrees Celsius. <<$osadki>></b>'
  87. elseif month = 6:
  88. weatherDay = daystart
  89. temper = rand(8, 25)
  90. if rand(0, 9) < 6:
  91. $osadki = 'Clear.'
  92. sunWeather = 1
  93. else
  94. $osadki = 'Rain.'
  95. end
  96. gs 'outdoors', 'temp_set'
  97. $weather = '<b>Green grass lines the streets, the temperature is <<$temperature>> degrees Celsius. <<$osadki>></b>'
  98. elseif month = 7:
  99. weatherDay = daystart
  100. temper = rand(10, 27)
  101. if rand(0, 9) < 6:
  102. $osadki = 'Clear.'
  103. sunWeather = 1
  104. else
  105. $osadki = 'Light showers.'
  106. end
  107. gs 'outdoors', 'temp_set'
  108. $weather = '<b>Green grass lines the streets, the temperature is <<$temperature>> degrees Celsius. <<$osadki>></b>'
  109. elseif month = 8:
  110. weatherDay = daystart
  111. temper = rand(8, 25)
  112. if rand(0, 9) < 6:
  113. $osadki = 'Clear.'
  114. sunWeather = 1
  115. else
  116. $osadki = 'Light showers.'
  117. end
  118. gs 'outdoors', 'temp_set'
  119. $weather = '<b>The grass is green, in the trees the leaves are already turning yellow, the temperature is <<$temperature>> degrees Celsius. <<$osadki>></b>'
  120. elseif month = 9:
  121. weatherDay = daystart
  122. temper = rand(3, 22)
  123. if rand(0, 10) < 6:
  124. $osadki = 'Clear.'
  125. sunWeather = 1
  126. else
  127. $osadki = 'Rain.'
  128. end
  129. gs 'outdoors', 'temp_set'
  130. $weather = '<b>Streets lined with green grass, visible yellow leaves, the temperature is <<$temperature>> degrees Celsius. <<$osadki>></b>'
  131. elseif month = 10:
  132. weatherDay = daystart
  133. temper = rand(0, 15)
  134. if rand(0, 10) < 6:
  135. $osadki = 'Clear.'
  136. sunWeather = 1
  137. else
  138. $osadki = 'Rain and hail.'
  139. end
  140. gs 'outdoors', 'temp_set'
  141. $weather = '<b>The grass is fading and patchy, yellow and brown leaves fall from the trees, mud and puddles dot the street, temperature is <<$temperature>> degrees Celsius. <<$osadki>></b>'
  142. elseif month = 11:
  143. weatherDay = daystart
  144. temper = rand(-10, 7)
  145. if temper <= 0:
  146. if rand(0, 10) < 6:
  147. $osadki = 'Clear and cloudless.'
  148. sunWeather = 1
  149. else
  150. $osadki = 'It''s snowing.'
  151. end
  152. else
  153. if rand(0, 10) < 6:
  154. $osadki = 'Clear, the snow begins to melt some places forming slush.'
  155. sunWeather = 1
  156. else
  157. $osadki = 'Cold rain.'
  158. end
  159. end
  160. gs 'outdoors', 'temp_set'
  161. $weather = '<b>The street is dirty with a thin snow cover, temperature is <<$temperature>> degrees Celsius. <<$osadki>></b>'
  162. elseif month = 12:
  163. weatherDay = daystart
  164. temper = rand(-15, 0)
  165. if temper <= 0:
  166. if rand(0, 11) < 6:
  167. $osadki = 'Cloudy and windy.'
  168. sunWeather = 1
  169. else
  170. $osadki = 'Light fluffy snow.'
  171. end
  172. else
  173. if rand(0, 11) < 6:
  174. $osadki = 'Clear skies, the snow is beginning to melt in some places forming slush.'
  175. sunWeather = 1
  176. else
  177. $osadki = 'Wet snow falls, immediately melting to form slush.'
  178. end
  179. end
  180. gs 'outdoors', 'temp_set'
  181. $weather = '<b>The street is covered in snow, the temperature is <<$temperature>> degrees Celsius. <<$osadki>></b>'
  182. end
  183. end
  184. end
  185. if $ARGS[0] = 'temp_set':
  186. if temper < 0:
  187. $temperature = '<font color=blue><<temper>></font>'
  188. elseif temper < 10:
  189. $temperature = '<font color=green><<temper>></font>'
  190. elseif temper < 20:
  191. $temperature = '<font color=orange><<temper>></font>'
  192. else
  193. $temperature = '<font color=red><<temper>></font>'
  194. end
  195. end
  196. if $ARGS[0] = 'main':
  197. if night_mode = 1:
  198. fcolor = rgb(255, 255, 255)
  199. bcolor = rgb(0, 0, 0)
  200. else
  201. if hour = 0:
  202. fcolor = rgb(255, 255, 255)
  203. bcolor = rgb(0, 0, 0)
  204. elseif hour = 1:
  205. fcolor = rgb(255, 255, 255)
  206. bcolor = rgb(5, 5, 5)
  207. elseif hour = 2:
  208. fcolor = rgb(255, 255, 255)
  209. bcolor = rgb(10, 10, 10)
  210. elseif hour = 3:
  211. fcolor = rgb(255, 255, 255)
  212. bcolor = rgb(30, 15, 15)
  213. elseif hour = 4:
  214. fcolor = rgb(255, 255, 255)
  215. bcolor = rgb(60, 20, 20)
  216. elseif hour = 5:
  217. fcolor = rgb(255, 255, 255)
  218. bcolor = rgb(100, 40, 40)
  219. elseif hour = 6:
  220. fcolor = rgb(0, 0, 0)
  221. bcolor = rgb(200, 100, 100)
  222. elseif hour = 7:
  223. fcolor = rgb(0, 0, 0)
  224. bcolor = rgb(250, 150, 150)
  225. elseif hour = 8:
  226. fcolor = rgb(0, 0, 0)
  227. bcolor = rgb(250, 200, 200)
  228. elseif hour = 9:
  229. fcolor = rgb(0, 0, 0)
  230. bcolor = rgb(250, 245, 245)
  231. elseif hour = 10:
  232. fcolor = rgb(0, 0, 0)
  233. bcolor = rgb(255, 250, 250)
  234. elseif hour = 11:
  235. fcolor = rgb(0, 0, 0)
  236. bcolor = rgb(255, 255, 255)
  237. elseif hour = 12:
  238. fcolor = rgb(0, 0, 0)
  239. bcolor = rgb(255, 255, 255)
  240. elseif hour = 13:
  241. fcolor = rgb(0, 0, 0)
  242. bcolor = rgb(255, 255, 255)
  243. elseif hour = 14:
  244. fcolor = rgb(0, 0, 0)
  245. bcolor = rgb(255, 250, 250)
  246. elseif hour = 15:
  247. fcolor = rgb(0, 0, 0)
  248. bcolor = rgb(255, 245, 245)
  249. elseif hour = 16:
  250. fcolor = rgb(0, 0, 0)
  251. bcolor = rgb(250, 240, 240)
  252. elseif hour = 17:
  253. fcolor = rgb(0, 0, 0)
  254. bcolor = rgb(250, 230, 230)
  255. elseif hour = 18:
  256. fcolor = rgb(0, 0, 0)
  257. bcolor = rgb(250, 220, 220)
  258. elseif hour = 19:
  259. fcolor = rgb(0, 0, 0)
  260. bcolor = rgb(250, 210, 210)
  261. elseif hour = 20:
  262. fcolor = rgb(0, 0, 0)
  263. bcolor = rgb(250, 200, 200)
  264. elseif hour = 21:
  265. fcolor = rgb(0, 0, 0)
  266. bcolor = rgb(250, 150, 150)
  267. elseif hour = 22:
  268. fcolor = rgb(255, 255, 255)
  269. bcolor = rgb(25, 25, 25)
  270. elseif hour = 23:
  271. fcolor = rgb(255, 255, 255)
  272. bcolor = rgb(5, 5, 5)
  273. end
  274. end
  275. if sunWeather = 0 and umbrella = 0:
  276. *NL 'It is raining and you do not have an umbrella.'
  277. if pcs_makeup > 1:
  278. pcs_makeup = 0
  279. *p ' The rain has ruined your makeup.'
  280. end
  281. if pcs_hairbsh = 1:
  282. pcs_hairbsh = 0
  283. if curly > 0:curly -= 1
  284. *p ' Your hair is soaked.'
  285. end
  286. *nl
  287. end
  288. if temper <= 0:
  289. if (totminut - Time15Minute) >= 15:
  290. !reset Time15Minute
  291. if frost = 0:Time15Minute = totminut
  292. ! begin Loop
  293. :Time15MinuteLoop
  294. if defaultcoat = 5:bonusZ = -3
  295. if defaultcoat = 0:bonusZ = 0
  296. if defaultcoat = 3 or defaultcoat = 9 or defaultcoat = 11 or defaultcoat = 12 or defaultcoat = 15 or defaultcoat = 18:bonusZ = 3
  297. if temper < -10 and defaultcoat < 4 and defaultcoat ! 0:
  298. if temper < -30:
  299. frost += 2
  300. else
  301. frost += 1
  302. end
  303. if pcs_energy < 20:frost += 1
  304. if tanga = 0:frost += 1
  305. if pcs_sweat > 20:frost += 1
  306. elseif temper < -20 and (defaultcoat = 4 or defaultcoat = 5 or defaultcoat = 8 or defaultcoat = 10 or defaultcoat = 12 or defaultcoat = 13 or defaultcoat = 14 or defaultcoat = 16 or defaultcoat = 17 or defaultcoat = 18 or defaultcoat = 19):
  307. frost += 1
  308. if pcs_energy < 20:frost += 1
  309. if pcs_sweat > 20:frost += 1
  310. elseif temper < -30 and (defaultcoat = 6 or defaultcoat = 7 or defaultcoat = 9 or defaultcoat = 11 or defaultcoat = 15):
  311. frost += 1
  312. end
  313. if defaultcoat = 0:
  314. if temper < -10:frost += 1
  315. if temper < -20:frost += 2
  316. if temper < -30:frost += 5
  317. end
  318. if frost >= 12:sick += 1
  319. if sick > 0 and sickstage = 0:sickstage = 1
  320. Time15Minute += 15
  321. if (totminut - Time15Minute) >= 15:jump 'Time15MinuteLoop'
  322. end
  323. end
  324. !!15 minute check to stop refreshes causing early gameover and cheating at exhibitionism
  325. if outdoors_checks + 15 < totminut:
  326. outdoors_checks = totminut
  327. if isprok = 0 and isprokp = 0 and mesec > 0 and preg = 0:
  328. '<b><font color="red">You have the blood flowing down your legs and staining your clothes.</font></b>'
  329. 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>'
  330. pcs_sweat += 10
  331. pcs_mood -= 3
  332. pcs_willpwr -= 10
  333. dynamic '<<$clothingworntype>>H[<<clothingwornnumber>>] -= 1'
  334. end
  335. !!Exhibitionism
  336. if CloExhibit >= pcs_exhibition - 10:
  337. exhibition_outdoors += 1
  338. if pcs_exhibition < 45 and PCloPanties = 1: exhibition_outdoors += 1
  339. end
  340. if tanga = 0:
  341. if PCloSkirt = 3:
  342. exhibition_outdoors += 1
  343. elseif PCloSkirt = 4:
  344. exhibition_outdoors += 2
  345. elseif PCloSkirt = 5:
  346. exhibition_outdoors += 3
  347. elseif PCloSkirt = 6:
  348. exhibition_outdoors += 4
  349. end
  350. end
  351. end
  352. end
  353. --- outdoors ---------------------------------