123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120 |
- # 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 src="images/pic/agenstvo.jpg"></center>'
- 'The head office of the largest real estate agency in the area.'
- 'At the reception you notice a banner, which is written in large print:'
- '"SW. clients! 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 money >= 6000 and ArendHouseSL = 0: '<a href="exec:GT ''agentned'',''rent''">Rent an apartment in the residential area</a>'
- if BuyHous ! 1 and money >= 6000 and ArendHouseSL = 0 and arnksg = 1: '<a href="exec:GT ''agentned'',''rent2''">Rent an apartment in the old town</a>'
- if karta >= 2000000 and BuyHous < 1 or karta >= 2000000 and BuyHous > 1:'<a href="exec:GT ''agentned'',''buy''">Buy an apartment</a> for 2 million <b>₽</b>.'
- if BuyHous = 1 and housr = 1:'<a href="exec:GT ''agentned'',''sell''">Sell apartment</a> for 1 million. <b>₽</b>.'
- if karta >= 75000 and dachaest = 0:'Buy a <a href="exec:GT ''agentned'',''buy_dacha''">holiday cottage</a> in a small village, for 75 thousand <b>₽</b>.'
- if karta >= 1500000 and placeMansion = 0:'<a href="exec:GT ''agentned'',''buy_Mansion''">Buy land for cottage</a> for 1,5 million <b>₽</b>.'
- ''
- act '<B>Logout</B>':gt'down'
- end
- if $ARGS[0] = 'buy':
- 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 src="images/pic/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 '<B>Logout</B>':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 src="images/pic/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 '<B>Logout</B>':gt'agentned', 'start'
- end
- if $ARGS[0] = 'rent':
- cla
- *clr
- 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 src="images/pic/agenstvo_paperwork.jpg"></center>'
- 'You spend half an hour filling in the paperwork and have now rented a flat in the residential area. You have paid for <<ArendHouseSL>> rental days.'
- act '<B>Logout</B>':gt'agentned', 'start'
- end
- if $ARGS[0] = 'rent2':
- 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 src="images/pic/agenstvo_paperwork.jpg"></center>'
- 'You spend half an hour filling in the paperwork for the rental of an apartment in the old town. You have paid for <<ArendHouseSL>> rental days.'
- act '<B>Logout</B>':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 src="images/pic/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 '<B>Logout</B>':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 src="images/pic/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 '<B>Logout</B>':gt'agentned', 'start'
- end
- --- agentned ---------------------------------
|