# 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 'Get_Away':minut+=5>'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.'
end
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> 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 ---------------------------------