# 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 <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
	'The head office of the largest real estate agency in the area.'
	*nl
	'At the reception you notice a banner, which is written in large print:'
	'"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 housr = 1:'<a href="exec:GT ''agentned'',''sell''">Sell apartment</a> for 1 million. <b>₽</b>.'

	act 'View rentals': gt 'agentned', 'rent'
	act 'View properties for sale': gt 'agentned', 'buy'
	
	act '<B>Leave</B>':gt'down'
end

if $ARGS[0] = 'buy':
	if BuyHous < 1:
		'There is an apartment in the city residential area available for 2 million <b>₽</b>.'
		if karta + bankDebtLimit >= 2000000:act 'Buy the city residential apartment': gt 'agentned', 'buy_cityres'
	end

	if dachaest = 0:
		'There is a holiday cottage with an adjacent allotment in the village, for 75 thousand <b>₽</b>.'
		if karta + bankDebtLimit >= 75000:act 'Buy the cottage in the village': gt 'agentned','buy_dacha'
	end

	if placeMansion = 0:
		'There is a plot in the suburbs with planning permission for a mansion for 1.5 million <b>₽</b>.'
		if karta + bankDebtLimit >= 1500000:act 'Buy the plot in the suburbs': gt 'agentned','buy_Mansion'
	end

	act 'Return':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 <<$set_imgh>> src="images/locations/city/citycenter/realestate/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 'Return':gt'agentned', 'start'
end

if $ARGS[0] = 'rent':
	if ArendHouseSL ! 0:
		'You already have a rental home with us'
	else
		if BuyHous ! 1: 'There is an apartment in the residential area available'
		'There is an apartment in the old town available'

		if BuyHous ! 1 and money >= 6000: act 'View the city residential apartment details': gt 'agentned', 'rent_cityres'
		if money >= 6000: act 'View the apartment in the Old Town details': gt 'agentned', 'rent_pushkin'
	end

	act 'Return':gt'agentned', 'start'
end

if $ARGS[0] = 'rent_cityres':
	cla
	*clr
	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
	'“We have a flat available right now in the residential area of St. Petersburg.” The receptionist says as he starts pulling out the paperwork. “Rent is 6,000₽ and leases have to be renewed every 30 days, which can be taken automatically from your account or you can come in and pay directly. Last but not least, you have to make your first payment up front at signing.”'
	'He pulls out a pen and slides the paperwork onto the counter. “Interested? We can get you moved in right away.”'

	act 'Agree and pay':
		cls
		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 <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
		'You take the pen and start filling out the paperwork. Half an hour later, you’re handing over the money and getting the keys to your new apartment.'

		act 'Return':gt'agentned', 'start'
	end

	act 'Decline':
		cla
		*clr
		'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
		'You shake your head, “Actually, I need more time to think about this.”'
		'The receptionist seems a bit miffed, but says nothing as he grabs the paperwork and stuffs it back in a drawer.'

		act 'Return':gt'agentned', 'start'
	end
end

if $ARGS[0] = 'rent_pushkin':
	cla
	*clr
	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
	'“We have a small apartment available right now in Pushkin’s city center. It’s a little bit pricey, but it’s been recently renovated to be more modern, and it looks quite nice. You won’t find a place like that outside of Pushkin.” The receptionist says as he starts pulling out the paperwork. “Rent is 10,500₽ and leases have to be renewed every 30 days, which can be taken automatically from your account or you can come in and pay directly. Last but not least, you have to make your first payment up front at signing.”'
	'He pulls out a pen and slides the paperwork onto the counter. “Interested? We can get you moved in right away.”'

	act 'Agree and pay':
		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 <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
		'You take the pen and start filling out the paperwork. An hour later, you’re handing over the money and getting the keys to your new apartment.'

		act 'Return':gt'agentned', 'start'
	end

	act 'Decline':
		cla
		*clr
		'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
		'You shake your head, “Actually, I need more time to think about this.”'
		'The receptionist seems a bit miffed, but says nothing as he grabs the paperwork and stuffs it back in a drawer.'

		act 'Return':gt'agentned', 'start'
	end
end

if $ARGS[0] = 'buy_cityres':
	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 <<$set_imgh>> src="images/locations/city/citycenter/realestate/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 'Return':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 <<$set_imgh>> src="images/locations/city/citycenter/realestate/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 'Return':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 <<$set_imgh>> src="images/locations/city/citycenter/realestate/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 'Return':gt'agentned', 'start'
end

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