1
0

shopdacha 9.0 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 internal walls (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 internal walls.'
  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 'Install electrics and plumbing (800,000 <b>₽</b>)':
  92. cls
  93. karta -= 800000
  94. banaMansion = 1
  95. minut += 5
  96. gs 'stat'
  97. 'You paid for the electrics and plumbing to be installed.'
  98. act 'Return': gt 'shopdacha'
  99. end
  100. end
  101. if karta + bankDebtLimit >= 500000 and placeMansion >= 2 and bassMansion = 0:
  102. act 'Build a pool (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 'Build hallways (250,000 <b>₽</b>)':
  116. cls
  117. karta -= 250000
  118. ymanrem[3] = 2
  119. minut += 5
  120. gs 'stat'
  121. 'You pay for hallways to be built.'
  122. act 'Return': gt 'shopdacha'
  123. end
  124. elseif karta + bankDebtLimit >= 150000 and placeMansion = 3 and ymanrem[3] = 2:
  125. act 'Buy lounge furniture (150,000 <b>₽</b>)':
  126. cls
  127. karta -= 150000
  128. ymanrem[3] = 3
  129. minut += 5
  130. gs 'stat'
  131. 'You bought lounge furniture.'
  132. act 'Return': gt 'shopdacha'
  133. end
  134. end
  135. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[4] = 0:
  136. act 'Build main bedroom (250,000 <b>₽</b>)':
  137. cls
  138. karta -= 250000
  139. ymanrem[4] = 1
  140. minut += 5
  141. gs 'stat'
  142. 'You pay for the main bedroom to be built.'
  143. act 'Return': gt 'shopdacha'
  144. end
  145. elseif karta + bankDebtLimit >= 300000 and placeMansion = 3 and ymanrem[4] = 1:
  146. act 'Buy bedroom furniture (300,000 <b>₽</b>)':
  147. cls
  148. karta -= 300000
  149. ymanrem[4] = 2
  150. minut += 5
  151. gs 'stat'
  152. 'You bought bedroom 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 for bathroom (250,000 <b>₽</b>)':
  158. cls
  159. karta -= 250000
  160. ymanrem[5] = 1
  161. minut += 5
  162. gs 'stat'
  163. 'You pay for the bathroom to be built.'
  164. act 'Return': gt 'shopdacha'
  165. end
  166. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[5] = 1:
  167. act 'Pay for bathroom fixtures and fittings (250,000 <b>₽</b>)':
  168. cls
  169. karta -= 250000
  170. ymanrem[5] = 2
  171. minut += 5
  172. gs 'stat'
  173. 'You purchase the bathroom suite.'
  174. act 'Return': gt 'shopdacha'
  175. end
  176. end
  177. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[6] = 0:
  178. act 'Pay for kitchen installation (250,000 <b>₽</b>)':
  179. cls
  180. karta -= 250000
  181. ymanrem[6] = 1
  182. minut += 5
  183. gs 'stat'
  184. 'You pay for the kitchen installation.'
  185. act 'Return': gt 'shopdacha'
  186. end
  187. elseif karta + bankDebtLimit >= 350000 and placeMansion = 3 and ymanrem[6] = 1:
  188. act 'Pay for kitchen units (350,000 <b>₽</b>)':
  189. cls
  190. karta -= 250000
  191. ymanrem[6] = 2
  192. minut += 5
  193. gs 'stat'
  194. 'You purchase the kitchen units.'
  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 the living room (250,000 <b>₽</b>)':
  200. cls
  201. karta -= 250000
  202. ymanrem[7] = 1
  203. minut += 5
  204. gs 'stat'
  205. 'You pay for your living room.'
  206. act 'Return': gt 'shopdacha'
  207. end
  208. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[7] = 1:
  209. act 'Buy furniture for the living room (250,000 <b>₽</b>)':
  210. cls
  211. karta -= 250000
  212. ymanrem[7] = 2
  213. minut += 5
  214. gs 'stat'
  215. 'You buy furniture for your living room.'
  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 your lounge (250,000 <b>₽</b>)':
  221. cls
  222. karta -= 250000
  223. ymanrem[8] = 1
  224. minut += 5
  225. gs 'stat'
  226. 'You pay for your lounge'
  227. act 'Return': gt 'shopdacha'
  228. end
  229. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[8] = 1:
  230. act 'Purchase furniture for the lounge (250,000 <b>₽</b>)':
  231. cls
  232. karta -= 250000
  233. ymanrem[8] = 2
  234. minut += 5
  235. gs 'stat'
  236. 'You purchase furniture for your lounge.'
  237. act 'Return': gt 'shopdacha'
  238. end
  239. end
  240. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[9] = 0:
  241. act 'Build a children''s room (250,000 <b>₽</b>)':
  242. cls
  243. karta -= 250000
  244. ymanrem[9] = 1
  245. minut += 5
  246. gs 'stat'
  247. 'You pay for a children''s room'
  248. act 'Return': gt 'shopdacha'
  249. end
  250. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[9] = 1:
  251. act 'Buy 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 furniture for the nursery.'
  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 a library (250,000 <b>₽</b>)':
  263. cls
  264. karta -= 250000
  265. ymanrem[10] = 1
  266. minut += 5
  267. gs 'stat'
  268. 'You pay for a library'
  269. act 'Return': gt 'shopdacha'
  270. end
  271. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[10] = 1:
  272. act 'Purchase furniture for your library (250,000 <b>₽</b>)':
  273. cls
  274. karta -= 250000
  275. ymanrem[10] = 2
  276. minut += 5
  277. gs 'stat'
  278. 'You bought furniture for the library.'
  279. act 'Return': gt 'shopdacha'
  280. end
  281. end
  282. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[11] = 0:
  283. act 'Buy a gym (250,000 <b>₽</b>)':
  284. cls
  285. karta -= 250000
  286. ymanrem[11] = 1
  287. minut += 5
  288. gs 'stat'
  289. 'You bought a gym.'
  290. act 'Return': gt 'shopdacha'
  291. end
  292. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[11] = 1:
  293. act 'Buy gym equipment (250,000 <b>₽</b>)':
  294. cls
  295. karta -= 250000
  296. ymanrem[11] = 2
  297. minut += 5
  298. gs 'stat'
  299. 'You bought gym equipment.'
  300. act 'Return': gt 'shopdacha'
  301. end
  302. end
  303. if karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[12] = 0:
  304. act 'Buy an office (250,000 <b>₽</b>)':
  305. cls
  306. karta -= 250000
  307. ymanrem[12] = 1
  308. minut += 5
  309. gs 'stat'
  310. 'You pay for an office to be built.'
  311. act 'Return': gt 'shopdacha'
  312. end
  313. elseif karta + bankDebtLimit >= 250000 and placeMansion = 3 and ymanrem[12] = 1:
  314. act 'Purchase furniture for the office (250,000)':
  315. cls
  316. karta -= 250000
  317. ymanrem[12] = 2
  318. minut += 5
  319. gs 'stat'
  320. 'You bought office furniture.'
  321. act 'Return': gt 'shopdacha'
  322. end
  323. end
  324. end
  325. end
  326. --- shopdacha ---------------------------------