1
0

359_shopdacha 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717
  1. # shopdacha
  2. <<<<<<< 359_shopdacha
  3. '<center><B><font color = maroon>Shop for all homes</font></B></center>'
  4. '<center><img src="images\etogame\shopdacha.jpg"></center>'
  5. 'In this store you can buy a cottage in a cooperative, land for cottage for 1.5 million and pay for all the buildings.'
  6. 'All payment shop produces a bank card. On your map now <<karta>> rubles.'
  7. clr
  8. gs 'stat'
  9. fcolor = rgb(0,0,0)
  10. bcolor = rgb(255,255,255)
  11. =======
  12. '<center><B><font color=maroon>Shop Stores</font></B></center>'
  13. '<center><img src="pic/shopdacha.jpg" ></center>'
  14. 'In this store you can buy a cottage in the co-op, a plot of land for cottage 1,5 million and pay for all the buildings.'
  15. 'All payments shop produces a bank card. On your map now <<karta>> rubles.'
  16. clr
  17. gs'stat'
  18. fcolor=rgb(0,0,0)
  19. bcolor=rgb(255,255,255)
  20. >>>>>>> 359_shopdacha
  21. LCOLOR = rgb(106,90,205)
  22. <<<<<<< 359_shopdacha
  23. act 'QUIT': set minut += 5 & gt 'torgcentr'
  24. =======
  25. act 'GO_OUT':set minut = minut + 5&gt'torgcentr'
  26. >>>>>>> 359_shopdacha
  27. if hour < 8 or hour > 20:
  28. 'Shop is closed and you are asked to retire.'
  29. else
  30. <<<<<<< 359_shopdacha
  31. if karta >= 30000 and dachaest = 0:
  32. act 'Buy a cottage for 30,000 rubles':
  33. cls
  34. karta -= 30000
  35. dachaest = 1
  36. minut += 15
  37. etoexhib = 0
  38. gs 'stat'
  39. 'You bought a house with a garden in the dacha cooperative at 5 km. along the northern road.'
  40. act 'Leave': gt $curloc
  41. end
  42. end
  43. if karta >= 1500000 and placeMansion = 0:
  44. act 'Buy land for Mansion for 1.5 million rubles':
  45. cls
  46. karta -= 1500000
  47. placeMansion = 1
  48. minut += 5
  49. gs 'stat'
  50. 'You have bought land for Mansion'
  51. act 'Leave': gt $curloc
  52. end
  53. =======
  54. if karta>=30000 and dachaest=0:
  55. act 'Buy a cottage for 30 thousand.rubles':
  56. cls
  57. karta-=30000
  58. dachaest=1
  59. minut+=15
  60. etoexhib=0
  61. gs'stat'
  62. 'You bought a house with a garden in a cottage on the co-op 5 km. along the northern road.'
  63. act 'Get_Away':gt $curloc
  64. end
  65. end
  66. if karta>=1500000 and placeMansion=0:
  67. act 'Buy land for cottage 1,5 million':
  68. cls
  69. karta-=1500000
  70. placeMansion=1
  71. minut+=5
  72. gs'stat'
  73. 'You bought a plot cottage'
  74. act 'Get_Away':gt $curloc
  75. end
  76. >>>>>>> 359_shopdacha
  77. end
  78. <<<<<<< 359_shopdacha
  79. if karta >= 500000 and placeMansion = 1:
  80. act 'Connect water, electricity for 500,000 rubles':
  81. cls
  82. karta -= 500000
  83. placeMansion = 2
  84. minut += 5
  85. gs 'stat'
  86. 'You paid for a connection of services to the site'
  87. act 'Leave': gt $curloc
  88. end
  89. =======
  90. if karta>=500000 and placeMansion=1:
  91. act 'Pay for supply of communications 500 sput':
  92. cls
  93. karta-=500000
  94. placeMansion=2
  95. minut+=5
  96. gs'stat'
  97. 'You paid for a supply of communications to the site'
  98. act 'Get_Away':gt $curloc
  99. end
  100. >>>>>>> 359_shopdacha
  101. end
  102. <<<<<<< 359_shopdacha
  103. if karta >= 1500000 and placeMansion = 2:
  104. act 'Build Mansion´s shell for 1.5 million rubles':
  105. cls
  106. karta -= 1500000
  107. placeMansion = 3
  108. minut += 5
  109. gs 'stat'
  110. 'You paid for the construction of the Mansion´s shell'
  111. act 'Leave': gt $curloc
  112. end
  113. =======
  114. if karta>=1500000 and placeMansion=2:
  115. act 'Pay for the construction of the building 1,5 million':
  116. cls
  117. karta-=1500000
  118. placeMansion=3
  119. minut+=5
  120. gs'stat'
  121. 'You paid for the construction of housing mansion'
  122. act 'Get_Away':gt $curloc
  123. end
  124. >>>>>>> 359_shopdacha
  125. end
  126. <<<<<<< 359_shopdacha
  127. if karta >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
  128. act 'Build rooms for 500,000 rubles':
  129. cls
  130. karta -= 500000
  131. ymanrem[3] = 1
  132. minut += 5
  133. gs 'stat'
  134. 'You paid for the construction of the Mansion´s rooms'
  135. act 'Leave': gt $curloc
  136. end
  137. =======
  138. if karta>=500000 and placeMansion=3 and ymanrem[3]=0:
  139. act 'Pay for the construction of rooms 500 sput':
  140. cls
  141. karta-=500000
  142. ymanrem[3]=1
  143. minut+=5
  144. gs'stat'
  145. 'You paid for the construction of housing mansion'
  146. act 'Get_Away':gt $curloc
  147. end
  148. >>>>>>> 359_shopdacha
  149. end
  150. <<<<<<< 359_shopdacha
  151. if karta >= 800000 and placeMansion >= 2 and banaMansion = 0:
  152. act 'Build baths for 800,000 rubles':
  153. cls
  154. karta -= 800000
  155. banaMansion = 1
  156. minut += 5
  157. gs 'stat'
  158. 'You paid for the construction of the Mansion´s bathrooms'
  159. act 'Leave': gt $curloc
  160. end
  161. =======
  162. if karta>=800000 and placeMansion>=2 and banaMansion=0:
  163. act 'Pay for building baths 800 thousand':
  164. cls
  165. karta-=800000
  166. banaMansion=1
  167. minut+=5
  168. gs'stat'
  169. 'You paid for the construction of housing mansion'
  170. act 'Get_Away':gt $curloc
  171. end
  172. >>>>>>> 359_shopdacha
  173. end
  174. <<<<<<< 359_shopdacha
  175. if karta >= 500000 and placeMansion >= 2 and bassMansion = 0:
  176. act 'Build pool for 500,000 rubles':
  177. cls
  178. karta -= 500000
  179. bassMansion = 1
  180. minut += 5
  181. gs 'stat'
  182. 'You paid for the construction of the Mansion´s pool'
  183. act 'Leave': gt $curloc
  184. end
  185. =======
  186. if karta>=500000 and placeMansion>=2 and bassMansion=0:
  187. act 'Pay build basseynai 500 thousand':
  188. cls
  189. karta-=500000
  190. bassMansion=1
  191. minut+=5
  192. gs'stat'
  193. 'You paid for the construction of swimming pools'
  194. act 'Get_Away':gt $curloc
  195. end
  196. >>>>>>> 359_shopdacha
  197. end
  198. <<<<<<< 359_shopdacha
  199. if karta >= 250000 and placeMansion = 3 and ymanrem[3] = 1:
  200. act 'Pay for repairs Hall for 250,000 rubles':
  201. cls
  202. karta -= 250000
  203. ymanrem[3] = 2
  204. minut += 5
  205. gs 'stat'
  206. 'You pay for repairs'
  207. act 'Leave': gt $curloc
  208. end
  209. =======
  210. if karta>=250000 and placeMansion=3 and ymanrem[3]=1:
  211. act 'Pay for repairs hall 250 thousand':
  212. cls
  213. karta-=250000
  214. ymanrem[3]=2
  215. minut+=5
  216. gs'stat'
  217. 'You pay for repairs'
  218. act 'Get_Away':gt $curloc
  219. end
  220. >>>>>>> 359_shopdacha
  221. end
  222. <<<<<<< 359_shopdacha
  223. if karta >= 150000 and placeMansion = 3 and ymanrem[3] = 2:
  224. act 'Pay lounge furniture for 150,000 rubles':
  225. cls
  226. karta -= 150000
  227. ymanrem[3] = 3
  228. minut += 5
  229. gs 'stat'
  230. 'You paid for the purchase of furniture'
  231. act 'Leave': gt $curloc
  232. end
  233. =======
  234. if karta>=150000 and placeMansion=3 and ymanrem[3]=2:
  235. act 'Pay furniture for living room 150 thousand':
  236. cls
  237. karta-=150000
  238. ymanrem[3]=3
  239. minut+=5
  240. gs'stat'
  241. 'You pay for the purchase of furniture'
  242. act 'Get_Away':gt $curloc
  243. end
  244. >>>>>>> 359_shopdacha
  245. end
  246. <<<<<<< 359_shopdacha
  247. if karta >= 250000 and placeMansion = 3 and ymanrem[4] = 0:
  248. act 'Pay for repairs bedroom for 250,000 rubles':
  249. cls
  250. karta -= 250000
  251. ymanrem[4] = 1
  252. minut += 5
  253. gs 'stat'
  254. 'You pay for repairs'
  255. act 'Leave': gt $curloc
  256. end
  257. =======
  258. if karta>=250000 and placeMansion=3 and ymanrem[4]=0:
  259. act 'Pay for repairs bedroom 250 thousand':
  260. cls
  261. karta-=250000
  262. ymanrem[4]=1
  263. minut+=5
  264. gs'stat'
  265. 'You pay for repairs'
  266. act 'Get_Away':gt $curloc
  267. end
  268. >>>>>>> 359_shopdacha
  269. end
  270. <<<<<<< 359_shopdacha
  271. if karta >= 300000 and placeMansion = 3 and ymanrem[4] = 1:
  272. act 'Pay bedroom furniture for 300,000 rubles':
  273. cls
  274. karta -= 300000
  275. ymanrem[4] = 2
  276. minut += 5
  277. gs 'stat'
  278. 'You paid for the purchase of furniture'
  279. act 'Leave': gt $curloc
  280. end
  281. =======
  282. if karta>=300000 and placeMansion=3 and ymanrem[4]=1:
  283. act 'Pay furniture for bedroom 300 thousand':
  284. cls
  285. karta-=300000
  286. ymanrem[4]=2
  287. minut+=5
  288. gs'stat'
  289. 'You pay for the purchase of furniture'
  290. act 'Get_Away':gt $curloc
  291. end
  292. >>>>>>> 359_shopdacha
  293. end
  294. <<<<<<< 359_shopdacha
  295. if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 0:
  296. act 'Pay bathroom renovation for 250,000 rubles':
  297. cls
  298. karta -= 250000
  299. ymanrem[5] = 1
  300. minut += 5
  301. gs 'stat'
  302. 'You pay for repairs'
  303. act 'Leave': gt $curloc
  304. end
  305. =======
  306. if karta>=250000 and placeMansion=3 and ymanrem[5]=0:
  307. act 'Pay for bathroom renovation 250 thousand':
  308. cls
  309. karta-=250000
  310. ymanrem[5]=1
  311. minut+=5
  312. gs'stat'
  313. 'You pay for repairs'
  314. act 'Get_Away':gt $curloc
  315. end
  316. >>>>>>> 359_shopdacha
  317. end
  318. <<<<<<< 359_shopdacha
  319. if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 1:
  320. act 'Pay for bathroom furniture and fixtures for 250,000 rubles':
  321. cls
  322. karta -= 250000
  323. ymanrem[5] = 2
  324. minut += 5
  325. gs 'stat'
  326. 'You paid for the purchase of furniture and sanitary ware.'
  327. act 'Leave': gt $curloc
  328. end
  329. =======
  330. if karta>=250000 and placeMansion=3 and ymanrem[5]=1:
  331. act 'Pay for furniture and fixtures for the bathroom 250 thousand':
  332. cls
  333. karta-=250000
  334. ymanrem[5]=2
  335. minut+=5
  336. gs'stat'
  337. 'You pay for the purchase of furniture and sanitary ware.'
  338. act 'Get_Away':gt $curloc
  339. end
  340. >>>>>>> 359_shopdacha
  341. end
  342. <<<<<<< 359_shopdacha
  343. if karta >= 250000 and placeMansion = 3 and ymanrem[6] = 0:
  344. act 'Pay renovated kitchen for 250,000 rubles':
  345. cls
  346. karta -= 250000
  347. ymanrem[6] = 1
  348. minut += 5
  349. gs 'stat'
  350. 'You pay for repairs'
  351. act 'Leave': gt $curloc
  352. end
  353. =======
  354. if karta>=250000 and placeMansion=3 and ymanrem[6]=0:
  355. act 'Pay for a kitchen renovation 250 thousand':
  356. cls
  357. karta-=250000
  358. ymanrem[6]=1
  359. minut+=5
  360. gs'stat'
  361. 'You pay for repairs'
  362. act 'Get_Away':gt $curloc
  363. end
  364. >>>>>>> 359_shopdacha
  365. end
  366. <<<<<<< 359_shopdacha
  367. if karta >= 350000 and placeMansion = 3 and ymanrem[6] = 1:
  368. act 'Pay kitchen furniture for 350,000 rubles':
  369. cls
  370. karta -= 250000
  371. ymanrem[6] = 2
  372. minut += 5
  373. gs 'stat'
  374. 'You paid for the purchase of furniture for the kitchen.'
  375. act 'Leave': gt $curloc
  376. end
  377. =======
  378. if karta>=350000 and placeMansion=3 and ymanrem[6]=1:
  379. act 'Pay kitchen furniture 350 thousand':
  380. cls
  381. karta-=250000
  382. ymanrem[6]=2
  383. minut+=5
  384. gs'stat'
  385. 'You pay for the purchase of furniture for kitchen.'
  386. act 'Get_Away':gt $curloc
  387. end
  388. >>>>>>> 359_shopdacha
  389. end
  390. <<<<<<< 359_shopdacha
  391. if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 0:
  392. act 'Pay for repairs hall for 250,000 rubles':
  393. cls
  394. karta -= 250000
  395. ymanrem[7] = 1
  396. minut += 5
  397. gs 'stat'
  398. 'You pay for repairs'
  399. act 'Leave': gt $curloc
  400. end
  401. =======
  402. if karta>=250000 and placeMansion=3 and ymanrem[7]=0:
  403. act 'Pay for repairs hall 250 thousand':
  404. cls
  405. karta-=250000
  406. ymanrem[7]=1
  407. minut+=5
  408. gs'stat'
  409. 'You pay for repairs'
  410. act 'Get_Away':gt $curloc
  411. end
  412. >>>>>>> 359_shopdacha
  413. end
  414. <<<<<<< 359_shopdacha
  415. if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 1:
  416. act 'Pay furniture hall for 250,000 rubles':
  417. cls
  418. karta -= 250000
  419. ymanrem[7] = 2
  420. minut += 5
  421. gs 'stat'
  422. 'You paid for the purchase of furniture for the hall'
  423. act 'Leave': gt $curloc
  424. end
  425. =======
  426. if karta>=250000 and placeMansion=3 and ymanrem[7]=1:
  427. act 'Pay furniture hall 250 thousand':
  428. cls
  429. karta-=250000
  430. ymanrem[7]=2
  431. minut+=5
  432. gs'stat'
  433. 'You pay for the purchase of furniture for the hall'
  434. act 'Get_Away':gt $curloc
  435. end
  436. >>>>>>> 359_shopdacha
  437. end
  438. <<<<<<< 359_shopdacha
  439. if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 0:
  440. act 'Pay for repairs fireplace room for 250,000 rubles':
  441. cls
  442. karta -= 250000
  443. ymanrem[8] = 1
  444. minut += 5
  445. gs 'stat'
  446. 'You pay for repairs'
  447. act 'Leave': gt $curloc
  448. end
  449. =======
  450. if karta>=250000 and placeMansion=3 and ymanrem[8]=0:
  451. act 'Pay for repairs fireplace room 250 thousand':
  452. cls
  453. karta-=250000
  454. ymanrem[8]=1
  455. minut+=5
  456. gs'stat'
  457. 'You pay for repairs'
  458. act 'Get_Away':gt $curloc
  459. end
  460. >>>>>>> 359_shopdacha
  461. end
  462. <<<<<<< 359_shopdacha
  463. if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 1:
  464. act 'Pay for the purchase of furniture for the fireplace room for 250,000 rubles':
  465. cls
  466. karta -= 250000
  467. ymanrem[8] = 2
  468. minut += 5
  469. gs 'stat'
  470. 'You paid for the purchase of furniture.'
  471. act 'Leave': gt $curloc
  472. end
  473. =======
  474. if karta>=250000 and placeMansion=3 and ymanrem[8]=1:
  475. act 'Pay for the purchase of furniture for the fireplace room 250 thousand':
  476. cls
  477. karta-=250000
  478. ymanrem[8]=2
  479. minut+=5
  480. gs'stat'
  481. 'You pay for the purchase of furniture.'
  482. act 'Get_Away':gt $curloc
  483. end
  484. >>>>>>> 359_shopdacha
  485. end
  486. <<<<<<< 359_shopdacha
  487. if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 0:
  488. act 'Children´s room to pay for repairs for 250,000 rubles':
  489. cls
  490. karta -= 250000
  491. ymanrem[9] = 1
  492. minut += 5
  493. gs 'stat'
  494. 'You pay for repairs'
  495. act 'Leave': gt $curloc
  496. end
  497. =======
  498. if karta>=250000 and placeMansion=3 and ymanrem[9]=0:
  499. act 'Pay repair a child`s room 250 thousand':
  500. cls
  501. karta-=250000
  502. ymanrem[9]=1
  503. minut+=5
  504. gs'stat'
  505. 'You pay for repairs'
  506. act 'Get_Away':gt $curloc
  507. end
  508. >>>>>>> 359_shopdacha
  509. end
  510. <<<<<<< 359_shopdacha
  511. if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 1:
  512. act 'Pay for the purchase of furniture for the nursery 250,000':
  513. cls
  514. karta -= 250000
  515. ymanrem[9] = 2
  516. minut += 5
  517. gs 'stat'
  518. 'You paid for the purchase of furniture'
  519. act 'Leave': gt $curloc
  520. end
  521. =======
  522. if karta>=250000 and placeMansion=3 and ymanrem[9]=1:
  523. act 'Pay for the purchase of furniture for children`s rooms 250 thousand':
  524. cls
  525. karta-=250000
  526. ymanrem[9]=2
  527. minut+=5
  528. gs'stat'
  529. 'You pay for the purchase of furniture'
  530. act 'Get_Away':gt $curloc
  531. end
  532. >>>>>>> 359_shopdacha
  533. end
  534. <<<<<<< 359_shopdacha
  535. if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 0:
  536. act 'Pay for repairs library for 250,000 rubles':
  537. cls
  538. karta -= 250000
  539. ymanrem[10] = 1
  540. minut += 5
  541. gs 'stat'
  542. 'You pay for repairs'
  543. act 'Leave': gt $curloc
  544. end
  545. =======
  546. if karta>=250000 and placeMansion=3 and ymanrem[10]=0:
  547. act 'Pay for repairs library 250 thousand':
  548. cls
  549. karta-=250000
  550. ymanrem[10]=1
  551. minut+=5
  552. gs'stat'
  553. 'You pay for repairs'
  554. act 'Get_Away':gt $curloc
  555. end
  556. >>>>>>> 359_shopdacha
  557. end
  558. <<<<<<< 359_shopdacha
  559. if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 1:
  560. act 'Pay for the purchase of furniture for libraries for 250,000 rubles':
  561. cls
  562. karta -= 250000
  563. ymanrem[10] = 2
  564. minut += 5
  565. gs 'stat'
  566. 'You paid for the purchase of furniture'
  567. act 'Leave': gt $curloc
  568. end
  569. =======
  570. if karta>=250000 and placeMansion=3 and ymanrem[10]=1:
  571. act 'Pay for the purchase of furniture for the library 250 thousand':
  572. cls
  573. karta-=250000
  574. ymanrem[10]=2
  575. minut+=5
  576. gs'stat'
  577. 'You pay for the purchase of furniture'
  578. act 'Get_Away':gt $curloc
  579. end
  580. >>>>>>> 359_shopdacha
  581. end
  582. <<<<<<< 359_shopdacha
  583. if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 0:
  584. act 'Pay for repairs gym 250,000':
  585. cls
  586. karta -= 250000
  587. ymanrem[11] = 1
  588. minut += 5
  589. gs 'stat'
  590. 'You pay for repairs'
  591. act 'Leave': gt $curloc
  592. end
  593. =======
  594. if karta>=250000 and placeMansion=3 and ymanrem[11]=0:
  595. act 'Pay for repairs gym 250 thousand':
  596. cls
  597. karta-=250000
  598. ymanrem[11]=1
  599. minut+=5
  600. gs'stat'
  601. 'You pay for repairs'
  602. act 'Get_Away':gt $curloc
  603. end
  604. >>>>>>> 359_shopdacha
  605. end
  606. <<<<<<< 359_shopdacha
  607. if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 1:
  608. act 'Pay furniture gym 250,000':
  609. cls
  610. karta -= 250000
  611. ymanrem[11] = 2
  612. minut += 5
  613. gs 'stat'
  614. 'You paid for the purchase of furniture for the gym'
  615. act 'Leave': gt $curloc
  616. end
  617. =======
  618. if karta>=250000 and placeMansion=3 and ymanrem[11]=1:
  619. act 'Pay furniture for the gym 250 thousand':
  620. cls
  621. karta-=250000
  622. ymanrem[11]=2
  623. minut+=5
  624. gs'stat'
  625. 'You pay for the purchase of furniture for the gym'
  626. act 'Get_Away':gt $curloc
  627. end
  628. >>>>>>> 359_shopdacha
  629. end
  630. <<<<<<< 359_shopdacha
  631. if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 0:
  632. act 'Pay for repair of the 250 000':
  633. cls
  634. karta -= 250000
  635. ymanrem[12] = 1
  636. minut += 5
  637. gs 'stat'
  638. 'You pay for repairs'
  639. act 'Leave': gt $curloc
  640. end
  641. =======
  642. if karta>=250000 and placeMansion=3 and ymanrem[12]=0:
  643. act 'Pay for repairs Cabinet 250 thousand':
  644. cls
  645. karta-=250000
  646. ymanrem[12]=1
  647. minut+=5
  648. gs'stat'
  649. 'You pay for repairs'
  650. act 'Get_Away':gt $curloc
  651. end
  652. >>>>>>> 359_shopdacha
  653. end
  654. <<<<<<< 359_shopdacha
  655. if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 1:
  656. act 'Pay for the purchase of furniture for the office 250 000':
  657. cls
  658. karta -= 250000
  659. ymanrem[12] = 2
  660. minut += 5
  661. gs 'stat'
  662. 'You paid for the purchase of furniture.'
  663. act 'Leave': gt $curloc
  664. end
  665. end
  666. =======
  667. if karta>=250000 and placeMansion=3 and ymanrem[12]=1:
  668. act 'Pay for the purchase of furniture for the office 250 thousand':
  669. cls
  670. karta-=250000
  671. ymanrem[12]=2
  672. minut+=5
  673. gs'stat'
  674. 'You pay for the purchase of furniture.'
  675. act 'Get_Away':gt $curloc
  676. end
  677. end
  678. >>>>>>> 359_shopdacha
  679. end
  680. --- shopdacha ---------------------------------