1
0

shopdacha 8.3 KB

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