336_agentned 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158
  1. # agentned
  2. <<<<<<< 336_agentned
  3. gs 'stat'
  4. '<center><B><font color = maroon>Real Estate Agency</font></B></center>'
  5. act 'Exit': gt 'down'
  6. if BuyHous['Street'] ! 1 or BuyHous['Down'] ! 1 or BuyHous['Nord'] ! 1:
  7. 'You can buy an apartment in a residential area, Downtown or Northern region.'
  8. 'Renting an apartment costs 200 rubles per day, minimum rental is for a period of 30 days.'
  9. if money >= 2000000:
  10. if BuyHous['Street'] ! 1:
  11. act 'Buy an apartment is residental dirstrict':
  12. cls
  13. money -= 2000000
  14. housr = 1
  15. BuyHous = 1
  16. housr['Street'] = 1
  17. BuyHous['Street'] = 1
  18. gs 'stat'
  19. 'You bought an apartment in the residential area.'
  20. act 'Exit': gt 'down'
  21. end
  22. end
  23. if BuyHous['Down'] ! 1:
  24. act 'Buy an apartment is downtown':
  25. cls
  26. money -= 2000000
  27. housr = 1
  28. BuyHous = 1
  29. housr['Down'] = 1
  30. BuyHous['Down'] = 1
  31. gs 'stat'
  32. 'You bought an apartment in the downtown.'
  33. act 'Exit': gt 'down'
  34. end
  35. end
  36. if BuyHous['Nord'] ! 1:
  37. act 'Buy an apartment is northern region':
  38. cls
  39. money -= 2000000
  40. housr = 1
  41. BuyHous = 1
  42. housr['Nord'] = 1
  43. BuyHous['Nord'] = 1
  44. gs 'stat'
  45. 'You bought an apartment in the northern region.'
  46. act 'Exit': gt 'down'
  47. end
  48. end
  49. end
  50. end
  51. if BuyHous['Street']!1 or BuyHous['Down']!1 or BuyHous['Nord']!1:
  52. if money >= 6000:
  53. if BuyHous['Street'] ! 1:
  54. act 'Rent an apartment in residental district':
  55. cls
  56. money -= 6000
  57. housr = 1
  58. BuyHous = 2
  59. housr['Street'] = 1
  60. BuyHous['Street'] = 2
  61. ArendHouseSL['Street'] += 30
  62. gs 'stat'
  63. 'You rented a flat in a residential area. Now you <<ArendHouseSL[''Street'']>> rental days.'
  64. act 'Exit': gt 'down'
  65. end
  66. end
  67. if BuyHous['Down'] ! 1:
  68. act 'Rent an apartment in downtown':
  69. cls
  70. money -= 6000
  71. housr = 1
  72. BuyHous = 2
  73. housr['Down'] = 1
  74. BuyHous['Down'] = 2
  75. ArendHouseSL['Down'] += 30
  76. gs 'stat'
  77. 'You rented a flat in a downtown. Now you <<ArendHouseSL[''Down'']>> rental days.'
  78. act 'Exit': gt 'down'
  79. end
  80. end
  81. if BuyHous['Nord'] ! 1:
  82. act 'Rent an apartment in northern region':
  83. cls
  84. money -= 6000
  85. housr = 1
  86. BuyHous = 2
  87. housr['Nord'] = 1
  88. BuyHous['Nord'] = 2
  89. ArendHouseSL['Nord'] += 30
  90. gs 'stat'
  91. 'You rented a flat in a northern region. Now you <<ArendHouseSL[''Nord'']>> rental days.'
  92. act 'Exit': gt 'down'
  93. end
  94. end
  95. end
  96. end
  97. if ArendHouseSL['Street']>0: 'Your residential house has <<ArendHouseSL[''Street'']>> rental days left.'
  98. if ArendHouseSL['Down']>0: 'Your Downtown house has <<ArendHouseSL[''Down'']>> rental days left.'
  99. if ArendHouseSL['Nord']>0: 'Your northern district house has <<ArendHouseSL[''Nord'']>> rental days left.'
  100. =======
  101. gs'stat'
  102. '<center><B><font color=maroon>agentsvo property</font></B></center>'
  103. !'<center><img src="pic/bank.jpg" ></center>'
  104. act 'Go_Out':gt'down'
  105. if StoryLine>0 and housr = 0:
  106. 'You can buy an apartment in a residential area of 2 million. Rent an apartment worth 200 rubles per day, the minimum rental period 30 days.'
  107. if money>=2000000:
  108. act 'Buy an apartment':
  109. cls
  110. money-=2000000
  111. housr = 1
  112. BuyHous=1
  113. gs'stat'
  114. 'You bought an apartment in a residential area.'
  115. act 'Go_Out':gt'down'
  116. end
  117. end
  118. end
  119. if BuyHous!1:
  120. if money>=6000:
  121. act 'rent an apartment':
  122. cls
  123. money-=6000
  124. housr = 1
  125. BuyHous=2
  126. ArendHouseSL+=30
  127. gs'stat'
  128. 'You rented an apartment in a residential area. Now you <<ArendHouseSL>> rental days.'
  129. act 'Go_Out':gt'down'
  130. end
  131. end
  132. end
  133. if ArendHouseSL>0:'you have <<ArendHouseSL>> rental days.'
  134. >>>>>>> 336_agentned
  135. --- agentned ---------------------------------