# city_mansion_entrance

if $ARGS[0] = '':
	$loc_arg = ''
	$loc = 'city_mansion_entrance'
	$menu_loc = 'city_mansion_entrance'
	$menu_arg = ''
	menu_off = 0
	gs 'stat'
	
	*clr & cla
	property_construction_status = func('homes_properties', 'get_property_construction_status')
	property_owned = func('homes_properties', 'is_property_of_status', 'owned', 'matryona_mansion') 
	if property_construction_status = 0:
		'<center><h4>Your Land</h4></center>'
		'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/o_empty_field.jpg"></center>'
		'<center>An empty plot of land you own, suitable for building a large residence.</center>'
	elseif property_construction_status = 1:
		'<center><h4>Your Mansion</h4></center>'
		'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/o_foundation.jpg"></center>'
		'<center>The framework for your mansion stands here. It still needs more work.</center>'
	elseif property_construction_status = 2:
		'<center><h4>Matryona Mansion</h4></center>'
		'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/matryona_mansion.jpg"></center>'
		'<center>Your fully built mansion stands here. </center>'
	end
	
	*nl
	if car > 0 and cardrive = 18:
		cardrive = 18
		'<a href="exec:gs ''carF'', ''start''">Your <<$car>></a> is parked here.'
	end

	if func('homes_properties', 'is_current_home'):
		if vladimirQW['day'] = daystart and vladimirQW['stage'] = 30 and hour >= 16 and week = 6:'<a href="exec:gt ''vladimirQW_meet'',''2''">There''s an Audi parked in front of your mansion, and standing beside it, you notice Vladimir</a>.'
		if vladimirQW['day'] = daystart and vladimirQW['stage'] = 40 and hour >= 16 and week = 6:'<a href="exec:gt ''vladimirQW_meet'',''3''">There''s an Audi parked in front of your mansion, and standing beside it, you notice Vladimir</a>.'

		if hour = meethour[0]:
			if svidanie[0] = 1:'<b><a href="exec:lover_number = 0 & gt ''lover_meet'', ''start''"><<$loverdesc[0]>></a> is waiting at the entrance to your mansion.</b>'
		end
		if hour = meethour[1]:
			if svidanie[1] = 1:'<b><a href="exec:lover_number = 1 & gt ''lover_meet'', ''start''"><<$loverdesc[1]>></a> is waiting at the entrance to your mansion.</b>'
		end
		if hour = meethour[2]:
			if svidanie[2] = 1:'<b><a href="exec:lover_number = 2 & gt ''lover_meet'', ''start''"><<$loverdesc[2]>></a> is waiting at the entrance to your mansion.</b>'
		end
	end

	act 'Go to the suburbs':
		minut += 10 
		gt 'city_suburbs', 'start'
	end

	if property_owned: 
		if property_construction_status = 2  : act 'Walk inside the mansion': minut += 4 & gt 'city_mansion_residence_1', 'yfoyer'

		if karta + bankDebtLimit >= 500000 and property_construction_status = 0:
			act 'Pay for running utilities and the building foundation (500,000 <b>₽</b>)':
				cls
				karta -= 500000
				gs 'homes_properties', 'progress_construction_status', 'matryona_mansion'
				minut += 5
				menu_off = 1
				gs 'stat'
				'You''ve paid for the utilities. You now have running water, sewage, electric power, and telephone lines. There''s even a foundation built on the land lot.'

				act 'Leave':gt $curloc
			end
		end

		if karta + bankDebtLimit >= 1500000 and property_construction_status = 1:
			act 'Pay for the finishing touches on the mansion (1,500,000 <b>₽</b>)':
				cls
				karta -= 1500000
				gs 'homes_properties', 'progress_construction_status', 'matryona_mansion'
				minut += 5
				menu_off = 1
				gs 'stat'
				'You''ve paid for the construction of the mansion.'

				act 'Leave':gt $curloc
			end
		end

		if karta + bankDebtLimit >= 500000 and property_construction_status = 2 and ymanrem[3] = 0:
			act 'Pay for the construction of the rooms (500,000 <b>₽</b>)':
				cls
				karta -= 500000
				ymanrem[3] = 1
				minut += 5
				menu_off = 1
				gs 'stat'
				'You paid for the construction of the rooms. You can finally begin designing the interior of the mansion.'

				act 'Leave':gt $curloc
			end
		end

		if property_construction_status > 0:
			if karta + bankDebtLimit >= 800000 and banaMansion = 0:
				act 'Pay for the construction of the sauna (800,000 <b>₽</b>)':
					cls
					karta -= 800000
					banaMansion = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'You paid for the construction of the sauna. You finally have a place where you can relax.'

					act 'Leave':gt $curloc
				end
			end

			if karta + bankDebtLimit >= 500000 and bassMansion = 0:
				act 'Pay for the construction of the pool area (500,000 <b>₽</b>)':
					cls
					karta -= 500000
					bassMansion = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'You paid for the construction of the pool area. You can finally take relaxing swims in private.'

					act 'Leave':gt $curloc
				end
			end
		end
		if property_construction_status = 2:
			if karta + bankDebtLimit >= 250000 and ymanrem[3] = 1:
				act 'Pay for the renovations of the main hall (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[3] = 2
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the main hall is finished.'

					act 'Leave':gt $curloc
				end

			elseif karta + bankDebtLimit >= 150000 and ymanrem[3] = 2:
				act 'Decorate the main hall (150,000 <b>₽</b>)':
					cls
					karta -= 150000
					ymanrem[3] = 3
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the main hall is finished.'

					act 'Leave':gt $curloc
				end
			end

			if karta + bankDebtLimit >= 250000 and ymanrem[4] = 0:
				act 'Pay for the renovations of the bedroom (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[4] = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the bedroom is finished.'

					act 'Leave':gt $curloc
				end
			elseif karta + bankDebtLimit >= 300000 and ymanrem[4] = 1:
				act 'Decorate the bedroom (300,000 <b>₽</b>)':
					cls
					karta -= 300000
					ymanrem[4] = 2
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the bedroom is finished.'

					act 'Leave':gt $curloc
				end
			end

			if karta + bankDebtLimit >= 250000 and ymanrem[5] = 0:
				act 'Pay for the renovations of the bathroom (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[5] = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the bathroom is finished.'

					act 'Leave':gt $curloc
				end
			elseif karta + bankDebtLimit >= 250000 and ymanrem[5] = 1:
				act 'Decorate the bathroom (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[5] = 2
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the bathroom is finished.'

					act 'Leave':gt $curloc
				end
			end

			if karta + bankDebtLimit >= 250000 and ymanrem[6] = 0:
				act 'Pay for the renovations of the kitchen (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[6] = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the kitchen is finished.'

					act 'Leave':gt $curloc
				end
			elseif karta + bankDebtLimit >= 350000 and ymanrem[6] = 1:
				act 'Decorate the kitchen (350,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[6] = 2
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the kitchen is finished.'

					act 'Leave':gt $curloc
				end
			end

			if karta + bankDebtLimit >= 250000 and ymanrem[7] = 0:
				act 'Pay for the renovations of the living room (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[7] = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the living room is finished.'

					act 'Leave':gt $curloc
				end
			elseif karta + bankDebtLimit >= 250000 and ymanrem[7] = 1:
				act 'Decorate the living room (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[7] = 2
					if mc_inventory['plasma_tv'] < 1: mc_inventory['plasma_tv'] = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the living room is finished.'

					act 'Leave':gt $curloc
				end
			end

			if karta + bankDebtLimit >= 250000 and ymanrem[8] = 0:
				act 'Pay for the renovations of the fireplace room (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[8] = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the fireplace room is finished.'

					act 'Leave':gt $curloc
				end
			elseif karta + bankDebtLimit >= 250000 and ymanrem[8] = 1:
				act 'Decorate the fireplace room (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[8] = 2
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the fireplace room is finished.'

					act 'Leave':gt $curloc
				end
			end

			if karta + bankDebtLimit >= 250000 and ymanrem[9] = 0:
				act 'Pay for the renovations of the nursery room (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[9] = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the nursery is finished.'

					act 'Leave':gt $curloc
				end
			elseif karta + bankDebtLimit >= 250000 and ymanrem[9] = 1:
				act 'Decorate the nursery (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[9] = 2
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the nursery is finished.'

					act 'Leave':gt $curloc
				end
			end

			if karta + bankDebtLimit >= 250000 and ymanrem[10] = 0:
				act 'Pay for the renovations of the library (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[10] = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the library is finished.'

					act 'Leave':gt $curloc
				end
			elseif karta + bankDebtLimit >= 250000 and ymanrem[10] = 1:
				act 'Decorate the library (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[10] = 2
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the library is finished.'

					act 'Leave':gt $curloc
				end
			end

			if karta + bankDebtLimit >= 250000 and ymanrem[11] = 0:
				act 'Pay for the renovations of the gym (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[11] = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the gym is finished.'

					act 'Leave':gt $curloc
				end
			elseif karta + bankDebtLimit >= 250000 and ymanrem[11] = 1:
				act 'Decorate the gym (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[11] = 2
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the gym is finished.'

					act 'Leave':gt $curloc
				end
			end

			if karta + bankDebtLimit >= 250000 and ymanrem[12] = 0:
				act 'Pay for the renovations of the office (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[12] = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the office is finished.'

					act 'Leave':gt $curloc
				end
			elseif karta + bankDebtLimit >= 250000 and ymanrem[12] = 1:
				act 'Decorate the office (250,000 <b>₽</b>)':
					cls
					karta -= 250000
					ymanrem[12] = 2
					if mc_inventory['tech_computer'] < 1: mc_inventory['tech_computer'] = 1
					minut += 5
					menu_off = 1
					gs 'stat'
					'The work on the office is finished.'

					act 'Leave':gt $curloc
				end
			end
		end
	end
	killvar 'property_construction_status' & killvar 'property_owned'
end

--- city_mansion_entrance ---------------------------------