# 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 ---------------------------------