1
0

gadforest.qsrc 40 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953
  1. # gadforest
  2. if $ARGS[0] = 'forest_edge':
  3. *clr & cla
  4. ! force Mira to stay here if Sveta brought Mira here by choice - temporarily overrides Miras schedule to not annoy the player
  5. Mira_Stay = iif($loc ! 'Miroslava', 1 , 0)
  6. clothesAtLocation = FUNC('lost_clothes_here','forest_edge')
  7. $loc = 'gadforest'
  8. $loc_arg = 'forest_edge'
  9. $location_type = 'secluded'
  10. $menu_loc = 'gadforest'
  11. $menu_arg = 'forest_edge'
  12. menu_off = 0
  13. $forest_args1 = 'forest_edge'
  14. CLOSE ALL
  15. gs 'gadukino_event', 'sound'
  16. gs 'stat'
  17. '<center><H4>Edge of the Forest</H4></center>'
  18. if month >= 4 and month <= 10:
  19. if hour >= 6 and hour < 22:
  20. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest1.jpg"></center>'
  21. *nl
  22. 'You are at the edge of the forest. Mushrooms and berries grow here and you can often find other people picking them.'
  23. else
  24. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night1.jpg"></center>'
  25. *nl
  26. 'You are at the edge of the forest. Night in the woods is scary and uncomfortable.'
  27. end
  28. else
  29. if hour >= 8 and hour < 20:
  30. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter1.jpg"></center>'
  31. *nl
  32. 'You are at the edge of the forest. The forest during wintertime is very beautiful.'
  33. else
  34. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night1.jpg"></center>'
  35. *nl
  36. 'You are at the edge of the forest. Night in the forest during wintertime is very scary and uncomfortable.'
  37. end
  38. end
  39. gs 'gadforest','bushcraft','forest_edge'
  40. *nl
  41. if pcs_bushcraft < 10:
  42. '<font color="red">You don''t know this part of the forest very well. You could get lost if you go any deeper into the woods.</font>'
  43. else
  44. '<font color="green">You are comfortable navigating this part of the forest, and can adventure deeper into the woods if you want.</font>'
  45. end
  46. if clothesAtLocation = 1:*nl & 'Your clothes are nearby on the ground.'
  47. if forestpicnic = 1:
  48. if hour < 10 or hour > 14:
  49. forestpicnic = 0
  50. else
  51. *nl
  52. 'On the edge of the forest you see people. Apparently they are having a family <a href="exec:gt ''gadforest_event'',''picnic''">picnic</a>.'
  53. end
  54. end
  55. if hour < 8 or hour > 16 and mushroom_pickers ! 0:
  56. mushroom_pickers = 0
  57. *nl
  58. 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
  59. else
  60. *nl
  61. if mushroom_pickers = 0:
  62. 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
  63. elseif mushroom_pickers = 1:
  64. 'You can see other people picking mushrooms and berries here at the forests edge.'
  65. elseif mushroom_pickers = 2:
  66. 'You can hear people picking mushrooms and berries deeper in the forest.'
  67. end
  68. end
  69. if MiraLoc = 3:'<a href="exec: gt ''Miroslava'' ">Mira</a> is here with you.'
  70. foresteventrand = rand(1,20)
  71. ! Events with Mira
  72. if MiraLoc = 3:
  73. if hour >= 11 and Mira_Stay = 0:
  74. *clr & cla
  75. gs 'miroslava','miraclothes'
  76. *nl
  77. '"<<$pcs_nickname>>, I''m going to head home now, but we can hang out again more later." Mira said to you as she began to walk out of the forest.'
  78. ! Allow the player to override Mira schedule to get events done with her, also so Mira cannot appear and disappear before the player can interact with her
  79. act 'Convince her to stay with you':
  80. Mira_Stay = 1
  81. gt 'gadforest', 'forest_edge'
  82. end
  83. ! Allow the player to let Mira continue on her schedule if they want to get events done on their own
  84. act 'Say goodbye':
  85. MiraLoc = 0
  86. gt 'gadforest', 'forest_edge'
  87. end
  88. end
  89. if mirapickingtalk = 0 and miratalkday ! daystart: gt 'gadforest_event', 'mira_picking_talk'
  90. if miranudetalk = 0 and miratalkday ! daystart: gt 'gadforest_event', 'mira_nude_talk'
  91. ! stripping requires there to be no picnic going on, to have clothes on, for there to be no clothes already abandoned at the forest_edge, between april and october and already talked to Mira about being naked in the forest
  92. if forestpicnic = 0 and $clothingworntype ! 'nude' and clothesAtLocation = 0 and month >= 4 and month <= 10 and hour >= 8 and hour <= 20 and miranudetalk = 1 and miratalkday ! daystart: gt 'gadforest_event', 'mira_nude_event'
  93. ! Events without Mira
  94. else
  95. if metmira = 1 and MiraLoc ! 3 and hour >= 8 and hour <= 10:
  96. mirarand = rand(1,10)
  97. if mirarand >= 6: MiraLoc = 3 & gt 'gadforest_event', 'mira_morning_walk'
  98. end
  99. if foresteventrand <= 2 and month >= 6 and month <= 9 and hour >= 8 and hour <= 16 and mushroom_pickersday ! daystart: mushroom_pickers = 1 & gt 'gadforest_event', 'mushroom_pickers1'
  100. if foresteventrand <= 4 and month >= 6 and month <= 9 and hour >= 8 and hour <= 16 and mushroom_pickersday ! daystart: mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers2'
  101. if foresteventrand = 5 and month >= 6 and month <= 9 and hour >= 10 and hour <= 14 and temper >= 10 and sunWeather = 1 and week > 5 and forestpicnic = 0: forestpicnic = 1 & gt 'gadforest_event', 'picnic'
  102. end
  103. ! Events with or without Mira
  104. if foresteventrand <= 8 and hour >= 8 and hour <= 20 and month >= 4 and month <= 10 and gadboyday ! daystart:
  105. if mitkaday ! daystart:
  106. if MiraLoc = 3: gt 'gadforest_event', 'mitka_temporary_event'
  107. ! gt 'mitka_forest_1', 'mitka'
  108. !elseif kolyambaday ! daystart:
  109. ! gt 'mitka_forest_1', 'kolyamba'
  110. !elseif vasyanday ! daystart:
  111. ! gt 'mitka_forest_1', 'vasyan'
  112. end
  113. end
  114. !if foresteventrand = 9 and hour >= 8 and hour <= 20 and month >= 4 and month <= 10 and gadboyday ! daystart:
  115. ! if mitkaday ! daystart and kolyambaday ! daystart:
  116. ! gt 'mitka_forest_2', '1'
  117. ! elseif mitkaday ! daystart and vasyanday ! daystart:
  118. ! gt 'mitka_forest_2', '2'
  119. ! elseif kolyambaday ! daystart and vasyanday ! daystart:
  120. ! gt 'mitka_forest_2', '3'
  121. ! elseif mitkaday ! daystart:
  122. ! gt 'mitka_forest_1', 'mitka'
  123. ! elseif kolyambaday ! daystart:
  124. ! gt 'mitka_forest_1', 'kolyamba'
  125. ! elseif vasyanday ! daystart:
  126. ! gt 'mitka_forest_1', 'vasyan'
  127. ! end
  128. !end
  129. !if forest_eventrand = 10 and hour >= 8 and hour <= 20 and month >= 4 and month <= 10 and gadboyday ! daystart:
  130. ! if mitkaday ! daystart and kolyambaday ! daystart and vasyanday ! daystart:
  131. ! gt 'mitka_forest_3'
  132. ! elseif mitkaday ! daystart and kolyambaday ! daystart:
  133. ! gt 'mitka_forest_2', '1'
  134. ! elseif mitkaday ! daystart and vasyanday ! daystart:
  135. ! gt 'mitka_forest_2', '2'
  136. ! elseif kolyambaday ! daystart and vasyanday ! daystart:
  137. ! gt 'mitka_forest_2', '3'
  138. ! elseif mitkaday ! daystart:
  139. ! gt 'mitka_forest_1', 'mitka'
  140. ! elseif kolyambaday ! daystart:
  141. ! gt 'mitka_forest_1', 'kolyamba'
  142. ! elseif vasyanday ! daystart:
  143. ! gt 'mitka_forest_1', 'vasyan'
  144. ! end
  145. !end
  146. act 'Leave the woods (0:15)':
  147. ! Allow Mira to continue on her schedule as normal if the player was keeping her here for events
  148. if MiraLoc = 3:
  149. Mira_Stay = 0
  150. MiraLoc = 0
  151. end
  152. ! Naked event when leaving forest
  153. if $clothingworntype = 'nude':
  154. *clr & cla
  155. menu_off = 1
  156. if hour >= 6 and hour < 22:
  157. if rand(0,10) > 5:
  158. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_nude.jpg"></center>'
  159. else
  160. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_back.jpg"></center>'
  161. end
  162. else
  163. if rand(0,10) > 5:
  164. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_nude_night.jpg"></center>'
  165. else
  166. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_back_night.jpg"></center>'
  167. end
  168. end
  169. *nl
  170. ! clothes ripped apart in the woods or swamp
  171. if gadforest_clothestorn = 1:
  172. gadforest_clothestorn = 0
  173. 'Your clothes were torn to shreds in the woods, leaving you with no choice but to head back home naked.'
  174. 'You try your best to stay in the shadows as you move towards '+iif(StoryLine=1,'your grandparents house ','the village ')+'as stealthily as possible.'
  175. ! clothes are here
  176. elseif clothesAtLocation = 1:
  177. 'You decide to leave your clothes behind and sneak home naked, purely for the thrill of it.'
  178. 'You try your best to stay in the shadows as you move towards '+iif(StoryLine=1,'your grandparents house ','the village ')+'as stealthily as possible.'
  179. ! no clothes here
  180. elseif clothesAtLocation = 0:
  181. 'You seem to have misplaced your clothes, leaving you with no choice but to head back home naked. You wonder where you might have left your clothes.'
  182. 'You try your best to stay in the shadows as you move towards '+iif(StoryLine=1,'your grandparents house ','the village ')+'as stealthily as possible.'
  183. end
  184. ! Allow schoolgirl player to leave naked but go straight back home
  185. ! Non-schoolgirls will just find a random sweatshirt to put on - it is the same everytime but walking around naked in the village is not implemented yet
  186. act 'Go back to Gadukino naked':
  187. *clr & cla
  188. inhib_exp += rand(1,3)
  189. gs 'exhibitionism', 3
  190. gs 'stat'
  191. if StoryLine = 1 and grandaQW['block'] = 0:
  192. if hour >= 10 and hour < 16 and month >= 4 and month <= 10:
  193. forestcaughtrand = rand(4,10)
  194. elseif hour >= 6 and hour < 20 and month >= 4 and month <= 10:
  195. forestcaughtrand = rand(2,8)
  196. else
  197. forestcaughtrand = rand(0,6)
  198. end
  199. if forestcaughtrand >= 9:
  200. grandmaQW['nudity_trouble'] += rand(7,10)
  201. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_woman.jpg"></center>'
  202. *nl
  203. 'You''ve been spotted walking home naked by all the women of the village. They scold you as you walk by. Your grandparents are definitely going to find out about this.'
  204. elseif forestcaughtrand >= 7:
  205. grandmaQW['nudity_trouble'] += rand(4,6)
  206. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_woman'+rand(1,5)+'.jpg"></center>'
  207. *nl
  208. 'You''ve been spotted walking home naked by a woman from the village. You hope she doesn''t tell your grandmother.'
  209. elseif forestcaughtrand >= 5:
  210. grandmaQW['nudity_trouble'] += rand(1,3)
  211. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_man'+rand(1,5)+'.jpg"></center>'
  212. *nl
  213. 'You''ve been spotted walking home naked by a man from the village. You hope he doesn''t tell your grandfather.'
  214. else
  215. grandmaQW['nudity_trouble'] += rand(0,1)
  216. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
  217. *nl
  218. 'No one saw you outside naked, but there''s a thrill in almost getting caught.'
  219. end
  220. act 'Continue home to your grandparents (0:30)':
  221. minut += 30
  222. gs 'stat'
  223. gt'gaddvor'
  224. end
  225. else
  226. average[520] = 1
  227. averageS[520] = 0
  228. averageH[520] = 100
  229. averageB[520] = pcs_hips
  230. gs 'clothing', 'wear', 'average', 520
  231. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  232. if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  233. *nl
  234. 'You begin to panic a little. You have no where to go and no one to help you can you are stuck naked in the woods.'
  235. 'As you look around frantically, you spot a sweatshirt someone must have lost. You quickly put it on, thinking about how lucky you are.'
  236. act 'Leave (0:15)':
  237. minut += 15
  238. gs 'stat'
  239. gt 'gadroad'
  240. end
  241. end
  242. end
  243. ! last chance for player to choose to get dressed
  244. if clothesAtLocation = 1:
  245. act 'Get dressed instead':
  246. *clr & cla
  247. minut += 5
  248. gs 'clothing', 'swamp_clothes', 0
  249. gs 'underwear', 'wear'
  250. gs 'clothing', 'recover_lost_clothes', 'forest_edge', 1
  251. gs 'stat'
  252. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  253. if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  254. *nl
  255. 'You decide to change back into your clothes rather than try to get home through the village naked.'
  256. act 'Leave (0:15)':
  257. minut += 15
  258. gs 'stat'
  259. gt 'gadroad'
  260. end
  261. end
  262. end
  263. ! hessian sack from hunters is not allowed to leave the woods it is only supposed to be a temporary item
  264. elseif swamp_clothes = 1:
  265. *nl
  266. 'You cannot leave the woods wearing your current clothing. You should pickup your clothes and get dressed before you leave or just risk leaving naked.'
  267. else
  268. minut += 15
  269. gs 'stat'
  270. gt 'gadroad'
  271. end
  272. end
  273. ! Sveta cannot travel further into the forest if Mira is here at the forest with Sveta
  274. if MiraLoc ! 3:
  275. act 'Go further into the forest (0:15)': minut += 15 & gt 'gadforest','forest_outskirts'
  276. end
  277. gs 'bicycle', 'gadforest'
  278. ! Sveta can go to the Meadow if she has discovered it and bring Mira too if she is allowed
  279. if (meadow > 0 and MiraLoc ! 3):
  280. act 'Go to the meadow (0:20)': minut += 20 & gt 'meadow'
  281. elseif ((meadow = 3 or (meadow = 6 and npc_QW['A60'] >= 3)) and MiraLoc = 3):
  282. act 'Go to the meadow with Mira': minut += 20 & MiraLoc = 2 & gt 'meadow'
  283. end
  284. ! Can travel directly to the hunters cabin if Sveta has been there before, knows the hunters, and Mira is not here at the forest with Sveta
  285. if hunterscabin = 1 and hunters_were_met = 1 and MiraLoc ! 3:
  286. act 'Go to the hunters cabin(1:00)':
  287. ! daytime chance to get stuck in swamp - use bike to get there 100% of the time
  288. if hour >= 6 and hour <= 22:
  289. gt 'swamp', 'stuck'
  290. ! nighttime chased by wolves - Sveta probably should not be roaming the forest at this time
  291. else
  292. gt 'gadforestlost','wolves','forest_edge'
  293. end
  294. end
  295. end
  296. ! tree circle teleportation for magic users - only found at the edge of the forest
  297. gs 'treeCircEntry', 'GadForest'
  298. ! the generic actions for the different parts of the forest are so similar that they are all stored in their own gosubs so the code is not duplicated
  299. gs 'gadforest', 'stripping'
  300. gs 'gadforest', 'dressing'
  301. gs 'gadforest', 'walking'
  302. gs 'gadforest', 'picking'
  303. end
  304. if $ARGS[0] = 'forest_outskirts':
  305. *clr & cla
  306. clothesAtLocation = FUNC('lost_clothes_here','forest_outskirts')
  307. $loc = 'gadforest'
  308. $loc_arg = 'forest_outskirts'
  309. $location_type = 'secluded'
  310. $menu_loc = 'gadforest'
  311. $menu_arg = 'forest_outskirts'
  312. menu_off = 0
  313. $forest_args1 = 'forest_outskirts'
  314. CLOSE ALL
  315. gs 'gadukino_event', 'sound'
  316. gs 'stat'
  317. '<center><H4>Forest Outskirts</H4></center>'
  318. if month >= 4 and month <= 10:
  319. if hour >= 6 and hour < 22:
  320. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest2.jpg"></center>'
  321. 'You are in the forest. The fresh air and singing birds light up your soul with joy.'
  322. else
  323. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night2.jpg"></center>'
  324. 'You are in the forest. Night in the woods is scary and uncomfortable.'
  325. end
  326. else
  327. if hour >= 8 and hour < 20:
  328. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter2.jpg"></center>'
  329. 'You are in the forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
  330. else
  331. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night2.jpg"></center>'
  332. 'You are in the forest. Night in the forest during wintertime is very scary and uncomfortable.'
  333. end
  334. end
  335. gs 'gadforest','bushcraft','forest_outskirts'
  336. *nl
  337. if pcs_bushcraft < 20:
  338. '<font color="red">You don''t know this part of the forest very well. You could get lost if you go any deeper into the woods.</font>'
  339. else
  340. '<font color="green">You are comfortable navigating this part of the forest, and can adventure deeper into the woods if you want.</font>'
  341. end
  342. if clothesAtLocation = 1:*nl & 'Your clothes are nearby on the ground.'
  343. if hour < 8 or hour > 16:
  344. mushroom_pickers = 0
  345. *nl
  346. 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
  347. else
  348. *nl
  349. if mushroom_pickers = 0:
  350. 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
  351. elseif mushroom_pickers = 1:
  352. 'You can hear other people picking mushrooms and berries at the forests edge.'
  353. elseif mushroom_pickers = 2:
  354. 'You can see people picking mushrooms and berries here on the outskirts of the forest.'
  355. end
  356. end
  357. foresteventrand = rand(1,20)
  358. if foresteventrand <= 2 and month >= 6 and month <= 9 and hour >= 8 and hour <= 16 and mushroom_pickersday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers1'
  359. if foresteventrand <= 4 and month >= 6 and month <= 9 and hour >= 8 and hour <= 16 and mushroom_pickersday ! daystart: mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers3'
  360. if foresteventrand = 5 and month >= 4 and month <= 10 and ((hour >= 6 and hour < 12) or (hour >= 14 and hour < 18)): gt 'gadforest_event', 'forest_hunters', 'forest_outskirts'
  361. act 'Head back out of the forest (0:15)': minut += 15 & gt 'gadforest', 'forest_edge'
  362. act 'Go further into the forest (0:15)': minut += 15 & gt 'gadforest','forest_center'
  363. ! the generic actions for the different parts of the forest are so similar that they are all stored in their own gosubs so the code is not duplicated
  364. gs 'gadforest', 'stripping'
  365. gs 'gadforest', 'dressing'
  366. gs 'gadforest', 'walking'
  367. gs 'gadforest', 'picking'
  368. end
  369. if $ARGS[0] = 'forest_center':
  370. *clr & cla
  371. clothesAtLocation = FUNC('lost_clothes_here','forest_center')
  372. $loc = 'gadforest'
  373. $loc_arg = 'forest_center'
  374. $location_type = 'secluded'
  375. $menu_loc = 'gadforest'
  376. $menu_arg = 'forest_center'
  377. menu_off = 0
  378. $forest_args1 = 'forest_center'
  379. CLOSE ALL
  380. gs 'gadukino_event', 'sound'
  381. gs 'stat'
  382. '<center><H4>Deep Forest</H4></center>'
  383. if month >= 4 and month <= 10:
  384. if hour >= 6 and hour < 22:
  385. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest3.jpg"></center>'
  386. 'You are deep in the forest. The fresh air and singing birds light up your soul with joy.'
  387. else
  388. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night3.jpg"></center>'
  389. 'You are deep in the forest. Night in the woods is scary and uncomfortable.'
  390. end
  391. else
  392. if hour >= 8 and hour < 20:
  393. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter3.jpg"></center>'
  394. 'You are deep in the forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
  395. else
  396. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night3.jpg"></center>'
  397. 'You are deep in the forest. Night in the forest during wintertime is very scary and uncomfortable.'
  398. end
  399. end
  400. gs 'gadforest','bushcraft','forest_center'
  401. *nl
  402. if pcs_bushcraft < 30:
  403. '<font color="red">You don''t know this part of the forest very well. You could get lost if you go any deeper into the woods.</font>'
  404. else
  405. '<font color="green">You are comfortable navigating this part of the forest, and can adventure deeper into the woods if you want.</font>'
  406. end
  407. if clothesAtLocation = 1:*nl & 'Your clothes are nearby on the ground.'
  408. if hour < 8 or hour > 16:
  409. mushroom_pickers = 0
  410. *nl
  411. 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
  412. else
  413. *nl
  414. if mushroom_pickers = 0:
  415. 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
  416. elseif mushroom_pickers = 1:
  417. 'You can hear people picking mushrooms and berries at the forests edge.'
  418. elseif mushroom_pickers = 2:
  419. 'You can hear people picking mushrooms and berries at the outskirts of the forest.'
  420. end
  421. end
  422. foresteventrand = rand(1,20)
  423. if foresteventrand <= 2 and month >= 6 and month <= 9: gt 'gadforest_event', 'basket'
  424. if foresteventrand <= 3 and month >= 6 and month <= 9: gt 'gadforest_event', 'bilberry'
  425. if foresteventrand <= 4 and month >= 6 and month <= 9: gt 'gadforest_event', 'mushroom'
  426. if foresteventrand = 5 and month >= 4 and month <= 10 and ((hour >= 6 and hour < 12) or (hour >= 14 and hour < 18)): gt 'gadforest_event', 'forest_hunters', 'forest_center'
  427. act 'Head back out of the forest (0:15)': minut += 15 & gt 'gadforest', 'forest_outskirts'
  428. act 'Go further into the swamp (0:15)': minut += 15 & gt 'swamp', 'start'
  429. ! the generic actions for the different parts of the forest are so similar that they are all stored in their own gosubs so the code is not duplicated
  430. gs 'gadforest', 'stripping'
  431. gs 'gadforest', 'dressing'
  432. gs 'gadforest', 'walking'
  433. gs 'gadforest', 'picking'
  434. end
  435. ! this gs handles the bushcraft increases, clothing degradation, and getting lost in the forest
  436. ! $ARGS[1] - location of forest where this is called from
  437. ! Example: gs 'gadforest', 'bushcraft', 'forest_edge'
  438. if $ARGS[0] = 'bushcraft':
  439. ! bushcraft_rand - the max amount of bushcraft exp that can be gained from an action in an area of the forest
  440. ! bushcraft_limit - the max amount bushcraft can be naturally raised to by visiting an area of the forest
  441. ! bushcraft_lost - bushcraft needed to no longer get lost when visiting an area of the forest
  442. ! torncloth_high_bushcraft - chance of tearing clothes with high bushcraft when visiting an area of the forest
  443. ! torncloth_low_bushcraft - chance of tearing clothes with low bushcraft when visiting an area of the forest
  444. ! Make sure Sveta always has at least 1 pcs_bushcraft
  445. if pcs_bushcraft <= 0:pcs_bushcraft = 1
  446. if $ARGS[1] = 'forest_edge':
  447. bushcraft_rand = 1
  448. bushcraft_limit = 10
  449. ! Sveta cannot get lost at the forest_edge part of the forest anymore
  450. bushcraft_lost = 1
  451. torncloth_high_bushcraft = 10
  452. torncloth_low_bushcraft = 9
  453. elseif $ARGS[1] = 'forest_outskirts':
  454. bushcraft_rand = 2
  455. bushcraft_limit = 20
  456. bushcraft_lost = 10
  457. torncloth_high_bushcraft = 9
  458. torncloth_low_bushcraft = 7
  459. elseif $ARGS[1] = 'forest_center':
  460. bushcraft_rand = 3
  461. bushcraft_limit = 30
  462. bushcraft_lost = 20
  463. torncloth_high_bushcraft = 8
  464. torncloth_low_bushcraft = 5
  465. elseif $ARGS[1] = 'swamp_woods':
  466. bushcraft_rand = 4
  467. bushcraft_limit = 40
  468. ! Sveta cannot get lost at the swamp_woods part of the forest either
  469. bushcraft_lost = 1
  470. torncloth_high_bushcraft = 7
  471. torncloth_low_bushcraft = 3
  472. end
  473. ! most annoying part of the old forest code was how difficult it was to do anything without getting lost and having your clothes destroyed quickly
  474. ! the new pcs_bushcraft stat will now help Sveta keep her clothes intact longer and it is much less grindy than the old goforest variable for navigating the forest
  475. ! also if Sveta meets the hunters they can help her raise this stat as well but it will go up naturally too from just visiting the forest every day
  476. ! if Sveta raises bushcraft with the hunters then she will get to a point where she no longer get lost in the forest since there is no cap on bushcraft when learning from them
  477. ripclothesrand = rand(1,10)
  478. if pcs_bushcraft < bushcraft_limit:
  479. ! use the higher chance of ripping clothes when Sveta has lower bushcraft
  480. if ripclothesrand >= torncloth_low_bushcraft: gs 'gadforest', 'torncloth'
  481. ! bushcraft exp gained is random to keep it from increasing too fast
  482. if rand(0,1) = 0:
  483. bushcraft_exp += rand(1,bushcraft_rand)
  484. end
  485. else
  486. ! use the lower chance of ripping clothes when Sveta has higher bushcraft
  487. if ripclothesrand >= torncloth_high_bushcraft: gs 'gadforest', 'torncloth'
  488. end
  489. ! decide if Sveta is now lost as Sveta raises her bushcraft her chances of getting lost decreases
  490. if pcs_bushcraft < bushcraft_lost:
  491. lostrand = rand(1,bushcraft_lost)
  492. forest_lostday = daystart
  493. if pcs_bushcraft < lostrand: lost_girl = 1 & gt 'gadforestlost', $ARGS[1]
  494. end
  495. end
  496. ! this gs handles the actual degradation and removal of clothes from Sveta in the forest
  497. ! this should only be called from inside of gs 'gadforest', 'bushcraft'
  498. if $ARGS[0] = 'torncloth':
  499. if $clothingworntype ! 'nude':
  500. if (PCloThinness = 1 or PCloSkirt > 0) and PCloQuality < 5:
  501. !skirts, not fit, and not high-class enough by illume
  502. '<font color="red">Your clothes get caught on some brush and tear slightly.</font>'
  503. dynamic $clothingworntype + 'H[<<clothingwornnumber>>] -= 1'
  504. !add remove clothes if worn out
  505. if dyneval('RESULT = <<$clothingworntype>>H[<<clothingwornnumber>>]') <= 0:
  506. '<font color="red">Your clothes were barely holding together, but now they have fallen apart completely. You discard the remains and are left naked.</font>'
  507. gadforest_clothestorn = 1
  508. gs 'clothing', 'strip', 'gadforest'
  509. gs 'stat'
  510. end
  511. end
  512. end
  513. end
  514. ! this gs handles stripping for Sveta in the various locations of the forest
  515. ! $forest_args1 - location of forest where this is called from
  516. ! Example: gs 'gadforest', 'stripping'
  517. if $ARGS[0] = 'stripping':
  518. ! stripping requires there to be no picnic going on, to have clothes on, for there to be no clothes already abandoned at the current location, between april and october and lowered inhibitions or higher exhibitionism
  519. if $clothingworntype ! 'nude' and clothesAtLocation = 0 and month >= 4 and month <= 10 and hour >= 6 and hour < 22 and (pcs_inhib >= 25 or exhibitionist_lvl > 1):
  520. ! Mira only goes to the forest edge
  521. if MiraLoc = 3 and $forest_args1 = 'forest_edge':
  522. ! stripping with Mira requires completing talking to her about it already and doing their nude event in the forest already
  523. if miranudetalk = 2:
  524. act 'Strip Naked with Mira (0:05)':
  525. *clr & cla
  526. menu_off = 1
  527. minut += 5
  528. if pcs_inhib < 50:inhib_exp += rand(1,3)
  529. gs 'underwear', 'remove'
  530. if swamp_clothes = 0:
  531. gs 'clothing', 'strip', $forest_args1
  532. elseif swamp_clothes = 1:
  533. gs 'clothing', 'strip', 'gadforest'
  534. gs 'clothing', 'swamp_clothes', 0
  535. end
  536. gs 'exhibitionism', 3
  537. gs 'stat'
  538. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest6.jpg"></center>'
  539. 'You and Mira quickly get undressed, leaving your clothes in a neat pile on the ground.'
  540. act 'Continue': gt 'gadforest', $forest_args1
  541. end
  542. end
  543. else
  544. ! picnic blocks being naked at the forest edge but not other parts of the forest
  545. if (forestpicnic = 0 and $forest_args1 = 'forest_edge') or $forest_args1 ! 'forest_edge':
  546. act 'Strip Naked (0:05)':
  547. *clr & cla
  548. menu_off = 1
  549. minut += 5
  550. if pcs_inhib < 50:inhib_exp += rand(1,3)
  551. gs 'underwear', 'remove'
  552. if swamp_clothes = 0:
  553. gs 'clothing', 'strip', $forest_args1
  554. elseif swamp_clothes = 1:
  555. gs 'clothing', 'strip', 'gadforest'
  556. gs 'clothing', 'swamp_clothes', 0
  557. end
  558. gs 'stat'
  559. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  560. if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  561. 'You quickly get undressed, leaving your clothes in a neat pile on the ground.'
  562. if $forest_args1 = 'swamp_woods':
  563. act 'Continue': gt 'swamp_woods', 'start'
  564. else
  565. act 'Continue': gt 'gadforest', $forest_args1
  566. end
  567. end
  568. end
  569. end
  570. end
  571. end
  572. ! this gs handles dressing for Sveta in the various locations of the forest
  573. ! $forest_args1 - location of forest where this is called from
  574. ! Example: gs 'gadforest', 'dressing'
  575. if $ARGS[0] = 'dressing':
  576. ! code for different variations of getting dressed or dealing with clothes left in the forest
  577. if clothesAtLocation = 1:
  578. if $clothingworntype = 'nude':
  579. act 'Get dressed (0:05)':
  580. *clr & cla
  581. menu_off = 1
  582. minut += 5
  583. gs 'clothing', 'swamp_clothes', 0
  584. gs 'underwear', 'wear'
  585. gs 'clothing', 'recover_lost_clothes', $forest_args1, 1
  586. gs 'stat'
  587. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  588. if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  589. *nl
  590. 'You change back into your clothes.'
  591. if $forest_args1 = 'swamp_woods':
  592. act 'Continue': gt 'swamp_woods', 'start'
  593. else
  594. act 'Continue': gt 'gadforest', $forest_args1
  595. end
  596. end
  597. elseif $clothingworntype ! 'nude':
  598. ! hessian sack from hunters is not allowed to leave the woods it is only supposed to be a temporary item
  599. if $clothingworntype = 'cheap' and clothingwornnumber = 414:
  600. act 'Wear your abandoned clothing (0:05)':
  601. *clr & cla
  602. menu_off = 1
  603. minut += 5
  604. gs 'clothing', 'swamp_clothes', 0
  605. gs 'underwear', 'wear'
  606. gs 'clothing', 'recover_lost_clothes', $forest_args1, 1
  607. gs 'stat'
  608. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  609. if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  610. *nl
  611. 'You wear your abandoned clothing and get rid of the hessian sack the hunters gave you.'
  612. if $forest_args1 = 'swamp_woods':
  613. act 'Continue': gt 'swamp_woods', 'start'
  614. else
  615. act 'Continue': gt 'gadforest', $forest_args1
  616. end
  617. end
  618. else
  619. act 'Pick up your abandoned clothing (0:05)':
  620. cla
  621. menu_off = 1
  622. minut += 5
  623. gs 'clothing', 'swamp_clothes', 0
  624. gs 'underwear', 'wear'
  625. gs 'clothing', 'recover_lost_clothes', $forest_args1
  626. gs 'stat'
  627. *nl
  628. 'You pick up your abandoned clothing.'
  629. if $forest_args1 = 'swamp_woods':
  630. act 'Continue': gt 'swamp_woods', 'start'
  631. else
  632. act 'Continue': gt 'gadforest', $forest_args1
  633. end
  634. end
  635. end
  636. end
  637. end
  638. end
  639. ! this gs handles walking for Sveta in the various locations of the forest
  640. ! $forest_args1 - location of forest where this is called from
  641. ! Example: gs 'gadforest', 'walking'
  642. if $ARGS[0] = 'walking':
  643. if hour >= 6 and hour <= 22:
  644. ! Mira only goes to the forest edge
  645. if MiraLoc = 3 and $forest_args1 = 'forest_edge':
  646. act 'Go for a walk in the woods with Mira (1:00)':
  647. *clr & cla
  648. menu_off = 1
  649. minut += 60
  650. pcs_mood += 20
  651. pcs_health += healthmax/5
  652. gs 'gadforest', 'bushcraft', $forest_args1
  653. if $clothingworntype = 'nude':
  654. if pcs_inhib < 50:inhib_exp += rand(1,5)
  655. gs 'exhibitionism', 3
  656. end
  657. gs 'stat'
  658. if month >= 4 and month <= 10:
  659. ! 10% chance of finding meadow (needed to advance Miras quest)
  660. if rand(0,9) = 0 and meadow = 0 and $forest_args1 = 'forest_edge':
  661. gt 'gadforest_event', 'find_meadow'
  662. else
  663. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest'+rand(1,3)+'.jpg"></center>'
  664. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest_nude'+rand(1,3)+'.jpg"></center>'
  665. *nl
  666. 'You spend an hour walking with Mira through the woods, chatting and enjoying the sounds of the forest and the fresh air.'
  667. end
  668. else
  669. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraforestwinter.jpg"></center>'
  670. *nl
  671. 'You spend an hour walking with Mira through the snowy woods, chatting and enjoying the sounds of the forest and the fresh air.'
  672. end
  673. act 'Continue':gt 'gadforest', $forest_args1
  674. end
  675. else
  676. act 'Go for a walk in the woods (1:00)':
  677. *clr & cla
  678. menu_off = 1
  679. minut += 60
  680. pcs_mood += 20
  681. pcs_health += healthmax/5
  682. gs 'gadforest', 'bushcraft', $forest_args1
  683. if $clothingworntype = 'nude' and pcs_inhib < 50:inhib_exp += rand(1,5)
  684. gs 'stat'
  685. ! 10% chance of finding meadow (needed to advance Miras quest)
  686. if rand(0,9) = 0 and meadow = 0 and $forest_args1 = 'forest_edge':
  687. gt 'gadforest_event', 'find_meadow'
  688. else
  689. if month >= 4 and month <= 10:
  690. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest0.'+rand(1,2)+'.jpg"></center>'
  691. 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>'
  692. 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>'
  693. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude0.'+rand(1,4)+'.jpg"></center>'
  694. *nl
  695. 'You spend an hour walking through the woods, enjoying the sounds of the forest and the fresh air.'
  696. else
  697. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforestwinter0.'+rand(1,6)+'.jpg"></center>'
  698. *nl
  699. 'You spend an hour walking through the snowy woods, enjoying the sounds of the forest and the fresh air.'
  700. end
  701. if $forest_args1 = 'swamp_woods':
  702. act 'Continue': gt 'swamp_woods', 'start'
  703. else
  704. act 'Continue': gt 'gadforest', $forest_args1
  705. end
  706. end
  707. end
  708. end
  709. end
  710. end
  711. ! this gs handles mushroom and berry picking for Sveta in the various locations of the forest
  712. ! $forest_args1 - location of forest where this is called from
  713. ! Example: gs 'gadforest', 'picking'
  714. if $ARGS[0] = 'picking':
  715. if StoryLine = 1 or (StoryLine = 0 and mirapickingtalk = 1):
  716. if hour >= 6 and hour <= 22 and month >= 6 and month <= 9 and boletus + boletus_cooked + bilberry < 5:
  717. if ($forest_args1 = 'forest_edge' and edge_pickingday ! daystart) or ($forest_args1 = 'forest_outskirts' and outskirts_pickingday ! daystart) or ($forest_args1 = 'forest_center' and center_pickingday ! daystart) or ($forest_args1 = 'swamp_woods' and swamp_pickingday ! daystart):
  718. act 'Look for mushrooms and berries'+iif(MiraLoc = 3 and $forest_args1 = 'forest_edge', ' with Mira (0:30)',' (0:30)'):
  719. *clr & cla
  720. menu_off = 1
  721. if $forest_args1 = 'forest_edge':
  722. edge_pickingday = daystart
  723. mushroom_pickers_check = 1
  724. max_boletus = 1
  725. max_bilberry = 1
  726. elseif $forest_args1 = 'forest_outskirts':
  727. outskirts_pickingday = daystart
  728. mushroom_pickers_check = 2
  729. max_boletus = 2
  730. max_bilberry = 2
  731. elseif $forest_args1 = 'forest_center':
  732. center_pickingday = daystart
  733. mushroom_pickers_check = 3
  734. max_boletus = 3
  735. max_bilberry = 3
  736. elseif $forest_args1 = 'swamp_woods':
  737. swamp_pickingday = daystart
  738. mushroom_pickers_check = 4
  739. max_boletus = 4
  740. max_bilberry = 4
  741. end
  742. minut += 30
  743. new_boletus = 0
  744. new_bilberry = 0
  745. gs 'gadforest', 'bushcraft', $forest_args1
  746. if $clothingworntype = 'nude':
  747. if pcs_inhib < 50:inhib_exp += rand(1,5)
  748. if MiraLoc = 3 and $forest_args1 = 'forest_edge': gs 'exhibitionism', 3
  749. end
  750. gs 'stat'
  751. ! mushroom_pickers are not at the location of the forest Sveta is in
  752. if mushroom_pickers ! mushroom_pickers_check:
  753. new_boletus += max_boletus
  754. new_bilberry += max_bilberry
  755. boletus += new_boletus
  756. bilberry += new_bilberry
  757. pcs_mood += 10
  758. gs 'stat'
  759. gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
  760. *nl
  761. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  762. ! mushroom pickers are at the location of the forest Sveta is in
  763. elseif mushroom_pickers = mushroom_pickers_check:
  764. new_boletus += rand(0,max_boletus)
  765. new_bilberry += rand(0,max_bilberry)
  766. boletus += new_boletus
  767. bilberry += new_bilberry
  768. gs 'stat'
  769. if new_boletus > 0 and new_bilberry > 0:
  770. pcs_mood += 10
  771. gs 'stat'
  772. gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
  773. *nl
  774. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  775. elseif new_boletus = 0 and new_bilberry > 0:
  776. pcs_mood += 5
  777. gs 'stat'
  778. gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
  779. *nl
  780. 'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
  781. elseif new_boletus > 0 and new_bilberry = 0:
  782. pcs_mood += 5
  783. gs 'stat'
  784. gs 'gadforest', 'picking_clothes', $forest_args1, 'mushroom'
  785. *nl
  786. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms'
  787. elseif new_boletus = 0 and new_bilberry = 0:
  788. pcs_mood -= 5
  789. gs 'stat'
  790. gs 'gadforest', 'picking_clothes_empty', $forest_args1
  791. *nl
  792. 'After searching for mushrooms and berries for half an hour you found nothing.'
  793. end
  794. end
  795. if $forest_args1 = 'swamp_woods':
  796. act 'Continue': gt 'swamp_woods', 'start'
  797. else
  798. act 'Continue': gt 'gadforest', $forest_args1
  799. end
  800. end
  801. end
  802. end
  803. end
  804. end
  805. ! this gs handles images for mushroom and berry picking for Sveta in the various locations of the forest when she finds at least 1 kg of berries or mushrooms
  806. ! $ARGS[1] - location of forest where this is called from
  807. ! $ARGS[2] - whether you want images for mushrooms or berries
  808. ! Example: gs 'gadforest', 'picking_clothes', 'forest_edge', 'mushroom'
  809. if $ARGS[0] = 'picking_clothes':
  810. if $ARGS[2] = 'mushroom':
  811. if MiraLoc = 3 and $ARGS[1] = 'forest_edge':
  812. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom'+rand(1,2)+'.jpg"></center>'
  813. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude'+rand(1,2)+'.jpg"></center>'
  814. else
  815. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom4.'+rand(1,3)+'.jpg"></center>'
  816. if $clothingworntype ! 'nude' and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom1.jpg"></center>'
  817. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom2.jpg"></center>'
  818. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom3.jpg"></center>'
  819. end
  820. elseif $ARGS[2] = 'berry':
  821. if MiraLoc = 3 and $ARGS[1] = 'forest_edge':
  822. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom'+rand(1,2)+'.jpg"></center>'
  823. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude'+rand(1,2)+'.jpg"></center>'
  824. else
  825. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom4.'+rand(1,3)+'.jpg"></center>'
  826. if $clothingworntype ! 'nude' and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/blueberry_picking_'+rand(3,6)+'.jpg"></center>'
  827. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/blueberry_picking_2.jpg"></center>'
  828. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/blueberry_picking_1.jpg"></center>'
  829. end
  830. end
  831. end
  832. ! this gs handles images for mushroom and berry picking for Sveta in the various locations of the forest when she finds 0 kg of berries or mushrooms
  833. ! $ARGS[1] - location of forest where this is called from
  834. ! Example: gs 'gadforest', 'picking_clothes_empty', 'forest_edge'
  835. if $ARGS[0] = 'picking_clothes_empty':
  836. if MiraLoc = 3 and $ARGS[1] = 'forest_edge':
  837. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom3.jpg"></center>'
  838. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude3.jpg"></center>'
  839. else
  840. if $clothingworntype ! 'nude' and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest2.jpg"></center>'
  841. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest3.jpg"></center>'
  842. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_tanga1.'+rand(1,2)+'.jpg"></center>'
  843. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude1.'+rand(1,4)+'.jpg"></center>'
  844. end
  845. end
  846. --- gadforest ---------------------------------