1
0

youplace 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364
  1. # youplace
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. '<center><h4>Your Land</h4></center>'
  5. if placeMansion < 2:'<center><img src="images/etogame/yzemelniy.jpg"></center>'
  6. if placeMansion = 2:'<center><img src="images/etogame/ystart.jpg"></center>'
  7. if placeMansion = 3:'<center><img src="images/etogame/yosobnak.jpg"></center>'
  8. ''
  9. clr
  10. gs 'stat'
  11. gs 'time'
  12. if car > 0 and cardrive = 18:
  13. set 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 karta >= 800000 and placeMansion >= 2 and banaMansion = 0:
  65. act 'Pay for the construction of baths (800,000 rubles)':
  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 >= 500000 and placeMansion >= 2 and bassMansion = 0:
  76. act 'Pay for the construction of the basement (500,000 rubles)':
  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. if karta >= 250000 and placeMansion = 3 and ymanrem[3] = 1:
  87. act 'Pay for repairs Hall (250,000 rubles)':
  88. cls
  89. karta -= 250000
  90. ymanrem[3] = 2
  91. minut += 5
  92. gs 'stat'
  93. 'You pay for repairs'
  94. act 'Leave':gt $curloc
  95. end
  96. end
  97. if karta >= 150000 and placeMansion = 3 and ymanrem[3] = 2:
  98. act 'Pay lounge furniture (150,000 rubles)':
  99. cls
  100. karta -= 150000
  101. ymanrem[3] = 3
  102. minut += 5
  103. gs 'stat'
  104. 'You paid for the purchase of furniture'
  105. act 'Leave':gt $curloc
  106. end
  107. end
  108. if karta >= 250000 and placeMansion = 3 and ymanrem[4] = 0:
  109. act 'Pay for repairs sleeping (250,000 rubles)':
  110. cls
  111. karta -= 250000
  112. ymanrem[4] = 1
  113. minut += 5
  114. gs 'stat'
  115. 'You pay for repairs'
  116. act 'Leave':gt $curloc
  117. end
  118. end
  119. if karta >= 300000 and placeMansion = 3 and ymanrem[4] = 1:
  120. act 'Pay bedroom furniture (300,000 rubles)':
  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 >= 250000 and placeMansion = 3 and ymanrem[5] = 0:
  131. act 'Pay bathroom renovation (250,000 rubles)':
  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. end
  141. if karta >= 250000 and placeMansion = 3 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 placeMansion = 3 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. end
  163. if karta >= 350000 and placeMansion = 3 and ymanrem[6] = 1:
  164. act 'Pay kitchen furniture (350,000 rubles)':
  165. cls
  166. karta -= 250000
  167. ymanrem[6] = 2
  168. minut += 5
  169. gs 'stat'
  170. 'You paid for the purchase of furniture for the kitchen.'
  171. act 'Leave':gt $curloc
  172. end
  173. end
  174. if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 0:
  175. act 'Pay for repairs hall (250,000 rubles)':
  176. cls
  177. karta -= 250000
  178. ymanrem[7] = 1
  179. minut += 5
  180. gs 'stat'
  181. 'You pay for repairs'
  182. act 'Leave':gt $curloc
  183. end
  184. end
  185. if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 1:
  186. act 'Pay furniture hall (250,000 rubles)':
  187. cls
  188. karta -= 250000
  189. ymanrem[7] = 2
  190. minut += 5
  191. gs 'stat'
  192. 'You paid for the purchase of furniture for the hall'
  193. act 'Leave':gt $curloc
  194. end
  195. end
  196. if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 0:
  197. act 'Pay for repairs fireplace room (250,000 rubles)':
  198. cls
  199. karta -= 250000
  200. ymanrem[8] = 1
  201. minut += 5
  202. gs 'stat'
  203. 'You pay for repairs'
  204. act 'Leave':gt $curloc
  205. end
  206. end
  207. if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 1:
  208. act 'Pay for the purchase of furniture for the fireplace room (250,000 rubles)':
  209. cls
  210. karta -= 250000
  211. ymanrem[8] = 2
  212. minut += 5
  213. gs 'stat'
  214. 'You paid for the purchase of furniture.'
  215. act 'Leave':gt $curloc
  216. end
  217. end
  218. if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 0:
  219. act 'Children´s room to pay for repairs (250,000 rubles)':
  220. cls
  221. karta -= 250000
  222. ymanrem[9] = 1
  223. minut += 5
  224. gs 'stat'
  225. 'You pay for repairs'
  226. act 'Leave':gt $curloc
  227. end
  228. end
  229. if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 1:
  230. act 'Pay for the purchase of furniture for the nursery (250,000 rubles)':
  231. cls
  232. karta -= 250000
  233. ymanrem[9] = 2
  234. minut += 5
  235. gs 'stat'
  236. 'You paid for the purchase of furniture'
  237. act 'Leave':gt $curloc
  238. end
  239. end
  240. if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 0:
  241. act 'Pay for repairs library (250,000 rubles)':
  242. cls
  243. karta -= 250000
  244. ymanrem[10] = 1
  245. minut += 5
  246. gs 'stat'
  247. 'You pay for repairs'
  248. act 'Leave':gt $curloc
  249. end
  250. end
  251. if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 1:
  252. act 'Pay for the purchase of furniture for libraries (250,000 rubles)':
  253. cls
  254. karta -= 250000
  255. ymanrem[10] = 2
  256. minut += 5
  257. gs 'stat'
  258. 'You paid for the purchase of furniture'
  259. act 'Leave':gt $curloc
  260. end
  261. end
  262. if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 0:
  263. act 'Pay for repairs gym (250,000 rubles)':
  264. cls
  265. karta -= 250000
  266. ymanrem[11] = 1
  267. minut += 5
  268. gs 'stat'
  269. 'You pay for repairs'
  270. act 'Leave':gt $curloc
  271. end
  272. end
  273. if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 1:
  274. act 'Pay furniture gym (250,000 rubles)':
  275. cls
  276. karta -= 250000
  277. ymanrem[11] = 2
  278. minut += 5
  279. gs 'stat'
  280. 'You paid for the purchase of furniture for the gym'
  281. act 'Leave':gt $curloc
  282. end
  283. end
  284. if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 0:
  285. act 'Pay for repair of the (250,000 rubles)':
  286. cls
  287. karta -= 250000
  288. ymanrem[12] = 1
  289. minut += 5
  290. gs 'stat'
  291. 'You pay for repairs'
  292. act 'Leave':gt $curloc
  293. end
  294. end
  295. if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 1:
  296. act 'Pay for the purchase of furniture for the office (250,000 rubles)':
  297. cls
  298. karta -= 250000
  299. ymanrem[12] = 2
  300. minut += 5
  301. gs 'stat'
  302. 'You paid for the purchase of furniture.'
  303. act 'Leave':gt $curloc
  304. end
  305. end
  306. --- youplace ---------------------------------