1
0

shopdacha 8.0 KB

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