1
0

gadforest.qsrc 23 KB

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