1
0

gadforest 25 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556
  1. # gadforest
  2. if $ARGS[0] = '1':
  3. !out skirt
  4. $location_type = 'secluded'
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
  8. gs 'gadukino_event', 'sound'
  9. cls
  10. gs'stat'
  11. !gs'time'
  12. !MiaLoc tells us where Mira is Located
  13. !----------------------------------------------
  14. !MiraLoc = 0 (Mira at home)
  15. !MiraLoc = 1 (Mira at river)
  16. !MiraLoc = 2 (Mira at meadow)
  17. !MiraLoc = 3 (Mira at forest)
  18. !MiraLoc = 4 (Mira at field)
  19. !MiraLoc = 5 (Mira with gop)
  20. !---------------------------------------------
  21. if goforest < 20:goforest += rand(0,1)
  22. lost = 1
  23. !to determine the continuation of the way if he got lost
  24. lostrand = rand(1,30)
  25. !the chance to get lost
  26. foresteventrand = rand(1,20)
  27. new_boletus = 0
  28. new_bilberry = 0
  29. '<center><H4>Forest</H4></center>'
  30. if month >= 4 and month <= 10:
  31. if hour >= 6 and hour < 22:
  32. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest1.jpg"></center>'
  33. 'The edge of the forest. There are a few mushrooms and you can often see mushroom pickers.'
  34. else
  35. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night1.jpg"></center>'
  36. 'The edge of the forest. Night in the woods is scary and uncomfortable.'
  37. end
  38. else
  39. if hour >= 8 and hour < 18:
  40. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter1.jpg"></center>'
  41. 'The edge of the forest. The forest in the winter is very beautiful.'
  42. else
  43. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night1.jpg"></center>'
  44. 'The edge of the forest. Night in the winter forest is very scary and uncomfortable.'
  45. end
  46. end
  47. if forestpicnic = 1:'On the edge of the forest you see people. Apparently they are having a family <a href="exec:gt ''gadforest_event'',''picnic''">picnic</a>.'
  48. if MiraLoc = 3:'Near you wandering in the forest is <a href="exec: gt ''Miroslava'' ">Mira</a>.'
  49. if clothesAtLocation = 1:'On the ground lay your clothes.'
  50. if findvel = 2:'Near the tree is your old <a href="exec:gt ''bicycle'',''forest''">bike</a>.'
  51. if goforest < 10:'You don''t know this forest very well, it''s best if you don''t wander too far.'
  52. if temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest = 1:gt 'gadforest_event', 'nude_event'
  53. if foresteventrand < 3 and month >= 6 and month <= 9 and mushroom_pickersday ! daystart:mushroom_pickers = 1 & gt'gadforest_event', 'mushroom_pickers1'
  54. if foresteventrand = 3 and month >= 5 and month <= 9 and temper >= 15 and sunWeather = 1 and week > 5 and forestpicnic = 0: forestpicnic = 1 & gt 'gadforest_event', 'picnic'
  55. if foresteventrand = 4 and month >= 6 and month <= 9: gt 'gadforest_event', 'mushroom_pickers2'
  56. if foresteventrand = 5 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week <= 5: gt 'gadforest_event', 'gopforest_mitka'
  57. if foresteventrand = 6 and hour >= 8 and hour <= 18 and month >= 4 and month <= 10 and gadboyday ! daystart and week <= 5: gt 'gadforest_event', 'gopforest_kolyamba'
  58. if foresteventrand = 7 and hour >= 8 and hour <= 18 and month >= 4 and month <= 10 and gadboyday ! daystart and week <= 5: gt 'gadforest_event', 'gopforest_vasyan'
  59. if foresteventrand = 8 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week > 5: gt 'gadforest_event', 'gopforest_2boys'
  60. if foresteventrand = 9 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week > 5: gt 'gadforest_event', 'gopforest_3boys'
  61. if $clothingworntype ! 'nude' and clothesAtLocation = 0 and temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest > 1 and MiraLoc ! 3:
  62. act'Strip naked':
  63. if forestpicnic = 0:
  64. cla
  65. *clr
  66. minut+=5
  67. gs 'underwear', 'remove'
  68. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  69. if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  70. gs 'clothing', 'strip', 'gadforest'
  71. 'You don''t hesitate and quickly get undressed, your clothes are left laying in a pile.'
  72. act'Back':gt'gadforest','1'
  73. else
  74. cla
  75. *clr
  76. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
  77. 'You see a number of people you are ashamed of.'
  78. act'Back':gt'gadforest','1'
  79. end
  80. end
  81. end
  82. if clothesAtLocation = 1 and $clothingworntype = 'nude':
  83. act 'Dress':
  84. cla
  85. *clr
  86. swamp_clothes = 0
  87. minut += 5
  88. gs 'underwear', 'wear'
  89. gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
  90. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  91. if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  92. 'You change into your clothes.'
  93. act 'Back': gt 'gadforest','1'
  94. end
  95. end
  96. !if he had gone from the forest and put in another place
  97. if clothesAtLocation = 1 and $clothingworntype ! 'nude':
  98. act 'Pick up the abandoned clothing':
  99. cla
  100. *clr
  101. gs 'clothing', 'recover_lost_clothes', 'gadforest'
  102. 'You pick up your clothes.'
  103. act 'Back': gt 'gadforest','1'
  104. end
  105. end
  106. if hour >= 6 and hour <= 20 and sunWeather = 1:
  107. act 'Walking in the woods':
  108. cla
  109. *clr
  110. minut += 60
  111. pcs_mood += 20
  112. pcs_willpwr += willpowermax/5
  113. if $clothingworntype = 'nude':pcs_health += healthmax/5 & pcs_horny += 5
  114. gs 'stat'
  115. if month >= 4 and month <= 10:
  116. if MiraLoc ! 3:
  117. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest0.'+rand(1,2)+'.jpg"></center>'
  118. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest1.'+rand(1,3)+'.jpg"></center>'
  119. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_tanga0.'+rand(1,2)+'.jpg"></center>'
  120. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude0.'+rand(1,4)+'.jpg"></center>'
  121. 'You are walking through the woods, enjoying the sounds of forest and the fresh air.'
  122. else
  123. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest'+rand(1,3)+'.jpg"></center>'
  124. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest_nude'+rand(1,3)+'.jpg"></center>'
  125. 'You walk with Mira through the woods, enjoying the sounds of the forest and the fresh air.'
  126. end
  127. else
  128. if MiraLoc ! 3:
  129. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforestwinter0.'+rand(1,2)+'.jpg"></center>'
  130. 'You walk through the winter woods, enjoying the sounds of the forest and the fresh air.'
  131. else
  132. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraforestwinter.jpg"></center>'
  133. 'You walk with Mira through the winter woods, enjoying the sounds of the forest and the fresh air.'
  134. end
  135. end
  136. act 'Further':gt 'gadforest','1'
  137. end
  138. end
  139. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and edge_forestday ! daystart:
  140. act 'To look for mushrooms and berries':
  141. cla
  142. *clr
  143. minut += 30
  144. temp = RAND(1,2)
  145. edge_forestday = daystart
  146. if goforest < 20:goforest += rand(0,1)
  147. gs 'stat'
  148. if mushroom_pickers = 0 or mushroom_pickers = 2:
  149. cla
  150. new_boletus += rand(0,1)
  151. new_bilberry += 1
  152. boletus += new_boletus
  153. bilberry += new_bilberry
  154. pcs_mood += 5
  155. gs 'stat'
  156. gs 'gadforest', 'clothes1'
  157. if new_boletus = 0 and new_bilberry > 0:'You`re in for hours of wandering through the woods in search of mushrooms or berries and you found <<new_bilberry>> kg of berries.'
  158. if new_boletus > 0 and new_bilberry > 0:'You`re in for hours of wandering through the woods in search of mushrooms or berries and you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
  159. end
  160. if mushroom_pickers = 1 and temp = 1:
  161. cla
  162. new_bilberry += rand(0,1)
  163. bilberry += new_bilberry
  164. gs 'stat'
  165. if new_bilberry > 0: gs 'gadforest', 'clothes1'
  166. if new_bilberry = 0: gs 'gadforest', 'clothes2'
  167. if new_bilberry > 0:'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_bilberry>> kg of berries.'
  168. if new_bilberry = 0:'You are wandering through the woods in search of mushrooms or berries for half an hour, but you found nothing.'
  169. end
  170. if mushroom_pickers = 1 and temp = 2:
  171. cla
  172. pcs_mood -= 5
  173. gs 'stat'
  174. gs 'gadforest', 'clothes2'
  175. 'You are wandering through the woods in search of mushrooms or berries for half an hour, but found nothing.'
  176. end
  177. act 'Further':gt 'gadforest','1'
  178. end
  179. end
  180. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and MiraLoc ! 3:
  181. act 'To go further into the forest':
  182. if goforest >= lostrand:minut += 30 & gt 'gadforest','2'
  183. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  184. end
  185. end
  186. if goswamp = 1 and MiraLoc ! 3:
  187. if hour >= 6 and hour < 20:
  188. act 'Go to the swamp':
  189. minut += 75
  190. !random chance to swamp road. It a pity to use it only in lost. ps. use bike to 100% there by illume
  191. if goforest >= lostrand:
  192. gt 'swamp'
  193. else
  194. gt 'gadforestswamp','1'
  195. end
  196. end
  197. else
  198. act 'Go to the swamp':gt 'gadforest_event', 'swamp_road'
  199. end
  200. end
  201. act 'Out of the woods':
  202. if $clothingworntype = 'nude':
  203. if $CloLosTyp[$CURLOC] = '':
  204. !no cloth here, it must be broken. There may be a good exhibi or rape event entry point.
  205. 'You sneak out the woods, hiding your naked body in shadow and moving toward grandparents house.'
  206. 'You Successfully reach home without witness.'
  207. cla
  208. act 'Further':gt'Gadhouse'
  209. else
  210. '<B>You should dress before leave</B>'
  211. end
  212. else
  213. minut += 30 & gt'gadroad'
  214. end
  215. end
  216. if rand(1,10)> 9: gs 'gadforest', 'torncloth'
  217. end
  218. if $ARGS[0] = '2':
  219. $location_type = 'secluded'
  220. !inside
  221. $metka = $ARGS[0]
  222. $loc = $CURLOC
  223. gs 'gadukino_event', 'sound'
  224. cls
  225. gs'stat'
  226. !gs'time'
  227. if goforest < 40:goforest += rand(0,1)
  228. lost = 2
  229. !to determine the continuation of the path YY lost
  230. lostrand = rand(1,60)
  231. !the chance to get lost
  232. foresteventrand = rand(1,10)
  233. new_boletus = 0
  234. new_bilberry = 0
  235. '<center><H4>Forest</H4></center>'
  236. if month >= 4 and month <= 10:
  237. if hour >= 6 and hour < 22:
  238. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest2.jpg"></center>'
  239. 'Forest. The intoxicating fresh air and singing birds light up your soul with joy.'
  240. else
  241. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night2.jpg"></center>'
  242. 'Forest. Night in the woods is scary and uncomfortable.'
  243. end
  244. else
  245. if hour >= 8 and hour < 18:
  246. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter2.jpg"></center>'
  247. 'Forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
  248. else
  249. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night2.jpg"></center>'
  250. 'Forest. Night in the winter forest is very scary and uncomfortable.'
  251. end
  252. end
  253. if goforest < 20:'You do not know this part of the forest, it''s better not to wander too far.'
  254. if foresteventrand = 1 and month >= 6 and month <= 9 and mushroom_pickersday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers1'
  255. if foresteventrand = 2 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hanters'
  256. if foresteventrand > 7 and month >= 6 and month <= 9 and foresteventday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers3'
  257. act 'Back':
  258. lostrand = rand(1,30)
  259. if goforest >= lostrand:minut += 30 & gt 'gadforest','1'
  260. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  261. end
  262. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and forestday ! daystart:
  263. act 'To look for mushrooms and berries':
  264. cla
  265. *clr
  266. minut += 30
  267. temp = RAND(1,2)
  268. forestday = daystart
  269. if goforest < 40:goforest += rand(0,1)
  270. gs 'stat'
  271. if mushroom_pickers < 2:
  272. cla
  273. new_boletus += 1
  274. new_bilberry += rand(1,2)
  275. boletus += new_boletus
  276. bilberry += new_bilberry
  277. pcs_mood += 5
  278. gs 'stat'
  279. gs 'gadforest', 'clothes1'
  280. 'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
  281. end
  282. if mushroom_pickers = 2 and temp = 1:
  283. cla
  284. new_boletus += rand(0,1)
  285. new_bilberry += 1
  286. boletus += new_boletus
  287. bilberry += new_bilberry
  288. gs 'stat'
  289. if new_boletus > 0 or new_bilberry > 0: gs 'gadforest', 'clothes1'
  290. if new_boletus = 0 and new_bilberry > 0:'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_bilberry>> kg of berries.'
  291. if new_boletus > 0 and new_bilberry > 0:'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
  292. end
  293. if mushroom_pickers = 2 and temp = 2:
  294. cla
  295. pcs_mood -= 5
  296. gs 'stat'
  297. gs 'gadforest', 'clothes2'
  298. 'You are wandering through the woods in search of mushrooms or berries for half an hour, but found nothing.'
  299. end
  300. act 'Further':gt 'gadforest','2'
  301. end
  302. end
  303. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9:
  304. act 'To go further into the forest':
  305. if goforest >= lostrand:minut += 30 & gt 'gadforest','3'
  306. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  307. end
  308. end
  309. if rand(1,10)> 8: gs 'gadforest', 'torncloth'
  310. end
  311. if $ARGS[0] = '3':
  312. !deep forest
  313. $location_type = 'secluded'
  314. $metka = $ARGS[0]
  315. $loc = $CURLOC
  316. gs 'gadukino_event', 'sound'
  317. cls
  318. gs'stat'
  319. !gs'time'
  320. if goforest < 60:goforest += rand(0,1)
  321. lost = 3
  322. !to determine the continuation of the path YY lost
  323. lostrand = rand(1,100)
  324. !the chance to get lost
  325. foresteventrand = rand(1,10)
  326. new_boletus = 0
  327. new_bilberry = 0
  328. '<center><H4>Thicket</H4></center>'
  329. if month >= 4 and month <= 10:
  330. if hour >= 6 and hour < 22:
  331. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest3.jpg"></center>'
  332. 'Forest. The intoxicating fresh air and singing birds light up your soul with joy.'
  333. else
  334. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night3.jpg"></center>'
  335. 'Forest. Night in the woods is scary and uncomfortable.'
  336. end
  337. else
  338. if hour >= 8 and hour < 18:
  339. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter3.jpg"></center>'
  340. 'Forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
  341. else
  342. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night3.jpg"></center>'
  343. 'Forest. Night in the winter forest is very scary and uncomfortable.'
  344. end
  345. end
  346. if goforest < 30:'You do not know this part of the forest, it''s better not to wander too far.'
  347. if foresteventrand = 1 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'basket'
  348. if foresteventrand = 2 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'bilberry'
  349. if foresteventrand = 3 and foresteventday ! daystart: gt 'gadforest_event', 'mushroom'
  350. if foresteventrand = 4 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hanters'
  351. act 'Back':
  352. lostrand = rand(1,60)
  353. if goforest >= lostrand:minut += 30 & gt 'gadforest','2'
  354. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  355. end
  356. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and thicketday ! daystart:
  357. act 'To look for mushrooms and berries':
  358. cla
  359. *clr
  360. minut += 30
  361. thicketday = daystart
  362. if goforest < 60:goforest += rand(0,1)
  363. new_boletus += rand(1,2)
  364. new_bilberry += rand(1,2)
  365. boletus += new_boletus
  366. bilberry += new_bilberry
  367. pcs_mood += 5
  368. gs 'stat'
  369. gs 'gadforest', 'clothes1'
  370. 'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
  371. act 'Further':gt 'gadforest','3'
  372. end
  373. end
  374. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9:
  375. act 'To go further into the forest':
  376. if goforest >= lostrand:minut += 30 & gt 'gadforest','4'
  377. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  378. end
  379. end
  380. if rand(1,10)> 6: gs 'gadforest', 'torncloth'
  381. end
  382. if $ARGS[0] = '4':
  383. !near swamp
  384. $location_type = 'secluded'
  385. $metka = $ARGS[0]
  386. $loc = $CURLOC
  387. gs 'gadukino_event', 'sound'
  388. cls
  389. gs'stat'
  390. !gs'time'
  391. if goforest < 80:goforest += rand(0,1)
  392. lost = 4
  393. !to determine the continuation of the path YY lost
  394. lostrand = rand(1,120)
  395. !the chance to get lost
  396. foresteventrand = rand(1,10)
  397. dirty = 0
  398. new_boletus = 0
  399. new_bilberry = 0
  400. '<center><H4>Woods near swamps</H4></center>'
  401. if month >= 4 and month <= 10:
  402. if hour >= 6 and hour < 22:
  403. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest4.jpg"></center>'
  404. 'Forest. The intoxicating fresh air and singing birds light up your soul with joy.'
  405. else
  406. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night4.jpg"></center>'
  407. 'Forest. Night in the woods is scary and uncomfortable.'
  408. end
  409. else
  410. if hour >= 8 and hour < 18:
  411. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter4.jpg"></center>'
  412. 'Forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
  413. else
  414. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night4.jpg"></center>'
  415. 'Forest. Night in the winter forest is very scary and uncomfortable.'
  416. end
  417. end
  418. if goforest < 60:'You do not know this part of the forest, then it is better not to go too far.'
  419. if foresteventrand < 2 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'bilberry'
  420. if foresteventrand > 7 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'mushroom'
  421. if foresteventrand = 5 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hanters'
  422. act 'Back':
  423. lostrand = rand(1,100)
  424. if goforest >= lostrand:minut += 30 & gt 'gadforest','3'
  425. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  426. end
  427. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and swampforest ! daystart:
  428. act 'To look for mushrooms and berries':
  429. cla
  430. *clr
  431. minut += 30
  432. swampforest = daystart
  433. if goforest < 80:goforest += rand(0,1)
  434. new_boletus += rand(1,2)
  435. new_bilberry += rand(2,3)
  436. boletus += new_boletus
  437. bilberry += new_bilberry
  438. pcs_mood += 5
  439. gs 'stat'
  440. gs 'gadforest', 'clothes1'
  441. 'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
  442. act 'Further':gt 'gadforest','4'
  443. end
  444. end
  445. act 'To go further into the forest':
  446. if goforest >= lostrand and goswamp = 1:minut += 30 & gt 'swamp'
  447. if goforest >= lostrand and goswamp = 0:minut += 30 & gt 'gadforestswamp','1'
  448. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  449. end
  450. if rand(1,10)> 7: gs 'gadforest', 'torncloth'
  451. end
  452. !dynamics to ARGS by illume
  453. if $ARGS[0] = 'clothes1':
  454. if MiraLoc ! 3:
  455. if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom1.jpg"></center>'
  456. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom2.jpg"></center>'
  457. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom3.jpg"></center>'
  458. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom4.'+rand(1,3)+'.jpg"></center>'
  459. else
  460. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom'+rand(1,2)+'.jpg"></center>'
  461. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude'+rand(1,2)+'.jpg"></center>'
  462. end
  463. end
  464. if $ARGS[0] = 'clothes2':
  465. if MiraLoc ! 3:
  466. if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest2.jpg"></center>'
  467. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest3.jpg"></center>'
  468. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_tanga1.'+rand(1,2)+'.jpg"></center>'
  469. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude1.'+rand(1,4)+'.jpg"></center>'
  470. else
  471. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom3.jpg"></center>'
  472. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude3.jpg"></center>'
  473. end
  474. end
  475. if $ARGS[0] = 'gadforestloststart':
  476. cla
  477. *clr
  478. !gs'time'
  479. gs 'stat'
  480. '<center><H4>Somewhere in the woods</H4></center>'
  481. if month >= 5 and month <= 9:
  482. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear1.jpg"></center>'
  483. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear2.jpg"></center>'
  484. else
  485. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear3.jpg"></center>'
  486. end
  487. 'You suddenly realize in horror that you are not familiar with the area you are in... you get lost.'
  488. act 'Further':
  489. if lost = 1: gt 'gadforestlost','1'
  490. if lost = 2: gt 'gadforestlost','2'
  491. if lost = 3: gt 'gadforestlost','3'
  492. if lost = 4: gt 'gadforestlost','4'
  493. end
  494. !add for realistic, rescue in forest! by illume
  495. forest_lost = 1
  496. if StoryLine = 1: forest_lostday = daystart + rand(1,3)
  497. end
  498. if $ARGS[0] = 'torncloth':
  499. !the withdrawal strength of the garment, if not jeans. moved from gadforest 1 into args, and call in all forest by illume
  500. if $clothingworntype ! 'nude':
  501. if (PCloThinness = 1 or PCloSkirt > 0) and PCloQuality < 5:
  502. !skirts, not fit, and not high-class enough by illume
  503. 'Oops, your clothes get snagged and tears slightly.'
  504. dynamic $clothingworntype + 'H[<<clothingwornnumber>>] -= 1'
  505. !add remove cloth if worn out, need better texting by illume.
  506. if dyneval('RESULT = <<$clothingworntype>>H[<<clothingwornnumber>>]') <= 0:
  507. 'Your raggedy clothes have finally had enough and fall apart. You are naked now.'
  508. gs 'clothing', 'strip', 'gadforest', 2
  509. end
  510. end
  511. end
  512. end
  513. --- gadforest ---------------------------------