395_youplace 16 KB

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