1
0

youplace 7.1 KB

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