'
''
clr
gs 'stat'
gs 'time'
if car > 0 and cardrive = 18:
set cardrive = 18
'Your <<$car>> is parked here.'
end
act 'Go to the village': minut += 15 & gt 'locmansion'
if bassMansion = 1: 'Pool.'
if banaMansion >= 1: 'Bath.'
if placeMansion = 3: 'Go inside.'
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 ---------------------------------