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

:: gadforestlost[mod mod_gad]
<<set $here = 'gadforestlost'>>
<<set $ARGS = $location_var[$here]>>
<!-- ! this file holds all the current code and events for player when lost-->
<!-- ! it is structured like the normal gadforest file with similar actions and arguments but with unique events-->
<<if $location_var[$here][0] == 'forest_outskirts'>>
	<<set $loc = 'gadforestlost'>>
	<<set $loc_arg = 'forest_outskirts'>>
	<<set $location_type = 'secluded'>>
	<<set $menu_loc = 'gadforestlost'>>
	<<set $menu_arg = 'forest_outskirts'>>
	<<set $menu_off = 0>>
	<<set $forest_args1 = 'forest_outskirts'>>
	<<gs 'gadukino_event' 'sound'>>
	<<gs 'gadforestlost' 'gadforestlost_picture'>>
	<!-- ! having a bonfire increases chances of being rescued and decreases chances of wolves attacking-->
	<<set $foresteventrand = rand(1,40)>>
	<<if $foresteventrand <= (2+(bonfire*5)) and $time.daystart >= $forest_lostday 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 'gadforestlost' 'rescue' 'pickers' 'forest_outskirts'>>

	<</if>>
	<<if $foresteventrand <= (4+(bonfire*5)) and $time.daystart > $forest_lostday and $time.month >= 4 and $time.month <= 10 and (($time.hour >= 8 and $time.hour < 12) or ($time.hour >= 14 and $time.hour < 18)) and $time.daystart > $forest_lostday + 1>>
		<<gt 'gadforestlost' 'rescue' 'hunters' 'forest_outskirts'>>

	<</if>>
	<<if $foresteventrand <= (6+(bonfire*5)) and $time.daystart > $forest_lostday>>
		<<gt 'gadforestlost' 'rescue' 'ranger' 'forest_outskirts'>>

	<</if>>
	<<if $foresteventrand <= (8-(bonfire*5)) and ($time.hour < 6 or $time.hour > 22)>>
		<<gt 'gadforestlost' 'wolves' 'forest_outskirts'>>

	<</if>>
	<<gs 'gadforestlost' 'wander'>>
	<<act 'Relax here for a bit'>>
		<<gt 'gadforestlost' 'relax'>>
	<</act>>
	<<gs 'gadforestlost' 'picking'>>
<</if>>
<<if $location_var[$here][0] == 'forest_center'>>
	<<set $loc = 'gadforestlost'>>
	<<set $loc_arg = 'forest_center'>>
	<<set $location_type = 'secluded'>>
	<<set $menu_loc = 'gadforestlost'>>
	<<set $menu_arg = 'forest_center'>>
	<<set $menu_off = 0>>
	<<set $forest_args1 = 'forest_center'>>
	<<gs 'gadukino_event' 'sound'>>
	<<gs 'gadforestlost' 'gadforestlost_picture'>>
	<!-- ! having a bonfire increases chances of being rescued and decreases chances of wolves attacking-->
	<<set $foresteventrand = rand(1,40)>>
	<<if $foresteventrand <= (1+(bonfire*2)) and $time.daystart > $forest_lostday and $time.month >= 4 and $time.month <= 10 and (($time.hour >= 8 and $time.hour < 12) or ($time.hour >= 14 and $time.hour < 18)) and $time.daystart > $forest_lostday>>
		<<gt 'gadforestlost' 'rescue' 'hunters' 'forest_center'>>

	<</if>>
	<<if $foresteventrand <= (3+(bonfire*2)) and $time.daystart > $forest_lostday + 1>>
		<<gt 'gadforestlost' 'rescue' 'ranger' 'forest_center'>>

	<</if>>
	<<if $foresteventrand <= (8-(bonfire*2)) and ($time.hour < 6 or $time.hour > 22)>>
		<<gt 'gadforestlost' 'wolves' 'forest_center'>>

	<</if>>
	<<gs 'gadforestlost' 'wander'>>
	<<act 'Relax here for a bit'>>
		<<gt 'gadforestlost' 'relax'>>
	<</act>>
	<<gs 'gadforestlost' 'picking'>>
<</if>>
<!-- ! this gs handles the bushcraft increases, clothing degradation, while lost in the forest-->
<!-- ! $larg(1) - location of forest where this is called from-->
<!-- ! Example: gs 'gadforestlost', 'bushcraft', 'forest_outskirts'-->
<<if $location_var[$here][0] == 'bushcraft'>>
	<<if $location_var[$here][1] == 'forest_outskirts'>>
		<<set $bushcraft_rand = 2>>
		<<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_lost = 30>>
		<<set $torncloth_high_bushcraft = 8>>
		<<set $torncloth_low_bushcraft = 5>>
	<</if>>
	<!-- ! No limit on earning bushcraft while lost but still random-->
	<<run $pc.skillExperienceGain('bushcraft',rand(0,bushcraft_rand))>>
	<<set $ripclothesrand = rand(1,10)>>
	<<if $pc.skillLevel("bushcraft") < $bushcraft_limit>>
		<<if $ripclothesrand >= $torncloth_low_bushcraft>>
			<<gs 'gadforest' 'torncloth'>>

		<</if>>
	<<else>>
		<<if $ripclothesrand >= $torncloth_high_bushcraft>>
			<<gs 'gadforest' 'torncloth'>>

		<</if>>
	<</if>>
<</if>>
<!-- ! this gs handles Sveta trying to find her way in the forest when lost-->
<!-- ! $forest_args1 - location of forest where this is called from-->
<!-- ! Example: gs 'gadforestlost', 'wander'-->
<<if $location_var[$here][0] == 'wander'>>
	<<if $time.dayStage < 4>>
		<<actCLA 'Wander trying to get your bearings (1:30)'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 90>>
			<<gs 'gadforestlost' 'bushcraft' $forest_args1>>
			<h2>Somewhere in the forest</h2>
			<<if $wardrobe.clothingworntype == 'nude'>>
				<<image "locations/gadukino/forest/gadforestsearch_nude0.#.jpg" 1 4>>

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

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

			<</if>>
			<<if $pc.skillLevel("bushcraft") < $bushcraft_lost>>
				<<set $lostrand = rand(1,bushcraft_lost)>>
				<<if $pc.skillLevel("bushcraft") > $lostrand>>
					<<gt 'gadforestlost' 'finish' $forest_args1>>
				<<else>>
					After half an hour wandering around, you feel like all you've accomplished is walking in circles.
					<<actCLA 'Continue'>>
						<<gt 'gadforestlost' $forest_args1>>
					<</actCLA>>
				<</if>>
			<<else>>
				<<gt 'gadforestlost' 'finish' $forest_args1>>
			<</if>>
		<</actCLA>>
	<</if>>
<</if>>
<!-- ! $forest_args1 - location of forest where this is called from-->
<!-- ! Example: gt 'gadforestlost', 'relax'-->
<<if $location_var[$here][0] == 'relax'>>
	<<set $loc = 'gadforestlost'>>
	<<set $loc_arg = 'relax'>>
	<<set $location_type = 'secluded'>>
	<<set $menu_loc = 'gadforestlost'>>
	<<set $menu_arg = 'relax'>>
	<<set $menu_off = 0>>
	<<gs 'gadukino_event' 'sound'>>
	<<if $forest_args1 == 'forest_outskirts'>>
		<!-- ! having a bonfire increases chances of being rescued and decreases chances of wolves attacking-->
		<<set $foresteventrand = rand(1,30)>>
		<<if $foresteventrand <= (2+(bonfire*5)) and $time.daystart >= $forest_lostday 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 'gadforestlost' 'rescue' 'pickers' $forest_args1>>

		<</if>>
		<<if $foresteventrand <= (4+(bonfire*5)) and $time.daystart > $forest_lostday and $time.month >= 4 and $time.month <= 10 and (($time.hour >= 8 and $time.hour < 12) or ($time.hour >= 14 and $time.hour < 18))>>
			<<gt 'gadforestlost' 'rescue' 'hunters' $forest_args1>>

		<</if>>
		<<if $foresteventrand <= (6+(bonfire*5)) and $time.daystart > $forest_lostday + 1>>
			<<gt 'gadforestlost' 'rescue' 'ranger' $forest_args1>>

		<</if>>
	<<elseif $forest_args1 == 'forest_center'>>
		<!-- ! having a bonfire increases chances of being rescued and decreases chances of wolves attacking-->
		<<set $foresteventrand = rand(1,40)>>
		<<if $foresteventrand <= (1+(bonfire*5)) and $time.daystart > $forest_lostday and $time.month >= 4 and $time.month <= 10 and (($time.hour >= 8 and $time.hour < 12) or ($time.hour >= 14 and $time.hour < 18))>>
			<<gt 'gadforestlost' 'rescue' 'hunters' $forest_args1>>

		<</if>>
		<<if $foresteventrand <= (3+(bonfire*5)) and $time.daystart > $forest_lostday + 1>>
			<<gt 'gadforestlost' 'rescue' 'ranger' $forest_args1>>

		<</if>>
	<</if>>
	<h2>Somewhere in the forest</h2>
	<<if $wardrobe.clothingworntype == 'nude'>>
		<<image "locations/gadukino/forest/gadforestrelax_nude#.jpg" 1 3>>

	<</if>>
	<<if $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt == 0 and getvar("$bonfire") == 0>>
		<<image "locations/gadukino/forest/gadforestrelax1.jpg">>

	<</if>>
	<<if $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt == 0 and getvar("$bonfire") == 1>>
		<<image "locations/gadukino/forest/gadforestrelax2.jpg">>

	<</if>>
	<<if $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt > 0 and getvar("$bonfire") == 0>>
		<<image "locations/gadukino/forest/gadforestrelax_ski1.jpg">>

	<</if>>
	<<if $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt > 0 and $wardrobe.isWearingPanties and getvar("$bonfire") == 1>>
		<<image "locations/gadukino/forest/gadforestrelax_ski2.jpg">>

	<</if>>
	<<if $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt > 0 and !$wardrobe.isWearingPanties and getvar("$bonfire") == 1>>
		<<image "locations/gadukino/forest/gadforestrelax_ski3.jpg">>

	<</if>>
	You decide this is as good of place as any to stop and take a break.
	<<if getvar("$bonfire") == 0>>
		<font color="red">You should build a bonfire to increase the chance of being rescued and decrease the chance of being attacked by wolves.</font>
	<<else>>
		<font color="green">Your bonfire burns bright, increasing the chance of being rescued and decreasing the chance of being attacked by wolves.</font>
	<</if>>
	<<actCLA 'Explore the forest'>>
		<<gt 'gadforestlost' $forest_args1>>
	<</actCLA>>
	<<if getvar("$bonfire") == 0>>
		<<actCLA 'Build a fire (0:30)'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 30>>
			<<set $bonfire = 1>>
			<<image "locations/gadukino/forest/gadforestrelax_bonfire1.jpg">>
			After a few minutes, you are able to get a nice sized fire started.
			<<act 'Continue'>>
				<<gt 'gadforestlost' 'relax'>>
			<</act>>
		<</actCLA>>
		<<actCLA 'Sit and relax (1:00)'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 60>>
			<<if $wardrobe.clothingworntype == 'nude'>>
				<<image "locations/gadukino/forest/gadforestrelax_nude#.jpg" 1 2>>

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

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

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

			<</if>>
			You spend half an hour relaxing, trying to pretend this is just like any other walk in the woods you've done.
			<<act 'Continue'>>
				<<gt 'gadforestlost' 'relax'>>
			<</act>>
		<</actCLA>>
		<<if $pc.pcs_sleep < 40>>
			<<actCLA 'Nap on the ground (2:00)'>>
				<<set $menu_off = 1>>
				<<set $time.minutes += 120>>
				<<set $pc.pcs_sleep += 20>>
				<<set $pc.pcs_health += 5>>
				<<set $pc.mood += 10>>
				<<if $wardrobe.clothingworntype == 'nude'>>
					<<image "locations/gadukino/forest/gadforestrelax_sleepnude1.#.jpg" 1 2>>

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

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

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

				<</if>>
				You are able to make youself fall asleep for about 2 hours, but that is it. If you want to get a full nights sleep you will have to find a way out of the forest.
				Even though you had to sleep on the ground, you do wake up feeling a bit more hopeful and rested.
				<<act 'Continue'>>
					<<gt 'gadforestlost' 'relax'>>
				<</act>>
			<</actCLA>>
		<</if>>
	<<elseif getvar("$bonfire") == 1>>
		<<actCLA 'Warm up by the fire (1:00)'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 60>>
			<<if $pc.frost > 0>>
				<<setn $pc.frost -= 1>>

			<</if>>
			<<if $time.hour >= 6 and $time.hour < 21>>
				<<image "locations/gadukino/forest/gadforestrelax_bonfire2.jpg">>
			<<else>>
				<<image "locations/gadukino/forest/gadforestrelax_bonfire3.jpg">>
			<</if>>
			You spend half an hour huddled by the flames
			<<act 'Continue'>>
				<<gt 'gadforestlost' 'relax'>>
			<</act>>
		<</actCLA>>
		<<if $pc.pcs_sleep < 40>>
			<<actCLA 'Nap by the fire (2:00)'>>
				<<set $menu_off = 1>>
				<<set $time.minutes += 120>>
				<<set $pc.pcs_sleep += 20>>
				<<set $pc.pcs_health += 10>>
				<<set $pc.mood += 20>>
				<<set $pc.frost = 0>>
				<<image "locations/gadukino/forest/gadforestrelax_bonfiresleep.jpg">>
				You are able to make youself fall asleep for about 2 hours, but that is it. If you want to get a full nights sleep you will have to find a way out of the forest.
				Even though you had to sleep on the ground, you do wake up feeling a bit more hopeful and rested.
				<<act 'Continue'>>
					<<gt 'gadforestlost' 'relax'>>
				<</act>>
			<</actCLA>>
		<</if>>
		<<if getvar("$boletus") > 0>>
			<<actCLA 'Cook some mushrooms in the fire (0:15)'>>
				<<set $menu_off = 1>>
				<<set $time.minutes += 15>>
				<<set $boletus_cooked += 1>>
				<<set $boletus -= 1>>
				<<set $pc.frost = 0>>
				<<image "locations/gadukino/forest/boletushot.jpg">>
				You spend 15 minutes grilling some mushrooms in the fire.
				<<act 'Continue'>>
					<<gt 'gadforestlost' 'relax'>>
				<</act>>
			<</actCLA>>
		<</if>>
	<</if>>
	<<if getvar("$boletus_cooked") > 0>>
		<<actCLA 'Eat cooked mushrooms (0:15)'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 15>>
			<<set $boletus_cooked -= 1>>
			<<set $pc.pcs_health += 10>>
			<<set $pc.mood += 10>>
			<<set $pc.fat += 1>>
			<<set $pc.pcs_energy += 20>>
			<<image "locations/gadukino/forest/boletuscook.jpg">>
			You eat some cooked mushrooms. They are pretty tasty considering your circumstances.
			<<act 'Continue'>>
				<<gt 'gadforestlost' 'relax'>>
			<</act>>
		<</actCLA>>
	<</if>>
	<<if getvar("$bilberry") > 0>>
		<<actCLA 'Eat berries (0:15)'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 15>>
			<<set $bilberry -= 1>>
			<<set $pc.pcs_health += 10>>
			<<set $pc.mood += 10>>
			<<set $pc.fat += 1>>
			<<set $pc.pcs_energy += 10>>
			<<set $pc.pcs_hydra += 10>>
			<<image "locations/gadukino/forest/bilberry.jpg">>
			You eat some berries. These would be great to eat even if you weren''t lost.
			<<act 'Continue'>>
				<<gt 'gadforestlost' 'relax'>>
			<</act>>
		<</actCLA>>
	<</if>>
<</if>>
<!-- ! this gs handles mushroom and berry picking for Sveta in the various locations of the forest when she is lost-->
<!-- ! $forest_args1 - location of forest where this is called from-->
<!-- ! Example: gs 'gadforestlost', 'picking'-->
<<if $location_var[$here][0] == 'picking'>>
	<<if $time.dayStage < 4 and $time.month >= 6 and $time.month <= 9 and $boletus + $boletus_cooked + getvar("$bilberry") < 5>>
		<<actCLA 'Look for mushrooms and berries (0:30)'>>
			<<set $menu_off = 1>>
			<<if $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>>
			<</if>>
			<<set $time.minutes += 30>>
			<<set $new_boletus = 0>>
			<<set $new_bilberry = 0>>
			<<gs 'gadforestlost' 'bushcraft' $forest_args1>>
			<<if $wardrobe.clothingworntype == 'nude' and $pc.pcs_inhib < 50>>
				<<run $pc.skillExperienceGain('inhibition',rand(1,5))>>

			<</if>>
			<<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.
			<<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>>
			<<actCLA 'Continue'>>
				<<gt 'gadforestlost' $forest_args1>>
			<</actCLA>>
		<</actCLA>>
	<</if>>
<</if>>
<!-- ! $larg(1) - location of forest where this is called from-->
<<if $location_var[$here][0] == 'finish'>>
	<<set $menu_off = 1>>
	<<set $bonfire = 0>>
	<<set $pc.mood += 20>>
	<<run $pc.skillExperienceGain('bushcraft',rand(1,5))>>
	<<gs 'clothing' 'swamp_clothes' 0>>
	<h2>Somewhere in the forest</h2>
	<<image "locations/gadukino/forest/gadjoy.jpg">>
	After half an hour wandering around, you finally see some familiar sights.
	<<if $wardrobe.clothingworntype == 'nude'>>
		<<if $location_var[$here][1] == 'forest_outskirts'>>
			<<actCLA 'Continue'>>
				<<if getvar("$meadow") > 0>>
					<<set $foresteventrand = rand(1,3)>>
				<<else>>
					<<set $foresteventrand = rand(1,2)>>
				<</if>>
				<<if getvar("$foresteventrand") == 1>>
					<<setn $time.minutes += 15>> <<gt 'gadforest' 'forest_edge'>>

				<</if>>
				<<if getvar("$foresteventrand") == 2>>
					<<gt 'gadforest' 'forest_outskirts'>>

				<</if>>
				<<if getvar("$foresteventrand") == 3>>
					<<setn $time.minutes += 35>> <<gt 'meadow' 'start'>>

				<</if>>
			<</actCLA>>
		<<elseif $location_var[$here][1] == 'forest_center'>>
			<<actCLA 'Continue'>>
				<<if getvar("$hunterscabin") == 1 and getvar("$meadow") > 0>>
					<<set $foresteventrand = rand(1,5)>>
				<<elseif getvar("$meadow") > 0>>
					<<set $foresteventrand = rand(1,4)>>
				<<else>>
					<<set $foresteventrand = rand(1,3)>>
				<</if>>
				<<if getvar("$foresteventrand") == 1>>
					<<setn $time.minutes += 30>> <<gt 'gadforest' 'forest_edge'>>

				<</if>>
				<<if getvar("$foresteventrand") == 2>>
					<<setn $time.minutes += 15>> <<gt 'gadforest' 'forest_outskirts'>>

				<</if>>
				<<if getvar("$foresteventrand") == 3>>
					<<gt 'gadforest' 'forest_center'>>

				<</if>>
				<<if getvar("$foresteventrand") == 4>>
					<<setn $time.minutes += 50>> <<gt 'meadow' 'start'>>

				<</if>>
				<<if getvar("$foresteventrand") == 5>>
					<<setn $time.minutes += 30>> <<gt 'swamp_yard' 'start'>>

				<</if>>
			<</actCLA>>
		<</if>>
	<<else>>
		<<if $location_var[$here][1] == 'forest_outskirts'>>
			<<actCLA 'Continue'>>
				<<if getvar("$meadow") > 0>>
					<<set $foresteventrand = rand(1,6)>>
				<<else>>
					<<set $foresteventrand = rand(1,5)>>
				<</if>>
				<<if getvar("$foresteventrand") == 1>>
					<<setn $time.minutes += 15>> <<gt 'gadforest' 'forest_edge'>>

				<</if>>
				<<if getvar("$foresteventrand") == 2>>
					<<gt 'gadforest' 'forest_outskirts'>>

				<</if>>
				<<if getvar("$foresteventrand") == 3>>
					<<setn $time.minutes += 40>> <<gt 'gadfield' 'field'>>

				<</if>>
				<<if getvar("$foresteventrand") == 4>>
					<<setn $time.minutes += 30>> <<gt 'gadroad'>>

				<</if>>
				<<if getvar("$foresteventrand") == 5>>
					<<setn $time.minutes += 40>> <<gt 'gadriver' 'start'>>

				<</if>>
				<<if getvar("$foresteventrand") == 6>>
					<<setn $time.minutes += 35>> <<gt 'meadow' 'start'>>

				<</if>>
			<</actCLA>>
		<<elseif $location_var[$here][1] == 'forest_center'>>
			<<actCLA 'Continue'>>
				<<if getvar("$hunterscabin") == 1 and getvar("$meadow") > 0>>
					<<set $foresteventrand = rand(1,8)>>
				<<elseif getvar("$meadow") > 0>>
					<<set $foresteventrand = rand(1,7)>>
				<<else>>
					<<set $foresteventrand = rand(1,6)>>
				<</if>>
				<<if getvar("$foresteventrand") == 1>>
					<<setn $time.minutes += 30>> <<gt 'gadforest' 'forest_edge'>>

				<</if>>
				<<if getvar("$foresteventrand") == 2>>
					<<setn $time.minutes += 15>> <<gt 'gadforest' 'forest_outskirts'>>

				<</if>>
				<<if getvar("$foresteventrand") == 3>>
					<<gt 'gadforest' 'forest_center'>>

				<</if>>
				<<if getvar("$foresteventrand") == 4>>
					<<setn $time.minutes += 55>> <<gt 'gadfield' 'field'>>

				<</if>>
				<<if getvar("$foresteventrand") == 5>>
					<<setn $time.minutes += 45>> <<gt 'gadroad'>>

				<</if>>
				<<if getvar("$foresteventrand") == 6>>
					<<setn $time.minutes += 55>> <<gt 'gadriver' 'start'>>

				<</if>>
				<<if getvar("$foresteventrand") == 7>>
					<<setn $time.minutes += 50>> <<gt 'meadow' 'start'>>

				<</if>>
				<<if getvar("$foresteventrand") == 8>>
					<<setn $time.minutes += 30>> <<gt 'swamp_yard' 'start'>>

				<</if>>
			<</actCLA>>
		<</if>>
	<</if>>
<</if>>
<!-- ! $larg(1) - who is rescuing player-->
<!-- ! $larg(2) - location of forest where this is called from-->
<<if $location_var[$here][0] == 'rescue'>>
	<<set $menu_off = 1>>
	<<set $bonfire = 0>>
	<<set $pc.mood += 20>>
	<<run $pc.skillExperienceGain('bushcraft',rand(1,5))>>
	<<set $lost_girl = 0>>
	<<if getvar("$swamp_clothes") == 1>>
		You remove the terrible excuse for clothing the hunters gave you. You're sure you can find something better to wear at your grandparents house.
		<<gs 'clothing' 'strip' 'gadforest'>>
		<<gs 'clothing' 'swamp_clothes' 0>>
	<</if>>
	<<if $location_var[$here][1] == 'pickers'>>
		<<image "locations/gadukino/forest/mushroom_pickers2.jpg">>
		Suddenly you hear the sounds of people approaching. A group of pickers from the village appear out of the bushes.
		<<if getvar("$bonfire") == 1>>
			They notice your fire and praise you, "When lost, it's very smart if you stay in one place and make a fire. It will keep you warm, and make you visible to others."

		<</if>>
		<<if getvar("$grandmaQW['block']") == 0>>
			'They walk up to you and say, "Your grandparents are very worried about you. They asked us to keep an eye out for you. Follow us, we will lead you back '+iif($wardrobe.clothingworntype ! 'nude','to their house."','to the edge of the forest."')
			<<if $wardrobe.clothingworntype != 'nude'>>
				<<if $location_var[$here][2] == 'forest_outskirts'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 45>> <<gt 'gadhouse' 'start'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'forest_center'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 60>> <<gt 'gadhouse' 'start'>>
					<</actCLA>>
				<</if>>
			<<else>>
				<<if $location_var[$here][2] == 'forest_outskirts'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 15>> <<gt 'gadforest' 'forest_edge'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'forest_center'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 30>> <<gt 'gadforest' 'forest_edge'>>
					<</actCLA>>
				<</if>>
			<</if>>
		<<else>>
			'They walk up to you and say, "We heard there may have been a missing girl in the forest. Follow us, we will lead you back '+iif($wardrobe.clothingworntype ! 'nude','out of the forest."','to the edge of the forest."')
			<<if $wardrobe.clothingworntype != 'nude'>>
				<<if $location_var[$here][2] == 'forest_outskirts'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 30>> <<gt 'gadroad'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'forest_center'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 45>> <<gt 'gadroad'>>
					<</actCLA>>
				<</if>>
			<<else>>
				<<if $location_var[$here][2] == 'forest_outskirts'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 15>> <<gt 'gadforest' 'forest_edge'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'forest_center'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 30>> <<gt 'gadforest' 'forest_edge'>>
					<</actCLA>>
				<</if>>
			<</if>>
		<</if>>
	<<elseif $location_var[$here][1] == 'hunters'>>
		<<image "locations/gadukino/hunters/hanters.jpg">>
		<<set 'Suddenly you hear the sounds of people approaching. ' + iif(hunters_were_met = 1,'The hunters from the swamp ','A group of hunters ') + 'appear out of the bushes.'>>
		<<if getvar("$bonfire") == 1>>
			They notice your fire and praise you, "When lost, it's very smart if you stay in one place and make a fire. It will keep you warm, and make you visible to others."

		<</if>>
		<<if getvar("$grandmaQW['block']") == 0>>
			They walk up to you and say, "Your grandparents are very worried about you. They asked us to keep an eye out for you. Follow us, you can stay at our camp for the time being until someone can take you back."
			<<if $location_var[$here][2] == 'forest_outskirts'>>
				<<actCLA 'Continue'>>
					<<set $time.minutes += 45>> <<gt 'hunter_interactions' 'meet_hunters_after_rescue'>>
				<</actCLA>>
			<<else>>
				<<actCLA 'Continue'>>
					<<set $time.minutes += 30>> <<gt 'hunter_interactions' 'meet_hunters_after_rescue'>>
				<</actCLA>>
			<</if>>
		<<else>>
			They walk up to you and say, "We heard there may have been a missing girl in the forest. Follow us, you can stay at our camp for the time being until someone can take you back."
			<<if $location_var[$here][2] == 'forest_outskirts'>>
				<<actCLA 'Continue'>>
					<<set $time.minutes += 45>> <<gt 'hunter_interactions' 'meet_hunters_after_rescue'>>
				<</actCLA>>
			<<else>>
				<<actCLA 'Continue'>>
					<<set $time.minutes += 30>> <<gt 'hunter_interactions' 'meet_hunters_after_rescue'>>
				<</actCLA>>
			<</if>>
		<</if>>
	<<elseif $location_var[$here][1] == 'ranger'>>
		<<image "locations/gadukino/hunters/forester.jpg">>
		Suddenly you hear the sound of a person approaching. A man you vaguely recognize from the village appears out of the bushes.
		<<if getvar("$bonfire") == 1>>
			They notice your fire and praise you, "When lost, it's very smart if you stay in one place and make a fire. It will keep you warm, and make you visible to others."

		<</if>>
		<<if getvar("$grandmaQW['block']") == 0>>
			'He walks up to you and says, "Your grandparents are very worried about you. They asked me to keep an eye out for you. Follow me, I will lead you back '+iif($wardrobe.clothingworntype ! 'nude','to their house."','to the edge of the forest."')
			<<if $wardrobe.clothingworntype != 'nude'>>
				<<if $location_var[$here][2] == 'forest_outskirts'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 45>> <<gt 'gadhouse' 'start'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'forest_center'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 60>> <<gt 'gadhouse' 'start'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'swamp_yard'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 90>> <<gt 'gadhouse' 'start'>>
					<</actCLA>>
				<</if>>
			<<else>>
				<<if $location_var[$here][2] == 'forest_outskirts'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 15>> <<gt 'gadforest' 'forest_edge'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'forest_center'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 30>> <<gt 'gadforest' 'forest_edge'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'swamp_yard'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 60>> <<gt 'gadforest' 'forest_edge'>>
					<</actCLA>>
				<</if>>
			<</if>>
		<<else>>
			'He walks up to you and says, "I heard there may have been a missing girl in the forest. Follow me, I will lead you back '+iif($wardrobe.clothingworntype ! 'nude','out of the forest."','to the edge of the forest."')
			<<if $wardrobe.clothingworntype != 'nude'>>
				<<if $location_var[$here][2] == 'forest_outskirts'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 30>> <<gt 'gadroad'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'forest_center'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 45>> <<gt 'gadroad'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'swamp_yard'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 75>> <<gt 'gadroad'>>
					<</actCLA>>
				<</if>>
			<<else>>
				<<if $location_var[$here][2] == 'forest_outskirts'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 15>> <<gt 'gadforest' 'forest_edge'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'forest_center'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 30>> <<gt 'gadforest' 'forest_edge'>>
					<</actCLA>>
				<<elseif $location_var[$here][2] == 'swamp_yard'>>
					<<actCLA 'Continue'>>
						<<set $time.minutes += 60>> <<gt 'gadforest' 'forest_edge'>>
					<</actCLA>>
				<</if>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<!-- ! $larg(1) - location of forest where this is called from-->
<<if $location_var[$here][0] == 'wolves'>>
	<<set $menu_off = 1>>
	<<image "locations/gadukino/forest/howl.jpg">>
	Suddenly your hear a terrifying howl nearby.
	<<actCLA 'Run away'>>
		<<gs 'exercise' 'tier4' 1 'run'>>
		<<image "locations/gadukino/forest/run.jpg">>
		Instincts take over and you begin running without a second thought.
		<<if $location_var[$here][1] == 'forest_edge'>>
			<<if $pc.skillLevel("bushcraft") < 80 and $pc.skillLevel("agility") < 70 and $pc.skillLevel("strength") < 70 and getvar("$Enable_nogameover") == 0>>
				<<set $foresteventrand = rand(1,7)>>
			<<else>>
				<<set $foresteventrand = rand(1,6)>>
			<</if>>
			<<if getvar("$foresteventrand") <= 3>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,3))>>
				<<image "locations/gadukino/forest/run_end2.jpg">>
				You are successful in escaping the wolves, but unfortunately are still in the forest.
			<<elseif getvar("$foresteventrand") <= 6>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,5))>>
				<<image "locations/gadukino/forest/run_end1.jpg">>
				You are successful in escaping the wolves, and also are no longer in the forest.
			<<elseif getvar("$foresteventrand") <= 7>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,2))>>
				<<image "locations/gadukino/forest/horror.jpg">>
				The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.
			<</if>>
			<<actCLA 'Continue'>>
				<<if getvar("$foresteventrand") <= 3>>
					<<gt 'gadforest' 'forest_edge'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 4>>
					<<gt 'gadfield' 'field'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 5>>
					<<gt 'gadroad'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 6>>
					<<gt 'gadriver' 'start'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 7>>
					<<set $pc.gameover= 11>> <<gt 'gameover'>>

				<</if>>
			<</actCLA>>
		<<elseif $location_var[$here][1] == 'forest_outskirts'>>
			<<if $pc.skillLevel("bushcraft") < 80 and $pc.skillLevel("agility") < 70 and $pc.skillLevel("strength") < 70 and getvar("$Enable_nogameover") == 0>>
				<<set $foresteventrand = rand(1,10)>>
			<<else>>
				<<set $foresteventrand = rand(1,9)>>
			<</if>>
			<<if getvar("$foresteventrand") <= 5>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,3))>>
				<<image "locations/gadukino/forest/run_end2.jpg">>
				You are successful in escaping the wolves, but unfortunately are still lost in the forest.
			<<elseif getvar("$foresteventrand") <= 9>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,5))>>
				<<image "locations/gadukino/forest/run_end1.jpg">>
				You are successful in escaping the wolves, and also are no longer lost as you recognize your surroundings.
			<<elseif getvar("$foresteventrand") <= 10>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,2))>>
				<<image "locations/gadukino/forest/horror.jpg">>
				The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.
			<</if>>
			<<actCLA 'Continue'>>
				<<if getvar("$foresteventrand") <= 3>>
					<<gt 'gadforestlost' 'forest_outskirts'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 5>>
					<<gt 'gadforest' 'forest_edge'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 6>>
					<<gt 'gadforest' 'forest_outskirts'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 7>>
					<<gt 'gadfield' 'field'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 8>>
					<<gt 'gadroad'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 9>>
					<<gt 'gadriver' 'start'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 10>>
					<<set $pc.gameover= 11>> <<gt 'gameover'>>

				<</if>>
			<</actCLA>>
		<<elseif $location_var[$here][1] == 'forest_center'>>
			<<if $pc.skillLevel("bushcraft") < 80 and $pc.skillLevel("agility") < 70 and $pc.skillLevel("strength") < 70 and getvar("$Enable_nogameover") == 0>>
				<<set $foresteventrand = rand(1,13)>>
			<<else>>
				<<set $foresteventrand = rand(1,2)>>
			<</if>>
			<<if getvar("$foresteventrand") <= 6>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,3))>>
				<<image "locations/gadukino/forest/run_end2.jpg">>
				You are successful in escaping the wolves, but unfortunately are still lost in the forest.
			<<elseif getvar("$foresteventrand") <= 12>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,5))>>
				<<image "locations/gadukino/forest/run_end1.jpg">>
				You are successful in escaping the wolves, and also are no longer lost as you recognize your surroundings.
			<<elseif getvar("$foresteventrand") <= 13>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,2))>>
				<<image "locations/gadukino/forest/horror.jpg">>
				The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.
			<</if>>
			<<actCLA 'Continue'>>
				<<if getvar("$foresteventrand") <= 2>>
					<<gt 'gadforestlost' 'forest_outskirts'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 6>>
					<<gt 'gadforestlost' 'forest_center'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 7>>
					<<gt 'gadforest' 'forest_edge'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 8>>
					<<gt 'gadforest' 'forest_outskirts'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 9>>
					<<gt 'gadforest' 'forest_center'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 10>>
					<<gt 'gadfield' 'field'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 11>>
					<<gt 'gadroad'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 12>>
					<<gt 'gadriver' 'start'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 13>>
					<<set $pc.gameover= 11>> <<gt 'gameover'>>

				<</if>>
			<</actCLA>>
		<<elseif $location_var[$here][1] == 'swamp'>>
			<<if $pc.skillLevel("bushcraft") < 80 and $pc.skillLevel("agility") < 70 and $pc.skillLevel("strength") < 70 and getvar("$Enable_nogameover") == 0>>
				<<set $foresteventrand = rand(1,14)>>
			<<else>>
				<<set $foresteventrand = rand(1,13)>>
			<</if>>
			<<if getvar("$foresteventrand") <= 8>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,3))>>
				<<image "locations/gadukino/forest/run_end2.jpg">>
				You are successful in escaping the wolves, but unfortunately are still lost in the forest.
			<<elseif getvar("$foresteventrand") <= 13>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,5))>>
				<<image "locations/gadukino/forest/run_end1.jpg">>
				You are successful in escaping the wolves, and also are no longer in the forest.
			<<elseif getvar("$foresteventrand") <= 14>>
				<<run $pc.skillExperienceGain('bushcraft',rand(1,2))>>
				<<image "locations/gadukino/forest/horror.jpg">>
				The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.
			<</if>>
			<<actCLA 'Continue'>>
				<<if getvar("$foresteventrand") <= 4>>
					<<gt 'gadforest' 'forest_edge'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 6>>
					<<gt 'gadforest' 'forest_outskirts'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 8>>
					<<gt 'gadforest' 'forest_center'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 9>>
					<<gt 'gadfield' 'field'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 10>>
					<<gt 'gadroad'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 11>>
					<<gt 'gadriver' 'start'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 12>>
					<<gt 'swamp_yard' 'start'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 13>>
					<<gt 'swamp_woods' 'start'>>

				<</if>>
				<<if getvar("$foresteventrand") <= 14>>
					<<set $pc.gameover= 11>> <<gt 'gameover'>>

				<</if>>
			<</actCLA>>
		<</if>>
	<</actCLA>>
<</if>>
<!-- ! this gs handles images for generic forest locations while lost-->
<!-- ! Example: gs 'gadforestlost', 'gadforestlost_picture'-->
<<if $location_var[$here][0] == 'gadforestlost_picture'>>
	<h2>Somewhere in the forest</h2>
	<<if $time.month >= 4 and $time.month <= 10>>
		<<if $time.dayStage < 4>>
			<<image "locations/gadukino/forest/gadforestlost0.#.jpg" 1 6>>
			You are lost in the woods. You don't recognize any of your surroundings and there aren''t any good landmarks to help pinpoint where you are.
			You would normally consider the woods a relaxing and scenic place, but are too stressed to appreciate the beauty of nature right now.
		<<else>>
			<<image "locations/gadukino/forest/gadforestlost_night0.#.jpg" 1 4>>
			You are lost in the woods. You don't recognize any of your surroundings and there aren''t any good landmarks to help pinpoint where you are.
			<font color="red">With nightfall, your chances of finding your way are practically nothing. You should stop and rest until daylight.</font>
		<</if>>
	<<else>>
		<<if $time.dayStage < 4>>
			<<image "locations/gadukino/forest/gadforestlost_winter0.#.jpg" 1 5>>
			You are lost in the woods. You don't recognize any of your surroundings and there aren''t any good landmarks to help pinpoint where you are.
			You would normally consider the woods a relaxing and scenic place, but are too stressed to appreciate the beauty of nature right now.
		<<else>>
			<<image "locations/gadukino/forest/gadforestlost_winter_night0.#.jpg" 1 4>>
			You are lost in the woods. You don't recognize any of your surroundings and there aren''t any good landmarks to help pinpoint where you are.
			<font color="red">With nightfall, your chances of finding your way are practically nothing. You should stop and rest until daylight.</font>
		<</if>>
	<</if>>
<</if>>