# 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 ---------------------------------