1
0

youplace.qsrc 8.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378
  1. # youplace
  2. *clr & cla
  3. $metka = ''
  4. $loc = 'youplace'
  5. $menu_loc = 'youplace'
  6. $menu_arg = ''
  7. menu_off = 0
  8. gs 'stat'
  9. '<center><h4>Your land lot</h4></center>'
  10. if home_owned[5] < 2:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/yzemelniy.jpg"></center>'
  11. if home_owned[5] = 2:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/ystart.jpg"></center>'
  12. if home_owned[5] = 3:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/yosobnak.jpg"></center>'
  13. ''
  14. if car > 0 and cardrive = 18:
  15. cardrive = 18
  16. '<a href="exec:gs ''carF'', ''start''">Your <<$car>></a> is parked here.'
  17. end
  18. act 'Go to the suburbs':minut += 10 & gt 'psiklin', 'start'
  19. if bassMansion = 1:'<a href="exec:gt ''ybass''">Go to the pool</a>.'
  20. if banaMansion >= 1:'<a href="exec:gt ''yban''">Go to the sauna</a>.'
  21. if home_owned[5] = 3:'<a href="exec:gt ''ymans''">Walk inside the mansion</a>.'
  22. if karta + bankDebtLimit >= 1500000 and home_owned[5] = 0:
  23. act 'Buy the land lot for a mansion (1,500,000)':
  24. cls
  25. karta -= 1500000
  26. home_owned[5] = 1
  27. minut += 5
  28. menu_off = 1
  29. gs 'stat'
  30. 'You have bought the land lot. You can finally build your own dream mansion.'
  31. act 'Leave':gt $curloc
  32. end
  33. end
  34. if karta + bankDebtLimit >= 500000 and home_owned[5] = 1:
  35. act 'Pay for running utilies and the building foundation (500,000 <b>₽</b>)':
  36. cls
  37. karta -= 500000
  38. home_owned[5] = 2
  39. minut += 5
  40. menu_off = 1
  41. gs 'stat'
  42. 'You''ve paid for the utilities. You now have running water, sewage, electric power, and telephone lines. There''s even a foundation built on the land lot.'
  43. act 'Leave':gt $curloc
  44. end
  45. end
  46. if karta + bankDebtLimit >= 1500000 and home_owned[5] = 2:
  47. act 'Pay for the finishing touches on the mansion (1,500,000 <b>₽</b>)':
  48. cls
  49. karta -= 1500000
  50. home_owned[5] = 3
  51. minut += 5
  52. menu_off = 1
  53. gs 'stat'
  54. 'You''ve paid for the construction of the mansion.'
  55. act 'Leave':gt $curloc
  56. end
  57. end
  58. if karta + bankDebtLimit >= 500000 and home_owned[5] = 3 and ymanrem[3] = 0:
  59. act 'Pay for the construction of the rooms (500,000 <b>₽</b>)':
  60. cls
  61. karta -= 500000
  62. ymanrem[3] = 1
  63. minut += 5
  64. menu_off = 1
  65. gs 'stat'
  66. 'You paid for the construction of the rooms. You can finally begin designing the interior of the mansion.'
  67. act 'Leave':gt $curloc
  68. end
  69. end
  70. if home_owned[5] => 2:
  71. if karta + bankDebtLimit >= 800000 and banaMansion = 0:
  72. act 'Pay for the construction of the sauna (800,000 <b>₽</b>)':
  73. cls
  74. karta -= 800000
  75. banaMansion = 1
  76. minut += 5
  77. menu_off = 1
  78. gs 'stat'
  79. 'You paid for the construction of the sauna. You finally have a place where you can relax.'
  80. act 'Leave':gt $curloc
  81. end
  82. end
  83. if karta + bankDebtLimit >= 500000 and bassMansion = 0:
  84. act 'Pay for the construction of the pool area (500,000 <b>₽</b>)':
  85. cls
  86. karta -= 500000
  87. bassMansion = 1
  88. minut += 5
  89. menu_off = 1
  90. gs 'stat'
  91. 'You paid for the construction of the pool area. You can finally take relaxing swims in private.'
  92. act 'Leave':gt $curloc
  93. end
  94. end
  95. end
  96. if home_owned[5] = 3:
  97. if karta + bankDebtLimit >= 250000 and ymanrem[3] = 1:
  98. act 'Pay for the renovations of the main hall (250,000 <b>₽</b>)':
  99. cls
  100. karta -= 250000
  101. ymanrem[3] = 2
  102. minut += 5
  103. menu_off = 1
  104. gs 'stat'
  105. 'The work on the main hall is finished.'
  106. act 'Leave':gt $curloc
  107. end
  108. elseif karta + bankDebtLimit >= 150000 and ymanrem[3] = 2:
  109. act 'Decorate the main hall (150,000 <b>₽</b>)':
  110. cls
  111. karta -= 150000
  112. ymanrem[3] = 3
  113. minut += 5
  114. menu_off = 1
  115. gs 'stat'
  116. 'The work on the main hall is finished.'
  117. act 'Leave':gt $curloc
  118. end
  119. end
  120. if karta + bankDebtLimit >= 250000 and ymanrem[4] = 0:
  121. act 'Pay for the renovations of the bedroom (250,000 <b>₽</b>)':
  122. cls
  123. karta -= 250000
  124. ymanrem[4] = 1
  125. minut += 5
  126. menu_off = 1
  127. gs 'stat'
  128. 'The work on the bedroom is finished.'
  129. act 'Leave':gt $curloc
  130. end
  131. elseif karta + bankDebtLimit >= 300000 and ymanrem[4] = 1:
  132. act 'Decorate the bedroom (300,000 <b>₽</b>)':
  133. cls
  134. karta -= 300000
  135. ymanrem[4] = 2
  136. minut += 5
  137. menu_off = 1
  138. gs 'stat'
  139. 'The work on the bedroom is finished.'
  140. act 'Leave':gt $curloc
  141. end
  142. end
  143. if karta + bankDebtLimit >= 250000 and ymanrem[5] = 0:
  144. act 'Pay for the renovations of the bathroom (250,000 <b>₽</b>)':
  145. cls
  146. karta -= 250000
  147. ymanrem[5] = 1
  148. minut += 5
  149. menu_off = 1
  150. gs 'stat'
  151. 'The work on the batroom is finished.'
  152. act 'Leave':gt $curloc
  153. end
  154. elseif karta + bankDebtLimit >= 250000 and ymanrem[5] = 1:
  155. act 'Decorate the bathroom (250,000 <b>₽</b>)':
  156. cls
  157. karta -= 250000
  158. ymanrem[5] = 2
  159. minut += 5
  160. menu_off = 1
  161. gs 'stat'
  162. 'The work on the batroom is finished.'
  163. act 'Leave':gt $curloc
  164. end
  165. end
  166. if karta + bankDebtLimit >= 250000 and ymanrem[6] = 0:
  167. act 'Pay for the renovations of the kitchen (250,000 <b>₽</b>)':
  168. cls
  169. karta -= 250000
  170. ymanrem[6] = 1
  171. minut += 5
  172. menu_off = 1
  173. gs 'stat'
  174. 'The work on the kitchen is finished.'
  175. act 'Leave':gt $curloc
  176. end
  177. elseif karta + bankDebtLimit >= 350000 and ymanrem[6] = 1:
  178. act 'Decorate the kitchen (350,000 <b>₽</b>)':
  179. cls
  180. karta -= 250000
  181. ymanrem[6] = 2
  182. minut += 5
  183. menu_off = 1
  184. gs 'stat'
  185. 'The work on the kitchen is finished.'
  186. act 'Leave':gt $curloc
  187. end
  188. end
  189. if karta + bankDebtLimit >= 250000 and ymanrem[7] = 0:
  190. act 'Pay for the renovations of the living room (250,000 <b>₽</b>)':
  191. cls
  192. karta -= 250000
  193. ymanrem[7] = 1
  194. minut += 5
  195. menu_off = 1
  196. gs 'stat'
  197. 'The work on the living room is finished.'
  198. act 'Leave':gt $curloc
  199. end
  200. elseif karta + bankDebtLimit >= 250000 and ymanrem[7] = 1:
  201. act 'Decorate the living room (250,000 <b>₽</b>)':
  202. cls
  203. karta -= 250000
  204. ymanrem[7] = 2
  205. minut += 5
  206. menu_off = 1
  207. gs 'stat'
  208. 'The work on the living room is finished.'
  209. act 'Leave':gt $curloc
  210. end
  211. end
  212. if karta + bankDebtLimit >= 250000 and ymanrem[8] = 0:
  213. act 'Pay for the renovations of the fireplace room (250,000 <b>₽</b>)':
  214. cls
  215. karta -= 250000
  216. ymanrem[8] = 1
  217. minut += 5
  218. menu_off = 1
  219. gs 'stat'
  220. 'The work on the fireplace room is finished.'
  221. act 'Leave':gt $curloc
  222. end
  223. elseif karta + bankDebtLimit >= 250000 and ymanrem[8] = 1:
  224. act 'Decorate the fireplace room (250,000 <b>₽</b>)':
  225. cls
  226. karta -= 250000
  227. ymanrem[8] = 2
  228. minut += 5
  229. menu_off = 1
  230. gs 'stat'
  231. 'The work on the fireplace room is finished.'
  232. act 'Leave':gt $curloc
  233. end
  234. end
  235. if karta + bankDebtLimit >= 250000 and ymanrem[9] = 0:
  236. act 'Pay for the renovations of the nursery room (250,000 <b>₽</b>)':
  237. cls
  238. karta -= 250000
  239. ymanrem[9] = 1
  240. minut += 5
  241. menu_off = 1
  242. gs 'stat'
  243. 'The work on the nursery is finished.'
  244. act 'Leave':gt $curloc
  245. end
  246. elseif karta + bankDebtLimit >= 250000 and ymanrem[9] = 1:
  247. act 'Decorate the nursery (250,000 <b>₽</b>)':
  248. cls
  249. karta -= 250000
  250. ymanrem[9] = 2
  251. minut += 5
  252. menu_off = 1
  253. gs 'stat'
  254. 'The work on the nursery is finished.'
  255. act 'Leave':gt $curloc
  256. end
  257. end
  258. if karta + bankDebtLimit >= 250000 and ymanrem[10] = 0:
  259. act 'Pay for the renovations of the library (250,000 <b>₽</b>)':
  260. cls
  261. karta -= 250000
  262. ymanrem[10] = 1
  263. minut += 5
  264. menu_off = 1
  265. gs 'stat'
  266. 'The work on the library is finished.'
  267. act 'Leave':gt $curloc
  268. end
  269. elseif karta + bankDebtLimit >= 250000 and ymanrem[10] = 1:
  270. act 'Decorate the library (250,000 <b>₽</b>)':
  271. cls
  272. karta -= 250000
  273. ymanrem[10] = 2
  274. minut += 5
  275. menu_off = 1
  276. gs 'stat'
  277. 'The work on the library is finished.'
  278. act 'Leave':gt $curloc
  279. end
  280. end
  281. if karta + bankDebtLimit >= 250000 and ymanrem[11] = 0:
  282. act 'Pay for the renovations of the gym (250,000 <b>₽</b>)':
  283. cls
  284. karta -= 250000
  285. ymanrem[11] = 1
  286. minut += 5
  287. menu_off = 1
  288. gs 'stat'
  289. 'The work on the gym is finished.'
  290. act 'Leave':gt $curloc
  291. end
  292. elseif karta + bankDebtLimit >= 250000 and ymanrem[11] = 1:
  293. act 'Decorate the gym (250,000 <b>₽</b>)':
  294. cls
  295. karta -= 250000
  296. ymanrem[11] = 2
  297. minut += 5
  298. menu_off = 1
  299. gs 'stat'
  300. 'The work on the gym is finished.'
  301. act 'Leave':gt $curloc
  302. end
  303. end
  304. if karta + bankDebtLimit >= 250000 and ymanrem[12] = 0:
  305. act 'Pay for the renovations of the office (250,000 <b>₽</b>)':
  306. cls
  307. karta -= 250000
  308. ymanrem[12] = 1
  309. minut += 5
  310. menu_off = 1
  311. gs 'stat'
  312. 'The work on the office is finished.'
  313. act 'Leave':gt $curloc
  314. end
  315. elseif karta + bankDebtLimit >= 250000 and ymanrem[12] = 1:
  316. act 'Decorate the office (250,000 <b>₽</b>)':
  317. cls
  318. karta -= 250000
  319. ymanrem[12] = 2
  320. minut += 5
  321. menu_off = 1
  322. gs 'stat'
  323. 'The work on the office is finished.'
  324. act 'Leave':gt $curloc
  325. end
  326. end
  327. end
  328. --- youplace ---------------------------------