shopdacha 7.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370
  1. # shopdacha
  2. '<center><b><font color="maroon">Shop for all homes</font></b></center>'
  3. '<center><img src="images/etogame/shopdacha.jpg"></center>'
  4. 'In this store you can buy a cottage in a cooperative, land for cottage for 1.5 million and pay for all the buildings.'
  5. 'All payment shop produces a bank card. On your map now <<karta>> rubles.'
  6. clr
  7. gs 'stat'
  8. fcolor = rgb(0, 0, 0)
  9. bcolor = rgb(255, 255, 255)
  10. lcolor = rgb(106, 90, 205)
  11. act 'Leave':set 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 rubles)':
  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 rubles)':
  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 rubles)':
  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 rubles)':
  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 rubles)':
  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 karta >= 800000 and placeMansion >= 2 and banaMansion = 0:
  72. act 'Build baths for (800,000 rubles)':
  73. cls
  74. karta -= 800000
  75. banaMansion = 1
  76. minut += 5
  77. gs 'stat'
  78. 'You paid for the construction of the Mansion´s bathrooms'
  79. act 'Leave':gt $curloc
  80. end
  81. end
  82. if karta >= 500000 and placeMansion >= 2 and bassMansion = 0:
  83. act 'Build pool for (500,000 rubles)':
  84. cls
  85. karta -= 500000
  86. bassMansion = 1
  87. minut += 5
  88. gs 'stat'
  89. 'You paid for the construction of the Mansion´s pool'
  90. act 'Leave':gt $curloc
  91. end
  92. end
  93. if karta >= 250000 and placeMansion = 3 and ymanrem[3] = 1:
  94. act 'Pay for repairs Hall (250,000 rubles)':
  95. cls
  96. karta -= 250000
  97. ymanrem[3] = 2
  98. minut += 5
  99. gs 'stat'
  100. 'You pay for repairs'
  101. act 'Leave':gt $curloc
  102. end
  103. end
  104. if karta >= 150000 and placeMansion = 3 and ymanrem[3] = 2:
  105. act 'Pay lounge furniture for (150,000 rubles)':
  106. cls
  107. karta -= 150000
  108. ymanrem[3] = 3
  109. minut += 5
  110. gs 'stat'
  111. 'You paid for the purchase of furniture'
  112. act 'Leave':gt $curloc
  113. end
  114. end
  115. if karta >= 250000 and placeMansion = 3 and ymanrem[4] = 0:
  116. act 'Pay for repairs bedroom (250,000 rubles)':
  117. cls
  118. karta -= 250000
  119. ymanrem[4] = 1
  120. minut += 5
  121. gs 'stat'
  122. 'You pay for repairs'
  123. act 'Leave':gt $curloc
  124. end
  125. end
  126. if karta >= 300000 and placeMansion = 3 and ymanrem[4] = 1:
  127. act 'Pay bedroom furniture for (300,000 rubles)':
  128. cls
  129. karta -= 300000
  130. ymanrem[4] = 2
  131. minut += 5
  132. gs 'stat'
  133. 'You paid for the purchase of furniture'
  134. act 'Leave':gt $curloc
  135. end
  136. end
  137. if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 0:
  138. act 'Pay bathroom renovation for (250,000 rubles)':
  139. cls
  140. karta -= 250000
  141. ymanrem[5] = 1
  142. minut += 5
  143. gs 'stat'
  144. 'You pay for repairs'
  145. act 'Leave':gt $curloc
  146. end
  147. end
  148. if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 1:
  149. act 'Pay for bathroom furniture and fixtures for (250,000 rubles)':
  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 rubles)':
  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. end
  170. if karta >= 350000 and placeMansion = 3 and ymanrem[6] = 1:
  171. act 'Pay kitchen furniture for (350,000 rubles)':
  172. cls
  173. karta -= 250000
  174. ymanrem[6] = 2
  175. minut += 5
  176. gs 'stat'
  177. 'You paid for the purchase of furniture for the kitchen.'
  178. act 'Leave':gt $curloc
  179. end
  180. end
  181. if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 0:
  182. act 'Pay for repairs hall for (250,000 rubles)':
  183. cls
  184. karta -= 250000
  185. ymanrem[7] = 1
  186. minut += 5
  187. gs 'stat'
  188. 'You pay for repairs'
  189. act 'Leave':gt $curloc
  190. end
  191. end
  192. if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 1:
  193. act 'Pay furniture hall for (250,000 rubles)':
  194. cls
  195. karta -= 250000
  196. ymanrem[7] = 2
  197. minut += 5
  198. gs 'stat'
  199. 'You paid for the purchase of furniture for the hall'
  200. act 'Leave':gt $curloc
  201. end
  202. end
  203. if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 0:
  204. act 'Pay for repairs fireplace room for (250,000 rubles)':
  205. cls
  206. karta -= 250000
  207. ymanrem[8] = 1
  208. minut += 5
  209. gs 'stat'
  210. 'You pay for repairs'
  211. act 'Leave':gt $curloc
  212. end
  213. end
  214. if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 1:
  215. act 'Pay for the purchase of furniture for the fireplace room for (250,000 rubles)':
  216. cls
  217. karta -= 250000
  218. ymanrem[8] = 2
  219. minut += 5
  220. gs 'stat'
  221. 'You paid for the purchase of furniture.'
  222. act 'Leave':gt $curloc
  223. end
  224. end
  225. if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 0:
  226. act 'Children´s room to pay for repairs (250,000 rubles)':
  227. cls
  228. karta -= 250000
  229. ymanrem[9] = 1
  230. minut += 5
  231. gs 'stat'
  232. 'You pay for repairs'
  233. act 'Leave':gt $curloc
  234. end
  235. end
  236. if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 1:
  237. act 'Pay for the purchase of furniture for the nursery (250,000 rubles)':
  238. cls
  239. karta -= 250000
  240. ymanrem[9] = 2
  241. minut += 5
  242. gs 'stat'
  243. 'You paid for the purchase of furniture'
  244. act 'Leave':gt $curloc
  245. end
  246. end
  247. if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 0:
  248. act 'Pay for repairs library for (250,000 rubles)':
  249. cls
  250. karta -= 250000
  251. ymanrem[10] = 1
  252. minut += 5
  253. gs 'stat'
  254. 'You pay for repairs'
  255. act 'Leave':gt $curloc
  256. end
  257. end
  258. if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 1:
  259. act 'Pay for the purchase of furniture for libraries for (250,000 rubles)':
  260. cls
  261. karta -= 250000
  262. ymanrem[10] = 2
  263. minut += 5
  264. gs 'stat'
  265. 'You paid for the purchase of furniture'
  266. act 'Leave':gt $curloc
  267. end
  268. end
  269. if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 0:
  270. act 'Pay for repairs gym (250,000 rubles)':
  271. cls
  272. karta -= 250000
  273. ymanrem[11] = 1
  274. minut += 5
  275. gs 'stat'
  276. 'You pay for repairs'
  277. act 'Leave':gt $curloc
  278. end
  279. end
  280. if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 1:
  281. act 'Pay furniture gym (250,000 rubles)':
  282. cls
  283. karta -= 250000
  284. ymanrem[11] = 2
  285. minut += 5
  286. gs 'stat'
  287. 'You paid for the purchase of furniture for the gym'
  288. act 'Leave':gt $curloc
  289. end
  290. end
  291. if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 0:
  292. act 'Pay for repair of the (250,000 rubles)':
  293. cls
  294. karta -= 250000
  295. ymanrem[12] = 1
  296. minut += 5
  297. gs 'stat'
  298. 'You pay for repairs'
  299. act 'Leave':gt $curloc
  300. end
  301. end
  302. if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 1:
  303. act 'Pay for the purchase of furniture for the office (250,000)':
  304. cls
  305. karta -= 250000
  306. ymanrem[12] = 2
  307. minut += 5
  308. gs 'stat'
  309. 'You paid for the purchase of furniture.'
  310. act 'Leave':gt $curloc
  311. end
  312. end
  313. end
  314. --- shopdacha ---------------------------------