glife/locations/gargazel

# gargazel
$metka = $ARGS[0]
$loc = $CURLOC
clr
gs 'stat'
'<center><h4>Garage</h4></center>'

if father_go = 1 and hour >= 16 and hour < 21:
	'<center><img src="images/pic/gargazel.jpg"></center>'
	'Large garage in which to store the gazelle stepfather.'
else
	'<center><img src="images/pic/gargazel_empty.jpg"></center>'
	'Large garage in which to store the gazelle stepfather. Now the garage is closed on the lock.'
end

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 <<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.'
	elseif 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, and transferred it from the garage to the apartment.'

					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, and transferred it from the garage to the apartment.'

					act 'further':gt $curloc
				end
			end
		end
	end
end

--- gargazel ---------------------------------