# 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 garden which is growing almost everything.'
if month >= 4 and month <= 10:'A little way there strawberry plot and orchard.'
!job Granny
if work_garden = 1:
act 'Working in the garden':
cla
*clr
minut += 180
sweat += 10
work_garden = 0
grandmahelp += 3
pcs_stren += 1
fat -= RAND(1,5)
gs 'stat'
'+'.jpg)
'
'You some time working in the garden.'
act 'Finish':gt'Gadgarden','garden'
end
end
!job Granny
if water_garden = 1:
act 'Watering the garden':
cla
*clr
sweat += 10
minut += 60
water_garden = 0
grandmahelp += 1
pcs_vital += 1
fat -= RAND(1,2)
gs 'stat'
'
'
'You techenie hours watering the beds in the garden.'
act 'Finish':gt'Gadgarden','garden'
end
end
!job Granny
if harvest_garden = 1:
act 'Harvest':
cla
*clr
minut += 180
sweat += 10
harvest_garden = 0
grandmahelp += 3
pcs_stren += 1
fat -= RAND(1,3)
gs 'stat'
'+'.jpg)
'
'You techenii a few hours, pick 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
'Strawberry field where, in season, you can grow some strawberries.'
if month >= 6 and month <= 7 and strawberriesday ! daystart:
act 'To eat strawberries':
cla
*clr
strawberriesday = daystart
minut += 60
manna += mannamax/10
water += 40
energy += 15
willpower += willpowermax/10
cumspclnt = 2 & gs 'cum_cleanup' & fbreath = 0
gs 'stat'
'
'
'You some time wandering through the plot collecting ripe berries immediately throwing them in my mouth.'
act 'Finish':gt'Gadgarden','strawberry'
end
end
!job Granny
if collect_strawberries = 1:
act 'To collect the strawberries':
cla
*clr
minut += 180
sweat += 10
collect_strawberries = 0
grandmahelp += 5
pcs_agil += 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 berries 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
'The orchard in which grow Apple and pear.'
if month >= 7 and month <= 9 and fruitday ! daystart:
act 'To eat fruit':
cla
*clr
fruitday = daystart
minut += 60
manna += mannamax/10
water += 20
energy += 30
willpower += willpowermax/10
cumspclnt = 2 & gs 'cum_cleanup' & fbreath = 0
gs 'stat'
'
'
'You have some time wander around the garden munching on ripe fruit.'
act 'Finish':gt 'Gadgarden','fruit_garden'
end
end
!job Granny
if fruit_collect = 1:
act 'Collect fruit':
cla
*clr
minut += 180
sweat += 10
fruit_collect = 0
grandmahelp += 5
pcs_agil += 1
fat -= RAND(1,3)
gs 'stat'
if CloSkirtShortness = 0:'
'
if CloSkirtShortness > 0 and tanga = 1:'
'
if CloSkirtShortness > 0 and tanga = 0:'
'
'You gather in the garden of ripe fruit.'
act 'Finish':gt 'Gadgarden','fruit_garden'
end
end
act 'Go':minut += 5 & gt'Gadgarden','garden'
end
--- Gadgarden ---------------------------------