glife/locations/agentned

# agentned
if $ARGS[0] = 'start':
	cla
	*clr
	CLOSE ALL
	minut += 10
	gs'stat'
	gs'dina'
	'<center><b><font color = maroon>Agentsvo property</font></b></center>'
	'<center><img src="images/pic/agenstvo.jpg"></center>'
	'The head office of the largest real estate agencies in the area.'
	'At the reception you notice Banner, which is written in large print:'
	'"SW. clients! Please note, that all transactions of purchase-sales made exclusively through non-cash means of payment."'
	''
	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 a 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''">To buy an apartment</a> for 2 million. rubles.'
	if BuyHous = 1 and housr = 1:'<a href="exec:GT ''agentned'',''sell''">Sell ​​apartment</a> for 1 million. rubles.'
	if karta >= 30000 and dachaest = 0:'Buy <a href="exec:GT ''agentned'',''buy_dacha''">holiday cottage</a> in a small village, for 30 th.RUB.'
	if karta >= 1500000 and placeMansion = 0:'<a href="exec:GT ''agentned'',''buy_Mansion''">Buy land for cottage</a> for 1,5 million.RUB.'
	''

	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>Agentsvo property</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 a residential area. 2 000 0000 rubles 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>Agentsvo property</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 a residential area. 1 000 0000 rubles 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>Agentsvo property</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>Agentsvo property</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 -= 30000
	dachaest = 1
	etoexhib = 0
	gs'stat'
	'<center><b><font color = maroon>Agentsvo property</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. From your bank account 30 0000 rubles have been paid.'

	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>Agentsvo property</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 lot for building a mansion 1km up the north road. From your bank account 1 500 0000 rubles have been paid.'

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

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