# gargazel
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>garage</H4></center>'
if father_go=1 and hour>=16 and hour<21:
'<center><img src="pic/gargazel.jpg" ></center>'
'Large garage in which to store the gazelle stepfather.'
else
'<center><img src="pic/gargazel_empty.jpg" ></center>'
'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&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 <<GarTorgItem>> 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 <<perenGarTov>> One unit of the goods in the room.'
         if GarTorgItem>0:
             if GarTorgItem>=perenGarTov:
                 act 'move <<perenGarTov>> 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 <<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 ---------------------------------

