# gargazel
$metka = $ARGS[0]
$loc = $CURLOC
fatherdrunk=0
clr
gs 'stat'
'
Garage
'
if father_go = 1 and hour >= 16 and hour < 21:
''
'Large garage in which your stepfather keeps his beloved car, a Gazelle.'
else
''
'Large garage in which your stepfather keeps his beloved car, a Gazelle. Right now the garage is closed and locked with a huge padlock.'
end
act 'Leave':minut += 5 & gt 'garmassiv'
if father_go = 1 and hour >= 16 and hour < 20:
'Right now your stepfather is in the garage, doing car repairs.'
end
if father_go=1 and hour>=20 and hour<21:
'Right now your stepfather and Uncle Misha is in the garage, drinking vodka.'
set fatherdrunk=1
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.'
elseif 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, and transferred it from the garage to the apartment.'
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, and transferred it from the garage to the apartment.'
act 'further':gt $curloc
end
end
end
end
end
--- gargazel ---------------------------------