# agentned
if $ARGS[0] = 'start':
	cla
	*clr
	CLOSE ALL
	frost = 0
	minut += 10
	gs'stat'
	gs'dina'
	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
	'<center><img src="images/pic/agenstvo.jpg"></center>'
	'The head office of the largest real estate agency in the area.'
	'At the reception you notice a banner, which is written in large print:'
	'"SW. clients! Please note, that all transactions of purchases and sales are made exclusively through your bank account."'
	''
	if ArendHouseSL > 0:'You have <B><<ArendHouseSL>> days</B> rental.' 
	if BuyHous ! 1 and money >= 6000 and ArendHouseSL = 0: '<a href="exec:GT ''agentned'',''rent''">Rent an apartment in the residential area</a>'
	if BuyHous ! 1 and money >= 6000 and ArendHouseSL = 0 and arnksg = 1: '<a href="exec:GT ''agentned'',''rent2''">Rent an apartment in the old town</a>'
	if karta >= 2000000 and BuyHous < 1 or karta >= 2000000 and BuyHous > 1:'<a href="exec:GT ''agentned'',''buy''">Buy an apartment</a> for 2 million <b>₽</b>.'
	if BuyHous = 1 and housr = 1:'<a href="exec:GT ''agentned'',''sell''">Sell apartment</a> for 1 million. <b>₽</b>.'
	if karta >= 75000 and dachaest = 0:'Buy a <a href="exec:GT ''agentned'',''buy_dacha''">holiday cottage</a> in a small village, for 75 thousand <b>₽</b>.'
	if karta >= 1500000 and placeMansion = 0:'<a href="exec:GT ''agentned'',''buy_Mansion''">Buy land for cottage</a> for 1,5 million <b>₽</b>.'
	''

	act '<B>Logout</B>':gt'down'
end

if $ARGS[0] = 'buy':
	cla
	*clr
	minut += 30
	karta -= 2000000
	housr = 1
	BuyHous = 1
	gs'stat'
	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
	'<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
	'You spend half an hour filling in the paperwork to buy an apartment in the residential area. 2 000 0000 <b>₽</b> are removed from your bank account.'

	act '<B>Logout</B>':gt'agentned', 'start'
end

if $ARGS[0] = 'sell':
	cla
	*clr
	minut += 30
	karta += 1000000
	housr = 0
	BuyHous = 0
	gs'stat'
	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
	'<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
	'You spend half an hour filling in the paperwork for the sale of your apartment in the residential area. 1 000 0000 <b>₽</b> have been paid into your bank account.'

	act '<B>Logout</B>':gt'agentned', 'start'
end

if $ARGS[0] = 'rent':
	cla
	*clr
	minut += 30
	money -= 6000
	housr = 1
	BuyHous = 2
	ArendHouseSL += 30
	gs'stat'
	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
	'<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
	'You spend half an hour filling in the paperwork and have now rented a flat in the residential area. You have paid for <<ArendHouseSL>> rental days.'

	act '<B>Logout</B>':gt'agentned', 'start'
end

if $ARGS[0] = 'rent2':
	cla
	*clr
	minut += 30
	money -= 6000
	housr = 2
	BuyHous = 2
	ArendHouseSL += 30
	gs'stat'
	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
	'<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
	'You spend half an hour filling in the paperwork for the rental of an apartment in the old town. You have paid for <<ArendHouseSL>> rental days.'

	act '<B>Logout</B>':gt'agentned', 'start'
end

if $ARGS[0] = 'buy_dacha':
	cla
	*clr
	minut += 30
	karta -= 75000
	dachaest = 1
	etoexhib = 0
	gs'stat'
	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
	'<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
	'You spend half an hour filling in the paperwork for the purchase of a cottage with a garden on the co-op 5km up the north road. 30 0000 <b>₽</b> have been removed from your bank account.'

	act '<B>Logout</B>':gt'agentned', 'start'
end

if $ARGS[0] = 'buy_Mansion':
	cla
	*clr
	minut += 30
	karta -= 1500000
	placeMansion = 1
	gs'stat'
	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
	'<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
	'You spend half an hour filling in the paperwork for the purchase of a lot for building a mansion 1km up the north road. 1 500 0000 <b>₽</b> have been removed from your bank account.'

	act '<B>Logout</B>':gt'agentned', 'start'
end

--- agentned ---------------------------------

