1
0

gadforest 25 KB

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