# youplace
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Your Land</H4></center>'
if placeMansion < 2: '<center><img src="images\etogame\yzemelniy.jpg"></center>'
if placeMansion = 2: '<center><img src="images\etogame\ystart.jpg"></center>'
if placeMansion = 3: '<center><img src="images\etogame\yosobnak.jpg"></center>'
''
clr
gs 'stat'
gs 'time'

if car > 0 and cardrive = 18:
set cardrive = 18
'<a href="exec:GS ''carF'',''start''">Your <<$car>></a> is parked here.'
end


act 'Go to the village': minut += 15 & gt 'locmansion'

if bassMansion = 1: '<a href="exec: gt ''ybass''">Pool</a>.'
if banaMansion >= 1: '<a href="exec: gt ''yban''">Bath</a>.'
if placeMansion = 3: '<a href="exec: gt ''ymans''">Go inside</a>.'

if karta >= 1500000 and placeMansion = 0:
	act 'Buy land for cottage 1500000':
	cls
	karta -= 1500000
	placeMansion = 1
	minut += 5
	gs 'stat'
	'You have bought land for cottage'
	act 'Leave': gt $curloc
	end
end


if karta >= 500000 and placeMansion = 1:
	act 'Pay for water, electricity and building foundations 500,000 rubles':
	cls
	karta -= 500000
	placeMansion = 2
	minut += 5
	gs 'stat'
	'You paid for a supply of communications to the site and zero cycle'
	act 'Leave': gt $curloc
	end
end

if karta >= 1500000 and placeMansion = 2:
	act 'Pay for the construction and external finish of the building 1.5 million':
	cls
	karta -= 1500000
	placeMansion = 3
	minut += 5
	gs 'stat'
	'You paid for the construction of housing mansion'
	act 'Leave': gt $curloc
	end
end

if karta >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
	act 'Pay for the construction of 500 rooms sput':
	cls
	karta -= 500000
	ymanrem[3] = 1
	minut += 5
	gs 'stat'
	'You paid for the construction of the rooms.'
	act 'Leave': gt $curloc
	end
end

if karta >= 800000 and placeMansion >= 2 and banaMansion = 0:
	act 'Pay for the construction of baths 800,000':
	cls
	karta -= 800000
	banaMansion = 1
	minut += 5
	gs 'stat'
	'You paid for the construction of baths.'
	act 'Leave': gt $curloc
	end
end

if karta >= 500000 and placeMansion >= 2 and bassMansion = 0:
	act 'Pay for the construction of 500,000 basseynai':
	cls
	karta -= 500000
	bassMansion = 1
	minut += 5
	gs 'stat'
	'You paid for the construction of the pool'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[3] = 1:
	act 'Pay for repairs Hall 250000':
	cls
	karta -= 250000
	ymanrem[3] = 2
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 150000 and placeMansion = 3 and ymanrem[3] = 2:
	act 'Pay lounge furniture 150 000':
	cls
	karta -= 150000
	ymanrem[3] = 3
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[4] = 0:
	act 'Pay for repairs sleeping 250,000':
	cls
	karta -= 250000
	ymanrem[4] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 300000 and placeMansion = 3 and ymanrem[4] = 1:
	act 'Pay bedroom furniture 300 000':
	cls
	karta -= 300000
	ymanrem[4] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 0:
	act 'Pay bathroom renovation 250,000':
	cls
	karta -= 250000
	ymanrem[5] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 1:
	act 'Pay for furniture and fixtures for the bathroom 250000':
	cls
	karta -= 250000
	ymanrem[5] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture and sanitary ware.'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[6] = 0:
	act 'Pay renovated kitchen 250000':
	cls
	karta -= 250000
	ymanrem[6] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 350000 and placeMansion = 3 and ymanrem[6] = 1:
	act 'Pay kitchen furniture 350 000':
	cls
	karta -= 250000
	ymanrem[6] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture for the kitchen.'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 0:
	act 'Pay for repairs hall 250000':
	cls
	karta -= 250000
	ymanrem[7] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 1:
	act 'Pay furniture hall 250000':
	cls
	karta -= 250000
	ymanrem[7] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture for the hall'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 0:
	act 'Pay for repairs fireplace room 250000':
	cls
	karta -= 250000
	ymanrem[8] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 1:
	act 'Pay for the purchase of furniture for the fireplace room 250000':
	cls
	karta -= 250000
	ymanrem[8] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture.'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 0:
	act 'Children´s room to pay for repairs 250 000':
	cls
	karta -= 250000
	ymanrem[9] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 1:
	act 'Pay for the purchase of furniture for the nursery 250,000':
	cls
	karta -= 250000
	ymanrem[9] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 0:
	act 'Pay for repairs library 250000':
	cls
	karta -= 250000
	ymanrem[10] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 1:
	act 'Pay for the purchase of furniture for libraries 250000':
	cls
	karta -= 250000
	ymanrem[10] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 0:
	act 'Pay for repairs gym 250,000':
	cls
	karta -= 250000
	ymanrem[11] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 1:
	act 'Pay furniture gym 250,000':
	cls
	karta -= 250000
	ymanrem[11] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture for the gym'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 0:
	act 'Pay for repair of the 250 000':
	cls
	karta -= 250000
	ymanrem[12] = 1
	minut += 5
	gs 'stat'
	'You pay for repairs'
	act 'Leave': gt $curloc
	end
end

if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 1:
	act 'Pay for the purchase of furniture for the office 250 000':
	cls
	karta -= 250000
	ymanrem[12] = 2
	minut += 5
	gs 'stat'
	'You paid for the purchase of furniture.'
	act 'Leave': gt $curloc
	end
end
--- youplace ---------------------------------

