1
0

gadforest 23 KB

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