gadforest.qsrc 27 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686
  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. 'You 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. act 'Leave the woods':
  71. if $clothingworntype = 'nude':
  72. *clr & cla
  73. inhib_exp += rand(0,2)
  74. if hour >= 6 and hour < 22:
  75. if rand(0,100) > 50:
  76. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_nude.jpg"></center>'
  77. else
  78. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_back.jpg"></center>'
  79. end
  80. else
  81. if rand(0,100) > 50:
  82. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_nude.jpg"></center>'
  83. else
  84. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_back_night.jpg"></center>'
  85. end
  86. end
  87. if clothesAtLocation = 0:
  88. inhib_exp += rand(0,2)
  89. 'You seem to have misplaced your clothes! You have little choice but to sneak out the woods, hiding your naked body in shadow and moving toward your grandparents house. You wonder where you might have left your clothes.'
  90. elseif clothesAtLocation = 1:
  91. 'You decide to stash your belongings and sneak out the woods completely naked, purely for the thrill of it, hiding your naked body in shadow and moving toward your grandparents house, avoiding any well lit areas.'
  92. end
  93. act 'Run back home naked':
  94. minut += 30
  95. gt'gadforest', 'caught'
  96. end
  97. elseif $clothingworntype = 'cheap' and clothingwornnumber = 414:
  98. if clothesAtLocation = 1:
  99. 'You should pickup your clothes and get dressed before you leave'
  100. end
  101. else
  102. minut += 30
  103. gs 'stat'
  104. gt 'gadroad'
  105. end
  106. end
  107. gs 'treeCircEntry', 'GadForest'
  108. ! can only be naked if successfully complete Mira gadforest_event, nude_event
  109. 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):
  110. act'Strip naked':
  111. if forestpicnic = 0:
  112. cla
  113. *clr
  114. menu_off = 1
  115. if pcs_inhib < 50:inhib_exp += rand(1,3)
  116. minut += 5
  117. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  118. if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  119. gs 'underwear', 'remove'
  120. gs 'clothing', 'strip', 'gadforest'
  121. gs 'exhibitionism', 3
  122. gs 'stat'
  123. 'You don''t hesitate and quickly get undressed, your clothes are left laying in a pile.'
  124. act'Continue':gt'gadforest','1'
  125. else
  126. cla
  127. *clr
  128. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
  129. 'You see a number of people nearby and decide not to undress right now.'
  130. act'Continue':gt'gadforest','1'
  131. end
  132. end
  133. end
  134. if clothesAtLocation = 1 and $clothingworntype = 'nude':
  135. act 'Get dressed':
  136. cla
  137. *clr
  138. menu_off = 1
  139. minut += 5
  140. gs 'clothing', 'swamp_clothes', 0
  141. gs 'underwear', 'wear'
  142. gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
  143. gs 'stat'
  144. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  145. if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  146. 'You change back into your clothes.'
  147. act 'Back': gt 'gadforest','1'
  148. end
  149. end
  150. ! if Sveta left the forest without retrieving her clothes
  151. if clothesAtLocation = 1 and $clothingworntype ! 'nude':
  152. if $clothingworntype = 'cheap' and clothingwornnumber = 414:
  153. act 'Pick up your abandoned clothing':
  154. cla
  155. menu_off = 1
  156. minut += 2
  157. gs 'clothing', 'swamp_clothes', 0
  158. gs 'underwear', 'wear'
  159. gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
  160. gs 'stat'
  161. *nl
  162. 'You pick up your abandoned clothing and change out of the hessian sack the hunters gave you.'
  163. act 'Back': gt 'gadforest','1'
  164. end
  165. else
  166. act 'Pick up your abandoned clothing':
  167. cla
  168. menu_off = 1
  169. minut += 5
  170. gs 'clothing', 'swamp_clothes', 0
  171. gs 'underwear', 'wear'
  172. gs 'clothing', 'recover_lost_clothes', 'gadforest'
  173. gs 'stat'
  174. *nl
  175. 'You pick up your abandoned clothing.'
  176. act 'Back': gt 'gadforest','1'
  177. end
  178. end
  179. end
  180. if hour >= 6 and hour <= 20 and sunWeather = 1:
  181. act 'Go for a walk in the woods':
  182. cla
  183. *clr
  184. menu_off = 1
  185. minut += 60
  186. pcs_mood += 20
  187. if $clothingworntype = 'nude':
  188. pcs_health += healthmax/5 & pcs_horny += 5
  189. inhib_exp += rand(1,5)
  190. end
  191. gs 'stat'
  192. if month >= 4 and month <= 10:
  193. if MiraLoc ! 3:
  194. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest0.'+rand(1,2)+'.jpg"></center>'
  195. 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>'
  196. 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>'
  197. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude0.'+rand(1,4)+'.jpg"></center>'
  198. 'You are walking through the woods, enjoying the sounds of the forest and the fresh air.'
  199. else
  200. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest'+rand(1,3)+'.jpg"></center>'
  201. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest_nude'+rand(1,3)+'.jpg"></center>'
  202. 'You walk with Mira through the woods, enjoying the sounds of the forest and the fresh air.'
  203. end
  204. else
  205. if MiraLoc ! 3:
  206. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforestwinter0.'+rand(1,2)+'.jpg"></center>'
  207. 'You walk through the snowy woods, enjoying the sounds of the forest and the fresh air.'
  208. else
  209. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraforestwinter.jpg"></center>'
  210. 'You walk with Mira through the snowy woods, enjoying the sounds of the forest and the fresh air.'
  211. end
  212. end
  213. act 'Continue':gt 'gadforest','1'
  214. end
  215. end
  216. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and edge_forestday ! daystart:
  217. act 'Look for mushrooms and berries':
  218. cla
  219. *clr
  220. menu_off = 1
  221. minut += 30
  222. temp_gf = rand(1,2)
  223. edge_forestday = daystart
  224. if goforest < 20:goforest += rand(0,1)
  225. gs 'stat'
  226. ! no mushroom pickers or mushroom pickers moved deeper into the forest
  227. if mushroom_pickers = 0 or mushroom_pickers = 2:
  228. cla
  229. new_boletus += rand(0,1)
  230. new_bilberry += 1
  231. boletus += new_boletus
  232. bilberry += new_bilberry
  233. pcs_mood += 5
  234. gs 'stat'
  235. gs 'gadforest', 'clothes1'
  236. 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.'
  237. 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.'
  238. end
  239. ! mushroom pickers are at the edge of the forest
  240. if mushroom_pickers = 1 and temp_gf = 1:
  241. cla
  242. new_bilberry += rand(0,1)
  243. bilberry += new_bilberry
  244. gs 'stat'
  245. if new_bilberry > 0: gs 'gadforest', 'clothes1'
  246. if new_bilberry = 0: gs 'gadforest', 'clothes2'
  247. if new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
  248. if new_bilberry = 0:'After searching for mushrooms and berries for half an hour you found nothing.'
  249. end
  250. if mushroom_pickers = 1 and temp_gf = 2:
  251. cla
  252. pcs_mood -= 5
  253. gs 'stat'
  254. gs 'gadforest', 'clothes2'
  255. 'After searching for mushrooms and berries for half an hour you found nothing.'
  256. end
  257. act 'Continue':gt 'gadforest','1'
  258. end
  259. end
  260. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and MiraLoc ! 3:
  261. act 'Go further into the forest':
  262. if goforest >= lostrand:minut += 30 & gt 'gadforest','2'
  263. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  264. end
  265. end
  266. if joint > 0 and jointhigh = 0: act 'Smoke a joint': gs 'drugs', 'joint' & gt $loc, $metka
  267. if goswamp = 1 and MiraLoc ! 3:
  268. ! day time chance to get stuck in swamp. ps. use bike to get there 100% of the time by illume
  269. if hour >= 6 and hour < 20:
  270. act 'Go to the swamp':
  271. minut += 75
  272. if goforest >= lostrand:
  273. gt 'swamp'
  274. else
  275. gt 'gadforestswamp','1'
  276. end
  277. end
  278. ! night time chased by wolves
  279. else
  280. act 'Go to the swamp':gt 'gadforest_event', 'swamp_road'
  281. end
  282. end
  283. gs 'stat'
  284. end
  285. if $ARGS[0] = 'caught':
  286. *clr & cla
  287. menu_off = 1
  288. caught_rand = rand(0, 100)
  289. if caught_rand > 90:
  290. inhib_exp += rand(0,3)
  291. grandma_trouble += rand(7,10)
  292. gs 'arousal', 'flash', 10, 'exhibitionism'
  293. gs 'arousal', 'end'
  294. gs 'stat'
  295. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_woman.jpg"></center>'
  296. 'You''ve been spotted walking home naked by all the women of the village. They are all sitting there scolding you. Your grandparents are definitely going to find out about this.'
  297. elseif caught_rand > 70:
  298. inhib_exp += rand(0,4)
  299. grandma_trouble += rand(1,3)
  300. gs 'arousal', 'flash', 10, 'exhibitionism'
  301. gs 'arousal', 'end'
  302. gs 'stat'
  303. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_woman'+rand(1,5)+'.jpg"></center>'
  304. 'You''ve been spotted walking home naked by a woman from the village. You want to hope she doesn''t tell your grandparents.'
  305. elseif caught_rand > 50:
  306. inhib_exp += rand(0,3)
  307. grandma_trouble += rand(1,3)
  308. gs 'arousal', 'flash', 10, 'exhibitionism'
  309. gs 'arousal', 'end'
  310. gs 'stat'
  311. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_man'+rand(1,5)+'.jpg"></center>'
  312. 'You''ve been spotted walking home naked by a man from the village. You want to hope he doesn''t tell your grandparents.'
  313. else
  314. grandma_trouble += rand(0,1)
  315. gs 'arousal', 'flash', 10, 'exhibitionism'
  316. gs 'arousal', 'end'
  317. gs 'stat'
  318. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
  319. 'Luckily no one saw you outside naked, but there''s a thrill in almost getting caught.'
  320. end
  321. act 'Continue': gt'gaddvor'
  322. end
  323. if $ARGS[0] = '2':
  324. *clr & cla
  325. ! slightly inside forest
  326. $loc = 'gadforest'
  327. $metka = '2'
  328. $location_type = 'secluded'
  329. $menu_loc = 'gadforest'
  330. $menu_arg = '2'
  331. menu_off = 0
  332. gs 'gadukino_event', 'sound'
  333. gs'stat'
  334. ! Add to knowledge of forest
  335. if goforest < 40:goforest += rand(0,1)
  336. ! Determine where Sveta got lost in the forest
  337. lost = 2
  338. ! chance to get lost
  339. lostrand = rand(1,60)
  340. foresteventrand = rand(1,10)
  341. new_boletus = 0
  342. new_bilberry = 0
  343. '<center><H4>Forest</H4></center>'
  344. if month >= 4 and month <= 10:
  345. if hour >= 6 and hour < 22:
  346. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest2.jpg"></center>'
  347. 'You are in the forest. The fresh air and singing birds light up your soul with joy.'
  348. else
  349. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night2.jpg"></center>'
  350. 'You are in the forest. Night in the woods is scary and uncomfortable.'
  351. end
  352. else
  353. if hour >= 8 and hour < 18:
  354. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter2.jpg"></center>'
  355. 'You are in the forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
  356. else
  357. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night2.jpg"></center>'
  358. 'You are in the forest. Night in the forest during wintertime is very scary and uncomfortable.'
  359. end
  360. end
  361. 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.'
  362. if foresteventrand = 1 and month >= 6 and month <= 9 and mushroom_pickersday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers1'
  363. if foresteventrand = 2 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hunters'
  364. if foresteventrand > 7 and month >= 6 and month <= 9 and foresteventday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers3'
  365. act 'To the edge of the forest':
  366. lostrand = rand(1,30)
  367. if goforest >= lostrand:minut += 30 & gt 'gadforest','1'
  368. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  369. end
  370. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and forestday ! daystart:
  371. act 'Look for mushrooms and berries':
  372. cla
  373. *clr
  374. menu_off = 1
  375. minut += 30
  376. temp_gf = rand(1,2)
  377. forestday = daystart
  378. if goforest < 40:goforest += rand(0,1)
  379. gs 'stat'
  380. ! mushroom_pickers either not seen today or still at the edge of the forest
  381. if mushroom_pickers < 2:
  382. cla
  383. new_boletus += 1
  384. new_bilberry += rand(1,2)
  385. boletus += new_boletus
  386. bilberry += new_bilberry
  387. pcs_mood += 5
  388. gs 'stat'
  389. gs 'gadforest', 'clothes1'
  390. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  391. end
  392. if mushroom_pickers = 2 and temp_gf = 1:
  393. cla
  394. new_boletus += rand(0,1)
  395. new_bilberry += 1
  396. boletus += new_boletus
  397. bilberry += new_bilberry
  398. gs 'stat'
  399. if new_boletus > 0 or new_bilberry > 0: gs 'gadforest', 'clothes1'
  400. 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.'
  401. 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.'
  402. end
  403. if mushroom_pickers = 2 and temp_gf = 2:
  404. cla
  405. pcs_mood -= 5
  406. gs 'stat'
  407. gs 'gadforest', 'clothes2'
  408. 'After searching for mushrooms and berries for half an hour you found nothing.'
  409. end
  410. act 'Continue':gt 'gadforest','2'
  411. end
  412. end
  413. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9:
  414. act 'Go further into the forest':
  415. if goforest >= lostrand:minut += 30 & gt 'gadforest','3'
  416. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  417. end
  418. end
  419. end
  420. if $ARGS[0] = '3':
  421. *clr & cla
  422. ! deep inside forest
  423. $loc = 'gadforest'
  424. $metka = '3'
  425. $location_type = 'secluded'
  426. $menu_loc = 'gadforest'
  427. $menu_arg = '3'
  428. menu_off = 0
  429. gs 'gadukino_event', 'sound'
  430. gs'stat'
  431. ! Add to knowledge of forest
  432. if goforest < 60:goforest += rand(0,1)
  433. lost = 3
  434. ! Determine where Sveta got lost in the forest
  435. lostrand = rand(1,100)
  436. ! chance to get lost
  437. foresteventrand = rand(1,10)
  438. new_boletus = 0
  439. new_bilberry = 0
  440. '<center><H4>Deep Forest</H4></center>'
  441. if month >= 4 and month <= 10:
  442. if hour >= 6 and hour < 22:
  443. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest3.jpg"></center>'
  444. 'You are deep in the forest. The fresh air and singing birds light up your soul with joy.'
  445. else
  446. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night3.jpg"></center>'
  447. 'You are deep in the forest. Night in the woods is scary and uncomfortable.'
  448. end
  449. else
  450. if hour >= 8 and hour < 18:
  451. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter3.jpg"></center>'
  452. 'You are deep in the forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
  453. else
  454. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night3.jpg"></center>'
  455. 'You are deep in the forest. Night in the forest during wintertime is very scary and uncomfortable.'
  456. end
  457. end
  458. 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.'
  459. if foresteventrand = 1 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'basket'
  460. if foresteventrand = 2 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'bilberry'
  461. if foresteventrand = 3 and foresteventday ! daystart: gt 'gadforest_event', 'mushroom'
  462. if foresteventrand = 4 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hunters'
  463. act 'Go back to the forest':
  464. lostrand = rand(1,60)
  465. if goforest >= lostrand:minut += 30 & gt 'gadforest','2'
  466. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  467. end
  468. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and thicketday ! daystart:
  469. act 'Look for mushrooms and berries':
  470. *clr & cla
  471. menu_off = 1
  472. minut += 30
  473. thicketday = daystart
  474. if goforest < 60:goforest += rand(0,1)
  475. new_boletus += rand(1,2)
  476. new_bilberry += rand(1,2)
  477. boletus += new_boletus
  478. bilberry += new_bilberry
  479. pcs_mood += 5
  480. gs 'stat'
  481. gs 'gadforest', 'clothes1'
  482. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  483. act 'Continue':gt 'gadforest','3'
  484. end
  485. end
  486. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9:
  487. act 'Go further into the forest':
  488. if goforest >= lostrand:minut += 30 & gt 'gadforest','4'
  489. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  490. end
  491. end
  492. end
  493. if $ARGS[0] = '4':
  494. *clr & cla
  495. ! forest near swamp
  496. $loc = 'gadforest'
  497. $metka = '4'
  498. $location_type = 'secluded'
  499. $menu_loc = 'gadforest'
  500. $menu_arg = '4'
  501. menu_off = 0
  502. gs 'gadukino_event', 'sound'
  503. gs'stat'
  504. ! Add to knowledge of forest
  505. if goforest < 80:goforest += rand(0,1)
  506. lost = 4
  507. ! Determine where Sveta got lost in the forest
  508. lostrand = rand(1,120)
  509. ! chance to get lost
  510. foresteventrand = rand(1,10)
  511. dirty = 0
  512. new_boletus = 0
  513. new_bilberry = 0
  514. '<center><H4>Forest near the Swamp</H4></center>'
  515. if month >= 4 and month <= 10:
  516. if hour >= 6 and hour < 22:
  517. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest4.jpg"></center>'
  518. 'You are in the forest near the swamp. The fresh air and singing birds light up your soul with joy.'
  519. else
  520. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night4.jpg"></center>'
  521. 'Forest. Night in the woods is scary and uncomfortable.'
  522. end
  523. else
  524. if hour >= 8 and hour < 18:
  525. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter4.jpg"></center>'
  526. 'You are in the forest near the swamp. The forest in the winter is very beautiful, the fresh air makes you happy.'
  527. else
  528. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night4.jpg"></center>'
  529. 'You are in the forest near the swamp. Night in the forest during wintertime is very scary and uncomfortable.'
  530. end
  531. end
  532. 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.'
  533. if foresteventrand < 2 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'bilberry'
  534. if foresteventrand > 7 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'mushroom'
  535. if foresteventrand = 5 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hunters'
  536. act 'Go back to the deep woods':
  537. lostrand = rand(1,100)
  538. if goforest >= lostrand:minut += 30 & gt 'gadforest','3'
  539. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  540. end
  541. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and swampforest ! daystart:
  542. act 'Look for mushrooms and berries':
  543. cla
  544. *clr
  545. menu_off = 1
  546. minut += 30
  547. swampforest = daystart
  548. if goforest < 80:goforest += rand(0,1)
  549. new_boletus += rand(1,2)
  550. new_bilberry += rand(2,3)
  551. boletus += new_boletus
  552. bilberry += new_bilberry
  553. pcs_mood += 5
  554. gs 'stat'
  555. gs 'gadforest', 'clothes1'
  556. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  557. act 'Continue':gt 'gadforest','4'
  558. end
  559. end
  560. act 'Go further into the swamp':
  561. if goforest >= lostrand and goswamp = 1:minut += 30 & gt 'swamp'
  562. if goforest >= lostrand and goswamp = 0:minut += 30 & gt 'gadforestswamp','1'
  563. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  564. end
  565. end
  566. !dynamics to ARGS by illume
  567. if $ARGS[0] = 'clothes1':
  568. if MiraLoc ! 3:
  569. if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom1.jpg"></center>'
  570. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom2.jpg"></center>'
  571. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom3.jpg"></center>'
  572. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom4.'+rand(1,3)+'.jpg"></center>'
  573. else
  574. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom'+rand(1,2)+'.jpg"></center>'
  575. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude'+rand(1,2)+'.jpg"></center>'
  576. end
  577. end
  578. if $ARGS[0] = 'clothes2':
  579. if MiraLoc ! 3:
  580. if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest2.jpg"></center>'
  581. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest3.jpg"></center>'
  582. 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>'
  583. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude1.'+rand(1,4)+'.jpg"></center>'
  584. else
  585. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom3.jpg"></center>'
  586. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude3.jpg"></center>'
  587. end
  588. end
  589. if $ARGS[0] = 'gadforestloststart':
  590. cla
  591. *clr
  592. menu_off = 1
  593. gs 'stat'
  594. '<center><H4>Somewhere in the woods</H4></center>'
  595. if month >= 5 and month <= 9:
  596. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear1.jpg"></center>'
  597. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear2.jpg"></center>'
  598. else
  599. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear3.jpg"></center>'
  600. end
  601. 'You suddenly realize in horror that you are not familiar with the area you are in... you are lost!.'
  602. act 'Look for a way out':
  603. if lost = 1: gt 'gadforestlost','1'
  604. if lost = 2: gt 'gadforestlost','2'
  605. if lost = 3: gt 'gadforestlost','3'
  606. if lost = 4: gt 'gadforestlost','4'
  607. end
  608. ! add for rescue in forest by illume
  609. forest_lost = 1
  610. if StoryLine = 1: forest_lostday = daystart + rand(1,3)
  611. end
  612. --- gadforest ---------------------------------