1
0

shopdacha 8.8 KB

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