# Gadgarden
if $ARGS[0] = 'garden':
$location_type = 'secluded'
$metka = $ARGS[0]
$loc = $CURLOC
gs 'gadukino_event', 'sound'
cls
gs'stat'
!gs'time'
if month >= 4 and month <= 10:
if hour >= 6 and hour < 21:
'
'
else
''
end
else
if hour >= 8 and hour < 18:
''
else
''
end
end
'A large vegetable garden that your grandparents are very proud of.'
if month >= 4 and month <= 10:'A small land plot is dedicated to a strawberry plot and a fruit orchard.'
!job Granny
if work_garden = 1:
act 'Work in the garden (3:00)':
cla
*clr
minut += 180
pcs_sweat += 10
work_garden = 0
grandmahelp += 3
stren_exp += 1
fat -= RAND(1,5)
gs 'stat'
''
'You spend some time doing some gardening.'
act 'Finish':gt'Gadgarden','garden'
end
end
!job Granny
if water_garden = 1:
act 'Water the garden (1:00)':
cla
*clr
pcs_sweat += 10
minut += 60
water_garden = 0
grandmahelp += 1
vital_exp += 1
fat -= RAND(1,2)
gs 'stat'
''
'You spend an hour watering the garden.'
act 'Finish':gt'Gadgarden','garden'
end
end
!job Granny
if harvest_garden = 1:
act 'Harvest (3:00)':
cla
*clr
minut += 180
pcs_sweat += 10
harvest_garden = 0
grandmahelp += 3
stren_exp += 1
fat -= RAND(1,3)
gs 'stat'
''
'You spend a few hours harvesting vegetables in the garden.'
act 'Finish':gt'Gadgarden','garden'
end
end
act 'Go outside':minut += 5 & gt'Gaddvor'
end
if $ARGS[0] = 'strawberry':
$metka = $ARGS[0]
$loc = $CURLOC
gs 'gadukino_event', 'sound'
cls
gs'stat'
!gs'time'
if month = 6 or month = 7:
if hour >= 6 and hour < 21:
''
else
''
end
else
if hour >= 6 and hour < 21:
''
else
''
end
end
'It''s strawberry season, you approach the field where the strawberries grow, searching for some ripe strawberries.'
if month >= 6 and month <= 7 and strawberriesday ! daystart:
act 'Eat the strawberries (1:00)':
cla
*clr
strawberriesday = daystart
minut += 60
pcs_mood += 10
water += 40
pcs_energy += 15
pcs_willpwr += willpowermax/10
cumspclnt = 2 & gs 'cum_cleanup' & pcs_breath = 0
gs 'stat'
''
'You spend some time wandering through the plot searching for ripe strawberries. As soon as you notice a strawberry, you immediately pick it up and eat as many as you can.'
act 'Finish':gt'Gadgarden','strawberry'
end
end
!job Granny
if collect_strawberries = 1:
act 'Collect strawberries (3:00)':
cla
*clr
minut += 180
pcs_sweat += 10
collect_strawberries = 0
grandmahelp += 5
agil_exp += 1
fat -= 1
gs 'stat'
if CloSkirtShortness = 0:''
if CloSkirtShortness > 0 and tanga = 1:''
if CloSkirtShortness > 0 and tanga = 0:''
'You wander through the plot collecting ripe strawberries in the basket.'
act 'Finish':gt'Gadgarden','strawberry'
end
end
act 'Go':minut += 5 & gt'Gadgarden','garden'
end
if $ARGS[0] = 'fruit_garden':
$metka = $ARGS[0]
$loc = $CURLOC
gs 'gadukino_event', 'sound'
cls
gs'stat'
!gs'time'
if hour >= 6 and hour < 21:
''
else
''
end
'There are apples and pears growing in the fruit orchard.'
if month >= 7 and month <= 9 and fruitday ! daystart:
act 'Eat the fruit (1:00)':
cla
*clr
fruitday = daystart
minut += 60
pcs_mood += 10
water += 20
pcs_energy += 30
pcs_willpwr += willpowermax/10
cumspclnt = 2 & gs 'cum_cleanup' & pcs_breath = 0
gs 'stat'
''
'You spend some time wandering around the orchard munching on the ripe fruit.'
act 'Finish':gt 'Gadgarden','fruit_garden'
end
end
!job Granny
if fruit_collect = 1:
act 'Collect fruit (3:00)':
cla
*clr
minut += 180
pcs_sweat += 10
fruit_collect = 0
grandmahelp += 5
agil_exp += 1
fat -= RAND(1,3)
gs 'stat'
if CloSkirtShortness = 0:''
if CloSkirtShortness > 0 and tanga = 1:''
if CloSkirtShortness > 0 and tanga = 0:''
'You walk around the orchard and pick the ripe fruit hanging from the trees.'
act 'Finish':gt 'Gadgarden','fruit_garden'
end
end
act 'Go':minut += 5 & gt'Gadgarden','garden'
end
--- Gadgarden ---------------------------------