# 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: 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 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] = '': !no cloth here, it must be broken. There may be a good exhibi or rape event entry point. '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.' gs 'clothing', 'strip', 'gadforest', 2 end end end end --- gadforest ---------------------------------