glife/sugarcube/src/locations/gadukino/gadforest.tw

:: gadforest[mod mod_gad]
<<set $here = 'gadforest'>>
<<set $ARGS = $location_var[$here]>>
<!-- !2021/05/05-->
<<if $location_var[$here][0] == 'forest_edge'>>
	<!-- ! force Mira to stay here if Sveta brought Mira here by choice - temporarily overrides Miras schedule to not annoy the player-->
	<<set $Mira_Stay = iif($loc ! 'Miroslava', 1 , 0)>>
	<<set $clothesAtLocation = setup.func('lost_clothes_here','forest_edge')>>
	<<set $loc = 'gadforest'>>
	<<set $loc_arg = 'forest_edge'>>
	<<set $region = 'gad'>>
	<<set $location_type = 'secluded'>>
	<<set $menu_loc = 'gadforest'>>
	<<set $menu_arg = 'forest_edge'>>
	<<set $menu_off = 0>>
	<<set $forest_args1 = 'forest_edge'>>
	<<gs 'gadukino_event' 'sound'>>
	<h2>Edge of the Forest</h2>
	<<if $time.month >= 4 and $time.month <= 10>>
		<<if $time.hour >= 6 and $time.hour < 22>>
			<<image "locations/gadukino/forest/gadforest1.jpg">>
			You are at the edge of the forest. Mushrooms and berries grow here, and you can often find other people picking them.
		<<else>>
			<<image "locations/gadukino/forest/gadforest_night1.jpg">>
			You are at the edge of the forest. Night in the woods is scary and uncomfortable.
		<</if>>
	<<else>>
		<<if $time.hour >= 8 and $time.hour < 20>>
			<<image "locations/gadukino/forest/gadforest_winter1.jpg">>
			You are at the edge of the forest. The forest during wintertime is gorgeous.
		<<else>>
			<<image "locations/gadukino/forest/gadforest_winter_night1.jpg">>
			You are at the edge of the forest. Night in the woods during wintertime is terrifying and uncomfortable.
		<</if>>
	<</if>>
	<<gs 'gadforest' 'bushcraft' 'forest_edge'>>
	<<if $pc.skillLevel("bushcraft") < 20>>
		<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>
	<<else>>
		<font color="green">You are comfortable navigating this part of the forest and can adventure further into the woods if you want.</font>
	<</if>>
	<<if getvar("$clothesAtLocation") == 1>>
	<</if>>
	<<if getvar("$forestpicnic") == 1>>
		<<if $time.hour < 10 or $time.hour > 14>>
			<<set $forestpicnic = 0>>
		<<else>>
			On the edge of the forest, you see people. Apparently, they are having a family <<link "picnic">><<gt 'gadforest_event' 'picnic'>><</link>>.
		<</if>>
	<</if>>
	<<if $time.hour < 8 or $time.hour > 16 and getvar("$mushroom_pickers") != 0>>
		<<set $mushroom_pickers = 0>>
		You don't see or hear anyone picking mushrooms or berries in the forest right now.
	<<else>>
		<<if getvar("$mushroom_pickers") == 0>>
			You don't see or hear anyone picking mushrooms or berries in the forest right now.
		<<elseif getvar("$mushroom_pickers") == 1>>
			At the forest''s edge, you can see other people picking mushrooms and berries.
		<<elseif getvar("$mushroom_pickers") == 2>>
			You can hear people picking mushrooms and berries deeper in the forest.
		<</if>>
	<</if>>
	<<if getvar("$MiraLoc") == 3>>
		<<link "Mira">><<gt 'Miroslava'>><</link>> is here with you.

	<</if>>
	<<set $foresteventrand = rand(1,20)>>
	<!-- ! Events with Mira-->
	<<if getvar("$MiraLoc") == 3>>
		<<if $time.hour >= 11 and getvar("$Mira_Stay") == 0>>
			<<gs 'miroslava' 'miraclothes'>>
			<p>"$pc.name_nick, I'm going to head home now, but we can hang out again later," Mira said as she began walking out of the forest.</p>
			<!-- ! 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-->
			<<actCLA 'Convince her to stay with you'>>
				<<set $Mira_Stay = 1>>
				<<gt 'gadforest' 'forest_edge'>>
			<</actCLA>>
			<!-- ! Allow the player to let Mira continue on her schedule if they want to get events done on their own-->
			<<actCLA 'Say goodbye'>>
				<<set $MiraLoc = 0>>
				<<gt 'gadforest' 'forest_edge'>>
			<</actCLA>>
		<</if>>
		<<if getvar("$mirapickingtalk") == 0 and $miratalkday != $time.daystart>>
			<<gt 'gadforest_event' 'mira_picking_talk'>>

		<</if>>
		<<if getvar("$miranudetalk") == 0 and $miratalkday != $time.daystart>>
			<<gt 'gadforest_event' 'mira_nude_talk'>>

		<</if>>
		<!-- ! 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-->
		<<if getvar("$forestpicnic") == 0 and $wardrobe.clothingworntype != 'nude' and getvar("$clothesAtLocation") == 0 and $time.month >= 4 and $time.month <= 10 and $time.hour >= 8 and $time.hour <= 20 and getvar("$miranudetalk") == 1 and $miratalkday != $time.daystart>>
			<<gt 'gadforest_event' 'mira_nude_event'>>

		<</if>>
		<!-- ! Events without Mira-->
	<<else>>
		<<if $npc('A60').known == 1 and getvar("$MiraLoc") != 3 and $time.hour >= 8 and $time.hour <= 10>>
			<<set $mirarand = rand(1,10)>>
			<<if getvar("$mirarand") >= 6>>
				<<set $MiraLoc = 3>> <<gt 'gadforest_event' 'mira_morning_walk'>>

			<</if>>
		<</if>>
		<<if getvar("$foresteventrand") <= 2 and $time.month >= 6 and $time.month <= 9 and $time.hour >= 8 and $time.hour <= 16 and $mushroom_pickersday != $time.daystart>>
			<<set $mushroom_pickers = 1>> <<gt 'gadforest_event' 'mushroom_pickers1'>>

		<</if>>
		<<if getvar("$foresteventrand") <= 4 and $time.month >= 6 and $time.month <= 9 and $time.hour >= 8 and $time.hour <= 16 and $mushroom_pickersday != $time.daystart>>
			<<set $mushroom_pickers = 2>> <<gt 'gadforest_event' 'mushroom_pickers2'>>

		<</if>>
		<<if getvar("$foresteventrand") == 5 and $time.month >= 6 and $time.month <= 9 and $time.hour >= 10 and $time.hour <= 14 and $weather.temperature >= 10 and !$weather.isRaining and $time.weekday > 5 and getvar("$forestpicnic") == 0>>
			<<set $forestpicnic = 1>> <<gt 'gadforest_event' 'picnic'>>

		<</if>>
	<</if>>
	<!-- ! Events with or without Mira-->
	<<if getvar("$foresteventrand") <= 8 and $time.hour >= 8 and $time.hour <= 20 and $time.month >= 4 and $time.month <= 10 and $gadboyday != $time.daystart>>
		<<if $mitkaday != $time.daystart>>
			<<if getvar("$MiraLoc") == 3>>
				<<gt 'gadforest_event' 'mitka_temporary_event'>>

			<</if>>
			<!-- !	gt 'mitka_forest_1', 'mitka'-->
			<!-- !elseif kolyambaday ! daystart:-->
			<!-- !	gt 'mitka_forest_1', 'kolyamba'-->
			<!-- !elseif vasyanday ! daystart:-->
			<!-- !	gt 'mitka_forest_1', 'vasyan'-->
		<</if>>
	<</if>>
	<!-- !if foresteventrand = 9 and hour >= 8 and hour <= 20 and month >= 4 and month <= 10 and gadboyday ! daystart:-->
	<!-- !	if mitkaday ! daystart and kolyambaday ! daystart:-->
	<!-- !		gt 'mitka_forest_2', '1'-->
	<!-- !	elseif mitkaday ! daystart and vasyanday ! daystart:-->
	<!-- !		gt 'mitka_forest_2', '2'-->
	<!-- !	elseif kolyambaday ! daystart and vasyanday ! daystart:-->
	<!-- !		gt 'mitka_forest_2', '3'-->
	<!-- !	elseif mitkaday ! daystart:-->
	<!-- !		gt 'mitka_forest_1', 'mitka'-->
	<!-- !	elseif kolyambaday ! daystart:-->
	<!-- !		gt 'mitka_forest_1', 'kolyamba'-->
	<!-- !	elseif vasyanday ! daystart:-->
	<!-- !		gt 'mitka_forest_1', 'vasyan'-->
	<!-- !	end-->
	<!-- !end-->
	<!-- !if forest_eventrand = 10 and hour >= 8 and hour <= 20 and month >= 4 and month <= 10 and gadboyday ! daystart:-->
	<!-- !	if mitkaday ! daystart and kolyambaday ! daystart and vasyanday ! daystart:-->
	<!-- !		gt 'mitka_forest_3'-->
	<!-- !	elseif mitkaday ! daystart and kolyambaday ! daystart:-->
	<!-- !		gt 'mitka_forest_2', '1'-->
	<!-- !	elseif mitkaday ! daystart and vasyanday ! daystart:-->
	<!-- !		gt 'mitka_forest_2', '2'-->
	<!-- !	elseif kolyambaday ! daystart and vasyanday ! daystart:-->
	<!-- !		gt 'mitka_forest_2', '3'-->
	<!-- !	elseif mitkaday ! daystart:-->
	<!-- !		gt 'mitka_forest_1', 'mitka'-->
	<!-- !	elseif kolyambaday ! daystart:-->
	<!-- !		gt 'mitka_forest_1', 'kolyamba'-->
	<!-- !	elseif vasyanday ! daystart:-->
	<!-- !		gt 'mitka_forest_1', 'vasyan'-->
	<!-- !	end-->
	<!-- !end-->
	<<actCLA 'Leave the woods (0:15)'>>
		<!-- ! Allow Mira to continue on her schedule as normal if the player was keeping her here for events-->
		<<if getvar("$MiraLoc") == 3>>
			<<set $Mira_Stay = 0>>
			<<set $MiraLoc = 0>>
		<</if>>
		<!-- ! Naked event when leaving forest-->
		<<if $wardrobe.clothingworntype == 'nude'>>
			<<set $menu_off = 1>>
			<<if $time.hour >= 6 and $time.hour < 22>>
				<<if rand(0,10) > 5>>
					<<image "locations/gadukino/forest/gadukino_nude.jpg">>
				<<else>>
					<<image "locations/gadukino/forest/gadukino_back.jpg">>
				<</if>>
			<<else>>
				<<if rand(0,10) > 5>>
					<<image "locations/gadukino/forest/gadukino_nude_night.jpg">>
				<<else>>
					<<image "locations/gadukino/forest/gadukino_back_night.jpg">>
				<</if>>
			<</if>>
			<!-- ! clothes ripped apart in the woods or swamp-->
			<<if getvar("$gadforest_clothestorn") == 1>>
				<<set $gadforest_clothestorn = 0>>
				Your clothes were torn to shreds in the woods, leaving you with no choice but to head back home naked.
				You try your best to stay in the shadows as you move towards your grandparents'' house as stealthily as possible.
				<!-- ! clothes are here-->
			<<elseif getvar("$clothesAtLocation") == 1>>
				You leave your clothes behind and sneak home naked, purely for the thrill.
				You try your best to stay in the shadows as you move towards your grandparents'' house as stealthily as possible.
				<!-- ! no clothes here-->
			<<elseif getvar("$clothesAtLocation") == 0>>
				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.
				You try your best to stay in the shadows as you move towards your grandparents'' house as stealthily as possible.
			<</if>>
			<!-- ! Allow schoolgirl player to leave naked but go straight back home-->
			<!-- ! 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-->
			<<actCLA 'Go back to Gadukino naked'>>
				<<run $pc.skillExperienceGain('inhibition',rand(1,3))>>
				<<arouse 'flash' 5 >>
				
				<<if getvar("$grandmaQW['block']") == 0>>
					<<if $time.hour >= 10 and $time.hour < 16 and $time.month >= 4 and $time.month <= 10>>
						<<set $forestcaughtrand = rand(4,10)>>
					<<elseif $time.hour >= 6 and $time.hour < 20 and $time.month >= 4 and $time.month <= 10>>
						<<set $forestcaughtrand = rand(2,8)>>
					<<else>>
						<<set $forestcaughtrand = rand(0,6)>>
					<</if>>
					<<if getvar("$forestcaughtrand") >= 9>>
						<<setinit $grandmaQW['nudity_trouble'] += rand(7,10)>>
						<<image "locations/gadukino/forest/gadukino_old_woman.jpg">>
						You've been spotted walking home naked by all the village''s women. So, naturally, they scold you as you walk by. Your grandparents are definitely going to find out about this.
					<<elseif getvar("$forestcaughtrand") >= 7>>
						<<setinit $grandmaQW['nudity_trouble'] += rand(4,6)>>
						<<image "locations/gadukino/forest/gadukino_old_woman#.jpg" 1 5>>
						You've been spotted walking home naked by a woman from the village. You hope she doesn''t tell your grandmother.
					<<elseif getvar("$forestcaughtrand") >= 5>>
						<<setinit $grandmaQW['nudity_trouble'] += rand(1,3)>>
						<<image "locations/gadukino/forest/gadukino_old_man#.jpg" 1 5>>
						You've been spotted walking home naked by a man from the village. You hope he doesn''t tell your grandfather.
					<<else>>
						<<setinit $grandmaQW['nudity_trouble'] += rand(0,1)>>
						<<image "locations/gadukino/grandparents/gaddvor_nude.jpg">>
						No one saw you outside naked, but there''s a thrill in almost getting caught.
					<</if>>
					<<actCLA 'Continue home to your grandparents (0:30)'>>
						<<set $time.minutes += 30>>
						<<gt 'gaddvor'>>
					<</actCLA>>
				<<else>>
					<<run $wardrobe.wear('gm_outfit_2')>>
					<<if getvar("$CloSkirtShortness") == 0>>
						<<image "locations/gadukino/forest/nudeforest.jpg">>

					<</if>>
					<<if getvar("$CloSkirtShortness") > 0>>
						<<image "locations/gadukino/forest/nudeforest1.#.jpg" 1 2>>

					<</if>>
					You begin to panic a little. You have nowhere to go and no one to help you. You are stuck naked in the woods.
					As you look around frantically, you spot a sweatshirt someone must have lost. You quickly put it on, thinking about how lucky you are.
					<<actCLA 'Leave (0:15)'>>
						<<set $time.minutes += 15>>
						<<gt 'gadroad'>>
					<</actCLA>>
				<</if>>
			<</actCLA>>
			<!-- ! last chance for player to choose to get dressed-->
			<<if getvar("$clothesAtLocation") == 1>>
				<<actCLA 'Get dressed instead'>>
					<<set $time.minutes += 5>>
					<<gs 'clothing' 'swamp_clothes' 0>>
					<<gs 'underwear' 'wear'>>
					<<gs 'clothing' 'recover_lost_clothes' 'forest_edge' 1>>
					<<if getvar("$CloSkirtShortness") == 0>>
						<<image "locations/gadukino/forest/nudeforest.jpg">>

					<</if>>
					<<if getvar("$CloSkirtShortness") > 0>>
						<<image "locations/gadukino/forest/nudeforest1.#.jpg" 1 2>>

					<</if>>
					You decide to change back into your clothes rather than try to get home through the village naked.
					<<actCLA 'Leave (0:15)'>>
						<<set $time.minutes += 15>>
						<<gt 'gadroad'>>
					<</actCLA>>
				<</actCLA>>
			<</if>>
			<!-- ! hessian sack from hunters is not allowed to leave the woods it is only supposed to be a temporary item-->
		<<elseif getvar("$swamp_clothes") == 1>>
			You cannot leave the woods wearing your current clothing. Therefore, you should pick up your clothes and get dressed or risk leaving naked.
		<<else>>
			<<set $time.minutes += 15>>
			<<gt 'gadroad'>>
		<</if>>
	<</actCLA>>
	<!-- ! Sveta cannot travel further into the forest if Mira is here at the forest with Sveta-->
	<<if getvar("$MiraLoc") != 3>>
		<<actCLA 'Walk further into the forest (0:15)'>>
			<<set $time.minutes += 15>> <<gt 'gadforest' 'forest_outskirts'>>
		<</actCLA>>
	<</if>>
	<<gs 'bicycle' 'gadforest'>>
	<!-- ! Sveta can go to the Meadow if she has discovered it and bring Mira too if she is allowed-->
	<<if (getvar("$meadow") > 0 and getvar("$MiraLoc") != 3)>>
		<<actCLA 'Walk to the meadow (0:20)'>>
			<<set $time.minutes += 20>> <<gt 'meadow'>>
		<</actCLA>>
	<<elseif ((getvar("$meadow") == 3 or (getvar("$meadow") == 6 and $npc('A60').QW >= 3)) and getvar("$MiraLoc") == 3)>>
		<<actCLA 'Walk to the meadow with Mira (0:20)'>>
			<<set $time.minutes += 20>> <<set $MiraLoc = 2>> <<gt 'meadow'>>
		<</actCLA>>
	<</if>>
	<!-- ! 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-->
	<<if getvar("$hunterscabin") == 1 and getvar("$hunters_were_met") == 1 and getvar("$MiraLoc") != 3>>
		<<actCLA 'Walk to the hunters cabin (1:00)'>>
			<!-- ! daytime chance to get stuck in swamp - use bike to get there 100% of the time-->
			<<if $time.hour >= 6 and $time.hour <= 22>>
				<<gt 'swamp' 'stuck'>>
				<!-- ! nighttime chased by wolves - Sveta probably should not be roaming the forest at this time-->
			<<else>>
				<<gt 'gadforestlost' 'wolves' 'forest_edge'>>
			<</if>>
		<</actCLA>>
	<</if>>
	<!-- ! tree circle teleportation for magic users - only found at the edge of the forest-->
	<<gs 'treeCircEntry' 'GadForest'>>
	<!-- ! 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-->
	<<gs 'gadforest' 'stripping'>>
	<<gs 'gadforest' 'dressing'>>
	<<gs 'gadforest' 'walking'>>
	<<gs 'gadforest' 'picking'>>
	<<gs 'camera' 'check_location'>>
<</if>>
<<if $location_var[$here][0] == 'forest_outskirts'>>
	<<set $clothesAtLocation = setup.func('lost_clothes_here','forest_outskirts')>>
	<<set $loc = 'gadforest'>>
	<<set $loc_arg = 'forest_outskirts'>>
	<<set $location_type = 'secluded'>>
	<<set $region = 'gad_forest'>>
	<<set $menu_loc = 'gadforest'>>
	<<set $menu_arg = 'forest_outskirts'>>
	<<set $menu_off = 0>>
	<<set $forest_args1 = 'forest_outskirts'>>
	<<gs 'gadukino_event' 'sound'>>
	<h2>Forest Outskirts</h2>
	<<if $time.month >= 4 and $time.month <= 10>>
		<<if $time.hour >= 6 and $time.hour < 22>>
			<<image "locations/gadukino/forest/gadforest2.jpg">>
			You are in the forest. The fresh air and singing birds light up your soul with joy.
		<<else>>
			<<image "locations/gadukino/forest/gadforest_night2.jpg">>
			You are in the forest. Night in the woods is scary and uncomfortable.
		<</if>>
	<<else>>
		<<if $time.hour >= 8 and $time.hour < 20>>
			<<image "locations/gadukino/forest/gadforest_winter2.jpg">>
			You are in the forest. The forest in the winter is stunning, and the fresh air makes you happy.
		<<else>>
			<<image "locations/gadukino/forest/gadforest_winter_night2.jpg">>
			You are in the forest. Night in the woods during wintertime is horrifying and uncomfortable.
		<</if>>
	<</if>>
	<<gs 'gadforest' 'bushcraft' 'forest_outskirts'>>
	<<if $pc.skillLevel("bushcraft") < 30>>
		<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>
	<<else>>
		<font color="green">You are comfortable navigating this part of the forest and can adventure further into the woods if you want.</font>
	<</if>>
	<<if getvar("$clothesAtLocation") == 1>>
	<</if>>
	<<if $time.hour < 8 or $time.hour > 16>>
		<<set $mushroom_pickers = 0>>
		You don't see or hear anyone picking mushrooms or berries in the forest right now.
	<<else>>
		<<if getvar("$mushroom_pickers") == 0>>
			You don't see or hear anyone picking mushrooms or berries in the forest right now.
		<<elseif getvar("$mushroom_pickers") == 1>>
			You can hear others picking mushrooms and berries at the forest''s edge.
		<<elseif getvar("$mushroom_pickers") == 2>>
			You can see people picking mushrooms and berries here on the outskirts of the forest.
		<</if>>
	<</if>>
	<<set $foresteventrand = rand(1,20)>>
	<<if getvar("$foresteventrand") <= 2 and $time.month >= 6 and $time.month <= 9 and $time.hour >= 8 and $time.hour <= 16 and $mushroom_pickersday != $time.daystart>>
		<<set $mushroom_pickers = 2>> <<gt 'gadforest_event' 'mushroom_pickers1'>>

	<</if>>
	<<if getvar("$foresteventrand") <= 4 and $time.month >= 6 and $time.month <= 9 and $time.hour >= 8 and $time.hour <= 16 and $mushroom_pickersday != $time.daystart>>
		<<set $mushroom_pickers = 2>> <<gt 'gadforest_event' 'mushroom_pickers3'>>

	<</if>>
	<<if getvar("$foresteventrand") == 5 and $time.month >= 4 and $time.month <= 10 and (($time.hour >= 6 and $time.hour < 12) or ($time.hour >= 14 and $time.hour < 18))>>
		<<gt 'gadforest_event' 'forest_hunters' 'forest_outskirts'>>

	<</if>>
	<<actCLA 'Head back out of the forest (0:15)'>>
		<<set $time.minutes += 15>> <<gt 'gadforest' 'forest_edge'>>
	<</actCLA>>
	<<actCLA 'Walk further into the forest (0:15)'>>
		<<set $time.minutes += 15>> <<gt 'gadforest' 'forest_center'>>
	<</actCLA>>
	<!-- ! 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-->
	<<gs 'gadforest' 'stripping'>>
	<<gs 'gadforest' 'dressing'>>
	<<gs 'gadforest' 'walking'>>
	<<gs 'gadforest' 'picking'>>
<</if>>
<<if $location_var[$here][0] == 'forest_center'>>
	<<set $clothesAtLocation = setup.func('lost_clothes_here','forest_center')>>
	<<set $loc = 'gadforest'>>
	<<set $loc_arg = 'forest_center'>>
	<<set $region = 'gad_forest'>>
	<<set $location_type = 'secluded'>>
	<<set $menu_loc = 'gadforest'>>
	<<set $menu_arg = 'forest_center'>>
	<<set $menu_off = 0>>
	<<set $forest_args1 = 'forest_center'>>
	<<gs 'gadukino_event' 'sound'>>
	<h2>Deep Forest</h2>
	<<if $time.month >= 4 and $time.month <= 10>>
		<<if $time.hour >= 6 and $time.hour < 22>>
			<<image "locations/gadukino/forest/gadforest3.jpg">>
			You are deep in the forest. The fresh air and singing birds light up your soul with joy.
		<<else>>
			<<image "locations/gadukino/forest/gadforest_night3.jpg">>
			You are deep in the forest. Night in the woods is scary and uncomfortable.
		<</if>>
	<<else>>
		<<if $time.hour >= 8 and $time.hour < 20>>
			<<image "locations/gadukino/forest/gadforest_winter3.jpg">>
			You are deep in the forest. The forest in the winter is magnificent. The fresh air makes you happy.
		<<else>>
			<<image "locations/gadukino/forest/gadforest_winter_night3.jpg">>
			You are deep in the forest. Night in the woods during wintertime is terrifying and uncomfortable.
		<</if>>
	<</if>>
	<<gs 'gadforest' 'bushcraft' 'forest_center'>>
	<<if $pc.skillLevel("bushcraft") < 40>>
		<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>
	<<else>>
		<font color="green">You are comfortable navigating this part of the forest and can venture further into the woods if you want.</font>
	<</if>>
	<<if getvar("$clothesAtLocation") == 1>>
	<</if>>
	<<if $time.hour < 8 or $time.hour > 16>>
		<<set $mushroom_pickers = 0>>
		You don't see or hear anyone picking mushrooms or berries in the forest right now.
	<<else>>
		<<if getvar("$mushroom_pickers") == 0>>
			You don't see or hear anyone picking mushrooms or berries in the forest right now.
		<<elseif getvar("$mushroom_pickers") == 1>>
			You can hear people picking mushrooms and berries at the forest''s edge.
		<<elseif getvar("$mushroom_pickers") == 2>>
			You can hear people picking mushrooms and berries on the outskirts of the forest.
		<</if>>
	<</if>>
	<<set $foresteventrand = rand(1,20)>>
	<<if getvar("$foresteventrand") <= 2 and $time.month >= 6 and $time.month <= 9>>
		<<gt 'gadforest_event' 'basket'>>

	<</if>>
	<<if getvar("$foresteventrand") <= 3 and $time.month >= 6 and $time.month <= 9>>
		<<gt 'gadforest_event' 'bilberry'>>

	<</if>>
	<<if getvar("$foresteventrand") <= 4 and $time.month >= 6 and $time.month <= 9>>
		<<gt 'gadforest_event' 'mushroom'>>

	<</if>>
	<<if getvar("$foresteventrand") == 5 and $time.month >= 4 and $time.month <= 10 and (($time.hour >= 6 and $time.hour < 12) or ($time.hour >= 14 and $time.hour < 18))>>
		<<gt 'gadforest_event' 'forest_hunters' 'forest_center'>>

	<</if>>
	<<actCLA 'Head back out of the forest (0:15)'>>
		<<set $time.minutes += 15>> <<gt 'gadforest' 'forest_outskirts'>>
	<</actCLA>>
	<<actCLA 'Walk further into the swamp (0:15)'>>
		<<set $time.minutes += 15>> <<gt 'swamp' 'start'>>
	<</actCLA>>
	<!-- ! 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-->
	<<gs 'gadforest' 'stripping'>>
	<<gs 'gadforest' 'dressing'>>
	<<gs 'gadforest' 'walking'>>
	<<gs 'gadforest' 'picking'>>
<</if>>
<!-- ! this gs handles the bushcraft increases, clothing degradation, and getting lost in the forest-->
<!-- ! $larg(1) - location of forest where this is called from-->
<!-- ! Example: gs 'gadforest', 'bushcraft', 'forest_edge'-->
<<if $location_var[$here][0] == 'bushcraft'>>
	<!-- ! bushcraft_rand - the max amount of bushcraft exp that can be gained from an action in an area of the forest-->
	<!-- ! bushcraft_limit - the max amount bushcraft can be naturally raised to by visiting an area of the forest-->
	<!-- ! bushcraft_lost - bushcraft needed to no longer get lost when visiting an area of the forest-->
	<!-- ! torncloth_high_bushcraft - chance of tearing clothes with high bushcraft when visiting an area of the forest-->
	<!-- ! torncloth_low_bushcraft - chance of tearing clothes with low bushcraft when visiting an area of the forest-->
	<<if $location_var[$here][1] == 'forest_edge'>>
		<<set $bushcraft_rand = 1>>
		<<set $bushcraft_limit = 20>>
		<!-- ! Sveta cannot get lost at the forest_edge part of the forest anymore-->
		<<set $bushcraft_lost = 10>>
		<<set $torncloth_high_bushcraft = 10>>
		<<set $torncloth_low_bushcraft = 9>>
	<<elseif $location_var[$here][1] == 'forest_outskirts'>>
		<<set $bushcraft_rand = 2>>
		<<set $bushcraft_limit = 30>>
		<<set $bushcraft_lost = 20>>
		<<set $torncloth_high_bushcraft = 9>>
		<<set $torncloth_low_bushcraft = 7>>
	<<elseif $location_var[$here][1] == 'forest_center'>>
		<<set $bushcraft_rand = 3>>
		<<set $bushcraft_limit = 40>>
		<<set $bushcraft_lost = 30>>
		<<set $torncloth_high_bushcraft = 8>>
		<<set $torncloth_low_bushcraft = 5>>
	<<elseif $location_var[$here][1] == 'swamp_woods'>>
		<<set $bushcraft_rand = 4>>
		<<set $bushcraft_limit = 50>>
		<!-- ! Sveta cannot get lost at the swamp_woods part of the forest either-->
		<<set $bushcraft_lost = 10>>
		<<set $torncloth_high_bushcraft = 7>>
		<<set $torncloth_low_bushcraft = 3>>
	<</if>>
	<!-- ! 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-->
	<!-- ! 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-->
	<!-- ! 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-->
	<!-- ! 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-->
	<<set $ripclothesrand = rand(1,10)>>
	<<if $pc.skillLevel("bushcraft") < $bushcraft_limit>>
		<!-- ! use the higher chance of ripping clothes when Sveta has lower bushcraft-->
		<<if $ripclothesrand >= $torncloth_low_bushcraft>>
			<<gs 'gadforest' 'torncloth'>>

		<</if>>
		<!-- ! bushcraft exp gained is random to keep it from increasing too fast-->
		<<if rand(0,1) == 0>>
			<<run $pc.skillExperienceGain('bushcraft',rand(1,bushcraft_rand))>>
		<</if>>
	<<else>>
		<!-- ! use the lower chance of ripping clothes when Sveta has higher bushcraft-->
		<<if $ripclothesrand >= $torncloth_high_bushcraft>>
			<<gs 'gadforest' 'torncloth'>>

		<</if>>
	<</if>>
	<!-- ! decide if Sveta is now lost as Sveta raises her bushcraft her chances of getting lost decreases-->
	<<if $pc.skillLevel("bushcraft") < $bushcraft_lost>>
		<<set $lostrand = rand(1,bushcraft_lost)>>
		<<set $forest_lostday = $time.daystart>>
		<<if $pc.skillLevel("bushcraft") < $lostrand>>
			<<set $lost_girl = 1>> <<gt 'gadforestlost' $location_var[$here][1]>>

		<</if>>
	<</if>>
<</if>>
<!-- ! this gs handles the actual degradation and removal of clothes from Sveta in the forest-->
<!-- ! this should only be called from inside of gs 'gadforest', 'bushcraft'-->
<<if $location_var[$here][0] == 'torncloth'>>
	<<if $wardrobe.clothingworntype != 'nude'>>
		<<if ($wardrobe.PCloThinness == 1 or $wardrobe.PCloSkirt > 0) and $wardrobe.PCloQuality < 5>>
			<!-- !skirts, not fit, and not high-class enough by illume-->
			<font color="red">Your clothes get caught on some brush and tear slightly.</font>
			<!-- FAILED TO CONVERT
				dynamic $wardrobe.clothingworntype + '_h[<<clothingwornnumber>>] -= 1'
			-----
				<<set dynamic $wardrobe.clothingworntype + '_h[ERROR: FAILED TO CONVERT LITERAL: """<<clothingwornnumber>>"""] -= 1'>>

			-->
			<<warn "CONVERSION ERROR ff69aad628cff52357cf670c55186d14">>
			<!-- !add remove clothes if worn out-->
			<<if State.getVar('$'+$wardrobe.clothingworntype+'_h['+clothingwornnumber+']') <= 0>>
				<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>
				<<set $gadforest_clothestorn = 1>>
				<<gs 'clothing' 'strip' 'gadforest'>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<!-- ! this gs handles stripping for Sveta in the various locations of the forest-->
<!-- ! $forest_args1 - location of forest where this is called from-->
<!-- ! Example: gs 'gadforest', 'stripping'-->
<<if $location_var[$here][0] == 'stripping'>>
	<!-- ! 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-->
	<<if $wardrobe.clothingworntype != 'nude' and getvar("$clothesAtLocation") == 0 and $time.month >= 4 and $time.month <= 10 and $time.hour >= 6 and $time.hour < 22 and ($pc.pcs_inhib >= 25 or getvar("$exhibitionist_lvl") > 1)>>
		<!-- ! Mira only goes to the forest edge-->
		<<if getvar("$MiraLoc") == 3 and $forest_args1 == 'forest_edge'>>
			<!-- ! stripping with Mira requires completing talking to her about it already and doing their nude event in the forest already-->
			<<if getvar("$miranudetalk") == 2>>
				<<actCLA 'Strip Naked with Mira (0:05)'>>
					<<set $menu_off = 1>>
					<<set $time.minutes += 5>>
					<<if $pc.pcs_inhib < 50>>
						<<run $pc.skillExperienceGain('inhibition',rand(1,3))>>

					<</if>>
					<<if getvar("$swamp_clothes") == 0>>
						<<gs 'clothing' 'strip_all' $forest_args1>>
					<<elseif getvar("$swamp_clothes") == 1>>
						<<gs 'clothing' 'strip_all' 'gadforest'>>
						<<gs 'clothing' 'swamp_clothes' 0>>
					<</if>>
					<<arouse 'flash' 5 >>
					
					<<image "characters/gadukino/mira/miraforest6.jpg">>
					You and Mira quickly get undressed, leaving your clothes in a neat pile on the ground.
					<<actCLA 'Continue'>>
						<<gt 'gadforest' $forest_args1>>
					<</actCLA>>
				<</actCLA>>
			<</if>>
		<<else>>
			<!-- ! picnic blocks being naked at the forest edge but not other parts of the forest-->
			<<if (getvar("$forestpicnic") == 0 and $forest_args1 == 'forest_edge') or $forest_args1 != 'forest_edge'>>
				<<actCLA 'Strip Naked (0:05)'>>
					<<set $menu_off = 1>>
					<<set $time.minutes += 5>>
					<<if $pc.pcs_inhib < 50>>
						<<run $pc.skillExperienceGain('inhibition',rand(1,3))>>

					<</if>>
					<<if getvar("$swamp_clothes") == 0>>
						<<gs 'clothing' 'strip_all' $forest_args1>>
					<<elseif getvar("$swamp_clothes") == 1>>
						<<gs 'clothing' 'strip_all' 'gadforest'>>
						<<gs 'clothing' 'swamp_clothes' 0>>
					<</if>>
					<<if getvar("$CloSkirtShortness") == 0>>
						<<image "locations/gadukino/forest/nudeforest.jpg">>

					<</if>>
					<<if getvar("$CloSkirtShortness") > 0>>
						<<image "locations/gadukino/forest/nudeforest1.#.jpg" 1 2>>

					<</if>>
					You quickly get undressed, leaving your clothes in a neat pile on the ground.
					<<if $forest_args1 == 'swamp_woods'>>
						<<act 'Continue'>>
							<<gt 'swamp_woods' 'start'>>
						<</act>>
					<<else>>
						<<actCLA 'Continue'>>
							<<gt 'gadforest' $forest_args1>>
						<</actCLA>>
					<</if>>
				<</actCLA>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<!-- ! this gs handles dressing for Sveta in the various locations of the forest-->
<!-- ! $forest_args1 - location of forest where this is called from-->
<!-- ! Example: gs 'gadforest', 'dressing'-->
<<if $location_var[$here][0] == 'dressing'>>
	<!-- ! code for different variations of getting dressed or dealing with clothes left in the forest-->
	<<if getvar("$clothesAtLocation") == 1>>
		<<if $wardrobe.clothingworntype == 'nude'>>
			<<actCLA 'Get dressed (0:05)'>>
				<<set $menu_off = 1>>
				<<set $time.minutes += 5>>
				<<gs 'clothing' 'swamp_clothes' 0>>
				<<gs 'underwear' 'wear'>>
				<<gs 'clothing' 'recover_lost_clothes' $forest_args1 1>>
				<<if getvar("$CloSkirtShortness") == 0>>
					<<image "locations/gadukino/forest/nudeforest.jpg">>

				<</if>>
				<<if getvar("$CloSkirtShortness") > 0>>
					<<image "locations/gadukino/forest/nudeforest1.#.jpg" 1 2>>

				<</if>>
				You change back into your clothes.
				<<if $forest_args1 == 'swamp_woods'>>
					<<act 'Continue'>>
						<<gt 'swamp_woods' 'start'>>
					<</act>>
				<<else>>
					<<actCLA 'Continue'>>
						<<gt 'gadforest' $forest_args1>>
					<</actCLA>>
				<</if>>
			<</actCLA>>
		<<elseif $wardrobe.clothingworntype != 'nude'>>
			<!-- ! hessian sack from hunters is not allowed to leave the woods it is only supposed to be a temporary item-->
			<<if $wardrobe.clothingworntype == 'misc_oufits' and $wardrobe.clothingwornnumber == 1>>
				<<actCLA 'Wear your abandoned clothing (0:05)'>>
					<<set $menu_off = 1>>
					<<set $time.minutes += 5>>
					<<gs 'clothing' 'swamp_clothes' 0>>
					<<gs 'underwear' 'wear'>>
					<<gs 'clothing' 'recover_lost_clothes' $forest_args1 1>>
					<<if getvar("$CloSkirtShortness") == 0>>
						<<image "locations/gadukino/forest/nudeforest.jpg">>

					<</if>>
					<<if getvar("$CloSkirtShortness") > 0>>
						<<image "locations/gadukino/forest/nudeforest1.#.jpg" 1 2>>

					<</if>>
					You wear your abandoned clothing and get rid of the hessian sack the hunters gave you.
					<<if $forest_args1 == 'swamp_woods'>>
						<<act 'Continue'>>
							<<gt 'swamp_woods' 'start'>>
						<</act>>
					<<else>>
						<<actCLA 'Continue'>>
							<<gt 'gadforest' $forest_args1>>
						<</actCLA>>
					<</if>>
				<</actCLA>>
			<<else>>
				<<actCLA 'Pick up your abandoned clothing (0:05)'>>
					<<set $menu_off = 1>>
					<<set $time.minutes += 5>>
					<<gs 'clothing' 'swamp_clothes' 0>>
					<<gs 'underwear' 'wear'>>
					<<gs 'clothing' 'recover_lost_clothes' $forest_args1>>
					You pick up your abandoned clothing.
					<<if $forest_args1 == 'swamp_woods'>>
						<<act 'Continue'>>
							<<gt 'swamp_woods' 'start'>>
						<</act>>
					<<else>>
						<<actCLA 'Continue'>>
							<<gt 'gadforest' $forest_args1>>
						<</actCLA>>
					<</if>>
				<</actCLA>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<!-- ! this gs handles walking for Sveta in the various locations of the forest-->
<!-- ! $forest_args1 - location of forest where this is called from-->
<!-- ! Example: gs 'gadforest', 'walking'-->
<<if $location_var[$here][0] == 'walking'>>
	<<if $time.hour >= 6 and $time.hour <= 22>>
		<!-- ! Mira only goes to the forest edge-->
		<<if getvar("$MiraLoc") == 3 and $forest_args1 == 'forest_edge'>>
			<<actCLA 'Go for a walk in the woods with Mira (1:00)'>>
				<<set $menu_off = 1>>
				<<set $time.minutes += 60>>
				<<set $pc.mood += 20>>
				<<set $pc.pcs_health += $pc.healthmax / 5>>
				<<gs 'gadforest' 'bushcraft' $forest_args1>>
				<<if $wardrobe.clothingworntype == 'nude'>>
					<<if $pc.pcs_inhib < 50>>
						<<run $pc.skillExperienceGain('inhibition',rand(1,5))>>

					<</if>>
					<<arouse 'flash' 5 >>
					
				<</if>>
				<<if $time.month >= 4 and $time.month <= 10>>
					<!-- !  25% chance of finding meadow (needed to advance Miras quest)-->
					<<if rand(0,4) == 0 and getvar("$meadow") == 0 and $forest_args1 == 'forest_edge'>>
						<<gt 'gadforest_event' 'find_meadow'>>
					<<else>>
						<<if $wardrobe.clothingworntype != 'nude'>>
							<<image "characters/gadukino/mira/miraforest#.jpg" 1 3>>

						<</if>>
						<<if $wardrobe.clothingworntype == 'nude'>>
							<<image "characters/gadukino/mira/miraforest_nude#.jpg" 1 3>>

						<</if>>
						You spend an hour walking with Mira through the woods, chatting and enjoying the sounds of the forest and the fresh air.
					<</if>>
				<<else>>
					<<image "characters/gadukino/mira/miraforestwinter.jpg">>
					You spend an hour walking with Mira through the snowy woods, chatting and enjoying the sounds of the forest and the fresh air.
				<</if>>
				<<actCLA 'Continue'>>
					<<gt 'gadforest' $forest_args1>>
				<</actCLA>>
			<</actCLA>>
		<<else>>
			<<actCLA 'Go for a walk in the woods (1:00)'>>
				<<set $menu_off = 1>>
				<<set $time.minutes += 60>>
				<<set $pc.mood += 20>>
				<<set $pc.pcs_health += $pc.healthmax / 5>>
				<<gs 'gadforest' 'bushcraft' $forest_args1>>
				<<if $wardrobe.clothingworntype == 'nude' and $pc.pcs_inhib < 50>>
					<<run $pc.skillExperienceGain('inhibition',rand(1,5))>>

				<</if>>
				<!-- ! 10% chance of finding meadow (needed to advance Miras quest)-->
				<<if rand(0,9) == 0 and getvar("$meadow") == 0 and $forest_args1 == 'forest_edge'>>
					<<gt 'gadforest_event' 'find_meadow'>>
				<<else>>
					<<if $time.month >= 4 and $time.month <= 10>>
						<<if ($wardrobe.clothingworntype != 'nude' and !$wardrobe.isWearingSwimwear) and getvar("$CloSkirtShortness") == 0>>
							<<image "locations/gadukino/forest/gulforest0.#.jpg" 1 2>>

						<</if>>
						<<if ($wardrobe.clothingworntype != 'nude' and !$wardrobe.isWearingSwimwear) and $wardrobe.isWearingPanties and getvar("$CloSkirtShortness") > 0>>
							<<image "locations/gadukino/forest/gulforest1.#.jpg" 1 3>>

						<</if>>
						<<if ($wardrobe.clothingworntype != 'nude' and !$wardrobe.isWearingSwimwear) and !$wardrobe.isWearingPanties and getvar("$CloSkirtShortness") > 0>>
							<<image "locations/gadukino/forest/gulforest_tanga0.#.jpg" 1 2>>

						<</if>>
						<<if $wardrobe.clothingworntype == 'nude'>>
							<<image "locations/gadukino/forest/gulforest_nude0.#.jpg" 1 4>>

						<</if>>
						You spend an hour walking through the woods, enjoying the sounds of the forest and the fresh air.
					<<else>>
						<<image "locations/gadukino/forest/gulforestwinter0.#.jpg" 1 6>>
						You spend an hour walking through the snowy woods, enjoying the sounds of the forest and the fresh air.
					<</if>>
					<<if $forest_args1 == 'swamp_woods'>>
						<<act 'Continue'>>
							<<gt 'swamp_woods' 'start'>>
						<</act>>
					<<else>>
						<<actCLA 'Continue'>>
							<<gt 'gadforest' $forest_args1>>
						<</actCLA>>
					<</if>>
				<</if>>
			<</actCLA>>
		<</if>>
	<</if>>
<</if>>
<!-- ! this gs handles mushroom and berry picking for Sveta in the various locations of the forest-->
<!-- ! $forest_args1 - location of forest where this is called from-->
<!-- ! Example: gs 'gadforest', 'picking'-->
<<if $location_var[$here][0] == 'picking'>>
	<<if $time.hour >= 6 and $time.hour <= 22 and $time.month >= 6 and $time.month <= 9 and $boletus + $boletus_cooked + getvar("$bilberry") < 5>>
		<<if ($forest_args1 == 'forest_edge' and $edge_pickingday != $time.daystart) or ($forest_args1 == 'forest_outskirts' and $outskirts_pickingday != $time.daystart) or ($forest_args1 == 'forest_center' and $center_pickingday != $time.daystart) or ($forest_args1 == 'swamp_woods' and $swamp_pickingday != $time.daystart)>>
			<<actCLA 'Look for mushrooms and berries'+iif(MiraLoc = 3 and $forest_args1 = 'forest_edge', ' with Mira (0:30)',' (0:30)')>>
				<<set $menu_off = 1>>
				<<if $forest_args1 == 'forest_edge'>>
					<<set $edge_pickingday = $time.daystart>>
					<<set $mushroom_pickers_check = 1>>
					<<set $max_boletus = 1>>
					<<set $max_bilberry = 1>>
				<<elseif $forest_args1 == 'forest_outskirts'>>
					<<set $outskirts_pickingday = $time.daystart>>
					<<set $mushroom_pickers_check = 2>>
					<<set $max_boletus = 2>>
					<<set $max_bilberry = 2>>
				<<elseif $forest_args1 == 'forest_center'>>
					<<set $center_pickingday = $time.daystart>>
					<<set $mushroom_pickers_check = 3>>
					<<set $max_boletus = 3>>
					<<set $max_bilberry = 3>>
				<<elseif $forest_args1 == 'swamp_woods'>>
					<<set $swamp_pickingday = $time.daystart>>
					<<set $mushroom_pickers_check = 4>>
					<<set $max_boletus = 4>>
					<<set $max_bilberry = 4>>
				<</if>>
				<<set $time.minutes += 30>>
				<<set $new_boletus = 0>>
				<<set $new_bilberry = 0>>
				<<gs 'gadforest' 'bushcraft' $forest_args1>>
				<<if $wardrobe.clothingworntype == 'nude'>>
					<<if $pc.pcs_inhib < 50>>
						<<run $pc.skillExperienceGain('inhibition',rand(1,5))>>

					<</if>>
					<<if getvar("$MiraLoc") == 3 and $forest_args1 == 'forest_edge'>>
						<<arouse 'flash' 5 >>
						
					<</if>>
				<</if>>
				<!-- ! mushroom_pickers are not at the location of the forest Sveta is in-->
				<<if $mushroom_pickers != $mushroom_pickers_check>>
					<<set $new_boletus += $max_boletus>>
					<<set $new_bilberry += $max_bilberry>>
					<<set $boletus += $new_boletus>>
					<<set $bilberry += $new_bilberry>>
					<<set $pc.mood += 10>>
					<<gs 'gadforest' 'picking_clothes' $forest_args1 'berry'>>
					After searching for mushrooms and berries for half an hour, you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.
					<!-- ! mushroom pickers are at the location of the forest Sveta is in-->
				<<elseif $mushroom_pickers == $mushroom_pickers_check>>
					<<set $new_boletus += rand(0,max_boletus)>>
					<<set $new_bilberry += rand(0,max_bilberry)>>
					<<set $boletus += $new_boletus>>
					<<set $bilberry += $new_bilberry>>
					<<if getvar("$new_boletus") > 0 and getvar("$new_bilberry") > 0>>
						<<set $pc.mood += 10>>
						<<gs 'gadforest' 'picking_clothes' $forest_args1 'berry'>>
						After searching for mushrooms and berries for half an hour, you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.
					<<elseif getvar("$new_boletus") == 0 and getvar("$new_bilberry") > 0>>
						<<set $pc.mood += 5>>
						<<gs 'gadforest' 'picking_clothes' $forest_args1 'berry'>>
						After searching for mushrooms and berries for half an hour, you found <<new_bilberry>> kg of berries.
					<<elseif getvar("$new_boletus") > 0 and getvar("$new_bilberry") == 0>>
						<<set $pc.mood += 5>>
						<<gs 'gadforest' 'picking_clothes' $forest_args1 'mushroom'>>
						After searching for mushrooms and berries for half an hour, you found <<new_boletus>> kg of mushrooms.
					<<elseif getvar("$new_boletus") == 0 and getvar("$new_bilberry") == 0>>
						<<set $pc.mood -= 5>>
						<<gs 'gadforest' 'picking_clothes_empty' $forest_args1>>
						After searching for mushrooms and berries for half an hour, you found nothing.
					<</if>>
				<</if>>
				<<if $forest_args1 == 'swamp_woods'>>
					<<act 'Continue'>>
						<<gt 'swamp_woods' 'start'>>
					<</act>>
				<<else>>
					<<actCLA 'Continue'>>
						<<gt 'gadforest' $forest_args1>>
					<</actCLA>>
				<</if>>
			<</actCLA>>
		<</if>>
	<</if>>
<</if>>
<!-- ! 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-->
<!-- ! $larg(1) - location of forest where this is called from-->
<!-- ! $larg(2) - whether you want images for mushrooms or berries-->
<!-- ! Example: gs 'gadforest', 'picking_clothes', 'forest_edge', 'mushroom'-->
<<if $location_var[$here][0] == 'picking_clothes'>>
	<<if $location_var[$here][2] == 'mushroom'>>
		<<if getvar("$MiraLoc") == 3 and $location_var[$here][1] == 'forest_edge'>>
			<<if $wardrobe.clothingworntype != 'nude'>>
				<<image "characters/gadukino/mira/miramushroom#.jpg" 1 2>>

			<</if>>
			<<if $wardrobe.clothingworntype == 'nude'>>
				<<image "characters/gadukino/mira/miramushroom_nude#.jpg" 1 2>>

			<</if>>
		<<else>>
			<<if $wardrobe.clothingworntype == 'nude'>>
				<<image "locations/gadukino/forest/mushroom4.#.jpg" 1 3>>

			<</if>>
			<<if $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt == 0>>
				<<image "locations/gadukino/forest/mushroom1.jpg">>

			<</if>>
			<<if $wardrobe.clothingworntype != 'nude' and $wardrobe.isWearingPanties and $wardrobe.PCloSkirt > 0>>
				<<image "locations/gadukino/forest/mushroom2.jpg">>

			<</if>>
			<<if $wardrobe.clothingworntype != 'nude' and !$wardrobe.isWearingPanties and $wardrobe.PCloSkirt > 0>>
				<<image "locations/gadukino/forest/mushroom3.jpg">>

			<</if>>
		<</if>>
	<<elseif $location_var[$here][2] == 'berry'>>
		<<if getvar("$MiraLoc") == 3 and $location_var[$here][1] == 'forest_edge'>>
			<<if $wardrobe.clothingworntype != 'nude'>>
				<<image "characters/gadukino/mira/miramushroom#.jpg" 1 2>>

			<</if>>
			<<if $wardrobe.clothingworntype == 'nude'>>
				<<image "characters/gadukino/mira/miramushroom_nude#.jpg" 1 2>>

			<</if>>
		<<else>>
			<<if $wardrobe.clothingworntype == 'nude'>>
				<<image "locations/gadukino/forest/mushroom4.#.jpg" 1 3>>

			<</if>>
			<<if $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt == 0>>
				<<image "locations/gadukino/forest/blueberry_picking_#.jpg" 3 6>>

			<</if>>
			<<if $wardrobe.clothingworntype != 'nude' and $wardrobe.isWearingPanties and $wardrobe.PCloSkirt > 0>>
				<<image "locations/gadukino/forest/blueberry_picking_2.jpg">>

			<</if>>
			<<if $wardrobe.clothingworntype != 'nude' and !$wardrobe.isWearingPanties and $wardrobe.PCloSkirt > 0>>
				<<image "locations/gadukino/forest/blueberry_picking_1.jpg">>

			<</if>>
		<</if>>
	<</if>>
<</if>>
<!-- ! 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-->
<!-- ! $larg(1) - location of forest where this is called from-->
<!-- ! Example: gs 'gadforest', 'picking_clothes_empty', 'forest_edge'-->
<<if $location_var[$here][0] == 'picking_clothes_empty'>>
	<<if getvar("$MiraLoc") == 3 and $location_var[$here][1] == 'forest_edge'>>
		<<if $wardrobe.clothingworntype != 'nude'>>
			<<image "characters/gadukino/mira/miramushroom3.jpg">>

		<</if>>
		<<if $wardrobe.clothingworntype == 'nude'>>
			<<image "characters/gadukino/mira/miramushroom_nude3.jpg">>

		<</if>>
	<<else>>
		<<if $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt == 0>>
			<<image "locations/gadukino/forest/gulforest2.jpg">>

		<</if>>
		<<if $wardrobe.clothingworntype != 'nude' and $wardrobe.isWearingPanties and $wardrobe.PCloSkirt > 0>>
			<<image "locations/gadukino/forest/gulforest3.jpg">>

		<</if>>
		<<if $wardrobe.clothingworntype != 'nude' and !$wardrobe.isWearingPanties and $wardrobe.PCloSkirt > 0>>
			<<image "locations/gadukino/forest/gulforest_tanga1.#.jpg" 1 2>>

		<</if>>
		<<if $wardrobe.clothingworntype == 'nude'>>
			<<image "locations/gadukino/forest/gulforest_nude1.#.jpg" 1 4>>

		<</if>>
	<</if>>
<</if>>