|
@@ -207,7 +207,7 @@ if $ARGS[0] = 'forest_edge':
|
|
|
gs 'arousal', 'end'
|
|
|
gs 'stat'
|
|
|
|
|
|
- if StoryLine = 1 and grandaQW['block'] = 0:
|
|
|
+ if mid($start_type,1,2) = 'sg' 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:
|
|
@@ -809,105 +809,103 @@ end
|
|
|
! $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 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
|
|
|
+ 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 'arousal', 'flash', 5
|
|
|
- gs 'arousal', 'end'
|
|
|
- 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 'arousal', 'flash', 5
|
|
|
+ gs 'arousal', 'end'
|
|
|
end
|
|
|
+ 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'
|
|
|
|
|
|
- ! 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
|
|
|
+ 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.'
|
|
|
- ! 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
|
|
|
+ elseif new_boletus = 0 and new_bilberry > 0:
|
|
|
+ pcs_mood += 5
|
|
|
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
|
|
|
+ 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'
|
|
|
|
|
|
- if $forest_args1 = 'swamp_woods':
|
|
|
- act 'Continue': gt 'swamp_woods', 'start'
|
|
|
- else
|
|
|
- act 'Continue': gt 'gadforest', $forest_args1
|
|
|
+ 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
|