1
0

shopdacha 9.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373
  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 buy a cottage in a cooperative and upgrade it.'
  16. 'You can also buy land for mansion for 1.5 million and all the many construction projects required to build and upgrade it.'
  17. 'All payments must be made from you bank account. Current balance - <<karta>> <b>₽</b>.'
  18. act 'Leave':minut += 5 & gt 'torgcentr'
  19. if hour < 8 or hour > 20:
  20. 'Shop closed.'
  21. else
  22. if karta + bankDebtLimit >= 75000 and dachaest = 0:
  23. act 'Buy a cottage (75,000 <b>₽</b>)':
  24. cls
  25. karta -= 75000
  26. dachaest = 1
  27. minut += 15
  28. etoexhib = 0
  29. gs 'stat'
  30. 'You bought a house with a garden in the dacha cooperative 5km from the city on highway to Pavlovsk.'
  31. act 'Return': gt 'shopdacha'
  32. end
  33. end
  34. if karta + bankDebtLimit >= 75000 and dachaest = 1:
  35. act 'Upgrade your cottage (75,000 <b>₽</b>)':
  36. cls
  37. karta -= 75000
  38. dachaest = 2
  39. minut += 15
  40. gs 'stat'
  41. 'You upgraded you dacha in the cooperative.'
  42. act 'Return': gt 'shopdacha'
  43. end
  44. end
  45. if karta + bankDebtLimit >= 1500000 and placeMansion = 0:
  46. act 'Buy land for Mansion (1,500,000 <b>₽</b>)':
  47. cls
  48. karta -= 1500000
  49. placeMansion = 1
  50. minut += 5
  51. gs 'stat'
  52. 'You have bought land for Mansion'
  53. act 'Return': gt 'shopdacha'
  54. end
  55. end
  56. if karta + bankDebtLimit >= 500000 and placeMansion = 1:
  57. act 'Connect water, electricity (500,000 <b>₽</b>)':
  58. cls
  59. karta -= 500000
  60. placeMansion = 2
  61. minut += 5
  62. gs 'stat'
  63. 'You paid for a connection of services to the site'
  64. act 'Return': gt 'shopdacha'
  65. end
  66. end
  67. if karta + bankDebtLimit >= 1500000 and placeMansion = 2:
  68. act 'Build Mansion''s shell for (1,500,000 <b>₽</b>)':
  69. cls
  70. karta -= 1500000
  71. placeMansion = 3
  72. minut += 5
  73. gs 'stat'
  74. 'You paid for the construction of the Mansion''s shell'
  75. act 'Return': gt 'shopdacha'
  76. end
  77. end
  78. if karta + bankDebtLimit >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
  79. act 'Build rooms for (500, 000 <b>₽</b>)':
  80. cls
  81. karta -= 500000
  82. ymanrem[3] = 1
  83. minut += 5
  84. gs 'stat'
  85. 'You paid for the construction of the Mansion''s rooms'
  86. act 'Return': gt 'shopdacha'
  87. end
  88. end
  89. if placeMansion >= 2:
  90. if karta + bankDebtLimit >= 800000 and placeMansion >= 2 and banaMansion = 0:
  91. act 'Build baths for (800,000 <b>₽</b>)':
  92. cls
  93. karta -= 800000
  94. banaMansion = 1
  95. minut += 5
  96. gs 'stat'
  97. 'You paid for the construction of the Mansion''s bathrooms'
  98. act 'Return': gt 'shopdacha'
  99. end
  100. end
  101. if karta + bankDebtLimit >= 500000 and placeMansion >= 2 and bassMansion = 0:
  102. act 'Build pool for (500,000 <b>₽</b>)':
  103. cls
  104. karta -= 500000
  105. bassMansion = 1
  106. minut += 5
  107. gs 'stat'
  108. 'You paid for the construction of the Mansion''s pool'
  109. act 'Return': gt 'shopdacha'
  110. end
  111. end
  112. end
  113. if placeMansion = 3:
  114. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[3] = 1:
  115. act 'Pay for repairs Hall (250,000 <b>₽</b>)':
  116. cls
  117. karta -= 250000
  118. ymanrem[3] = 2
  119. minut += 5
  120. gs 'stat'
  121. 'You pay for repairs'
  122. act 'Return': gt 'shopdacha'
  123. end
  124. elseif karta + bankDebtLimit >= 150000 and placeMansion = 3 and ymanrem[3] = 2:
  125. act 'Pay lounge furniture for (150,000 <b>₽</b>)':
  126. cls
  127. karta -= 150000
  128. ymanrem[3] = 3
  129. minut += 5
  130. gs 'stat'
  131. 'You paid for the purchase of furniture'
  132. act 'Return': gt 'shopdacha'
  133. end
  134. end
  135. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[4] = 0:
  136. act 'Pay for repairs bedroom (250,000 <b>₽</b>)':
  137. cls
  138. karta -= 250000
  139. ymanrem[4] = 1
  140. minut += 5
  141. gs 'stat'
  142. 'You pay for repairs'
  143. act 'Return': gt 'shopdacha'
  144. end
  145. elseif karta + bankDebtLimit >= 300000 and placeMansion = 3 and ymanrem[4] = 1:
  146. act 'Pay bedroom furniture for (300,000 <b>₽</b>)':
  147. cls
  148. karta -= 300000
  149. ymanrem[4] = 2
  150. minut += 5
  151. gs 'stat'
  152. 'You paid for the purchase of furniture'
  153. act 'Return': gt 'shopdacha'
  154. end
  155. end
  156. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[5] = 0:
  157. act 'Pay bathroom renovation for (250,000 <b>₽</b>)':
  158. cls
  159. karta -= 250000
  160. ymanrem[5] = 1
  161. minut += 5
  162. gs 'stat'
  163. 'You pay for repairs'
  164. act 'Return': gt 'shopdacha'
  165. end
  166. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[5] = 1:
  167. act 'Pay for bathroom furniture and fixtures for (250,000 <b>₽</b>)':
  168. cls
  169. karta -= 250000
  170. ymanrem[5] = 2
  171. minut += 5
  172. gs 'stat'
  173. 'You paid for the purchase of furniture and sanitary ware.'
  174. act 'Return': gt 'shopdacha'
  175. end
  176. end
  177. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[6] = 0:
  178. act 'Pay renovated kitchen for (250,000 <b>₽</b>)':
  179. cls
  180. karta -= 250000
  181. ymanrem[6] = 1
  182. minut += 5
  183. gs 'stat'
  184. 'You pay for repairs'
  185. act 'Return': gt 'shopdacha'
  186. end
  187. elseif karta + bankDebtLimit >= 350000 and placeMansion = 3 and ymanrem[6] = 1:
  188. act 'Pay kitchen furniture for (350,000 <b>₽</b>)':
  189. cls
  190. karta -= 250000
  191. ymanrem[6] = 2
  192. minut += 5
  193. gs 'stat'
  194. 'You paid for the purchase of furniture for the kitchen.'
  195. act 'Return': gt 'shopdacha'
  196. end
  197. end
  198. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[7] = 0:
  199. act 'Pay for repairs hall for (250,000 <b>₽</b>)':
  200. cls
  201. karta -= 250000
  202. ymanrem[7] = 1
  203. minut += 5
  204. gs 'stat'
  205. 'You pay for repairs'
  206. act 'Return': gt 'shopdacha'
  207. end
  208. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[7] = 1:
  209. act 'Pay furniture hall for (250,000 <b>₽</b>)':
  210. cls
  211. karta -= 250000
  212. ymanrem[7] = 2
  213. minut += 5
  214. gs 'stat'
  215. 'You paid for the purchase of furniture for the hall'
  216. act 'Return': gt 'shopdacha'
  217. end
  218. end
  219. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[8] = 0:
  220. act 'Pay for repairs fireplace room for (250,000 <b>₽</b>)':
  221. cls
  222. karta -= 250000
  223. ymanrem[8] = 1
  224. minut += 5
  225. gs 'stat'
  226. 'You pay for repairs'
  227. act 'Return': gt 'shopdacha'
  228. end
  229. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[8] = 1:
  230. act 'Pay for the purchase of furniture for the fireplace room for (250,000 <b>₽</b>)':
  231. cls
  232. karta -= 250000
  233. ymanrem[8] = 2
  234. minut += 5
  235. gs 'stat'
  236. 'You paid for the purchase of furniture.'
  237. act 'Return': gt 'shopdacha'
  238. end
  239. end
  240. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[9] = 0:
  241. act 'Children''s room to pay for repairs (250,000 <b>₽</b>)':
  242. cls
  243. karta -= 250000
  244. ymanrem[9] = 1
  245. minut += 5
  246. gs 'stat'
  247. 'You pay for repairs'
  248. act 'Return': gt 'shopdacha'
  249. end
  250. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[9] = 1:
  251. act 'Pay for the purchase of furniture for the nursery (250,000 <b>₽</b>)':
  252. cls
  253. karta -= 250000
  254. ymanrem[9] = 2
  255. minut += 5
  256. gs 'stat'
  257. 'You paid for the purchase of furniture'
  258. act 'Return': gt 'shopdacha'
  259. end
  260. end
  261. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[10] = 0:
  262. act 'Pay for repairs library for (250,000 <b>₽</b>)':
  263. cls
  264. karta -= 250000
  265. ymanrem[10] = 1
  266. minut += 5
  267. gs 'stat'
  268. 'You pay for repairs'
  269. act 'Return': gt 'shopdacha'
  270. end
  271. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[10] = 1:
  272. act 'Pay for the purchase of furniture for libraries for (250,000 <b>₽</b>)':
  273. cls
  274. karta -= 250000
  275. ymanrem[10] = 2
  276. minut += 5
  277. gs 'stat'
  278. 'You paid for the purchase of furniture'
  279. act 'Return': gt 'shopdacha'
  280. end
  281. end
  282. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[11] = 0:
  283. act 'Pay for repairs gym (250,000 <b>₽</b>)':
  284. cls
  285. karta -= 250000
  286. ymanrem[11] = 1
  287. minut += 5
  288. gs 'stat'
  289. 'You pay for repairs'
  290. act 'Return': gt 'shopdacha'
  291. end
  292. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[11] = 1:
  293. act 'Pay furniture gym (250,000 <b>₽</b>)':
  294. cls
  295. karta -= 250000
  296. ymanrem[11] = 2
  297. minut += 5
  298. gs 'stat'
  299. 'You paid for the purchase of furniture for the gym'
  300. act 'Return': gt 'shopdacha'
  301. end
  302. end
  303. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[12] = 0:
  304. act 'Pay for repair of the (250,000 <b>₽</b>)':
  305. cls
  306. karta -= 250000
  307. ymanrem[12] = 1
  308. minut += 5
  309. gs 'stat'
  310. 'You pay for repairs'
  311. act 'Return': gt 'shopdacha'
  312. end
  313. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[12] = 1:
  314. act 'Pay for the purchase of furniture for the office (250,000)':
  315. cls
  316. karta -= 250000
  317. ymanrem[12] = 2
  318. minut += 5
  319. gs 'stat'
  320. 'You paid for the purchase of furniture.'
  321. act 'Return': gt 'shopdacha'
  322. end
  323. end
  324. end
  325. end
  326. --- shopdacha ---------------------------------