agentned.qsrc 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422
  1. # agentned
  2. if $ARGS[0] = 'start':
  3. CLOSE ALL
  4. *clr & cla
  5. $loc = $curloc
  6. $metka = $ARGS[0]
  7. $location_type = 'indoors'
  8. $menu_loc = 'agentned'
  9. $menu_arg = 'start'
  10. menu_off = 0
  11. gs'stat'
  12. gs'dina'
  13. gs 'housing', 'rent'
  14. '<center><b><font color = maroon>Kirsanova Real Estate Agency</font></b></center>'
  15. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  16. *nl
  17. 'The head office of the largest real estate agency in the area.'
  18. *nl
  19. 'At the reception you notice a banner, which is written in large print:'
  20. '"Please note, that all transactions of purchases and sales are made exclusively through your bank account. Rent payments excluded."'
  21. if home_owned[1] = 1 and ArendHouseSL > 0:
  22. *nl
  23. 'You have <B><<ArendHouseSL>> days</B> rental on your St. Petersburg apartment remaining. '+iif(money >= home_rent[1],'You can make a rent <a href="exec:money -= home_rent[1] & home_owned[1] = 1 & ArendHouseSL += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> in cash.','You can''t afford to pay rent at the moment')+''
  24. end
  25. if home_owned[4] > 0 and ArendHouseSL4 > 0:
  26. *nl
  27. 'You have <B><<ArendHouseSL4>> days</B> rental on your Pushkin apartment. '+iif(money >= home_rent[4],'You can make a rent <a href="exec:money -= home_rent[4] & home_owned[1] = 1 & ArendHouseSL4 += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> in cash.','You can''t afford to pay rent at the moment')+''
  28. end
  29. if home_owned[1] = 2 or home_owned[3] > 0 or home_owned[5] = 1:
  30. *nl
  31. 'You own the follwing property:'
  32. *nl
  33. if home_owned[1] = 2: 'An apartment in St. Petersburg residential area'
  34. if home_owned[1] = 3: 'An apartment in St. Petersburg residential area, that is currently occupied by your tenants'
  35. if home_owned[3] > 0: 'An cottage located in the cooperative village'
  36. if home_owned[5] = 1: 'A plot of land in the St. Petersburg suburbs'
  37. *nl
  38. 'We are at your service if you decide to <a href="exec:GT ''agentned'',''sell''">sell</a>.'
  39. end
  40. act 'Leave':
  41. minut += 5
  42. gt'down'
  43. end
  44. act 'View rentals': gt 'agentned', 'rent'
  45. act 'View properties for sale': gt 'agentned', 'buy'
  46. end
  47. if $ARGS[0] = 'buy':
  48. *clr & cla
  49. $loc = $curloc
  50. $metka = $ARGS[0]
  51. $location_type = 'indoors'
  52. $menu_loc = 'agentned'
  53. $menu_arg = 'buy'
  54. menu_off = 0
  55. gs 'housing', 'sale'
  56. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  57. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  58. *nl
  59. minut += 5
  60. gs 'stat'
  61. act 'Return':gt'agentned', 'start'
  62. if home_owned[1] = 0 or home_owned[3] = 0 or home_owned[4] = 0 or home_owned[5] = 0:
  63. if home_owned[1] = 0:
  64. 'There is an apartment in the city residential area available for <<$home_value_txt[1]>> <b>₽</b>.'
  65. *nl
  66. if karta + bankDebtLimit >= home_value[1]:act 'Buy the city residential apartment': gt 'agentned', 'buy_cityres'
  67. elseif home_owned[1] = 1:
  68. 'You could buy your current rental apartment for <<$home_value_txt[1]>> <b>₽</b>.'
  69. *nl
  70. if karta + bankDebtLimit >= home_value[1]:act 'Buy the city residential apartment': gt 'agentned', 'buy_cityres'
  71. end
  72. if home_owned[3] = 0:
  73. 'There is a holiday cottage with an adjacent allotment in the village, for <<$home_value_txt[3]>> <b>₽</b>.'
  74. *nl
  75. if karta + bankDebtLimit >= home_value[3]:act 'Buy the cottage in the village': gt 'agentned','buy_dacha'
  76. end
  77. if home_owned[5] = 0:
  78. 'There is a plot in the suburbs with planning permission for a mansion for <<$home_value_txt[5]>> <b>₽</b>.'
  79. *nl
  80. if karta + bankDebtLimit >= home_value[5]:act 'Buy the plot in the suburbs': gt 'agentned','buy_Mansion'
  81. end
  82. else
  83. 'We currently have no properties listed for sale.'
  84. end
  85. end
  86. if $ARGS[0] = 'sell':
  87. *clr & cla
  88. $loc = $curloc
  89. $metka = $ARGS[0]
  90. $location_type = 'indoors'
  91. $menu_loc = 'agentned'
  92. $menu_arg = 'sell'
  93. menu_off = 0
  94. gs 'housing', 'sale'
  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. *nl
  98. act 'Return':gt'agentned', 'start'
  99. if home_owned[1] = 2 and rembedr = 1 and remsitr = 1 and remkorr = 1 and remvanr = 1 and remkuhr = 1:
  100. !Renovated city residential apartment
  101. home_value1 = ((home_value[1] + 250000) + rand(-100000, 100000))
  102. 'We have found a buyer for your renovated apartment in the city residential area. They will offer <<home_value1>> <b>₽</b>, minus 5% for fees and taxes, bringing the total to <<home_value1/100*95>>'
  103. act 'Sell the renovated apartment':
  104. *clr
  105. menu_off = 1
  106. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  107. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  108. minut += 30
  109. 'You spend half an hour filling in the paperwork for the sale of your renovated apartment, with a loss of around 5% for fees and taxes. <<home_value1/100*95>> <b>₽</b> has been paid into your bank account.'
  110. home_owned[1] = 0
  111. ArendHouseSL = 0
  112. if bankaccount = 1:
  113. karta += home_value1/100*95
  114. else
  115. money += home_value1/100*95
  116. end
  117. delact 'Sell the renovated apartment'
  118. gs 'stat'
  119. end
  120. end
  121. if home_owned[1] = 2:
  122. !City residential apartment
  123. home_value1 = (home_value[1] + rand(-100000, 100000))
  124. 'We have found a buyer for your apartment in the city residential area. They will offer <<home_value1>> <b>₽</b>, minus 5% for fees and taxes, bringing the total to <<home_value1/100*95>>'
  125. act 'Sell the city apartment':
  126. *clr
  127. menu_off = 1
  128. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  129. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  130. minut += 30
  131. 'You spend half an hour filling in the paperwork for the sale of your apartment, with a loss of around 5% for fees and taxes. <<home_value1/100*95>> <b>₽</b> has been paid into your bank account.'
  132. home_owned[1] = 0
  133. ArendHouseSL = 0
  134. if bankaccount = 1:
  135. karta += home_value1/100*95
  136. else
  137. money += home_value1/100*95
  138. end
  139. delact 'Sell the city apartment'
  140. gs 'stat'
  141. end
  142. end
  143. if home_owned[3] = 1:
  144. !Communal cottage
  145. home_value3 = (home_value[3] + rand(-5000, 5000))
  146. 'We have found a buyer for your small communal cottage. They will offer <<home_value3>> <b>₽</b>, minus 5% for fees and taxes, bringing the total to <<home_value3/100*95>>'
  147. act 'Sell the holiday cottage':
  148. *clr
  149. menu_off = 1
  150. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  151. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  152. minut += 30
  153. 'You spend half an hour filling in the paperwork for the sale of your small cottage, with a loss of around 5% for fees and taxes. <<home_value3/100*95>> <b>₽</b> has been paid into your bank account.'
  154. home_owned[3] = 0
  155. if bankaccount = 1:
  156. karta += home_value3/100*95
  157. else
  158. money += home_value3/100*95
  159. end
  160. delact 'Sell the holiday cottage'
  161. gs 'stat'
  162. end
  163. end
  164. if home_owned[3] = 2:
  165. !Renovated communal cottage
  166. home_value3 = ((home_value[3] + 200000) + rand(-10000, 10000))
  167. 'We have found a buyer for your small renovated communal cottage. They will offer <<home_value3>> <b>₽</b>, minus 5% for fees and taxes, bringing the total to <<home_value3/100*95>>'
  168. act 'Sell the renovated cottage':
  169. *clr
  170. menu_off = 1
  171. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  172. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  173. minut += 30
  174. 'You spend half an hour filling in the paperwork for the sale of the renovated cottage, with a loss of 1around 5% for fees and taxes. <<home_value3/100*95>> <b>₽</b> has been paid into your bank account.'
  175. home_owned[3] = 0
  176. if bankaccount = 1:
  177. karta += home_value3/100*95
  178. else
  179. money += home_value3/100*95
  180. end
  181. delact 'Sell the renovated cottage'
  182. gs 'stat'
  183. end
  184. end
  185. if home_owned[5] = 1:
  186. !Suburban land only - currently too many variables for selling upgraded mansion - might do later - 3xpurt.
  187. home_value5 = (home_value[5] + rand(-50000, 50000))
  188. 'We have found a buyer for your vacant plot of land in the suburbs. They will offer <<home_value5>> <b>₽</b>, minus 5% for fees and taxes, bringing the total to <<home_value5/100*95>>'
  189. act 'Sell the vacant plot':
  190. *clr
  191. menu_off = 1
  192. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  193. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  194. minut += 30
  195. 'You spend half an hour filling in the paperwork for the vacant plot, with a loss of around 5% for fees and taxes. <<home_value5/100*95>> <b>₽</b> has been paid into your bank account.'
  196. home_owned[5] = 0
  197. if bankaccount = 1:
  198. karta += home_value5/100*95
  199. else
  200. money += home_value5/100*95
  201. end
  202. delact 'Sell the vacant plot'
  203. gs 'stat'
  204. end
  205. end
  206. if home_owned[5] = 2:
  207. !Suburban land only - currently too many variables for selling upgraded mansion - might do later - 3xpurt.
  208. 'Sorry, we are unable to find a buyer for your property at this time.'
  209. end
  210. if home_owned[5] = 3:
  211. !Suburban land only - currently too many variables for selling upgraded mansion - might do later - 3xpurt.
  212. 'Sorry, we are unable to find a buyer for your property at this time.'
  213. end
  214. if home_owned[1] = 0 and home_owned[3] = 0 and home_owned[4] = 0 and home_owned[5] = 0:
  215. 'You don''t currently own any property.'
  216. end
  217. end
  218. if $ARGS[0] = 'rent':
  219. *clr & cla
  220. $loc = $curloc
  221. $metka = $ARGS[0]
  222. $location_type = 'indoors'
  223. $menu_loc = 'agentned'
  224. $menu_arg = 'rent'
  225. menu_off = 0
  226. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  227. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  228. *nl
  229. minut += 5
  230. gs 'stat'
  231. act 'Return':gt'agentned', 'start'
  232. if home_owned[1] > 0 and home_owned[4] > 0:
  233. 'We currently have no properties for rent.'
  234. elseif home_owned[1] = 0 and home_owned[4] = 0:
  235. ''
  236. 'There are two properties available for rent.'
  237. *nl
  238. 'There is an apartment in the city residential area, and an apartment in Pushkin available'
  239. act 'View the city apartment details': gt 'agentned', 'rent_cityres'
  240. act 'View the Pushkin apartment details': gt 'agentned', 'rent_pushkin'
  241. elseif home_owned[1] = 0:
  242. 'There is a property for rent in the city residential area'
  243. act 'View the city apartment details': gt 'agentned', 'rent_cityres'
  244. elseif home_owned[4] = 0:
  245. 'There is a property for rent in the old town of Pushkin'
  246. act 'View the Pushkin apartment details': gt 'agentned', 'rent_pushkin'
  247. end
  248. end
  249. if $ARGS[0] = 'rent_cityres':
  250. *clr & cla
  251. menu_off = 1
  252. gs 'housing', 'rent'
  253. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  254. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  255. *nl
  256. '“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 <<$home_rent_txt[1]>> ₽ 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.”'
  257. '<br>He pulls out a pen and slides the paperwork onto the counter. “Interested? We can get you moved in right away.”'
  258. if money >= home_rent[1] or karta >= home_rent[1]:
  259. act 'Agree and pay':
  260. *clr & cla
  261. cls
  262. minut += 30
  263. if money >= home_rent[1]:
  264. money -= home_rent[1]
  265. else
  266. karta -= home_rent[1]
  267. end
  268. home_owned[1] = 1
  269. if ARRSIZE('home_owned') = 0: gs 'set_home', 1
  270. ArendHouseSL += ArendHouseSL_due
  271. gs'stat'
  272. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  273. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  274. *nl
  275. '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.'
  276. act 'Return':gt'agentned', 'start'
  277. end
  278. else
  279. *nl
  280. 'You do not have enough money with you or in your bank account to rent this.'
  281. end
  282. act 'Decline':
  283. *clr & cla
  284. minut += 5
  285. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  286. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  287. *nl
  288. 'You shake your head, “Actually, I need more time to think about this.”'
  289. '<br>The receptionist seems a bit miffed, but says nothing as he grabs the paperwork and stuffs it back in a drawer.'
  290. act 'Return':gt'agentned', 'start'
  291. end
  292. end
  293. if $ARGS[0] = 'rent_pushkin':
  294. *clr & cla
  295. menu_off = 1
  296. gs 'housing', 'rent'
  297. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  298. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  299. *nl
  300. '“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 <<$home_rent_txt[4]>> ₽ 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.”'
  301. '<br>He pulls out a pen and slides the paperwork onto the counter. “Interested? We can get you moved in right away.”'
  302. if money >= home_rent[4] or karta >= home_rent[4]:
  303. act 'Agree and pay':
  304. *clr & cla
  305. minut += 30
  306. if money >= home_rent[4]:
  307. money -= home_rent[4]
  308. else
  309. karta >= home_rent[4]
  310. end
  311. home_owned[4] = 1
  312. if ARRSIZE('home_owned') = 0: gs 'set_home', 4
  313. ArendHouseSL4 += ArendHouseSL_due
  314. gs'stat'
  315. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  316. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  317. *nl
  318. '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.'
  319. act 'Return':gt'agentned', 'start'
  320. end
  321. else
  322. *nl
  323. 'You do not have enough money with you or in your bank account to rent this.'
  324. end
  325. act 'Decline':
  326. *clr & cla
  327. minut += 5
  328. gs 'stat'
  329. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  330. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
  331. *nl
  332. 'You shake your head, “Actually, I need more time to think about this.”'
  333. '<br>The receptionist seems a bit miffed, but says nothing as he grabs the paperwork and stuffs it back in a drawer.'
  334. act 'Return':gt'agentned', 'start'
  335. end
  336. end
  337. if $ARGS[0] = 'buy_cityres':
  338. *clr & cla
  339. menu_off = 1
  340. gs 'housing', 'sale'
  341. minut += 30
  342. karta -= home_value[1]
  343. home_owned[1] = 2
  344. if ARRSIZE('home_owned') = 0: gs 'set_home', 1
  345. gs'stat'
  346. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  347. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  348. *nl
  349. 'You spend half an hour filling in the paperwork to buy an apartment in the residential area. <<$home_value_txt[1]>> <b>₽</b> has been removed from your bank account.'
  350. act 'Return':gt'agentned', 'start'
  351. end
  352. if $ARGS[0] = 'buy_dacha':
  353. *clr & cla
  354. menu_off = 1
  355. gs 'housing', 'sale'
  356. minut += 30
  357. karta -= home_value[3]
  358. home_owned[3] = 1
  359. if ARRSIZE('home_owned') = 0: gs 'set_home', 3
  360. etoexhib = 0
  361. gs'stat'
  362. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  363. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  364. *nl
  365. '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. <<$home_value_txt[3]>> <b>₽</b> has been removed from your bank account.'
  366. act 'Return':gt'agentned', 'start'
  367. end
  368. if $ARGS[0] = 'buy_Mansion':
  369. *clr & cla
  370. menu_off = 1
  371. gs 'housing', 'sale'
  372. minut += 30
  373. karta -= home_value[5]
  374. home_owned[5] = 1
  375. if ARRSIZE('home_owned') = 0: gs 'set_home', 5
  376. gs'stat'
  377. '<center><b><font color = maroon>Real Estate Agency</font></b></center>'
  378. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
  379. *nl
  380. 'You spend half an hour filling in the paperwork for the purchase of a lot for building a mansion 1km up the north road. <<$home_value_txt[5]>> <b>₽</b> has been removed from your bank account.'
  381. act 'Return':gt'agentned', 'start'
  382. end
  383. --- agentned ---------------------------------