# gargazel
$metka = $ARGS[0]
$loc = $CURLOC
'
garage
'
if father_go = 1 and hour >= 16 and hour < 21:
'
'
'Large garage in which to store the gazelle stepfather.'
else
'
'
'Large garage in which to store the gazelle stepfather. Now the garage is closed on the lock.'
end
clr
gs 'stat'
act 'Leave':minut += 5 & gt 'garmassiv'
if father_go = 1 and hour >= 16 and hour < 21:
'Now stepfather in the garage, car repairs.'
act 'Help':
cls
minut += 15
father += rand(1, 3)
gs 'stat'
'You became stepfather to help repair the car, handing him the keys and bolts.'
act 'further':gt $curloc
if father >= 80 and hour = 20:
'Stepfather took from a drawer a bottle of vodka and a jar of pickles. "I probably drink after work."'
act 'further':
cls
minut += 60
father += rand(1, 3)
gs 'stat'
'Stepfather poured himself a glass of vodka and drank. You began to talk with him about everything.'
act 'further':gt $curloc
end
end
end
end
if YouCanGar > 0:
'In the garage there is stored <> One unit of product, with a total capacity 100 One_unit. To, that would be able to sell the product out of the garage, you have to transfer it to your room.'
if tovarL >= 30:'Home and so all culled product, transfer nowhere.'
if tovarL < 30:
perenGarTov = 30-tovarL
'I could move out of the garage <> One unit of the goods in the room.'
if GarTorgItem > 0:
if GarTorgItem >= perenGarTov:
act 'move <> One unit of product':
cls
minut += 60
tovarL += perenGarTov
GarTorgItem -= perenGarTov
gs 'stat'
'You hour dealt with the goods .'
act 'further':gt $curloc
end
end
if GarTorgItem < perenGarTov:
act 'move <> One unit of product':
cls
minut += 60
tovarL += GarTorgItem
GarTorgItem = 0
gs 'stat'
'You hour dealt with the goods .'
act 'further':gt $curloc
end
end
end
end
end
--- gargazel ---------------------------------