# gadforest if $ARGS[0] = '1': PC_arrive = iif($loc ! 'Miroslava', 1 , 0) !out skirt $location_type = 'secluded' $metka = $ARGS[0] $loc = $CURLOC clothesAtLocation = FUNC('lost_clothes_here',$CURLOC) gs 'gadukino_event', 'sound' *clr & cla gs'stat' !gs'time' !MiaLoc tells us where Mira is Located !---------------------------------------------- !MiraLoc = 0 (Mira at home) !MiraLoc = 1 (Mira at river) !MiraLoc = 2 (Mira at meadow) !MiraLoc = 3 (Mira at forest) !MiraLoc = 4 (Mira at field) !MiraLoc = 5 (Mira with gop) !--------------------------------------------- if goforest < 20:goforest += rand(0,1) lost = 1 !to determine the continuation of the way if he got lost lostrand = rand(1,30) !the chance to get lost foresteventrand = rand(1,20) new_boletus = 0 new_bilberry = 0 '

Forest

' if month >= 4 and month <= 10: if hour >= 6 and hour < 22: '
> src="images/locations/gadukino/forest/gadforest1.jpg">
' 'The edge of the forest. There are a few mushrooms and you can often see mushroom pickers.' else '
> src="images/locations/gadukino/forest/gadforest_night1.jpg">
' 'The edge of the forest. Night in the woods is scary and uncomfortable.' end else if hour >= 8 and hour < 18: '
> src="images/locations/gadukino/forest/gadforest_winter1.jpg">
' 'The edge of the forest. The forest in the winter is very beautiful.' else '
> src="images/locations/gadukino/forest/gadforest_winter_night1.jpg">
' 'The edge of the forest. Night in the winter forest is very scary and uncomfortable.' end end if forestpicnic = 1:'On the edge of the forest you see people. Apparently they are having a family picnic.' if MiraLoc = 3:'Near you wandering in the forest is Mira.' if clothesAtLocation = 1:'On the ground lay your clothes.' if findvel = 2:'Near the tree is your old bike.' if goforest < 10:'You don''t know this forest very well, it''s best if you don''t wander too far.' if PC_arrive = 1: if temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest = 1:gt 'gadforest_event', 'nude_event' if foresteventrand < 3 and month >= 6 and month <= 9 and mushroom_pickersday ! daystart:mushroom_pickers = 1 & gt'gadforest_event', 'mushroom_pickers1' if foresteventrand = 3 and month >= 5 and month <= 9 and temper >= 15 and sunWeather = 1 and week > 5 and forestpicnic = 0: forestpicnic = 1 & gt 'gadforest_event', 'picnic' if foresteventrand = 4 and month >= 6 and month <= 9: gt 'gadforest_event', 'mushroom_pickers2' if foresteventrand = 5 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week <= 5: gt 'gadforest_event', 'gopforest_mitka' if foresteventrand = 6 and hour >= 8 and hour <= 18 and month >= 4 and month <= 10 and gadboyday ! daystart and week <= 5: gt 'gadforest_event', 'gopforest_kolyamba' if foresteventrand = 7 and hour >= 8 and hour <= 18 and month >= 4 and month <= 10 and gadboyday ! daystart and week <= 5: gt 'gadforest_event', 'gopforest_vasyan' if foresteventrand = 8 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week > 5: gt 'gadforest_event', 'gopforest_2boys' if foresteventrand = 9 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week > 5: gt 'gadforest_event', 'gopforest_3boys' end if $clothingworntype ! 'nude' and clothesAtLocation = 0 and temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest > 1 and MiraLoc ! 3: act'Strip naked': if forestpicnic = 0: inhib_exp += rand(1,3) cla *clr minut+=5 gs 'underwear', 'remove' if CloSkirtShortness = 0:'
> src="images/locations/gadukino/forest/nudeforest.jpg">
' if CloSkirtShortness > 0:'
> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg">
' gs 'clothing', 'strip', 'gadforest' 'You don''t hesitate and quickly get undressed, your clothes are left laying in a pile.' act'Back':gt'gadforest','1' else cla *clr '
> src="images/locations/gadukino/hunters/noundress.jpg">
' 'You see a number of people you are ashamed of.' act'Back':gt'gadforest','1' end end end if clothesAtLocation = 1 and $clothingworntype = 'nude': act 'Dress': cla *clr swamp_clothes = 0 minut += 5 gs 'underwear', 'wear' gs 'clothing', 'recover_lost_clothes', 'gadforest', 1 if CloSkirtShortness = 0:'
> src="images/locations/gadukino/forest/nudeforest.jpg">
' if CloSkirtShortness > 0:'
> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg">
' 'You change into your clothes.' act 'Back': gt 'gadforest','1' end end !if he had gone from the forest and put in another place if clothesAtLocation = 1 and $clothingworntype ! 'nude': act 'Pick up the abandoned clothing': cla *clr gs 'clothing', 'recover_lost_clothes', 'gadforest' 'You pick up your clothes.' act 'Back': gt 'gadforest','1' end end if hour >= 6 and hour <= 20 and sunWeather = 1: act 'Walking in the woods': cla *clr minut += 60 pcs_mood += 20 pcs_willpwr += willpowermax/5 if $clothingworntype = 'nude': pcs_health += healthmax/5 & pcs_horny += 5 inhib_exp += rand(1,5) end gs 'stat' if month >= 4 and month <= 10: if MiraLoc ! 3: if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'
> src="images/locations/gadukino/forest/gulforest0.'+rand(1,2)+'.jpg">
' if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype ! 'none' and CloSkirtShortness > 0:'
> src="images/locations/gadukino/forest/gulforest1.'+rand(1,3)+'.jpg">
' if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype = 'none' and CloSkirtShortness > 0:'
> src="images/locations/gadukino/forest/gulforest_tanga0.'+rand(1,2)+'.jpg">
' if $clothingworntype = 'nude':'
> src="images/locations/gadukino/forest/gulforest_nude0.'+rand(1,4)+'.jpg">
' 'You are walking through the woods, enjoying the sounds of forest and the fresh air.' else if $clothingworntype ! 'nude':'
> src="images/characters/village/mira/miraforest'+rand(1,3)+'.jpg">
' if $clothingworntype = 'nude':'
> src="images/characters/village/mira/miraforest_nude'+rand(1,3)+'.jpg">
' 'You walk with Mira through the woods, enjoying the sounds of the forest and the fresh air.' end else if MiraLoc ! 3: '
> src="images/locations/gadukino/forest/gulforestwinter0.'+rand(1,2)+'.jpg">
' 'You walk through the winter woods, enjoying the sounds of the forest and the fresh air.' else '
> src="images/characters/village/mira/miraforestwinter.jpg">
' 'You walk with Mira through the winter woods, enjoying the sounds of the forest and the fresh air.' end end act 'Further':gt 'gadforest','1' end end if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and edge_forestday ! daystart: act 'To look for mushrooms and berries': cla *clr minut += 30 temp_gf = rand(1,2) edge_forestday = daystart if goforest < 20:goforest += rand(0,1) gs 'stat' if mushroom_pickers = 0 or mushroom_pickers = 2: cla new_boletus += rand(0,1) new_bilberry += 1 boletus += new_boletus bilberry += new_bilberry pcs_mood += 5 gs 'stat' gs 'gadforest', 'clothes1' if new_boletus = 0 and new_bilberry > 0:'You`re in for hours of wandering through the woods in search of mushrooms or berries and you found <> kg of berries.' if new_boletus > 0 and new_bilberry > 0:'You`re in for hours of wandering through the woods in search of mushrooms or berries and you found <> kg mushrooms and <> kg of berries.' end if mushroom_pickers = 1 and temp_gf = 1: cla new_bilberry += rand(0,1) bilberry += new_bilberry gs 'stat' if new_bilberry > 0: gs 'gadforest', 'clothes1' if new_bilberry = 0: gs 'gadforest', 'clothes2' if new_bilberry > 0:'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <> kg of berries.' if new_bilberry = 0:'You are wandering through the woods in search of mushrooms or berries for half an hour, but you found nothing.' end if mushroom_pickers = 1 and temp_gf = 2: cla pcs_mood -= 5 gs 'stat' gs 'gadforest', 'clothes2' 'You are wandering through the woods in search of mushrooms or berries for half an hour, but found nothing.' end act 'Further':gt 'gadforest','1' end end if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and MiraLoc ! 3: act 'To go further into the forest': if goforest >= lostrand:minut += 30 & gt 'gadforest','2' if goforest < lostrand:gt 'gadforest', 'gadforestloststart' end end if goswamp = 1 and MiraLoc ! 3: if hour >= 6 and hour < 20: act 'Go to the swamp': minut += 75 !random chance to swamp road. It a pity to use it only in lost. ps. use bike to 100% there by illume if goforest >= lostrand: gt 'swamp' else gt 'gadforestswamp','1' end end else act 'Go to the swamp':gt 'gadforest_event', 'swamp_road' end end act 'Out of the woods': dirtyclothes = 0 & swamp_clothes = 0 if $clothingworntype = 'nude': if $CloLosTyp[$CURLOC] = '' or gadforest_clothestorn = 1: !no cloth here, it must be broken. There may be a good exhibi or rape event entry point. inhib_exp += rand(0,2) gadforest_clothestorn = 0 'You sneak out the woods, hiding your naked body in shadow and moving toward grandparents house.' 'You Successfully reach home without witness.' cla act 'Further':gt'Gadhouse' else 'You should dress before leave' end else minut += 30 & gt'gadroad' end end if rand(1,10)> 9: gs 'gadforest', 'torncloth' end if $ARGS[0] = '2': $location_type = 'secluded' !inside $metka = $ARGS[0] $loc = $CURLOC gs 'gadukino_event', 'sound' *clr & cla gs'stat' !gs'time' if goforest < 40:goforest += rand(0,1) lost = 2 !to determine the continuation of the path YY lost lostrand = rand(1,60) !the chance to get lost foresteventrand = rand(1,10) new_boletus = 0 new_bilberry = 0 '

Forest

' if month >= 4 and month <= 10: if hour >= 6 and hour < 22: '
> src="images/locations/gadukino/forest/gadforest2.jpg">
' 'Forest. The intoxicating fresh air and singing birds light up your soul with joy.' else '
> src="images/locations/gadukino/forest/gadforest_night2.jpg">
' 'Forest. Night in the woods is scary and uncomfortable.' end else if hour >= 8 and hour < 18: '
> src="images/locations/gadukino/forest/gadforest_winter2.jpg">
' 'Forest. The forest in the winter is very beautiful, the fresh air makes you happy.' else '
> src="images/locations/gadukino/forest/gadforest_winter_night2.jpg">
' 'Forest. Night in the winter forest is very scary and uncomfortable.' end end if goforest < 20:'You do not know this part of the forest, it''s better not to wander too far.' if foresteventrand = 1 and month >= 6 and month <= 9 and mushroom_pickersday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers1' if foresteventrand = 2 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hanters' if foresteventrand > 7 and month >= 6 and month <= 9 and foresteventday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers3' act 'Back': lostrand = rand(1,30) if goforest >= lostrand:minut += 30 & gt 'gadforest','1' if goforest < lostrand:gt 'gadforest', 'gadforestloststart' end if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and forestday ! daystart: act 'To look for mushrooms and berries': cla *clr minut += 30 temp_gf = rand(1,2) forestday = daystart if goforest < 40:goforest += rand(0,1) gs 'stat' if mushroom_pickers < 2: cla new_boletus += 1 new_bilberry += rand(1,2) boletus += new_boletus bilberry += new_bilberry pcs_mood += 5 gs 'stat' gs 'gadforest', 'clothes1' 'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <> kg mushrooms and <> kg of berries.' end if mushroom_pickers = 2 and temp_gf = 1: cla new_boletus += rand(0,1) new_bilberry += 1 boletus += new_boletus bilberry += new_bilberry gs 'stat' if new_boletus > 0 or new_bilberry > 0: gs 'gadforest', 'clothes1' if new_boletus = 0 and new_bilberry > 0:'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <> kg of berries.' if new_boletus > 0 and new_bilberry > 0:'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <> kg mushrooms and <> kg of berries.' end if mushroom_pickers = 2 and temp_gf = 2: cla pcs_mood -= 5 gs 'stat' gs 'gadforest', 'clothes2' 'You are wandering through the woods in search of mushrooms or berries for half an hour, but found nothing.' end act 'Further':gt 'gadforest','2' end end if hour >= 6 and hour <= 20 and month >= 6 and month <= 9: act 'To go further into the forest': if goforest >= lostrand:minut += 30 & gt 'gadforest','3' if goforest < lostrand:gt 'gadforest', 'gadforestloststart' end end if rand(1,10)> 8: gs 'gadforest', 'torncloth' end if $ARGS[0] = '3': !deep forest $location_type = 'secluded' $metka = $ARGS[0] $loc = $CURLOC gs 'gadukino_event', 'sound' *clr & cla gs'stat' !gs'time' if goforest < 60:goforest += rand(0,1) lost = 3 !to determine the continuation of the path YY lost lostrand = rand(1,100) !the chance to get lost foresteventrand = rand(1,10) new_boletus = 0 new_bilberry = 0 '

Thicket

' if month >= 4 and month <= 10: if hour >= 6 and hour < 22: '
> src="images/locations/gadukino/forest/gadforest3.jpg">
' 'Forest. The intoxicating fresh air and singing birds light up your soul with joy.' else '
> src="images/locations/gadukino/forest/gadforest_night3.jpg">
' 'Forest. Night in the woods is scary and uncomfortable.' end else if hour >= 8 and hour < 18: '
> src="images/locations/gadukino/forest/gadforest_winter3.jpg">
' 'Forest. The forest in the winter is very beautiful, the fresh air makes you happy.' else '
> src="images/locations/gadukino/forest/gadforest_winter_night3.jpg">
' 'Forest. Night in the winter forest is very scary and uncomfortable.' end end if goforest < 30:'You do not know this part of the forest, it''s better not to wander too far.' if foresteventrand = 1 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'basket' if foresteventrand = 2 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'bilberry' if foresteventrand = 3 and foresteventday ! daystart: gt 'gadforest_event', 'mushroom' if foresteventrand = 4 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hanters' act 'Back': lostrand = rand(1,60) if goforest >= lostrand:minut += 30 & gt 'gadforest','2' if goforest < lostrand:gt 'gadforest', 'gadforestloststart' end if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and thicketday ! daystart: act 'To look for mushrooms and berries': *clr & cla minut += 30 thicketday = daystart if goforest < 60:goforest += rand(0,1) new_boletus += rand(1,2) new_bilberry += rand(1,2) boletus += new_boletus bilberry += new_bilberry pcs_mood += 5 gs 'stat' gs 'gadforest', 'clothes1' 'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <> kg mushrooms and <> kg of berries.' act 'Further':gt 'gadforest','3' end end if hour >= 6 and hour <= 20 and month >= 6 and month <= 9: act 'To go further into the forest': if goforest >= lostrand:minut += 30 & gt 'gadforest','4' if goforest < lostrand:gt 'gadforest', 'gadforestloststart' end end if rand(1,10)> 6: gs 'gadforest', 'torncloth' end if $ARGS[0] = '4': !near swamp $location_type = 'secluded' $metka = $ARGS[0] $loc = $CURLOC gs 'gadukino_event', 'sound' *clr & cla gs'stat' !gs'time' if goforest < 80:goforest += rand(0,1) lost = 4 !to determine the continuation of the path YY lost lostrand = rand(1,120) !the chance to get lost foresteventrand = rand(1,10) dirty = 0 new_boletus = 0 new_bilberry = 0 '

Woods near swamps

' if month >= 4 and month <= 10: if hour >= 6 and hour < 22: '
> src="images/locations/gadukino/forest/gadforest4.jpg">
' 'Forest. The intoxicating fresh air and singing birds light up your soul with joy.' else '
> src="images/locations/gadukino/forest/gadforest_night4.jpg">
' 'Forest. Night in the woods is scary and uncomfortable.' end else if hour >= 8 and hour < 18: '
> src="images/locations/gadukino/forest/gadforest_winter4.jpg">
' 'Forest. The forest in the winter is very beautiful, the fresh air makes you happy.' else '
> src="images/locations/gadukino/forest/gadforest_winter_night4.jpg">
' 'Forest. Night in the winter forest is very scary and uncomfortable.' end end if goforest < 60:'You do not know this part of the forest, then it is better not to go too far.' if foresteventrand < 2 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'bilberry' if foresteventrand > 7 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'mushroom' if foresteventrand = 5 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hanters' act 'Back': lostrand = rand(1,100) if goforest >= lostrand:minut += 30 & gt 'gadforest','3' if goforest < lostrand:gt 'gadforest', 'gadforestloststart' end if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and swampforest ! daystart: act 'To look for mushrooms and berries': cla *clr minut += 30 swampforest = daystart if goforest < 80:goforest += rand(0,1) new_boletus += rand(1,2) new_bilberry += rand(2,3) boletus += new_boletus bilberry += new_bilberry pcs_mood += 5 gs 'stat' gs 'gadforest', 'clothes1' 'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <> kg mushrooms and <> kg of berries.' act 'Further':gt 'gadforest','4' end end act 'To go further into the forest': if goforest >= lostrand and goswamp = 1:minut += 30 & gt 'swamp' if goforest >= lostrand and goswamp = 0:minut += 30 & gt 'gadforestswamp','1' if goforest < lostrand:gt 'gadforest', 'gadforestloststart' end if rand(1,10)> 7: gs 'gadforest', 'torncloth' end !dynamics to ARGS by illume if $ARGS[0] = 'clothes1': if MiraLoc ! 3: if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'
> src="images/locations/gadukino/forest/mushroom1.jpg">
' if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and CloSkirtShortness > 0:'
> src="images/locations/gadukino/forest/mushroom2.jpg">
' if $clothingworntype ! 'nude' and $pantyworntype = 'none' and CloSkirtShortness > 0:'
> src="images/locations/gadukino/forest/mushroom3.jpg">
' if $clothingworntype = 'nude':'
> src="images/locations/gadukino/forest/mushroom4.'+rand(1,3)+'.jpg">
' else if $clothingworntype ! 'nude':'
> src="images/characters/village/mira/miramushroom'+rand(1,2)+'.jpg">
' if $clothingworntype = 'nude':'
> src="images/characters/village/mira/miramushroom_nude'+rand(1,2)+'.jpg">
' end end if $ARGS[0] = 'clothes2': if MiraLoc ! 3: if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'
> src="images/locations/gadukino/forest/gulforest2.jpg">
' if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and CloSkirtShortness > 0:'
> src="images/locations/gadukino/forest/gulforest3.jpg">
' if $clothingworntype ! 'nude' and $pantyworntype = 'none' and CloSkirtShortness > 0:'
> src="images/locations/gadukino/forest/gulforest_tanga1.'+rand(1,2)+'.jpg">
' if $clothingworntype = 'nude':'
> src="images/locations/gadukino/forest/gulforest_nude1.'+rand(1,4)+'.jpg">
' else if $clothingworntype ! 'nude':'
> src="images/characters/village/mira/miramushroom3.jpg">
' if $clothingworntype = 'nude':'
> src="images/characters/village/mira/miramushroom_nude3.jpg">
' end end if $ARGS[0] = 'gadforestloststart': cla *clr !gs'time' gs 'stat' '

Somewhere in the woods

' if month >= 5 and month <= 9: if $clothingworntype ! 'nude':'
> src="images/locations/gadukino/forest/gadfear1.jpg">
' if $clothingworntype = 'nude':'
> src="images/locations/gadukino/forest/gadfear2.jpg">
' else '
> src="images/locations/gadukino/forest/gadfear3.jpg">
' end 'You suddenly realize in horror that you are not familiar with the area you are in... you get lost.' act 'Further': if lost = 1: gt 'gadforestlost','1' if lost = 2: gt 'gadforestlost','2' if lost = 3: gt 'gadforestlost','3' if lost = 4: gt 'gadforestlost','4' end !add for realistic, rescue in forest! by illume forest_lost = 1 if StoryLine = 1: forest_lostday = daystart + rand(1,3) end if $ARGS[0] = 'torncloth': !the withdrawal strength of the garment, if not jeans. moved from gadforest 1 into args, and call in all forest by illume if $clothingworntype ! 'nude': if (PCloThinness = 1 or PCloSkirt > 0) and PCloQuality < 5: !skirts, not fit, and not high-class enough by illume 'Oops, your clothes get snagged and tears slightly.' dynamic $clothingworntype + 'H[<>] -= 1' !add remove cloth if worn out, need better texting by illume. if dyneval('RESULT = <<$clothingworntype>>H[<>]') <= 0: 'Your raggedy clothes have finally had enough and fall apart. You are naked now.' gadforest_clothestorn = 1 gs 'clothing', 'strip', 'gadforest', 2 end end end end --- gadforest ---------------------------------