agentned 7.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191
  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 <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  12. 'The head office of the largest real estate agency in the area.'
  13. *nl
  14. 'At the reception you notice a banner, which is written in large print:'
  15. '"Please note, that all transactions of purchases and sales are made exclusively through your bank account."'
  16. ''
  17. if ArendHouseSL > 0:'You have <B><<ArendHouseSL>> days</B> rental.'
  18. if BuyHous = 1 and housr = 1:'<a href="exec:GT ''agentned'',''sell''">Sell apartment</a> for 1 million. <b>₽</b>.'
  19. act 'View rentals': gt 'agentned', 'rent'
  20. act 'View properties for sale': gt 'agentned', 'buy'
  21. act '<B>Leave</B>':gt'down'
  22. end
  23. if $ARGS[0] = 'buy':
  24. if BuyHous < 1:
  25. 'There is an apartment in the city residential area available for 2 million <b>₽</b>.'
  26. if karta + bankDebtLimit >= 2000000:act 'Buy the city residential apartment': gt 'agentned', 'buy_cityres'
  27. end
  28. if dachaest = 0:
  29. 'There is a holiday cottage with an adjacent allotment in the village, for 75 thousand <b>₽</b>.'
  30. if karta + bankDebtLimit >= 75000:act 'Buy the cottage in the village': gt 'agentned','buy_dacha'
  31. end
  32. if placeMansion = 0:
  33. 'There is a plot in the suburbs with planning permission for a mansion for 1.5 million <b>₽</b>.'
  34. if karta + bankDebtLimit >= 1500000:act 'Buy the plot in the suburbs': gt 'agentned','buy_Mansion'
  35. end
  36. act 'Return':gt'agentned', 'start'
  37. end
  38. if $ARGS[0] = 'sell':
  39. cla
  40. *clr
  41. minut += 30
  42. karta += 1000000
  43. housr = 0
  44. BuyHous = 0
  45. gs'stat'
  46. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  47. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  48. '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.'
  49. act 'Return':gt'agentned', 'start'
  50. end
  51. if $ARGS[0] = 'rent':
  52. if ArendHouseSL ! 0:
  53. 'You already have a rental home with us'
  54. else
  55. if BuyHous ! 1: 'There is an apartment in the residential area available'
  56. 'There is an apartment in the old town available'
  57. if BuyHous ! 1 and money >= 6000: act 'View the city residential apartment details': gt 'agentned', 'rent_cityres'
  58. if money >= 6000: act 'View the apartment in the Old Town details': gt 'agentned', 'rent_pushkin'
  59. end
  60. act 'Return':gt'agentned', 'start'
  61. end
  62. if $ARGS[0] = 'rent_cityres':
  63. cla
  64. *clr
  65. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  66. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  67. '“We have a flat available right now in the residential area of St. Petersburg.” The receptionist says as he starts pulling out the paperwork. “Rent is 6,000₽ and leases have to be renewed every 30 days, which can be taken automatically from your account or you can come in and pay directly. Last but not least, you have to make your first payment up front at signing.”'
  68. 'He pulls out a pen and slides the paperwork onto the counter. “Interested? We can get you moved in right away.”'
  69. act 'Agree and pay':
  70. cls
  71. minut += 30
  72. money -= 6000
  73. housr = 1
  74. BuyHous = 2
  75. ArendHouseSL += 30
  76. gs'stat'
  77. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  78. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  79. 'You take the pen and start filling out the paperwork. Half an hour later, you’re handing over the money and getting the keys to your new apartment.'
  80. act 'Return':gt'agentned', 'start'
  81. end
  82. act 'Decline':
  83. cla
  84. *clr
  85. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  86. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  87. 'You shake your head, “Actually, I need more time to think about this.”'
  88. 'The receptionist seems a bit miffed, but says nothing as he grabs the paperwork and stuffs it back in a drawer.'
  89. act 'Return':gt'agentned', 'start'
  90. end
  91. end
  92. if $ARGS[0] = 'rent_pushkin':
  93. cla
  94. *clr
  95. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  96. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  97. '“We have a small apartment available right now in Pushkin’s city center. It’s a little bit pricey, but it’s been recently renovated to be more modern, and it looks quite nice. You won’t find a place like that outside of Pushkin.” The receptionist says as he starts pulling out the paperwork. “Rent is 10,500₽ and leases have to be renewed every 30 days, which can be taken automatically from your account or you can come in and pay directly. Last but not least, you have to make your first payment up front at signing.”'
  98. 'He pulls out a pen and slides the paperwork onto the counter. “Interested? We can get you moved in right away.”'
  99. act 'Agree and pay':
  100. cla
  101. *clr
  102. minut += 30
  103. money -= 6000
  104. housr = 2
  105. BuyHous = 2
  106. ArendHouseSL += 30
  107. gs'stat'
  108. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  109. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  110. 'You take the pen and start filling out the paperwork. An hour later, you’re handing over the money and getting the keys to your new apartment.'
  111. act 'Return':gt'agentned', 'start'
  112. end
  113. act 'Decline':
  114. cla
  115. *clr
  116. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  117. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  118. 'You shake your head, “Actually, I need more time to think about this.”'
  119. 'The receptionist seems a bit miffed, but says nothing as he grabs the paperwork and stuffs it back in a drawer.'
  120. act 'Return':gt'agentned', 'start'
  121. end
  122. end
  123. if $ARGS[0] = 'buy_cityres':
  124. cla
  125. *clr
  126. minut += 30
  127. karta -= 2000000
  128. housr = 1
  129. BuyHous = 1
  130. gs'stat'
  131. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  132. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  133. '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.'
  134. act 'Return':gt'agentned', 'start'
  135. end
  136. if $ARGS[0] = 'buy_dacha':
  137. cla
  138. *clr
  139. minut += 30
  140. karta -= 75000
  141. dachaest = 1
  142. etoexhib = 0
  143. gs'stat'
  144. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  145. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  146. '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.'
  147. act 'Return':gt'agentned', 'start'
  148. end
  149. if $ARGS[0] = 'buy_Mansion':
  150. cla
  151. *clr
  152. minut += 30
  153. karta -= 1500000
  154. placeMansion = 1
  155. gs'stat'
  156. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  157. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  158. '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.'
  159. act 'Return':gt'agentned', 'start'
  160. end
  161. --- agentned ---------------------------------