# agentned
if $ARGS[0] = 'start':
cla
*clr
CLOSE ALL
frost = 0
minut += 10
gs'stat'
gs'dina'
'Agentsvo property'
'
'
'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 <> days rental.'
if BuyHous ! 1 and money >= 6000 and ArendHouseSL = 0: 'Rent an apartment in a residential area'
if BuyHous ! 1 and money >= 6000 and ArendHouseSL = 0 and arnksg = 1: 'Rent an apartment in the old town'
if karta >= 2000000 and BuyHous < 1 or karta >= 2000000 and BuyHous > 1:'To buy an apartment for 2 million. ₽.'
if BuyHous = 1 and housr = 1:'Sell apartment for 1 million. ₽.'
if karta >= 30000 and dachaest = 0:'Buy holiday cottage in a small village, for 30 th.RUB.'
if karta >= 1500000 and placeMansion = 0:'Buy land for cottage for 1,5 million.RUB.'
''
act 'Logout':gt'down'
end
if $ARGS[0] = 'buy':
cla
*clr
minut += 30
karta -= 2000000
housr = 1
BuyHous = 1
gs'stat'
'Agentsvo property'
'
'
'You spend half an hour filling in the paperwork to buy an apartment in a residential area. 2 000 0000 ₽ are removed from your bank account.'
act 'Logout':gt'agentned', 'start'
end
if $ARGS[0] = 'sell':
cla
*clr
minut += 30
karta += 1000000
housr = 0
BuyHous = 0
gs'stat'
'Agentsvo property'
''
'You spend half an hour filling in the paperwork for the sale of your apartment in a residential area. 1 000 0000 ₽ have been paid into your bank account.'
act 'Logout':gt'agentned', 'start'
end
if $ARGS[0] = 'rent':
cla
*clr
minut += 30
money -= 6000
housr = 1
BuyHous = 2
ArendHouseSL += 30
gs'stat'
'Agentsvo property'
''
'You spend half an hour filling in the paperwork and have now rented a flat in the residential area. You have paid for <> rental days.'
act 'Logout':gt'agentned', 'start'
end
if $ARGS[0] = 'rent2':
cla
*clr
minut += 30
money -= 6000
housr = 2
BuyHous = 2
ArendHouseSL += 30
gs'stat'
'Agentsvo property'
''
'You spend half an hour filling in the paperwork for the rental of an apartment in the old town. You have paid for <> rental days.'
act 'Logout':gt'agentned', 'start'
end
if $ARGS[0] = 'buy_dacha':
cla
*clr
minut += 30
karta -= 30000
dachaest = 1
etoexhib = 0
gs'stat'
'Agentsvo property'
''
'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 ₽ have been paid.'
act 'Logout':gt'agentned', 'start'
end
if $ARGS[0] = 'buy_Mansion':
cla
*clr
minut += 30
karta -= 1500000
placeMansion = 1
gs'stat'
'Agentsvo property'
''
'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 ₽ have been paid.'
act 'Logout':gt'agentned', 'start'
end
--- agentned ---------------------------------