1
0

shopdacha.qsrc 10 KB

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