1
0

gadforest.qsrc 25 KB

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