agentned 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120
  1. # agentned
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. CLOSE ALL
  6. frost = 0
  7. minut += 10
  8. gs'stat'
  9. gs'dina'
  10. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  11. '<center><img src="images/pic/agenstvo.jpg"></center>'
  12. 'The head office of the largest real estate agency in the area.'
  13. 'At the reception you notice a banner, which is written in large print:'
  14. '"SW. clients! Please note, that all transactions of purchases and sales are made exclusively through your bank account."'
  15. ''
  16. if ArendHouseSL > 0:'You have <B><<ArendHouseSL>> days</B> rental.'
  17. if BuyHous ! 1 and money >= 6000 and ArendHouseSL = 0: '<a href="exec:GT ''agentned'',''rent''">Rent an apartment in the residential area</a>'
  18. 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>'
  19. 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>.'
  20. if BuyHous = 1 and housr = 1:'<a href="exec:GT ''agentned'',''sell''">Sell apartment</a> for 1 million. <b>₽</b>.'
  21. 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>.'
  22. if karta >= 1500000 and placeMansion = 0:'<a href="exec:GT ''agentned'',''buy_Mansion''">Buy land for cottage</a> for 1,5 million <b>₽</b>.'
  23. ''
  24. act '<B>Logout</B>':gt'down'
  25. end
  26. if $ARGS[0] = 'buy':
  27. cla
  28. *clr
  29. minut += 30
  30. karta -= 2000000
  31. housr = 1
  32. BuyHous = 1
  33. gs'stat'
  34. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  35. '<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
  36. '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.'
  37. act '<B>Logout</B>':gt'agentned', 'start'
  38. end
  39. if $ARGS[0] = 'sell':
  40. cla
  41. *clr
  42. minut += 30
  43. karta += 1000000
  44. housr = 0
  45. BuyHous = 0
  46. gs'stat'
  47. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  48. '<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
  49. '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.'
  50. act '<B>Logout</B>':gt'agentned', 'start'
  51. end
  52. if $ARGS[0] = 'rent':
  53. cla
  54. *clr
  55. minut += 30
  56. money -= 6000
  57. housr = 1
  58. BuyHous = 2
  59. ArendHouseSL += 30
  60. gs'stat'
  61. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  62. '<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
  63. '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.'
  64. act '<B>Logout</B>':gt'agentned', 'start'
  65. end
  66. if $ARGS[0] = 'rent2':
  67. cla
  68. *clr
  69. minut += 30
  70. money -= 6000
  71. housr = 2
  72. BuyHous = 2
  73. ArendHouseSL += 30
  74. gs'stat'
  75. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  76. '<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
  77. '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.'
  78. act '<B>Logout</B>':gt'agentned', 'start'
  79. end
  80. if $ARGS[0] = 'buy_dacha':
  81. cla
  82. *clr
  83. minut += 30
  84. karta -= 75000
  85. dachaest = 1
  86. etoexhib = 0
  87. gs'stat'
  88. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  89. '<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
  90. '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.'
  91. act '<B>Logout</B>':gt'agentned', 'start'
  92. end
  93. if $ARGS[0] = 'buy_Mansion':
  94. cla
  95. *clr
  96. minut += 30
  97. karta -= 1500000
  98. placeMansion = 1
  99. gs'stat'
  100. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  101. '<center><img src="images/pic/agenstvo_paperwork.jpg"></center>'
  102. '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.'
  103. act '<B>Logout</B>':gt'agentned', 'start'
  104. end
  105. --- agentned ---------------------------------