1
0

youplace 7.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348
  1. # youplace
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. clr
  5. gs 'stat'
  6. '<center><h4>Your Land</h4></center>'
  7. if placeMansion < 2:'<center><img src="images/locations/city/suburb/mansion/yzemelniy.jpg"></center>'
  8. if placeMansion = 2:'<center><img src="images/locations/city/suburb/mansion/ystart.jpg"></center>'
  9. if placeMansion = 3:'<center><img src="images/locations/city/suburb/mansion/yosobnak.jpg"></center>'
  10. ''
  11. if car > 0 and cardrive = 18:
  12. cardrive = 18
  13. '<a href="exec:gs ''carF'', ''start''">Your <<$car>></a> is parked here.'
  14. end
  15. act 'Go to the suburbs':minut += 5 & gt 'psiklin'
  16. if bassMansion = 1:'<a href="exec:gt ''ybass''">Pool</a>.'
  17. if banaMansion >= 1:'<a href="exec:gt ''yban''">Bath</a>.'
  18. if placeMansion = 3:'<a href="exec:gt ''ymans''">Go inside</a>.'
  19. if karta + bankDebtLimit >= 1500000 and placeMansion = 0:
  20. act 'Buy land for cottage (1,500,000)':
  21. cls
  22. karta -= 1500000
  23. placeMansion = 1
  24. minut += 5
  25. gs 'stat'
  26. 'You have bought land for cottage'
  27. act 'Leave':gt $curloc
  28. end
  29. end
  30. if karta + bankDebtLimit >= 500000 and placeMansion = 1:
  31. act 'Pay for water, electricity and building foundations (500,000 <b>₽</b>)':
  32. cls
  33. karta -= 500000
  34. placeMansion = 2
  35. minut += 5
  36. gs 'stat'
  37. 'You paid for a supply of communications to the site and zero cycle'
  38. act 'Leave':gt $curloc
  39. end
  40. end
  41. if karta + bankDebtLimit >= 1500000 and placeMansion = 2:
  42. act 'Pay for the construction and external finish of the building (1,500,000 <b>₽</b>)':
  43. cls
  44. karta -= 1500000
  45. placeMansion = 3
  46. minut += 5
  47. gs 'stat'
  48. 'You paid for the construction of housing mansion'
  49. act 'Leave':gt $curloc
  50. end
  51. end
  52. if karta + bankDebtLimit >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
  53. act 'Pay for the construction of rooms (500,000 <b>₽</b>)':
  54. cls
  55. karta -= 500000
  56. ymanrem[3] = 1
  57. minut += 5
  58. gs 'stat'
  59. 'You paid for the construction of the rooms.'
  60. act 'Leave':gt $curloc
  61. end
  62. end
  63. if placeMansion => 2:
  64. if karta + bankDebtLimit >= 800000 and banaMansion = 0:
  65. act 'Pay for the construction of baths (800,000 <b>₽</b>)':
  66. cls
  67. karta -= 800000
  68. banaMansion = 1
  69. minut += 5
  70. gs 'stat'
  71. 'You paid for the construction of baths.'
  72. act 'Leave':gt $curloc
  73. end
  74. end
  75. if karta + bankDebtLimit >= 500000 and bassMansion = 0:
  76. act 'Pay for the construction of the basement (500,000 <b>₽</b>)':
  77. cls
  78. karta -= 500000
  79. bassMansion = 1
  80. minut += 5
  81. gs 'stat'
  82. 'You paid for the construction of the pool'
  83. act 'Leave':gt $curloc
  84. end
  85. end
  86. end
  87. if placeMansion = 3:
  88. if karta + bankDebtLimit >= 250000 and ymanrem[3] = 1:
  89. act 'Pay for repairs Hall (250,000 <b>₽</b>)':
  90. cls
  91. karta -= 250000
  92. ymanrem[3] = 2
  93. minut += 5
  94. gs 'stat'
  95. 'You pay for repairs'
  96. act 'Leave':gt $curloc
  97. end
  98. elseif karta + bankDebtLimit >= 150000 and ymanrem[3] = 2:
  99. act 'Pay lounge furniture (150,000 <b>₽</b>)':
  100. cls
  101. karta -= 150000
  102. ymanrem[3] = 3
  103. minut += 5
  104. gs 'stat'
  105. 'You paid for the purchase of furniture'
  106. act 'Leave':gt $curloc
  107. end
  108. end
  109. if karta + bankDebtLimit >= 250000 and ymanrem[4] = 0:
  110. act 'Pay for repairs sleeping (250,000 <b>₽</b>)':
  111. cls
  112. karta -= 250000
  113. ymanrem[4] = 1
  114. minut += 5
  115. gs 'stat'
  116. 'You pay for repairs'
  117. act 'Leave':gt $curloc
  118. end
  119. elseif karta + bankDebtLimit >= 300000 and ymanrem[4] = 1:
  120. act 'Pay bedroom furniture (300,000 <b>₽</b>)':
  121. cls
  122. karta -= 300000
  123. ymanrem[4] = 2
  124. minut += 5
  125. gs 'stat'
  126. 'You paid for the purchase of furniture'
  127. act 'Leave':gt $curloc
  128. end
  129. end
  130. if karta + bankDebtLimit >= 250000 and ymanrem[5] = 0:
  131. act 'Pay bathroom renovation (250,000 <b>₽</b>)':
  132. cls
  133. karta -= 250000
  134. ymanrem[5] = 1
  135. minut += 5
  136. gs 'stat'
  137. 'You pay for repairs'
  138. act 'Leave':gt $curloc
  139. end
  140. elseif karta + bankDebtLimit >= 250000 and ymanrem[5] = 1:
  141. act 'Pay for furniture and fixtures for the bathroom (250,000 <b>₽</b>)':
  142. cls
  143. karta -= 250000
  144. ymanrem[5] = 2
  145. minut += 5
  146. gs 'stat'
  147. 'You paid for the purchase of furniture and sanitary ware.'
  148. act 'Leave':gt $curloc
  149. end
  150. end
  151. if karta + bankDebtLimit >= 250000 and ymanrem[6] = 0:
  152. act 'Pay renovated kitchen (250,000 <b>₽</b>)':
  153. cls
  154. karta -= 250000
  155. ymanrem[6] = 1
  156. minut += 5
  157. gs 'stat'
  158. 'You pay for repairs'
  159. act 'Leave':gt $curloc
  160. end
  161. elseif karta + bankDebtLimit >= 350000 and ymanrem[6] = 1:
  162. act 'Pay kitchen furniture (350,000 <b>₽</b>)':
  163. cls
  164. karta -= 250000
  165. ymanrem[6] = 2
  166. minut += 5
  167. gs 'stat'
  168. 'You paid for the purchase of furniture for the kitchen.'
  169. act 'Leave':gt $curloc
  170. end
  171. end
  172. if karta + bankDebtLimit >= 250000 and ymanrem[7] = 0:
  173. act 'Pay for repairs hall (250,000 <b>₽</b>)':
  174. cls
  175. karta -= 250000
  176. ymanrem[7] = 1
  177. minut += 5
  178. gs 'stat'
  179. 'You pay for repairs'
  180. act 'Leave':gt $curloc
  181. end
  182. elseif karta + bankDebtLimit >= 250000 and ymanrem[7] = 1:
  183. act 'Pay furniture hall (250,000 <b>₽</b>)':
  184. cls
  185. karta -= 250000
  186. ymanrem[7] = 2
  187. minut += 5
  188. gs 'stat'
  189. 'You paid for the purchase of furniture for the hall'
  190. act 'Leave':gt $curloc
  191. end
  192. end
  193. if karta + bankDebtLimit >= 250000 and ymanrem[8] = 0:
  194. act 'Pay for repairs fireplace room (250,000 <b>₽</b>)':
  195. cls
  196. karta -= 250000
  197. ymanrem[8] = 1
  198. minut += 5
  199. gs 'stat'
  200. 'You pay for repairs'
  201. act 'Leave':gt $curloc
  202. end
  203. elseif karta + bankDebtLimit >= 250000 and ymanrem[8] = 1:
  204. act 'Pay for the purchase of furniture for the fireplace room (250,000 <b>₽</b>)':
  205. cls
  206. karta -= 250000
  207. ymanrem[8] = 2
  208. minut += 5
  209. gs 'stat'
  210. 'You paid for the purchase of furniture.'
  211. act 'Leave':gt $curloc
  212. end
  213. end
  214. if karta + bankDebtLimit >= 250000 and ymanrem[9] = 0:
  215. act 'Children''s room to pay for repairs (250,000 <b>₽</b>)':
  216. cls
  217. karta -= 250000
  218. ymanrem[9] = 1
  219. minut += 5
  220. gs 'stat'
  221. 'You pay for repairs'
  222. act 'Leave':gt $curloc
  223. end
  224. elseif karta + bankDebtLimit >= 250000 and ymanrem[9] = 1:
  225. act 'Pay for the purchase of furniture for the nursery (250,000 <b>₽</b>)':
  226. cls
  227. karta -= 250000
  228. ymanrem[9] = 2
  229. minut += 5
  230. gs 'stat'
  231. 'You paid for the purchase of furniture'
  232. act 'Leave':gt $curloc
  233. end
  234. end
  235. if karta + bankDebtLimit >= 250000 and ymanrem[10] = 0:
  236. act 'Pay for repairs library (250,000 <b>₽</b>)':
  237. cls
  238. karta -= 250000
  239. ymanrem[10] = 1
  240. minut += 5
  241. gs 'stat'
  242. 'You pay for repairs'
  243. act 'Leave':gt $curloc
  244. end
  245. elseif karta + bankDebtLimit >= 250000 and ymanrem[10] = 1:
  246. act 'Pay for the purchase of furniture for libraries (250,000 <b>₽</b>)':
  247. cls
  248. karta -= 250000
  249. ymanrem[10] = 2
  250. minut += 5
  251. gs 'stat'
  252. 'You paid for the purchase of furniture'
  253. act 'Leave':gt $curloc
  254. end
  255. end
  256. if karta + bankDebtLimit >= 250000 and ymanrem[11] = 0:
  257. act 'Pay for repairs gym (250,000 <b>₽</b>)':
  258. cls
  259. karta -= 250000
  260. ymanrem[11] = 1
  261. minut += 5
  262. gs 'stat'
  263. 'You pay for repairs'
  264. act 'Leave':gt $curloc
  265. end
  266. elseif karta + bankDebtLimit >= 250000 and ymanrem[11] = 1:
  267. act 'Pay furniture gym (250,000 <b>₽</b>)':
  268. cls
  269. karta -= 250000
  270. ymanrem[11] = 2
  271. minut += 5
  272. gs 'stat'
  273. 'You paid for the purchase of furniture for the gym'
  274. act 'Leave':gt $curloc
  275. end
  276. end
  277. if karta + bankDebtLimit >= 250000 and ymanrem[12] = 0:
  278. act 'Pay for repair of the (250,000 <b>₽</b>)':
  279. cls
  280. karta -= 250000
  281. ymanrem[12] = 1
  282. minut += 5
  283. gs 'stat'
  284. 'You pay for repairs'
  285. act 'Leave':gt $curloc
  286. end
  287. elseif karta + bankDebtLimit >= 250000 and ymanrem[12] = 1:
  288. act 'Pay for the purchase of furniture for the office (250,000 <b>₽</b>)':
  289. cls
  290. karta -= 250000
  291. ymanrem[12] = 2
  292. minut += 5
  293. gs 'stat'
  294. 'You paid for the purchase of furniture.'
  295. act 'Leave':gt $curloc
  296. end
  297. end
  298. end
  299. --- youplace ---------------------------------