|
|
@@ -1,381 +1,377 @@
|
|
|
# gadforest
|
|
|
|
|
|
-!MiraLoc 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 $ARGS[0] = '1':
|
|
|
+if $ARGS[0] = 'forest_edge':
|
|
|
*clr & cla
|
|
|
- ! figure out if Sveta came from Mira code or not. events play out differently whether with Mira or not
|
|
|
- PC_arrive = iif($loc ! 'miroslava', 1 , 0)
|
|
|
|
|
|
- ! edge of forest
|
|
|
+ ! force Mira to stay here if Sveta brought Mira here by choice - temporarily overrides Miras schedule to not annoy the player
|
|
|
+ Mira_Stay = iif($loc ! 'Miroslava', 1 , 0)
|
|
|
+
|
|
|
+ clothesAtLocation = FUNC('lost_clothes_here','forest_edge')
|
|
|
+
|
|
|
$loc = 'gadforest'
|
|
|
- $metka = '1'
|
|
|
+ $metka = 'forest_edge'
|
|
|
$location_type = 'secluded'
|
|
|
|
|
|
$menu_loc = 'gadforest'
|
|
|
- $menu_arg = '1'
|
|
|
+ $menu_arg = 'forest_edge'
|
|
|
menu_off = 0
|
|
|
|
|
|
- clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
|
|
|
- gs 'gadukino_event', 'sound'
|
|
|
- gs'stat'
|
|
|
-
|
|
|
- *clr & cla
|
|
|
+ $forest_args1 = 'forest_edge'
|
|
|
|
|
|
- ! Add to knowledge of forest
|
|
|
- if goforest < 20:goforest += rand(0,1)
|
|
|
- ! chance to get lost
|
|
|
- lost = 1
|
|
|
- lostrand = rand(1,20)
|
|
|
- ! Determine where Sveta got lost in the forest
|
|
|
- foresteventrand = rand(1,20)
|
|
|
- new_boletus = 0
|
|
|
- new_bilberry = 0
|
|
|
+ CLOSE ALL
|
|
|
+ gs 'gadukino_event', 'sound'
|
|
|
+ gs 'stat'
|
|
|
|
|
|
'<center><H4>Edge of the Forest</H4></center>'
|
|
|
if month >= 4 and month <= 10:
|
|
|
if hour >= 6 and hour < 22:
|
|
|
'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest1.jpg"></center>'
|
|
|
+ *nl
|
|
|
'You are at the edge of the forest. Mushrooms and berries grow here and you can often find other people picking them.'
|
|
|
else
|
|
|
'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night1.jpg"></center>'
|
|
|
+ *nl
|
|
|
'You are at the edge of the forest. Night in the woods is scary and uncomfortable.'
|
|
|
end
|
|
|
else
|
|
|
- if hour >= 8 and hour < 18:
|
|
|
+ if hour >= 8 and hour < 20:
|
|
|
'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter1.jpg"></center>'
|
|
|
- 'You are at the edge of the forest. The forest in winter is very beautiful.'
|
|
|
+ *nl
|
|
|
+ 'You are at the edge of the forest. The forest during wintertime is very beautiful.'
|
|
|
else
|
|
|
'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night1.jpg"></center>'
|
|
|
+ *nl
|
|
|
'You are at the edge of the forest. Night in the forest during wintertime 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 <a href="exec:gt ''gadforest_event'',''picnic''">picnic</a>.'
|
|
|
- if MiraLoc = 3:'Nearby is <a href="exec: gt ''miroslava'' ">Mira</a>.'
|
|
|
- if clothesAtLocation = 1:'Your clothes are nearby on the ground.'
|
|
|
- if findvel = 2:'Leaning up against a tree is your old <a href="exec:gt ''bicycle'',''forest''">bike</a>.'
|
|
|
- if goforest < 10:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
|
|
|
-
|
|
|
- ! Sveta arrive without Mira events
|
|
|
- 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'
|
|
|
+ gs 'gadforest','bushcraft','forest_edge'
|
|
|
+ *nl
|
|
|
+ if pcs_bushcraft < 10:
|
|
|
+ 'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
|
|
|
+ else
|
|
|
+ 'You are comfortable navigating this part of the forest, and can adventure deeper into the woods if you want.'
|
|
|
+ end
|
|
|
+
|
|
|
+ if clothesAtLocation = 1:*nl & 'Your clothes are nearby on the ground.'
|
|
|
+ if forestpicnic = 1:
|
|
|
+ if hour < 10 or hour > 14:
|
|
|
+ forestpicnic = 0
|
|
|
+ else
|
|
|
+ *nl
|
|
|
+ 'On the edge of the forest you see people. Apparently they are having a family <a href="exec:gt ''gadforest_event'',''picnic''">picnic</a>.'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ if hour < 8 or hour > 16 and mushroom_pickers ! 0:
|
|
|
+ mushroom_pickers = 0
|
|
|
+ *nl
|
|
|
+ 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
|
|
|
+ else
|
|
|
+ *nl
|
|
|
+ if mushroom_pickers = 0:
|
|
|
+ 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
|
|
|
+ elseif mushroom_pickers = 1:
|
|
|
+ 'You can see other people picking mushrooms and berries here at the forests edge.'
|
|
|
+ elseif mushroom_pickers = 2:
|
|
|
+ 'You can hear people picking mushrooms and berries deeper in the forest.'
|
|
|
+ end
|
|
|
end
|
|
|
+ if MiraLoc = 3:'<a href="exec: gt ''Miroslava'' ">Mira</a> is here with you.'
|
|
|
+
|
|
|
+ foresteventrand = rand(1,20)
|
|
|
+ ! Events with Mira
|
|
|
+ if MiraLoc = 3:
|
|
|
+ if hour >= 11 and Mira_Stay = 0:
|
|
|
+ *clr & cla
|
|
|
+
|
|
|
+ gs 'miroslava','miraclothes'
|
|
|
+ *nl
|
|
|
+ '"<<$pcs_nickname>>, I''m going to head home now, but we can hang out again more later." Mira said to you as she began to walk out of the forest.'
|
|
|
+
|
|
|
+ ! Allow the player to override Mira schedule to get events done with her, also so Mira cannot appear and disappear before the player can interact with her
|
|
|
+ act 'Convince her to stay with you':
|
|
|
+ Mira_Stay = 1
|
|
|
+ gt 'gadforest', 'forest_edge'
|
|
|
+ end
|
|
|
+ ! Allow the player to let Mira continue on her schedule if they want to get events done on their own
|
|
|
+ act 'Say goodbye':
|
|
|
+ MiraLoc = 0
|
|
|
+ gt 'gadforest', 'forest_edge'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ if mirapickingtalk = 0 and miratalkday ! daystart: gt 'gadforest_event', 'mira_picking_talk'
|
|
|
+ if miranudetalk = 0 and miratalkday ! daystart: gt 'gadforest_event', 'mira_nude_talk'
|
|
|
+ ! stripping requires there to be no picnic going on, to have clothes on, for there to be no clothes already abandoned at the forest_edge, between april and october and already talked to Mira about being naked in the forest
|
|
|
+ if forestpicnic = 0 and $clothingworntype ! 'nude' and clothesAtLocation = 0 and month >= 4 and month <= 10 and hour >= 8 and hour <= 20 and miranudetalk = 1 and miratalkday ! daystart: gt 'gadforest_event', 'mira_nude_event'
|
|
|
+ ! Events without Mira
|
|
|
+ else
|
|
|
+ if metmira = 1 and MiraLoc ! 3 and hour >= 8 and hour <= 10:
|
|
|
+ mirarand = rand(1,10)
|
|
|
+ if mirarand >= 6:
|
|
|
+ *clr & cla
|
|
|
+
|
|
|
+ gs 'Miroslava','miraclothes'
|
|
|
+ *nl
|
|
|
+ 'As you walk through the forest, you hear a familiar voice call out to you, "Hey <<$pcs_nickname>>, wait up!" You turn around and see Mira excitedly bounding up behind you.'
|
|
|
+ '"Want to join me on my walk?" she asks. "I love walking through the forest in the morning."'
|
|
|
+
|
|
|
+ act 'Say hi':
|
|
|
+ MiraLoc = 3
|
|
|
+ gt 'gadforest', 'forest_edge'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+ if foresteventrand <= 2 and month >= 6 and month <= 9 and hour >= 8 and hour <= 16 and mushroom_pickersday ! daystart: mushroom_pickers = 1 & gt 'gadforest_event', 'mushroom_pickers1'
|
|
|
+ if foresteventrand <= 4 and month >= 6 and month <= 9 and hour >= 8 and hour <= 16 and mushroom_pickersday ! daystart: mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers2'
|
|
|
+ if foresteventrand = 5 and month >= 6 and month <= 9 and hour >= 10 and hour <= 14 and temper >= 10 and sunWeather = 1 and week > 5 and forestpicnic = 0: forestpicnic = 1 & gt 'gadforest_event', 'picnic'
|
|
|
+ end
|
|
|
+ ! Events with or without Mira
|
|
|
+ if foresteventrand <= 8 and hour >= 8 and hour <= 20 and month >= 4 and month <= 10 and gadboyday ! daystart:
|
|
|
+ if mitkaday ! daystart:
|
|
|
+ gt 'gadforest_event', 'mitka_temporary_event'
|
|
|
+ ! gt 'mitka_forest_1', 'mitka'
|
|
|
+ !elseif kolyambaday ! daystart:
|
|
|
+ ! gt 'mitka_forest_1', 'kolyamba'
|
|
|
+ !elseif vasyanday ! daystart:
|
|
|
+ ! gt 'mitka_forest_1', 'vasyan'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ !if foresteventrand = 9 and hour >= 8 and hour <= 20 and month >= 4 and month <= 10 and gadboyday ! daystart:
|
|
|
+ ! if mitkaday ! daystart and kolyambaday ! daystart:
|
|
|
+ ! gt 'mitka_forest_2', '1'
|
|
|
+ ! elseif mitkaday ! daystart and vasyanday ! daystart:
|
|
|
+ ! gt 'mitka_forest_2', '2'
|
|
|
+ ! elseif kolyambaday ! daystart and vasyanday ! daystart:
|
|
|
+ ! gt 'mitka_forest_2', '3'
|
|
|
+ ! elseif mitkaday ! daystart:
|
|
|
+ ! gt 'mitka_forest_1', 'mitka'
|
|
|
+ ! elseif kolyambaday ! daystart:
|
|
|
+ ! gt 'mitka_forest_1', 'kolyamba'
|
|
|
+ ! elseif vasyanday ! daystart:
|
|
|
+ ! gt 'mitka_forest_1', 'vasyan'
|
|
|
+ ! end
|
|
|
+ !end
|
|
|
+ !if forest_eventrand = 10 and hour >= 8 and hour <= 20 and month >= 4 and month <= 10 and gadboyday ! daystart:
|
|
|
+ ! if mitkaday ! daystart and kolyambaday ! daystart and vasyanday ! daystart:
|
|
|
+ ! gt 'mitka_forest_3'
|
|
|
+ ! elseif mitkaday ! daystart and kolyambaday ! daystart:
|
|
|
+ ! gt 'mitka_forest_2', '1'
|
|
|
+ ! elseif mitkaday ! daystart and vasyanday ! daystart:
|
|
|
+ ! gt 'mitka_forest_2', '2'
|
|
|
+ ! elseif kolyambaday ! daystart and vasyanday ! daystart:
|
|
|
+ ! gt 'mitka_forest_2', '3'
|
|
|
+ ! elseif mitkaday ! daystart:
|
|
|
+ ! gt 'mitka_forest_1', 'mitka'
|
|
|
+ ! elseif kolyambaday ! daystart:
|
|
|
+ ! gt 'mitka_forest_1', 'kolyamba'
|
|
|
+ ! elseif vasyanday ! daystart:
|
|
|
+ ! gt 'mitka_forest_1', 'vasyan'
|
|
|
+ ! end
|
|
|
+ !end
|
|
|
|
|
|
act 'Leave the woods':
|
|
|
+ ! Allow Mira to continue on her schedule as normal if the player was keeping her here for events
|
|
|
+ if MiraLoc = 3:
|
|
|
+ Mira_Stay = 0
|
|
|
+ MiraLoc = 0
|
|
|
+ end
|
|
|
+ ! Naked event when leaving forest
|
|
|
if $clothingworntype = 'nude':
|
|
|
*clr & cla
|
|
|
- inhib_exp += rand(0,2)
|
|
|
+ menu_off = 1
|
|
|
+
|
|
|
if hour >= 6 and hour < 22:
|
|
|
- if rand(0,100) > 50:
|
|
|
+ if rand(0,10) > 5:
|
|
|
'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_nude.jpg"></center>'
|
|
|
else
|
|
|
'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_back.jpg"></center>'
|
|
|
end
|
|
|
else
|
|
|
- if rand(0,100) > 50:
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_nude.jpg"></center>'
|
|
|
+ if rand(0,10) > 5:
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_nude_night.jpg"></center>'
|
|
|
else
|
|
|
'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_back_night.jpg"></center>'
|
|
|
end
|
|
|
end
|
|
|
- if clothesAtLocation = 0:
|
|
|
- inhib_exp += rand(0,2)
|
|
|
- 'You seem to have misplaced your clothes! You have little choice but to sneak out the woods, hiding your naked body in shadow and moving toward your grandparents house. You wonder where you might have left your clothes.'
|
|
|
+ *nl
|
|
|
+ ! clothes ripped apart in the woods or swamp
|
|
|
+ if gadforest_clothestorn = 1:
|
|
|
+ gadforest_clothestorn = 0
|
|
|
+ 'Your clothes were torn to shreds in the woods, leaving you with no choice but to head back home naked.'
|
|
|
+ 'You try your best to stay in the shadows as you move towards '+iif(StoryLine=1,'your grandparents house ','the village ')+'as stealthily as possible.'
|
|
|
+ ! clothes are here
|
|
|
elseif clothesAtLocation = 1:
|
|
|
- 'You decide to stash your belongings and sneak out the woods completely naked, purely for the thrill of it, hiding your naked body in shadow and moving toward your grandparents house, avoiding any well lit areas.'
|
|
|
+ 'You decide to leave your clothes behind and sneak home naked, purely for the thrill of it.'
|
|
|
+ 'You try your best to stay in the shadows as you move towards '+iif(StoryLine=1,'your grandparents house ','the village ')+'as stealthily as possible.'
|
|
|
+ ! no clothes here
|
|
|
+ elseif clothesAtLocation = 0:
|
|
|
+ 'You seem to have misplaced your clothes, leaving you with no choice but to head back home naked. You wonder where you might have left your clothes.'
|
|
|
+ 'You try your best to stay in the shadows as you move towards '+iif(StoryLine=1,'your grandparents house ','the village ')+'as stealthily as possible.'
|
|
|
end
|
|
|
- act 'Run back home naked':
|
|
|
- minut += 30
|
|
|
- gt'gadforest', 'caught'
|
|
|
+ ! Allow schoolgirl player to leave naked but go straight back home
|
|
|
+ ! Non-schoolgirls will just find a random sweatshirt to put on - it is the same everytime but walking around naked in the village is not implemented yet
|
|
|
+ act 'Go back to Gadukino naked':
|
|
|
+ *clr & cla
|
|
|
+ inhib_exp += rand(1,3)
|
|
|
+ gs 'exhibitionism', 3
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ if StoryLine = 1 and grandaQW['block'] = 0:
|
|
|
+ if hour >= 10 and hour < 16 and month >= 4 and month <= 10:
|
|
|
+ forestcaughtrand = rand(4,10)
|
|
|
+ elseif hour >= 6 and hour < 20 and month >= 4 and month <= 10:
|
|
|
+ forestcaughtrand = rand(2,8)
|
|
|
+ else
|
|
|
+ forestcaughtrand = rand(0,6)
|
|
|
+ end
|
|
|
+ if forestcaughtrand >= 9:
|
|
|
+ grandmaQW['nudity_trouble'] += rand(7,10)
|
|
|
+
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_woman.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'You''ve been spotted walking home naked by all the women of the village. They scold you as you walk by. Your grandparents are definitely going to find out about this.'
|
|
|
+ elseif forestcaughtrand >= 7:
|
|
|
+ grandmaQW['nudity_trouble'] += rand(4,6)
|
|
|
+
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_woman'+rand(1,5)+'.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'You''ve been spotted walking home naked by a woman from the village. You hope she doesn''t tell your grandmother.'
|
|
|
+ elseif forestcaughtrand >= 5:
|
|
|
+ grandmaQW['nudity_trouble'] += rand(1,3)
|
|
|
+
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_man'+rand(1,5)+'.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'You''ve been spotted walking home naked by a man from the village. You hope he doesn''t tell your grandfather.'
|
|
|
+ else
|
|
|
+ grandmaQW['nudity_trouble'] += rand(0,1)
|
|
|
+
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'No one saw you outside naked, but there''s a thrill in almost getting caught.'
|
|
|
+ end
|
|
|
+
|
|
|
+ act 'Continue home to your grandparents':
|
|
|
+ minut += 30
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ gt'gaddvor'
|
|
|
+ end
|
|
|
+ else
|
|
|
+ average[520] = 1
|
|
|
+ averageS[520] = 0
|
|
|
+ averageH[520] = 100
|
|
|
+ averageB[520] = pcs_hips
|
|
|
+ gs 'clothing', 'wear', 'average', 520
|
|
|
+
|
|
|
+ if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
|
|
|
+ if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'You begin to panic a little. You have no where to go and no one to help you can you are stuck naked in the woods.'
|
|
|
+ 'As you look around frantically, you spot a sweatshirt someone must have lost. You quickly put it on, thinking about how lucky you are.'
|
|
|
+
|
|
|
+ act 'Leave':
|
|
|
+ minut += 15
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ gt 'gadroad'
|
|
|
+ end
|
|
|
+ end
|
|
|
end
|
|
|
- elseif $clothingworntype = 'cheap' and clothingwornnumber = 414:
|
|
|
+ ! last chance for player to choose to get dressed
|
|
|
if clothesAtLocation = 1:
|
|
|
- 'You should pickup your clothes and get dressed before you leave'
|
|
|
+ act 'Get dressed instead':
|
|
|
+ *clr & cla
|
|
|
+ minut += 5
|
|
|
+ gs 'clothing', 'swamp_clothes', 0
|
|
|
+ gs 'underwear', 'wear'
|
|
|
+ gs 'clothing', 'recover_lost_clothes', 'forest_edge', 1
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
|
|
|
+ if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'You decide to change back into your clothes rather than try to get home through the village naked.'
|
|
|
+
|
|
|
+ act 'Leave':
|
|
|
+ minut += 15
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ gt 'gadroad'
|
|
|
+ end
|
|
|
+ end
|
|
|
end
|
|
|
+ ! hessian sack from hunters is not allowed to leave the woods it is only supposed to be a temporary item
|
|
|
+ elseif swamp_clothes = 1:
|
|
|
+ *nl
|
|
|
+ 'You cannot leave the woods wearing your current clothing. You should pickup your clothes and get dressed before you leave or just risk leaving naked.'
|
|
|
else
|
|
|
- minut += 30
|
|
|
+ minut += 15
|
|
|
gs 'stat'
|
|
|
+
|
|
|
gt 'gadroad'
|
|
|
end
|
|
|
end
|
|
|
|
|
|
- gs 'treeCircEntry', 'GadForest'
|
|
|
-
|
|
|
- ! can only be naked if successfully complete Mira gadforest_event, nude_event
|
|
|
- if $clothingworntype ! 'nude' and clothesAtLocation = 0 and temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest > 1 and MiraLoc ! 3 and (pcs_inhib >= 25 or exhibitionist_lvl > 1):
|
|
|
- act'Strip naked':
|
|
|
- if forestpicnic = 0:
|
|
|
- cla
|
|
|
- *clr
|
|
|
- menu_off = 1
|
|
|
- if pcs_inhib < 50:inhib_exp += rand(1,3)
|
|
|
- minut += 5
|
|
|
- if PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
|
|
|
- if PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
|
|
|
- gs 'underwear', 'remove'
|
|
|
- gs 'clothing', 'strip', 'gadforest'
|
|
|
- gs 'exhibitionism', 3
|
|
|
- gs 'stat'
|
|
|
-
|
|
|
- 'You don''t hesitate and quickly get undressed, your clothes are left laying in a pile.'
|
|
|
-
|
|
|
- act'Continue':gt'gadforest','1'
|
|
|
- else
|
|
|
- cla
|
|
|
- *clr
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
|
|
|
- 'You see a number of people nearby and decide not to undress right now.'
|
|
|
-
|
|
|
- act'Continue':gt'gadforest','1'
|
|
|
- end
|
|
|
- end
|
|
|
+ ! Sveta cannot travel further into the forest if Mira is here at the forest with Sveta
|
|
|
+ if MiraLoc ! 3:
|
|
|
+ act 'Go further into the forest': minut += 15 & gt 'gadforest','forest_outskirts'
|
|
|
end
|
|
|
|
|
|
- if clothesAtLocation = 1 and $clothingworntype = 'nude':
|
|
|
- act 'Get dressed':
|
|
|
- cla
|
|
|
- *clr
|
|
|
- menu_off = 1
|
|
|
- minut += 5
|
|
|
- gs 'clothing', 'swamp_clothes', 0
|
|
|
- gs 'underwear', 'wear'
|
|
|
- gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
|
|
|
- gs 'stat'
|
|
|
- if PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
|
|
|
- if PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
|
|
|
- 'You change back into your clothes.'
|
|
|
- act 'Back': gt 'gadforest','1'
|
|
|
- end
|
|
|
- end
|
|
|
+ gs 'bicycle', 'gadforest'
|
|
|
|
|
|
- ! if Sveta left the forest without retrieving her clothes
|
|
|
- if clothesAtLocation = 1 and $clothingworntype ! 'nude':
|
|
|
- if $clothingworntype = 'cheap' and clothingwornnumber = 414:
|
|
|
- act 'Pick up your abandoned clothing':
|
|
|
- cla
|
|
|
- menu_off = 1
|
|
|
- minut += 2
|
|
|
- gs 'clothing', 'swamp_clothes', 0
|
|
|
- gs 'underwear', 'wear'
|
|
|
- gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
|
|
|
- gs 'stat'
|
|
|
- *nl
|
|
|
- 'You pick up your abandoned clothing and change out of the hessian sack the hunters gave you.'
|
|
|
- act 'Back': gt 'gadforest','1'
|
|
|
- end
|
|
|
- else
|
|
|
- act 'Pick up your abandoned clothing':
|
|
|
- cla
|
|
|
- menu_off = 1
|
|
|
- minut += 5
|
|
|
- gs 'clothing', 'swamp_clothes', 0
|
|
|
- gs 'underwear', 'wear'
|
|
|
- gs 'clothing', 'recover_lost_clothes', 'gadforest'
|
|
|
- gs 'stat'
|
|
|
- *nl
|
|
|
- 'You pick up your abandoned clothing.'
|
|
|
- act 'Back': gt 'gadforest','1'
|
|
|
- end
|
|
|
- end
|
|
|
+ ! Sveta can go to the Meadow if she has discovered it and bring Mira too if she is allowed
|
|
|
+ if (meadow > 0 and MiraLoc ! 3):
|
|
|
+ act 'Go to the meadow': minut += 20 & gt 'meadow'
|
|
|
+ elseif ((meadow = 3 or (meadow = 6 and npc_QW['A60'] >= 3)) and MiraLoc = 3):
|
|
|
+ act 'Go to the meadow with Mira': minut += 20 & MiraLoc = 2 & gt 'meadow'
|
|
|
end
|
|
|
|
|
|
- if hour >= 6 and hour <= 20 and sunWeather = 1:
|
|
|
- act 'Go for a walk in the woods':
|
|
|
- cla
|
|
|
- *clr
|
|
|
- menu_off = 1
|
|
|
- minut += 60
|
|
|
- pcs_mood += 20
|
|
|
- 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 PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest0.'+rand(1,2)+'.jpg"></center>'
|
|
|
- if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest1.'+rand(1,3)+'.jpg"></center>'
|
|
|
- if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_tanga0.'+rand(1,2)+'.jpg"></center>'
|
|
|
- if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude0.'+rand(1,4)+'.jpg"></center>'
|
|
|
- 'You are walking through the woods, enjoying the sounds of the forest and the fresh air.'
|
|
|
- else
|
|
|
- if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest'+rand(1,3)+'.jpg"></center>'
|
|
|
- if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest_nude'+rand(1,3)+'.jpg"></center>'
|
|
|
- 'You walk with Mira through the woods, enjoying the sounds of the forest and the fresh air.'
|
|
|
- end
|
|
|
+ ! Can travel directly to the hunters cabin if Sveta has been there before, knows the hunters, and Mira is not here at the forest with Sveta
|
|
|
+ if hunterscabin = 1 and huntersKnow = 1 and MiraLoc ! 3:
|
|
|
+ act 'Go to the hunters cabin':
|
|
|
+ ! daytime chance to get stuck in swamp - use bike to get there 100% of the time
|
|
|
+ if hour >= 6 and hour <= 22:
|
|
|
+ gt 'swamp', 'stuck'
|
|
|
+ ! nighttime chased by wolves - Sveta probably should not be roaming the forest at this time
|
|
|
else
|
|
|
- if MiraLoc ! 3:
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforestwinter0.'+rand(1,2)+'.jpg"></center>'
|
|
|
- 'You walk through the snowy woods, enjoying the sounds of the forest and the fresh air.'
|
|
|
- else
|
|
|
- '<center><img <<$set_imgh>> src="images/characters/village/mira/miraforestwinter.jpg"></center>'
|
|
|
- 'You walk with Mira through the snowy woods, enjoying the sounds of the forest and the fresh air.'
|
|
|
- end
|
|
|
+ gt 'gadforestlost','wolves','forest_edge'
|
|
|
end
|
|
|
-
|
|
|
- act 'Continue':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 'Look for mushrooms and berries':
|
|
|
- cla
|
|
|
- *clr
|
|
|
- menu_off = 1
|
|
|
- minut += 30
|
|
|
- temp_gf = rand(1,2)
|
|
|
- edge_forestday = daystart
|
|
|
- if goforest < 20:goforest += rand(0,1)
|
|
|
- gs 'stat'
|
|
|
-
|
|
|
- ! no mushroom pickers or mushroom pickers moved deeper into the forest
|
|
|
- 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'
|
|
|
+ ! tree circle teleportation for magic users - only found at the edge of the forest
|
|
|
+ gs 'treeCircEntry', 'GadForest'
|
|
|
|
|
|
- gs 'gadforest', 'clothes1'
|
|
|
- if new_boletus = 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
|
|
|
- if new_boletus > 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
|
|
|
- end
|
|
|
- ! mushroom pickers are at the edge of the forest
|
|
|
- if mushroom_pickers = 1 and temp_gf = 1:
|
|
|
- cla
|
|
|
- new_bilberry += rand(0,1)
|
|
|
- bilberry += new_bilberry
|
|
|
- gs 'stat'
|
|
|
+ ! the generic actions for the different parts of the forest are so similar that they are all stored in their own gosubs so the code is not duplicated
|
|
|
+ gs 'gadforest', 'stripping'
|
|
|
|
|
|
- if new_bilberry > 0: gs 'gadforest', 'clothes1'
|
|
|
- if new_bilberry = 0: gs 'gadforest', 'clothes2'
|
|
|
- if new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
|
|
|
- if new_bilberry = 0:'After searching for mushrooms and berries for half an hour you found nothing.'
|
|
|
- end
|
|
|
- if mushroom_pickers = 1 and temp_gf = 2:
|
|
|
- cla
|
|
|
- pcs_mood -= 5
|
|
|
- gs 'stat'
|
|
|
+ gs 'gadforest', 'dressing'
|
|
|
|
|
|
- gs 'gadforest', 'clothes2'
|
|
|
- 'After searching for mushrooms and berries for half an hour you found nothing.'
|
|
|
- end
|
|
|
- act 'Continue':gt 'gadforest','1'
|
|
|
- end
|
|
|
- end
|
|
|
+ gs 'gadforest', 'walking'
|
|
|
|
|
|
- if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and MiraLoc ! 3:
|
|
|
- act 'Go further into the forest':
|
|
|
- if goforest >= lostrand:minut += 30 & gt 'gadforest','2'
|
|
|
- if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
|
|
|
- end
|
|
|
- end
|
|
|
-
|
|
|
- if joint > 0 and jointhigh = 0: act 'Smoke a joint': gs 'drugs', 'joint' & gt $loc, $metka
|
|
|
-
|
|
|
- if goswamp = 1 and MiraLoc ! 3:
|
|
|
- ! day time chance to get stuck in swamp. ps. use bike to get there 100% of the time by illume
|
|
|
- if hour >= 6 and hour < 20:
|
|
|
- act 'Go to the swamp':
|
|
|
- minut += 75
|
|
|
- if goforest >= lostrand:
|
|
|
- gt 'swamp'
|
|
|
- else
|
|
|
- gt 'gadforestswamp','1'
|
|
|
- end
|
|
|
- end
|
|
|
- ! night time chased by wolves
|
|
|
- else
|
|
|
- act 'Go to the swamp':gt 'gadforest_event', 'swamp_road'
|
|
|
- end
|
|
|
- end
|
|
|
- gs 'stat'
|
|
|
+ gs 'gadforest', 'picking'
|
|
|
end
|
|
|
|
|
|
-if $ARGS[0] = 'caught':
|
|
|
+if $ARGS[0] = 'forest_outskirts':
|
|
|
*clr & cla
|
|
|
- menu_off = 1
|
|
|
- caught_rand = rand(0, 100)
|
|
|
- if caught_rand > 90:
|
|
|
- inhib_exp += rand(0,3)
|
|
|
- grandmaQW['nudity_trouble'] += rand(7,10)
|
|
|
- gs 'arousal', 'flash', 10, 'exhibitionism'
|
|
|
- gs 'arousal', 'end'
|
|
|
- gs 'stat'
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_woman.jpg"></center>'
|
|
|
- 'You''ve been spotted walking home naked by all the women of the village. They are all sitting there scolding you. Your grandparents are definitely going to find out about this.'
|
|
|
- elseif caught_rand > 70:
|
|
|
- inhib_exp += rand(0,4)
|
|
|
- grandmaQW['nudity_trouble'] += rand(1,3)
|
|
|
- gs 'arousal', 'flash', 10, 'exhibitionism'
|
|
|
- gs 'arousal', 'end'
|
|
|
- gs 'stat'
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_woman'+rand(1,5)+'.jpg"></center>'
|
|
|
- 'You''ve been spotted walking home naked by a woman from the village. You want to hope she doesn''t tell your grandparents.'
|
|
|
- elseif caught_rand > 50:
|
|
|
- inhib_exp += rand(0,3)
|
|
|
- grandmaQW['nudity_trouble'] += rand(1,3)
|
|
|
- gs 'arousal', 'flash', 10, 'exhibitionism'
|
|
|
- gs 'arousal', 'end'
|
|
|
- gs 'stat'
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_man'+rand(1,5)+'.jpg"></center>'
|
|
|
- 'You''ve been spotted walking home naked by a man from the village. You want to hope he doesn''t tell your grandparents.'
|
|
|
- else
|
|
|
- grandmaQW['nudity_trouble'] += rand(0,1)
|
|
|
- gs 'arousal', 'flash', 10, 'exhibitionism'
|
|
|
- gs 'arousal', 'end'
|
|
|
- gs 'stat'
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
|
|
|
- 'Luckily no one saw you outside naked, but there''s a thrill in almost getting caught.'
|
|
|
- end
|
|
|
- act 'Continue': gt'gaddvor'
|
|
|
-end
|
|
|
|
|
|
-if $ARGS[0] = '2':
|
|
|
- *clr & cla
|
|
|
- ! slightly inside forest
|
|
|
+ clothesAtLocation = FUNC('lost_clothes_here','forest_outskirts')
|
|
|
+
|
|
|
$loc = 'gadforest'
|
|
|
- $metka = '2'
|
|
|
+ $metka = 'forest_outskirts'
|
|
|
$location_type = 'secluded'
|
|
|
|
|
|
$menu_loc = 'gadforest'
|
|
|
- $menu_arg = '2'
|
|
|
+ $menu_arg = 'forest_outskirts'
|
|
|
menu_off = 0
|
|
|
|
|
|
+ $forest_args1 = 'forest_outskirts'
|
|
|
+
|
|
|
+ CLOSE ALL
|
|
|
gs 'gadukino_event', 'sound'
|
|
|
- gs'stat'
|
|
|
-
|
|
|
- ! Add to knowledge of forest
|
|
|
- if goforest < 40:goforest += rand(0,1)
|
|
|
- ! Determine where Sveta got lost in the forest
|
|
|
- lost = 2
|
|
|
- ! chance to get lost
|
|
|
- lostrand = rand(1,60)
|
|
|
- foresteventrand = rand(1,10)
|
|
|
- new_boletus = 0
|
|
|
- new_bilberry = 0
|
|
|
-
|
|
|
- '<center><H4>Forest</H4></center>'
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ '<center><H4>Forest Outskirts</H4></center>'
|
|
|
if month >= 4 and month <= 10:
|
|
|
if hour >= 6 and hour < 22:
|
|
|
'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest2.jpg"></center>'
|
|
|
@@ -385,7 +381,7 @@ if $ARGS[0] = '2':
|
|
|
'You are in the forest. Night in the woods is scary and uncomfortable.'
|
|
|
end
|
|
|
else
|
|
|
- if hour >= 8 and hour < 18:
|
|
|
+ if hour >= 8 and hour < 20:
|
|
|
'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter2.jpg"></center>'
|
|
|
'You are in the forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
|
|
|
else
|
|
|
@@ -393,97 +389,67 @@ if $ARGS[0] = '2':
|
|
|
'You are in the forest. Night in the forest during wintertime is very scary and uncomfortable.'
|
|
|
end
|
|
|
end
|
|
|
- if goforest < 20:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
|
|
|
|
|
|
- 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_hunters'
|
|
|
- if foresteventrand > 7 and month >= 6 and month <= 9 and foresteventday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers3'
|
|
|
+ gs 'gadforest','bushcraft','forest_outskirts'
|
|
|
+ *nl
|
|
|
+ if pcs_bushcraft < 20:
|
|
|
+ 'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
|
|
|
+ else
|
|
|
+ 'You are comfortable navigating this part of the forest, and can adventure deeper into the woods if you want.'
|
|
|
+ end
|
|
|
+ if clothesAtLocation = 1:*nl & 'Your clothes are nearby on the ground.'
|
|
|
+ if hour < 8 or hour > 16:
|
|
|
+ mushroom_pickers = 0
|
|
|
+ *nl
|
|
|
+ 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
|
|
|
+ else
|
|
|
+ *nl
|
|
|
+ if mushroom_pickers = 0:
|
|
|
+ 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
|
|
|
+ elseif mushroom_pickers = 1:
|
|
|
+ 'You can hear other people picking mushrooms and berries at the forests edge.'
|
|
|
+ elseif mushroom_pickers = 2:
|
|
|
+ 'You can see people picking mushrooms and berries here on the outskirts of the forest.'
|
|
|
+ end
|
|
|
+ end
|
|
|
|
|
|
+ foresteventrand = rand(1,20)
|
|
|
+ if foresteventrand <= 2 and month >= 6 and month <= 9 and hour >= 8 and hour <= 16 and mushroom_pickersday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers1'
|
|
|
+ if foresteventrand <= 4 and month >= 6 and month <= 9 and hour >= 8 and hour <= 16 and mushroom_pickersday ! daystart: mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers3'
|
|
|
+ if foresteventrand = 5 and month >= 4 and month <= 10 and ((hour >= 6 and hour < 12) or (hour >= 14 and hour < 18)) and foresteventday ! daystart: gt 'gadforest_event', 'forest_hunters', 'forest_outskirts'
|
|
|
|
|
|
- act 'To the edge of the forest':
|
|
|
- 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 'Look for mushrooms and berries':
|
|
|
- cla
|
|
|
- *clr
|
|
|
- menu_off = 1
|
|
|
- minut += 30
|
|
|
- temp_gf = rand(1,2)
|
|
|
- forestday = daystart
|
|
|
- if goforest < 40:goforest += rand(0,1)
|
|
|
- gs 'stat'
|
|
|
+ act 'Head back out of the forest': minut += 15 & gt 'gadforest', 'forest_edge'
|
|
|
|
|
|
- ! mushroom_pickers either not seen today or still at the edge of the forest
|
|
|
- if mushroom_pickers < 2:
|
|
|
- cla
|
|
|
- new_boletus += 1
|
|
|
- new_bilberry += rand(1,2)
|
|
|
- boletus += new_boletus
|
|
|
- bilberry += new_bilberry
|
|
|
- pcs_mood += 5
|
|
|
- gs 'stat'
|
|
|
+ act 'Go further into the forest': minut += 15 & gt 'gadforest','forest_center'
|
|
|
|
|
|
- gs 'gadforest', 'clothes1'
|
|
|
- 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> 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'
|
|
|
+ ! the generic actions for the different parts of the forest are so similar that they are all stored in their own gosubs so the code is not duplicated
|
|
|
+ gs 'gadforest', 'stripping'
|
|
|
|
|
|
- if new_boletus > 0 or new_bilberry > 0: gs 'gadforest', 'clothes1'
|
|
|
- if new_boletus = 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
|
|
|
- if new_boletus > 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
|
|
|
- end
|
|
|
- if mushroom_pickers = 2 and temp_gf = 2:
|
|
|
- cla
|
|
|
- pcs_mood -= 5
|
|
|
- gs 'stat'
|
|
|
+ gs 'gadforest', 'dressing'
|
|
|
|
|
|
- gs 'gadforest', 'clothes2'
|
|
|
- 'After searching for mushrooms and berries for half an hour you found nothing.'
|
|
|
- end
|
|
|
- act 'Continue':gt 'gadforest','2'
|
|
|
- end
|
|
|
- end
|
|
|
+ gs 'gadforest', 'walking'
|
|
|
|
|
|
- if hour >= 6 and hour <= 20 and month >= 6 and month <= 9:
|
|
|
- act 'Go further into the forest':
|
|
|
- if goforest >= lostrand:minut += 30 & gt 'gadforest','3'
|
|
|
- if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
|
|
|
- end
|
|
|
- end
|
|
|
+ gs 'gadforest', 'picking'
|
|
|
end
|
|
|
|
|
|
-if $ARGS[0] = '3':
|
|
|
+if $ARGS[0] = 'forest_center':
|
|
|
*clr & cla
|
|
|
- ! deep inside forest
|
|
|
+
|
|
|
+ clothesAtLocation = FUNC('lost_clothes_here','forest_center')
|
|
|
+
|
|
|
$loc = 'gadforest'
|
|
|
- $metka = '3'
|
|
|
+ $metka = 'forest_center'
|
|
|
$location_type = 'secluded'
|
|
|
|
|
|
$menu_loc = 'gadforest'
|
|
|
- $menu_arg = '3'
|
|
|
+ $menu_arg = 'forest_center'
|
|
|
menu_off = 0
|
|
|
|
|
|
+ $forest_args1 = 'forest_center'
|
|
|
+
|
|
|
+ CLOSE ALL
|
|
|
gs 'gadukino_event', 'sound'
|
|
|
- gs'stat'
|
|
|
-
|
|
|
- ! Add to knowledge of forest
|
|
|
- if goforest < 60:goforest += rand(0,1)
|
|
|
- lost = 3
|
|
|
- ! Determine where Sveta got lost in the forest
|
|
|
- lostrand = rand(1,100)
|
|
|
- ! chance to get lost
|
|
|
- foresteventrand = rand(1,10)
|
|
|
- new_boletus = 0
|
|
|
- new_bilberry = 0
|
|
|
+ gs 'stat'
|
|
|
|
|
|
'<center><H4>Deep Forest</H4></center>'
|
|
|
if month >= 4 and month <= 10:
|
|
|
@@ -495,7 +461,7 @@ if $ARGS[0] = '3':
|
|
|
'You are deep in the forest. Night in the woods is scary and uncomfortable.'
|
|
|
end
|
|
|
else
|
|
|
- if hour >= 8 and hour < 18:
|
|
|
+ if hour >= 8 and hour < 20:
|
|
|
'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter3.jpg"></center>'
|
|
|
'You are deep in the forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
|
|
|
else
|
|
|
@@ -503,184 +469,496 @@ if $ARGS[0] = '3':
|
|
|
'You are deep in the forest. Night in the forest during wintertime is very scary and uncomfortable.'
|
|
|
end
|
|
|
end
|
|
|
- if goforest < 30:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
|
|
|
|
|
|
- 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_hunters'
|
|
|
-
|
|
|
- act 'Go back to the forest':
|
|
|
- lostrand = rand(1,60)
|
|
|
- if goforest >= lostrand:minut += 30 & gt 'gadforest','2'
|
|
|
- if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
|
|
|
+ gs 'gadforest','bushcraft','forest_center'
|
|
|
+ *nl
|
|
|
+ if pcs_bushcraft < 30:
|
|
|
+ 'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
|
|
|
+ else
|
|
|
+ 'You are comfortable navigating this part of the forest, and can adventure deeper into the woods if you want.'
|
|
|
+ end
|
|
|
+ if clothesAtLocation = 1:*nl & 'Your clothes are nearby on the ground.'
|
|
|
+ if hour < 8 or hour > 16:
|
|
|
+ mushroom_pickers = 0
|
|
|
+ *nl
|
|
|
+ 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
|
|
|
+ else
|
|
|
+ *nl
|
|
|
+ if mushroom_pickers = 0:
|
|
|
+ 'You don''t see or hear any other people picking mushrooms or berries in the forest right now.'
|
|
|
+ elseif mushroom_pickers = 1:
|
|
|
+ 'You can hear people picking mushrooms and berries at the forests edge.'
|
|
|
+ elseif mushroom_pickers = 2:
|
|
|
+ 'You can hear people picking mushrooms and berries at the outskirts of the forest.'
|
|
|
+ end
|
|
|
end
|
|
|
|
|
|
- if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and thicketday ! daystart:
|
|
|
+ foresteventrand = rand(1,20)
|
|
|
+ if foresteventrand <= 2 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'basket'
|
|
|
+ if foresteventrand <= 3 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'bilberry'
|
|
|
+ if foresteventrand <= 4 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'mushroom'
|
|
|
+ if foresteventrand = 5 and month >= 4 and month <= 10 and ((hour >= 6 and hour < 12) or (hour >= 14 and hour < 18)) and foresteventday ! daystart: gt 'gadforest_event', 'forest_hunters', 'forest_center'
|
|
|
|
|
|
- act 'Look for mushrooms and berries':
|
|
|
- *clr & cla
|
|
|
- menu_off = 1
|
|
|
- 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'
|
|
|
- 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
|
|
|
+ act 'Head back out of the forest': minut += 15 & gt 'gadforest', 'forest_outskirts'
|
|
|
|
|
|
- act 'Continue':gt 'gadforest','3'
|
|
|
- end
|
|
|
- end
|
|
|
+ act 'Go further into the swamp': minut += 15 & gt 'swamp', 'start'
|
|
|
|
|
|
- if hour >= 6 and hour <= 20 and month >= 6 and month <= 9:
|
|
|
+ ! the generic actions for the different parts of the forest are so similar that they are all stored in their own gosubs so the code is not duplicated
|
|
|
+ gs 'gadforest', 'stripping'
|
|
|
|
|
|
- act 'Go further into the forest':
|
|
|
- if goforest >= lostrand:minut += 30 & gt 'gadforest','4'
|
|
|
- if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
|
|
|
- end
|
|
|
- end
|
|
|
-end
|
|
|
+ gs 'gadforest', 'dressing'
|
|
|
|
|
|
-if $ARGS[0] = '4':
|
|
|
- *clr & cla
|
|
|
- ! forest near swamp
|
|
|
- $loc = 'gadforest'
|
|
|
- $metka = '4'
|
|
|
- $location_type = 'secluded'
|
|
|
+ gs 'gadforest', 'walking'
|
|
|
|
|
|
- $menu_loc = 'gadforest'
|
|
|
- $menu_arg = '4'
|
|
|
- menu_off = 0
|
|
|
+ gs 'gadforest', 'picking'
|
|
|
+end
|
|
|
|
|
|
- gs 'gadukino_event', 'sound'
|
|
|
- gs'stat'
|
|
|
-
|
|
|
- ! Add to knowledge of forest
|
|
|
- if goforest < 80:goforest += rand(0,1)
|
|
|
- lost = 4
|
|
|
- ! Determine where Sveta got lost in the forest
|
|
|
- lostrand = rand(1,120)
|
|
|
- ! chance to get lost
|
|
|
- foresteventrand = rand(1,10)
|
|
|
- dirty = 0
|
|
|
- new_boletus = 0
|
|
|
- new_bilberry = 0
|
|
|
-
|
|
|
- '<center><H4>Forest near the Swamp</H4></center>'
|
|
|
- if month >= 4 and month <= 10:
|
|
|
- if hour >= 6 and hour < 22:
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest4.jpg"></center>'
|
|
|
- 'You are in the forest near the swamp. The fresh air and singing birds light up your soul with joy.'
|
|
|
- else
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night4.jpg"></center>'
|
|
|
- 'Forest. Night in the woods is scary and uncomfortable.'
|
|
|
+
|
|
|
+! this gs handles the bushcraft increases, clothing degradation, and getting lost in the forest
|
|
|
+! $ARGS[1] - location of forest where this is called from
|
|
|
+! Example: gs 'gadforest', 'bushcraft', 'forest_edge'
|
|
|
+if $ARGS[0] = 'bushcraft':
|
|
|
+ ! bushcraft_rand - the max amount of bushcraft exp that can be gained from an action in an area of the forest
|
|
|
+ ! bushcraft_limit - the max amount bushcraft can be naturally raised to by visiting an area of the forest
|
|
|
+ ! bushcraft_lost - bushcraft needed to no longer get lost when visiting an area of the forest
|
|
|
+ ! torncloth_high_bushcraft - chance of tearing clothes with high bushcraft when visiting an area of the forest
|
|
|
+ ! torncloth_low_bushcraft - chance of tearing clothes with low bushcraft when visiting an area of the forest
|
|
|
+ ! Make sure Sveta always has at least 1 pcs_bushcraft
|
|
|
+ if pcs_bushcraft = 0:pcs_bushcraft = 1
|
|
|
+ if $ARGS[1] = 'forest_edge':
|
|
|
+ bushcraft_rand = 1
|
|
|
+ bushcraft_limit = 10
|
|
|
+ ! Sveta cannot get lost at the forest_edge part of the forest anymore
|
|
|
+ bushcraft_lost = 1
|
|
|
+ torncloth_high_bushcraft = 10
|
|
|
+ torncloth_low_bushcraft = 9
|
|
|
+ elseif $ARGS[1] = 'forest_outskirts':
|
|
|
+ bushcraft_rand = 2
|
|
|
+ bushcraft_limit = 20
|
|
|
+ bushcraft_lost = 20
|
|
|
+ torncloth_high_bushcraft = 9
|
|
|
+ torncloth_low_bushcraft = 7
|
|
|
+ elseif $ARGS[1] = 'forest_center':
|
|
|
+ bushcraft_rand = 3
|
|
|
+ bushcraft_limit = 30
|
|
|
+ bushcraft_lost = 30
|
|
|
+ torncloth_high_bushcraft = 8
|
|
|
+ torncloth_low_bushcraft = 5
|
|
|
+ elseif $ARGS[1] = 'swamp_woods':
|
|
|
+ bushcraft_rand = 4
|
|
|
+ bushcraft_limit = 40
|
|
|
+ ! Sveta cannot get lost at the swamp_woods part of the forest either
|
|
|
+ bushcraft_lost = 1
|
|
|
+ torncloth_high_bushcraft = 7
|
|
|
+ torncloth_low_bushcraft = 3
|
|
|
+ end
|
|
|
+ ! most annoying part of the old forest code was how difficult it was to do anything without getting lost and having your clothes destroyed quickly
|
|
|
+ ! the new pcs_bushcraft stat will now help Sveta keep her clothes intact longer and it is much less grindy than the old goforest variable for navigating the forest
|
|
|
+ ! also if Sveta meets the hunters they can help her raise this stat as well but it will go up naturally too from just visiting the forest every day
|
|
|
+ ! if Sveta raises bushcraft with the hunters then she will get to a point where she no longer get lost in the forest since there is no cap on bushcraft when learning from them
|
|
|
+ ripclothesrand = rand(1,10)
|
|
|
+ if pcs_bushcraft < bushcraft_limit:
|
|
|
+ ! use the higher chance of ripping clothes when Sveta has lower bushcraft
|
|
|
+ if ripclothesrand >= torncloth_low_bushcraft: gs 'gadforest', 'torncloth'
|
|
|
+
|
|
|
+ ! bushcraft exp gained is random to keep it from increasing too fast
|
|
|
+ if rand(0,1) = 0:
|
|
|
+ bushcraft_exp += rand(0,bushcraft_rand)
|
|
|
end
|
|
|
else
|
|
|
- if hour >= 8 and hour < 18:
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter4.jpg"></center>'
|
|
|
- 'You are in the forest near the swamp. The forest in the winter is very beautiful, the fresh air makes you happy.'
|
|
|
+ ! use the lower chance of ripping clothes when Sveta has higher bushcraft
|
|
|
+ if ripclothesrand >= torncloth_high_bushcraft: gs 'gadforest', 'torncloth'
|
|
|
+ end
|
|
|
+
|
|
|
+ ! decide if Sveta is now lost as Sveta raises her bushcraft her chances of getting lost decreases
|
|
|
+ if pcs_bushcraft < bushcraft_lost:
|
|
|
+ lostrand = rand(1,bushcraft_lost)
|
|
|
+ if pcs_bushcraft < lostrand: lost_girl = 1 & forest_lostday = daystart & gt 'gadforestlost', $ARGS[1]
|
|
|
+ end
|
|
|
+end
|
|
|
+
|
|
|
+! this gs handles the actual degradation and removal of clothes from Sveta in the forest
|
|
|
+! this should only be called from inside of gs 'gadforest', 'bushcraft'
|
|
|
+if $ARGS[0] = 'torncloth':
|
|
|
+ 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 tear slightly.'
|
|
|
+ dynamic $clothingworntype + 'H[<<clothingwornnumber>>] -= 1'
|
|
|
+ !add remove clothes if worn out
|
|
|
+ if dyneval('RESULT = <<$clothingworntype>>H[<<clothingwornnumber>>]') <= 0:
|
|
|
+ 'Your ripped clothes were barely holding together, but now they have finally fell apart. You are naked now.'
|
|
|
+ gadforest_clothestorn = 1
|
|
|
+ gs 'clothing', 'strip', 'gadforest'
|
|
|
+ gs 'stat'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+end
|
|
|
+
|
|
|
+! this gs handles stripping for Sveta in the various locations of the forest
|
|
|
+! $forest_args1 - location of forest where this is called from
|
|
|
+! Example: gs 'gadforest', 'stripping'
|
|
|
+if $ARGS[0] = 'stripping':
|
|
|
+ ! stripping requires there to be no picnic going on, to have clothes on, for there to be no clothes already abandoned at the current location, between april and october and lowered inhibitions or higher exhibitionism
|
|
|
+ if $clothingworntype ! 'nude' and clothesAtLocation = 0 and month >= 4 and month <= 10 and hour >= 6 and hour < 22 and (pcs_inhib >= 25 or exhibitionist_lvl > 1):
|
|
|
+ ! Mira only goes to the forest edge
|
|
|
+ if MiraLoc = 3 and $forest_args1 = 'forest_edge':
|
|
|
+ ! stripping with Mira requires completing talking to her about it already and doing their nude event in the forest already
|
|
|
+ if miranudetalk = 2:
|
|
|
+ act 'Strip Naked with Mira':
|
|
|
+ *clr & cla
|
|
|
+ menu_off = 1
|
|
|
+ minut += 5
|
|
|
+ if pcs_inhib < 50:inhib_exp += rand(1,3)
|
|
|
+ gs 'underwear', 'remove'
|
|
|
+ if swamp_clothes = 0:
|
|
|
+ gs 'clothing', 'strip', $forest_args1
|
|
|
+ elseif swamp_clothes = 1:
|
|
|
+ gs 'clothing', 'strip', 'gadforest'
|
|
|
+ gs 'clothing', 'swamp_clothes', 0
|
|
|
+ end
|
|
|
+ gs 'exhibitionism', 3
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ '<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest6.jpg"></center>'
|
|
|
+
|
|
|
+ 'You and Mira quickly get undressed, leaving your clothes in a neat pile on the ground.'
|
|
|
+
|
|
|
+ act 'Continue': gt 'gadforest', $forest_args1
|
|
|
+ end
|
|
|
+ end
|
|
|
else
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night4.jpg"></center>'
|
|
|
- 'You are in the forest near the swamp. Night in the forest during wintertime is very scary and uncomfortable.'
|
|
|
+ ! picnic blocks being naked at the forest edge but not other parts of the forest
|
|
|
+ if (forestpicnic = 0 and $forest_args1 = 'forest_edge') or $forest_args1 ! 'forest_edge':
|
|
|
+ act 'Strip Naked':
|
|
|
+ *clr & cla
|
|
|
+ menu_off = 1
|
|
|
+ minut += 5
|
|
|
+ if pcs_inhib < 50:inhib_exp += rand(1,3)
|
|
|
+ gs 'underwear', 'remove'
|
|
|
+ if swamp_clothes = 0:
|
|
|
+ gs 'clothing', 'strip', $forest_args1
|
|
|
+ elseif swamp_clothes = 1:
|
|
|
+ gs 'clothing', 'strip', 'gadforest'
|
|
|
+ gs 'clothing', 'swamp_clothes', 0
|
|
|
+ end
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
|
|
|
+ if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
|
|
|
+
|
|
|
+ 'You quickly get undressed, leaving your clothes in a neat pile on the ground.'
|
|
|
+
|
|
|
+ if $forest_args1 = 'swamp_woods':
|
|
|
+ act 'Continue': gt 'swamp_woods', 'start'
|
|
|
+ else
|
|
|
+ act 'Continue': gt 'gadforest', $forest_args1
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
end
|
|
|
end
|
|
|
- if goforest < 60:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
|
|
|
+end
|
|
|
|
|
|
- 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_hunters'
|
|
|
+! this gs handles dressing for Sveta in the various locations of the forest
|
|
|
+! $forest_args1 - location of forest where this is called from
|
|
|
+! Example: gs 'gadforest', 'dressing'
|
|
|
+if $ARGS[0] = 'dressing':
|
|
|
+ ! code for different variations of getting dressed or dealing with clothes left in the forest
|
|
|
+ if clothesAtLocation = 1:
|
|
|
+ if $clothingworntype = 'nude':
|
|
|
+ act 'Get dressed':
|
|
|
+ *clr & cla
|
|
|
+ menu_off = 1
|
|
|
+ minut += 5
|
|
|
+ gs 'clothing', 'swamp_clothes', 0
|
|
|
+ gs 'underwear', 'wear'
|
|
|
+ gs 'clothing', 'recover_lost_clothes', $forest_args1, 1
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
|
|
|
+ if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'You change back into your clothes.'
|
|
|
|
|
|
- act 'Go back to the deep woods':
|
|
|
- lostrand = rand(1,100)
|
|
|
- if goforest >= lostrand:minut += 30 & gt 'gadforest','3'
|
|
|
- if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
|
|
|
+ if $forest_args1 = 'swamp_woods':
|
|
|
+ act 'Continue': gt 'swamp_woods', 'start'
|
|
|
+ else
|
|
|
+ act 'Continue': gt 'gadforest', $forest_args1
|
|
|
+ end
|
|
|
+ end
|
|
|
+ elseif $clothingworntype ! 'nude':
|
|
|
+ ! hessian sack from hunters is not allowed to leave the woods it is only supposed to be a temporary item
|
|
|
+ if $clothingworntype = 'cheap' and clothingwornnumber = 414:
|
|
|
+ act 'Wear your abandoned clothing':
|
|
|
+ *clr & cla
|
|
|
+ menu_off = 1
|
|
|
+ minut += 5
|
|
|
+ gs 'clothing', 'swamp_clothes', 0
|
|
|
+ gs 'underwear', 'wear'
|
|
|
+ gs 'clothing', 'recover_lost_clothes', $forest_args1, 1
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
|
|
|
+ if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'You wear your abandoned clothing and get rid of the hessian sack the hunters gave you.'
|
|
|
+
|
|
|
+ if $forest_args1 = 'swamp_woods':
|
|
|
+ act 'Continue': gt 'swamp_woods', 'start'
|
|
|
+ else
|
|
|
+ act 'Continue': gt 'gadforest', $forest_args1
|
|
|
+ end
|
|
|
+ end
|
|
|
+ else
|
|
|
+ act 'Pick up your abandoned clothing':
|
|
|
+ cla
|
|
|
+ menu_off = 1
|
|
|
+ minut += 5
|
|
|
+ gs 'clothing', 'swamp_clothes', 0
|
|
|
+ gs 'underwear', 'wear'
|
|
|
+ gs 'clothing', 'recover_lost_clothes', $forest_args1
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ *nl
|
|
|
+ 'You pick up your abandoned clothing.'
|
|
|
+
|
|
|
+ if $forest_args1 = 'swamp_woods':
|
|
|
+ act 'Continue': gt 'swamp_woods', 'start'
|
|
|
+ else
|
|
|
+ act 'Continue': gt 'gadforest', $forest_args1
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
end
|
|
|
- if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and swampforest ! daystart:
|
|
|
- act 'Look for mushrooms and berries':
|
|
|
- cla
|
|
|
- *clr
|
|
|
- menu_off = 1
|
|
|
- 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'
|
|
|
+end
|
|
|
+
|
|
|
+! this gs handles walking for Sveta in the various locations of the forest
|
|
|
+! $forest_args1 - location of forest where this is called from
|
|
|
+! Example: gs 'gadforest', 'walking'
|
|
|
+if $ARGS[0] = 'walking':
|
|
|
+ if hour >= 6 and hour <= 22:
|
|
|
+ ! Mira only goes to the forest edge
|
|
|
+ if MiraLoc = 3 and $forest_args1 = 'forest_edge':
|
|
|
+ act 'Go for a walk in the woods with Mira (1:00)':
|
|
|
+ *clr & cla
|
|
|
+ menu_off = 1
|
|
|
+ minut += 60
|
|
|
+ pcs_mood += 20
|
|
|
+ pcs_health += healthmax/5
|
|
|
+ gs 'gadforest', 'bushcraft', $forest_args1
|
|
|
+ if $clothingworntype = 'nude':
|
|
|
+ if pcs_inhib < 50:inhib_exp += rand(1,5)
|
|
|
+ gs 'exhibitionism', 3
|
|
|
+ end
|
|
|
+ gs 'stat'
|
|
|
|
|
|
- gs 'gadforest', 'clothes1'
|
|
|
- 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
|
|
|
+ if month >= 4 and month <= 10:
|
|
|
+ ! 10% chance of finding meadow (needed to advance Miras quest)
|
|
|
+ if rand(0,9) = 0 and meadow = 0 and $forest_args1 = 'forest_edge':
|
|
|
+ gt 'gadforest_event', 'find_meadow'
|
|
|
+ else
|
|
|
+ if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest'+rand(1,3)+'.jpg"></center>'
|
|
|
+ if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest_nude'+rand(1,3)+'.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'You spend an hour walking with Mira through the woods, chatting and enjoying the sounds of the forest and the fresh air.'
|
|
|
+ end
|
|
|
+ else
|
|
|
+ '<center><img <<$set_imgh>> src="images/characters/village/mira/miraforestwinter.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'You spend an hour walking with Mira through the snowy woods, chatting and enjoying the sounds of the forest and the fresh air.'
|
|
|
+ end
|
|
|
+
|
|
|
+ act 'Continue':gt 'gadforest', $forest_args1
|
|
|
+ end
|
|
|
+ else
|
|
|
+ act 'Go for a walk in the woods (1:00)':
|
|
|
+ *clr & cla
|
|
|
+ menu_off = 1
|
|
|
+ minut += 60
|
|
|
+ pcs_mood += 20
|
|
|
+ pcs_health += healthmax/5
|
|
|
+ gs 'gadforest', 'bushcraft', $forest_args1
|
|
|
+ if $clothingworntype = 'nude' and pcs_inhib < 50:inhib_exp += rand(1,5)
|
|
|
+ gs 'stat'
|
|
|
|
|
|
- act 'Continue':gt 'gadforest','4'
|
|
|
+ ! 10% chance of finding meadow (needed to advance Miras quest)
|
|
|
+ if rand(0,9) = 0 and meadow = 0 and $forest_args1 = 'forest_edge':
|
|
|
+ gt 'gadforest_event', 'find_meadow'
|
|
|
+ else
|
|
|
+ if month >= 4 and month <= 10:
|
|
|
+ if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest0.'+rand(1,2)+'.jpg"></center>'
|
|
|
+ if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest1.'+rand(1,3)+'.jpg"></center>'
|
|
|
+ if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_tanga0.'+rand(1,2)+'.jpg"></center>'
|
|
|
+ if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude0.'+rand(1,4)+'.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'You spend an hour walking through the woods, enjoying the sounds of the forest and the fresh air.'
|
|
|
+ else
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforestwinter0.'+rand(1,6)+'.jpg"></center>'
|
|
|
+ *nl
|
|
|
+ 'You spend an hour walking through the snowy woods, enjoying the sounds of the forest and the fresh air.'
|
|
|
+ end
|
|
|
+
|
|
|
+ if $forest_args1 = 'swamp_woods':
|
|
|
+ act 'Continue': gt 'swamp_woods', 'start'
|
|
|
+ else
|
|
|
+ act 'Continue': gt 'gadforest', $forest_args1
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
end
|
|
|
end
|
|
|
+end
|
|
|
|
|
|
- act 'Go further into the swamp':
|
|
|
- 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'
|
|
|
+! this gs handles mushroom and berry picking for Sveta in the various locations of the forest
|
|
|
+! $forest_args1 - location of forest where this is called from
|
|
|
+! Example: gs 'gadforest', 'picking'
|
|
|
+if $ARGS[0] = 'picking':
|
|
|
+ if StoryLine = 1 or (StoryLine = 0 and mirapickingtalk = 1):
|
|
|
+ if hour >= 6 and hour <= 22 and month >= 6 and month <= 9 and boletus + boletus_cooked + bilberry < 5:
|
|
|
+ if ($forest_args1 = 'forest_edge' and edge_pickingday ! daystart) or ($forest_args1 = 'forest_outskirts' and outskirts_pickingday ! daystart) or ($forest_args1 = 'forest_center' and center_pickingday ! daystart) or ($forest_args1 = 'swamp_woods' and swamp_pickingday ! daystart):
|
|
|
+ act 'Look for mushrooms and berries'+iif(MiraLoc = 3 and $forest_args1 = 'forest_edge', ' with Mira (0:30)',' (0:30)'):
|
|
|
+ *clr & cla
|
|
|
+ menu_off = 1
|
|
|
+
|
|
|
+ if $forest_args1 = 'forest_edge':
|
|
|
+ edge_pickingday = daystart
|
|
|
+ mushroom_pickers_check = 1
|
|
|
+ max_boletus = 1
|
|
|
+ max_bilberry = 1
|
|
|
+ elseif $forest_args1 = 'forest_outskirts':
|
|
|
+ outskirts_pickingday = daystart
|
|
|
+ mushroom_pickers_check = 2
|
|
|
+ max_boletus = 2
|
|
|
+ max_bilberry = 2
|
|
|
+ elseif $forest_args1 = 'forest_center':
|
|
|
+ center_pickingday = daystart
|
|
|
+ mushroom_pickers_check = 3
|
|
|
+ max_boletus = 3
|
|
|
+ max_bilberry = 3
|
|
|
+ elseif $forest_args1 = 'swamp_woods':
|
|
|
+ swamp_pickingday = daystart
|
|
|
+ mushroom_pickers_check = 4
|
|
|
+ max_boletus = 4
|
|
|
+ max_bilberry = 4
|
|
|
+ end
|
|
|
+
|
|
|
+ minut += 30
|
|
|
+ new_boletus = 0
|
|
|
+ new_bilberry = 0
|
|
|
+ gs 'gadforest', 'bushcraft', $forest_args1
|
|
|
+ if $clothingworntype = 'nude':
|
|
|
+ if pcs_inhib < 50:inhib_exp += rand(1,5)
|
|
|
+ if MiraLoc = 3 and $forest_args1 = 'forest_edge': gs 'exhibitionism', 3
|
|
|
+ end
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ ! mushroom_pickers are not at the location of the forest Sveta is in
|
|
|
+ if mushroom_pickers ! mushroom_pickers_check:
|
|
|
+ new_boletus += max_boletus
|
|
|
+ new_bilberry += max_bilberry
|
|
|
+ boletus += new_boletus
|
|
|
+ bilberry += new_bilberry
|
|
|
+ pcs_mood += 10
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
|
|
|
+ *nl
|
|
|
+ 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
|
|
|
+ ! mushroom pickers are at the location of the forest Sveta is in
|
|
|
+ elseif mushroom_pickers = mushroom_pickers_check:
|
|
|
+ new_boletus += rand(0,max_boletus)
|
|
|
+ new_bilberry += rand(0,max_bilberry)
|
|
|
+ boletus += new_boletus
|
|
|
+ bilberry += new_bilberry
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ if new_boletus > 0 and new_bilberry > 0:
|
|
|
+ pcs_mood += 10
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
|
|
|
+ *nl
|
|
|
+ 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
|
|
|
+ elseif new_boletus = 0 and new_bilberry > 0:
|
|
|
+ pcs_mood += 5
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
|
|
|
+ *nl
|
|
|
+ 'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
|
|
|
+ elseif new_boletus > 0 and new_bilberry = 0:
|
|
|
+ pcs_mood += 5
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ gs 'gadforest', 'picking_clothes', $forest_args1, 'mushroom'
|
|
|
+ *nl
|
|
|
+ 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms'
|
|
|
+ elseif new_boletus = 0 and new_bilberry = 0:
|
|
|
+ pcs_mood -= 5
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ gs 'gadforest', 'picking_clothes_empty', $forest_args1
|
|
|
+ *nl
|
|
|
+ 'After searching for mushrooms and berries for half an hour you found nothing.'
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ if $forest_args1 = 'swamp_woods':
|
|
|
+ act 'Continue': gt 'swamp_woods', 'start'
|
|
|
+ else
|
|
|
+ act 'Continue': gt 'gadforest', $forest_args1
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
end
|
|
|
end
|
|
|
|
|
|
-!dynamics to ARGS by illume
|
|
|
-if $ARGS[0] = 'clothes1':
|
|
|
- if MiraLoc ! 3:
|
|
|
- if $clothingworntype ! 'nude' and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom1.jpg"></center>'
|
|
|
- if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom2.jpg"></center>'
|
|
|
- if $clothingworntype ! 'nude' and $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom3.jpg"></center>'
|
|
|
- if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom4.'+rand(1,3)+'.jpg"></center>'
|
|
|
-
|
|
|
- else
|
|
|
- if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom'+rand(1,2)+'.jpg"></center>'
|
|
|
- if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude'+rand(1,2)+'.jpg"></center>'
|
|
|
+! this gs handles images for mushroom and berry picking for Sveta in the various locations of the forest when she finds at least 1 kg of berries or mushrooms
|
|
|
+! $ARGS[1] - location of forest where this is called from
|
|
|
+! $ARGS[2] - whether you want images for mushrooms or berries
|
|
|
+! Example: gs 'gadforest', 'picking_clothes', 'forest_edge', 'mushroom'
|
|
|
+if $ARGS[0] = 'picking_clothes':
|
|
|
+ if $ARGS[2] = 'mushroom':
|
|
|
+ if MiraLoc = 3 and $ARGS[1] = 'forest_edge':
|
|
|
+ if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom'+rand(1,2)+'.jpg"></center>'
|
|
|
+ if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude'+rand(1,2)+'.jpg"></center>'
|
|
|
+ else
|
|
|
+ if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom4.'+rand(1,3)+'.jpg"></center>'
|
|
|
+ if PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom1.jpg"></center>'
|
|
|
+ if $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom2.jpg"></center>'
|
|
|
+ if $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom3.jpg"></center>'
|
|
|
+ end
|
|
|
+ elseif $ARGS[2] = 'berry':
|
|
|
+ if MiraLoc = 3 and $ARGS[1] = 'forest_edge':
|
|
|
+ if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom'+rand(1,2)+'.jpg"></center>'
|
|
|
+ if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude'+rand(1,2)+'.jpg"></center>'
|
|
|
+ else
|
|
|
+ if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom4.'+rand(1,3)+'.jpg"></center>'
|
|
|
+ if PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/blueberry_picking_'+rand(3,6)+'.jpg"></center>'
|
|
|
+ if $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/blueberry_picking_2.jpg"></center>'
|
|
|
+ if $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/blueberry_picking_1.jpg"></center>'
|
|
|
+ end
|
|
|
end
|
|
|
end
|
|
|
|
|
|
-if $ARGS[0] = 'clothes2':
|
|
|
- if MiraLoc ! 3:
|
|
|
+! this gs handles images for mushroom and berry picking for Sveta in the various locations of the forest when she finds 0 kg of berries or mushrooms
|
|
|
+! $ARGS[1] - location of forest where this is called from
|
|
|
+! Example: gs 'gadforest', 'picking_clothes_empty', 'forest_edge'
|
|
|
+if $ARGS[0] = 'picking_clothes_empty':
|
|
|
+ if MiraLoc = 3 and $ARGS[1] = 'forest_edge':
|
|
|
+ if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom3.jpg"></center>'
|
|
|
+ if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude3.jpg"></center>'
|
|
|
+ else
|
|
|
if $clothingworntype ! 'nude' and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest2.jpg"></center>'
|
|
|
if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest3.jpg"></center>'
|
|
|
if $clothingworntype ! 'nude' and $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_tanga1.'+rand(1,2)+'.jpg"></center>'
|
|
|
if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude1.'+rand(1,4)+'.jpg"></center>'
|
|
|
- else
|
|
|
- if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom3.jpg"></center>'
|
|
|
- if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude3.jpg"></center>'
|
|
|
end
|
|
|
end
|
|
|
|
|
|
-if $ARGS[0] = 'gadforestloststart':
|
|
|
- cla
|
|
|
- *clr
|
|
|
- menu_off = 1
|
|
|
- gs 'stat'
|
|
|
-
|
|
|
- '<center><H4>Somewhere in the woods</H4></center>'
|
|
|
- if month >= 5 and month <= 9:
|
|
|
- if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear1.jpg"></center>'
|
|
|
- if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear2.jpg"></center>'
|
|
|
- else
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear3.jpg"></center>'
|
|
|
- end
|
|
|
- 'You suddenly realize in horror that you are not familiar with the area you are in... you are lost!.'
|
|
|
-
|
|
|
- act 'Look for a way out':
|
|
|
- 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 rescue in forest by illume
|
|
|
- forest_lost = 1
|
|
|
- if StoryLine = 1: forest_lostday = daystart + rand(1,3)
|
|
|
-end
|
|
|
-
|
|
|
--- gadforest ---------------------------------
|
|
|
|
