1
0

shopdacha.qsrc 9.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414
  1. # shopdacha
  2. clr
  3. menu_off = 1
  4. gs 'stat'
  5. gs 'themes', 'indoors'
  6. '<center><b><font color="maroon">Ilyich and Biryukov construction</font></b></center>'
  7. '<center><img <<$set_imgh>> src="images/locations/shared/store/shopdacha.jpg"></center>'
  8. 'In this storefront office, you can upgrade your existing properties or start a new construction project upon any land you may own.'
  9. 'All payments must be made from you bank account. Current balance - <<karta>> <b>₽</b>.'
  10. act 'Leave': minut += 3 & gt 'torgcentr'
  11. if hour < 8 or hour > 20:
  12. 'Shop closed.'
  13. else
  14. if karta + bankDebtLimit >= 50000 and (home_owned[1] = 2 or home_owned[1] = 3):
  15. if rembedr = 0:
  16. act 'Renovate city apartment bedroom (50,000 <b>₽</b>)':
  17. cla
  18. if karta + bankDebtLimit >= 50000:
  19. rembedr = 1
  20. karta -= 50000
  21. 'You upgrade your apartment bedroom.'
  22. else
  23. 'Unfortunately, you do not have enough money in your bank account.'
  24. end
  25. act 'Return':gt 'shopdacha'
  26. end
  27. end
  28. if remsitr = 0:
  29. act 'Renovate city apartment living room (50,000 <b>₽</b>)':
  30. cla
  31. if karta + bankDebtLimit >= 50000:
  32. remsitr = 1
  33. karta -= 50000
  34. 'You upgrade your apartment living room.'
  35. else
  36. 'Unfortunately, you do not have enough money in your bank account.'
  37. end
  38. act 'Return':gt 'shopdacha'
  39. end
  40. end
  41. if remkorr = 0:
  42. act 'Renovate city apartment hallway (50,000 <b>₽</b>)':
  43. cla
  44. if karta + bankDebtLimit >= 50000:
  45. remkorr = 1
  46. karta -= 50000
  47. 'You upgrade your apartment hallway.'
  48. else
  49. 'Unfortunately, you do not have enough money in your bank account.'
  50. end
  51. act 'Return':gt 'shopdacha'
  52. end
  53. end
  54. if remvanr = 0:
  55. act 'Renovate city apartment bathroom (50,000 <b>₽</b>)':
  56. cla
  57. if karta + bankDebtLimit >= 50000:
  58. remvanr = 1
  59. karta -= 50000
  60. 'You upgrade your apartment bathroom.'
  61. else
  62. 'Unfortunately, you do not have enough money in your bank account.'
  63. end
  64. act 'Return':gt 'shopdacha'
  65. end
  66. end
  67. if remkuhr = 0:
  68. act 'Renovate city apartment kitchen (50,000 <b>₽</b>)':
  69. cla
  70. if karta + bankDebtLimit >= 50000:
  71. remkuhr = 1
  72. karta -= 50000
  73. 'You upgrade your apartment kitchen.'
  74. else
  75. 'Unfortunately, you do not have enough money in your bank account.'
  76. end
  77. act 'Return':gt 'shopdacha'
  78. end
  79. end
  80. end
  81. if karta + bankDebtLimit >= 200000 and home_owned[3] = 1:
  82. act 'Upgrade your cottage (200,000 <b>₽</b>)':
  83. cls
  84. karta -= 200000
  85. home_owned[3] = 2
  86. minut += 15
  87. gs 'stat'
  88. 'You upgrade you dacha in the cooperative.'
  89. act 'Return': gt 'shopdacha'
  90. end
  91. end
  92. if karta + bankDebtLimit >= 500000 and home_owned[5] = 1:
  93. act 'Connect water, electricity (500,000 <b>₽</b>)':
  94. cls
  95. karta -= 500000
  96. home_owned[5] = 2
  97. minut += 5
  98. gs 'stat'
  99. 'You pay for a connection of services to the site.'
  100. act 'Return': gt 'shopdacha'
  101. end
  102. end
  103. if karta + bankDebtLimit >= 1500000 and home_owned[5] = 2:
  104. act 'Build mansion''s shell for (1,500,000 <b>₽</b>)':
  105. cls
  106. karta -= 1500000
  107. home_owned[5] = 3
  108. minut += 5
  109. gs 'stat'
  110. 'You pay for the construction of the mansion''s shell.'
  111. act 'Return': gt 'shopdacha'
  112. end
  113. end
  114. if karta + bankDebtLimit >= 500000 and home_owned[5] = 3 and ymanrem[3] = 0:
  115. act 'Build internal walls (500, 000 <b>₽</b>)':
  116. cls
  117. karta -= 500000
  118. ymanrem[3] = 1
  119. minut += 5
  120. gs 'stat'
  121. 'You pay for the construction of the mansion''s internal walls.'
  122. act 'Return': gt 'shopdacha'
  123. end
  124. end
  125. if home_owned[5] >= 2:
  126. if karta + bankDebtLimit >= 800000 and home_owned[5] >= 2 and banaMansion = 0:
  127. act 'Install electrics and plumbing (800,000 <b>₽</b>)':
  128. cls
  129. karta -= 800000
  130. banaMansion = 1
  131. minut += 5
  132. gs 'stat'
  133. 'You pay for the electrics and plumbing to be installed.'
  134. act 'Return': gt 'shopdacha'
  135. end
  136. end
  137. if karta + bankDebtLimit >= 500000 and home_owned[5] >= 2 and bassMansion = 0:
  138. act 'Build a pool (500,000 <b>₽</b>)':
  139. cls
  140. karta -= 500000
  141. bassMansion = 1
  142. minut += 5
  143. gs 'stat'
  144. 'You pay for the construction of the mansion''s pool.'
  145. act 'Return': gt 'shopdacha'
  146. end
  147. end
  148. end
  149. if home_owned[5] = 3:
  150. if karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[3] = 1:
  151. act 'Build hallways (250,000 <b>₽</b>)':
  152. cls
  153. karta -= 250000
  154. ymanrem[3] = 2
  155. minut += 5
  156. gs 'stat'
  157. 'You pay for hallways to be built.'
  158. act 'Return': gt 'shopdacha'
  159. end
  160. elseif karta + bankDebtLimit >= 150000 and home_owned[5] = 3 and ymanrem[3] = 2:
  161. act 'Buy lounge furniture (150,000 <b>₽</b>)':
  162. cls
  163. karta -= 150000
  164. ymanrem[3] = 3
  165. minut += 5
  166. gs 'stat'
  167. 'You buy lounge furniture.'
  168. act 'Return': gt 'shopdacha'
  169. end
  170. end
  171. if karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[4] = 0:
  172. act 'Build main bedroom (250,000 <b>₽</b>)':
  173. cls
  174. karta -= 250000
  175. ymanrem[4] = 1
  176. minut += 5
  177. gs 'stat'
  178. 'You pay for the main bedroom to be built.'
  179. act 'Return': gt 'shopdacha'
  180. end
  181. elseif karta + bankDebtLimit >= 300000 and home_owned[5] = 3 and ymanrem[4] = 1:
  182. act 'Buy bedroom furniture (300,000 <b>₽</b>)':
  183. cls
  184. karta -= 300000
  185. ymanrem[4] = 2
  186. minut += 5
  187. gs 'stat'
  188. 'You buy bedroom furniture.'
  189. act 'Return': gt 'shopdacha'
  190. end
  191. end
  192. if karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[5] = 0:
  193. act 'Pay for bathroom (250,000 <b>₽</b>)':
  194. cls
  195. karta -= 250000
  196. ymanrem[5] = 1
  197. minut += 5
  198. gs 'stat'
  199. 'You pay for the bathroom to be built.'
  200. act 'Return': gt 'shopdacha'
  201. end
  202. elseif karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[5] = 1:
  203. act 'Pay for bathroom fixtures and fittings (250,000 <b>₽</b>)':
  204. cls
  205. karta -= 250000
  206. ymanrem[5] = 2
  207. minut += 5
  208. gs 'stat'
  209. 'You purchase the bathroom suite.'
  210. act 'Return': gt 'shopdacha'
  211. end
  212. end
  213. if karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[6] = 0:
  214. act 'Pay for kitchen installation (250,000 <b>₽</b>)':
  215. cls
  216. karta -= 250000
  217. ymanrem[6] = 1
  218. minut += 5
  219. gs 'stat'
  220. 'You pay for the kitchen installation.'
  221. act 'Return': gt 'shopdacha'
  222. end
  223. elseif karta + bankDebtLimit >= 350000 and home_owned[5] = 3 and ymanrem[6] = 1:
  224. act 'Pay for kitchen units (350,000 <b>₽</b>)':
  225. cls
  226. karta -= 250000
  227. ymanrem[6] = 2
  228. minut += 5
  229. gs 'stat'
  230. 'You purchase the kitchen units.'
  231. act 'Return': gt 'shopdacha'
  232. end
  233. end
  234. if karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[7] = 0:
  235. act 'Pay for the living room (250,000 <b>₽</b>)':
  236. cls
  237. karta -= 250000
  238. ymanrem[7] = 1
  239. minut += 5
  240. gs 'stat'
  241. 'You pay for your living room.'
  242. act 'Return': gt 'shopdacha'
  243. end
  244. elseif karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[7] = 1:
  245. act 'Buy furniture for the living room (250,000 <b>₽</b>)':
  246. cls
  247. karta -= 250000
  248. ymanrem[7] = 2
  249. minut += 5
  250. gs 'stat'
  251. 'You buy furniture for your living room.'
  252. act 'Return': gt 'shopdacha'
  253. end
  254. end
  255. if karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[8] = 0:
  256. act 'Pay for your lounge (250,000 <b>₽</b>)':
  257. cls
  258. karta -= 250000
  259. ymanrem[8] = 1
  260. minut += 5
  261. gs 'stat'
  262. 'You pay for your lounge.'
  263. act 'Return': gt 'shopdacha'
  264. end
  265. elseif karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[8] = 1:
  266. act 'Purchase furniture for the lounge (250,000 <b>₽</b>)':
  267. cls
  268. karta -= 250000
  269. ymanrem[8] = 2
  270. minut += 5
  271. gs 'stat'
  272. 'You purchase furniture for your lounge.'
  273. act 'Return': gt 'shopdacha'
  274. end
  275. end
  276. if karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[9] = 0:
  277. act 'Build a children''s room (250,000 <b>₽</b>)':
  278. cls
  279. karta -= 250000
  280. ymanrem[9] = 1
  281. minut += 5
  282. gs 'stat'
  283. 'You pay for a children''s room.'
  284. act 'Return': gt 'shopdacha'
  285. end
  286. elseif karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[9] = 1:
  287. act 'Buy furniture for the nursery (250,000 <b>₽</b>)':
  288. cls
  289. karta -= 250000
  290. ymanrem[9] = 2
  291. minut += 5
  292. gs 'stat'
  293. 'You pay furniture for the nursery.'
  294. act 'Return': gt 'shopdacha'
  295. end
  296. end
  297. if karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[10] = 0:
  298. act 'Pay for a library (250,000 <b>₽</b>)':
  299. cls
  300. karta -= 250000
  301. ymanrem[10] = 1
  302. minut += 5
  303. gs 'stat'
  304. 'You pay for a library.'
  305. act 'Return': gt 'shopdacha'
  306. end
  307. elseif karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[10] = 1:
  308. act 'Purchase furniture for your library (250,000 <b>₽</b>)':
  309. cls
  310. karta -= 250000
  311. ymanrem[10] = 2
  312. minut += 5
  313. gs 'stat'
  314. 'You buy furniture for the library.'
  315. act 'Return': gt 'shopdacha'
  316. end
  317. end
  318. if karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[11] = 0:
  319. act 'Buy a gym (250,000 <b>₽</b>)':
  320. cls
  321. karta -= 250000
  322. ymanrem[11] = 1
  323. minut += 5
  324. gs 'stat'
  325. 'You buy a gym.'
  326. act 'Return': gt 'shopdacha'
  327. end
  328. elseif karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[11] = 1:
  329. act 'Buy gym equipment (250,000 <b>₽</b>)':
  330. cls
  331. karta -= 250000
  332. ymanrem[11] = 2
  333. minut += 5
  334. gs 'stat'
  335. 'You buy gym equipment.'
  336. act 'Return': gt 'shopdacha'
  337. end
  338. end
  339. if karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[12] = 0:
  340. act 'Buy an office (250,000 <b>₽</b>)':
  341. cls
  342. karta -= 250000
  343. ymanrem[12] = 1
  344. minut += 5
  345. gs 'stat'
  346. 'You pay for an office to be built.'
  347. act 'Return': gt 'shopdacha'
  348. end
  349. elseif karta + bankDebtLimit >= 250000 and home_owned[5] = 3 and ymanrem[12] = 1:
  350. act 'Purchase furniture for the office (250,000)':
  351. cls
  352. karta -= 250000
  353. ymanrem[12] = 2
  354. minut += 5
  355. gs 'stat'
  356. 'You buy office furniture.'
  357. act 'Return': gt 'shopdacha'
  358. end
  359. end
  360. end
  361. end
  362. --- shopdacha ---------------------------------