shop 36 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498
  1. # shop
  2. if $ARGS[0] = 'start':
  3. $icecreem = {
  4. if hour >= 8 and hour <= 20:
  5. cls
  6. minut += 3
  7. 'Ice cream, sold for 50 rubles.'
  8. act 'Get out of the department':gt 'shop', 'start'
  9. if money >= 50:
  10. act 'Buy ice cream (50 rubles)':
  11. cls
  12. money -= 50
  13. salo += 1
  14. fat += 50
  15. manna += 500
  16. water = 20
  17. energy = 20
  18. perkice += 1
  19. gs 'stat'
  20. !!icecreem
  21. '<center><img src="images/etogame/icecreem.jpg"></center>'
  22. 'You bought ice cream and ate it not going far.'
  23. act 'Get out of the department':gt 'shop', 'start'
  24. end
  25. end
  26. else
  27. 'Ice cream counter with closed'
  28. end
  29. }
  30. $sofood = {
  31. if hour >= 8 and hour <= 20:
  32. minut += 3
  33. gt 'shop', 'food'
  34. else
  35. 'Section closed'
  36. end
  37. }
  38. $socosm = {
  39. if hour >= 8 and hour <= 20:
  40. minut += 3
  41. gt 'shop', 'cosm'
  42. else
  43. 'Section closed'
  44. end
  45. }
  46. $sohos = {
  47. if hour >= 8 and hour <= 20:
  48. minut += 3
  49. gt 'shop', 'hos'
  50. else
  51. 'Section closed'
  52. end
  53. }
  54. $soclo = {
  55. if hour >= 8 and hour <= 20:
  56. minut += 3
  57. gt 'shop', 'clo'
  58. else
  59. 'Section closed'
  60. end
  61. }
  62. $soteh = {
  63. if hour >= 8 and hour <= 20:
  64. minut += 3
  65. gt 'shop', 'teh'
  66. else
  67. 'Section closed'
  68. end
  69. }
  70. $sobank = {
  71. if hour >= 8 and hour <= 20:
  72. if karta > 0:
  73. act 'Withdraw money from the ATM':
  74. cla
  75. minut += 5
  76. kartaOUT = input ("How much money you want to withdraw?")
  77. if kartaOUT <= 0 or kartaOUT > karta:
  78. '<br>Invalid operation.'
  79. else
  80. karta -= kartaOUT
  81. money += kartaOUT
  82. '<br>You withdraw <<kartaOUT>> rubles. You have <<karta>> rubles left in your bank account.'
  83. end
  84. act 'Move away':gt 'shop', 'start'
  85. end
  86. else
  87. 'You do not have a bank card'
  88. end
  89. else
  90. 'ATM disabled'
  91. end
  92. }
  93. cla
  94. *clr
  95. minut = minut + 1
  96. clr
  97. gs 'stat'
  98. fcolor = rgb(0, 0, 0)
  99. bcolor = rgb(255, 255, 255)
  100. lcolor = rgb(106, 90, 205)
  101. '<center><b><font color = maroon>Supermarket</font></b></center>'
  102. '<center><img src="images/etogame/shop.jpg"></center>'
  103. 'In the hall stands <a href="exec:dynamic $sobank">ATM</a>, from which you can withdraw money if you have it in the bank.'
  104. '<br>Most of the space in the supermarket is taken by the <a href="exec:dynamic $sofood">grocery department</a>, but the store has many smaller departments as well. <a href="exec:dynamic $socosm">Cosmetics</a>, <a href="exec:dynamic $sohos">hardware</a>, <a href="exec:dynamic $soclo">clothing</a> and the department of <a href="exec:dynamic $soteh">household appliances</a>. Not far from the entrance is a <a href="exec:dynamic $icecreem">counter selling ice cream</a>'
  105. if $loc = 'gorodok' and StoryLine > 0:
  106. if week < 6:
  107. if hour >= 8 and hour < 16:
  108. 'Your sister <a href="exec:SiSonWork = 1 & gt ''sister''">Anja</a> sits at the checkout.'
  109. end
  110. end
  111. end
  112. if $loc = 'street':
  113. evrand = rand(1, 100)
  114. if evrand >= 95 and dimaQW = 0:
  115. 'In the lobby of the store looks at you appreciatively what that man.'
  116. act 'See it':gt 'event', 'dima'
  117. elseif evrand >= 95 and dimaQW = 1:
  118. 'In the lobby of the store you notice Dima and binds you fear, you can not move.'
  119. act 'See it':gt 'event', 'scoreslut1'
  120. elseif evrand >= 95 and dimaQW = 2:
  121. 'You met the same Dima who boyfriend fucking amuse you. Dima cocky grin came to you and said hello.'
  122. act 'Hello':
  123. cla
  124. 'Come to me, I have no wife at home said Dima.'
  125. act 'No':gt 'shop', 'start'
  126. act 'Come':
  127. cla
  128. *clr
  129. gostrand = rand(1, 2)
  130. if gostrand = 1:
  131. cla
  132. sex += 1
  133. oral += 1
  134. throat += 1
  135. cumlip += 1
  136. swallow += 1
  137. horny = 0
  138. 'Dima took you to his house and there has ordered you to kneel. You got on his knees and he calling you a bitch and fuck you cocksucker began in the mouth.'
  139. '<center><img src="images/pics/gostDT2.jpg"></center>'
  140. 'Dima finally finished your mouth, you obediently swallowed and licked the remnants of sperm with his big cock.'
  141. act 'Go home':gt 'street'
  142. elseif gostrand = 2:
  143. cla
  144. sex += 1
  145. anal += 1
  146. cumass += 1
  147. spank += 1
  148. boom = 5
  149. horny = 0
  150. 'Dima has brought you to my house and right in the corridor began to kiss you and undress. After he stripped you he took you to the bathroom. There he sat in the bathroom and you unscrewing the showerhead put a water hose you in the ass. Quickly the feeling of fullness and Dima put you on the toilet. After an enema, he made you cancer and put you in the ass his big dick.'
  151. '<center><img src="images/pics/gostAnal2.jpg"></center>'
  152. 'Dima long you fucked in the ass and beat his hands, you first it was painful, but gradually you got the taste and began to catch the buzz finally your ass filled with hot liquid and Dima moan grabbed your buttocks.'
  153. act 'Go home':gt 'street'
  154. end
  155. end
  156. end
  157. end
  158. end
  159. if hour >= 8 and hour <= 20:
  160. '<br>In store is crowd of shoppers.'
  161. if TorgPredZ > 0:
  162. if $loc = 'street':
  163. if StreetShopTPday ! day:
  164. act 'Arrange products':
  165. cls
  166. mtprand = rand(40, 130)
  167. minut += mtprand
  168. TorgPredZ -= 1
  169. TorgPredZV += 1
  170. StreetShopTPday = day
  171. gs 'stat'
  172. '<center><img src="images/etogame/shop.jpg"></center>'
  173. 'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
  174. act 'Leave':gt 'shop', 'start'
  175. end
  176. end
  177. elseif $loc = 'Nord':
  178. if nordShopTPday ! day:
  179. act 'Arrange products':
  180. cls
  181. mtprand = rand(40, 130)
  182. minut += mtprand
  183. TorgPredZ -= 1
  184. TorgPredZV += 1
  185. nordShopTPday = day
  186. gs 'stat'
  187. '<center><img src="images/etogame/shop.jpg"></center>'
  188. 'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
  189. act 'Leave':gt 'shop', 'start'
  190. end
  191. end
  192. elseif $loc = 'down':
  193. if downShopTPday ! day:
  194. act 'Arrange products':
  195. cls
  196. mtprand = rand(40, 130)
  197. minut += mtprand
  198. TorgPredZ -= 1
  199. TorgPredZV += 1
  200. downShopTPday = day
  201. gs 'stat'
  202. '<center><img src="images/etogame/shop.jpg"></center>'
  203. 'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
  204. act 'Leave':gt 'shop', 'start'
  205. end
  206. end
  207. end
  208. end
  209. else
  210. 'The store is closed.'
  211. end
  212. act 'Leave the store':gt $loc
  213. end
  214. if $ARGS[0] = 'food':
  215. cla
  216. clr
  217. *clr
  218. minut += 1
  219. gs 'stat'
  220. fcolor = rgb(0, 0, 0)
  221. bcolor = rgb(255, 255, 255)
  222. lcolor = rgb(106, 90, 205)
  223. '<center><b><font color="maroon">Grocery deparment</font></b></center>'
  224. '<center><img src="images/etogame/shop1.jpg"></center>'
  225. 'Serving of food - 50 rubles'
  226. 'Bottle of water - 50 rubles'
  227. 'Sandwich - 100 rubles'
  228. 'Serving of diet food - 250 rubles'
  229. 'Tea biscuits - 300 rubles'
  230. 'Bottle of wine - 500 rubles'
  231. act 'Get out of the grocery department':gt 'shop', 'start'
  232. if hour >= 8 and hour <= 20:
  233. if money >= 50:
  234. act 'Buy <b>Food</b> (50 rubles) <<iif(eda > 0, ''[left:<b>'' + eda + ''</b>]'', '''')>>':
  235. cla
  236. *clr
  237. portion = input("How many servings you want to buy?")
  238. if portion <= 0:portion = 1
  239. if portion * 50 <= money:
  240. eda += portion
  241. minut += 5 + (portion / 5)
  242. money -= portion * 50
  243. '<center><img src="images/etogame/kassa.jpg"></center>'
  244. 'You bought food and paid the money to the cashier.'
  245. else
  246. 'You do not have enough money.'
  247. end
  248. act 'Move away from the counter':gt 'shop', 'food'
  249. end
  250. if bottle = 0 and bag > 0:
  251. act 'Buy a <b>bottle of water</b> (50 rubles)':
  252. cla
  253. *clr
  254. minut += 5
  255. money -= 50
  256. bottle = 1
  257. '<center><img src="images/etogame/kassa.jpg"></center>'
  258. 'You bought a bottle of water, put it in your purse and paid the money to the cashier.'
  259. act 'Move away from the counter':gt 'shop', 'food'
  260. end
  261. end
  262. end
  263. if money >= 100 and buterbrod = 0 and bag > 0:
  264. act 'Buy a <b>sandwich</b> (100 rubles)':
  265. cla
  266. *clr
  267. minut += 5
  268. money -= 100
  269. buterbrod = 1
  270. 'You bought a sandwich and put it in your purse.'
  271. act 'Move away from the counter':gt 'shop', 'food'
  272. end
  273. end
  274. if money >= 250:
  275. act 'Buy <b>diet food</b> (250 rubles) <<iif(edaD > 0, ''[left:<b>'' + edaD + ''</b>]'', '''')>>':
  276. cla
  277. *clr
  278. minut += 15
  279. portion = input ("How many servings you want to buy?")
  280. if portion <= 0:portion = 1
  281. if portion * 250 <= money:
  282. edaD += portion
  283. minut += 5 + (portion / 5)
  284. money -= portion * 250
  285. '<center><img src="images/etogame/kassa.jpg"></center>'
  286. 'You bought food and paid the money to the cashier.'
  287. else
  288. 'You do not have enough money.'
  289. end
  290. act 'Move away from the counter':gt 'shop', 'food'
  291. end
  292. end
  293. if money >= 300:
  294. act 'Buy <b>tea biscuits</b> (300 rubles) <<iif(pranik > 0, ''[left:<b>'' + pranik + ''</b>]'', '''')>>':
  295. cla
  296. *clr
  297. portion = input("How many biscuit packages you want to buy? (One package contains 10 buscuits)")
  298. if portion <= 0:portion = 1
  299. if portion * 300 <= money:
  300. pranik += portion * 10
  301. minut += 5 + (portion / 5)
  302. money -= portion * 300
  303. '<center><img src="images/etogame/kassa.jpg"></center>'
  304. 'You bought bags of cookies and paid the money to the cashier.'
  305. else
  306. 'You do not have enough money.'
  307. end
  308. act 'Move away from the counter':gt 'shop', 'food'
  309. end
  310. end
  311. if money >= 500 and wine = 0 and bag > 0:
  312. act 'Buy a <b>bottle of wine</b> (500 rubles)':
  313. cla
  314. *clr
  315. minut += 5
  316. money -= 500
  317. wine = 1
  318. '<center><img src="images/etogame/kassa.jpg"></center>'
  319. 'You bought a bottle of wine, put it in your purse and paid the money to the cashier.'
  320. act 'Get out of the department':gt 'shop', 'food'
  321. end
  322. end
  323. else
  324. 'The grocery department is closed'
  325. end
  326. end
  327. if $ARGS[0] = 'cosm':
  328. cla
  329. clr
  330. *clr
  331. minut += 1
  332. gs 'stat'
  333. fcolor = rgb(0, 0, 0)
  334. bcolor = rgb(255, 255, 255)
  335. lcolor = rgb(106, 90, 205)
  336. '<center><b><font color="maroon">Cosmetics Department</font></b></center>'
  337. '<center><img src="images/etogame/shop2.jpg"></center>'
  338. !!! Maruda Hair Mod
  339. 'A Box of 10 Hairscrunchies - 80 rubles'
  340. 'A Box of 12 Hairpins, -clips and -grips - 100 rubles'
  341. !!! Maruda Hair Mod
  342. 'Tissues - 100 rubles'
  343. 'Comb - 150 rubles'
  344. 'A box of tampons - 200 rubles'
  345. 'A box of razors - 500 rubles'
  346. 'A bottle of sunblock - 500 rubles'
  347. 'A bottle of shampoo - 500 rubles'
  348. 'Makeup kit - 1,000 rubles'
  349. 'Portable makeup kit - 1,000 rubles'
  350. 'Handbag - 5,000 rubles'
  351. act 'Get out of the department':gt 'shop', 'start'
  352. if hour >= 8 and hour <= 20:
  353. !!! Maruda Hair Mod
  354. if money >= 80:
  355. act 'Buy <b>hairscrunchies</b> (80 rubles) <<iif(hscrunch > 0, ''[left:<b>'' + hscrunch + ''</b>]'', '''')>>':
  356. cla
  357. *clr
  358. portion = input ("How many hairscrunchies you want to buy? (A box contains 10 hairscrunchies)")
  359. if portion <= 0:portion = 1
  360. if portion * 80 <= money:
  361. hscrunch += portion * 10
  362. minut += 5 + (portion / 5)
  363. money -= portion * 80
  364. '<center><img src="images/etogame/kassa.jpg"></center>'
  365. 'You bought the small box of hairscrunchies and paid the money to the cashier.'
  366. else
  367. 'You do not have enough money.'
  368. end
  369. act 'Move away from the counter':gt 'shop', 'cosm'
  370. end
  371. end
  372. if money >= 100:
  373. act 'Buy <b>hairpins</b> (100 rubles) <<iif(hpingrip > 0, ''[left:<b>'' + hpingrip + ''</b>]'', '''')>>':
  374. cla
  375. *clr
  376. portion = input ("How many hairpins you want to buy? (A box contains 10 hairpins)")
  377. if portion <= 0:portion = 1
  378. if portion * 100 <= money:
  379. hpingrip += portion * 10
  380. minut += 5 + (portion / 5)
  381. money -= portion * 100
  382. '<center><img src="images/etogame/kassa.jpg"></center>'
  383. 'You bought the small box of hairpins and paid the money to the cashier.'
  384. else
  385. 'You do not have enough money.'
  386. end
  387. act 'Move away from the counter':gt 'shop', 'cosm'
  388. end
  389. !!! Maruda Hair Mod
  390. if bag > 0:
  391. act 'Buy <b>tissues</b> (100 rubles) <<iif(salfetka > 0, ''[left:<b>'' + salfetka + ''</b>]'', '''')>>':
  392. cla
  393. *clr
  394. portion = input ("How many tissues you want to buy? (A box contains 10 tissues)")
  395. if portion <= 0:portion = 1
  396. if portion * 100 <= money:
  397. salfetka += portion *10
  398. minut += 5 + (portion / 5)
  399. money -= portion * 100
  400. '<center><img src="images/etogame/kassa.jpg"></center>'
  401. 'You bought tissues, put them in your purse and paid the money to the cashier.'
  402. else
  403. 'You do not have enough money.'
  404. end
  405. act 'Move away from the counter':gt 'shop', 'cosm'
  406. end
  407. end
  408. end
  409. if money >= 150 and greben = 0 and bag > 0:
  410. act 'Buy a <b>comb</b> (150 rubles)':
  411. cla
  412. *clr
  413. greben = 1
  414. minut += 5
  415. money -= 150
  416. '<center><img src="images/etogame/kassa.jpg"></center>'
  417. 'You bought a comb, put it in your purse and paid the money to the cashier.'
  418. act 'Move away from the counter':gt 'shop', 'cosm'
  419. end
  420. end
  421. if money >= 200:
  422. act 'Buy <b>tampons</b> (200 rubles) <<iif(tampon > 0, ''[left:<b>'' + tampon + ''</b>]'', '''')>>':
  423. cla
  424. *clr
  425. portion = input ("How many tampons you want to buy? (A box contains 20 tampons)")
  426. if portion <= 0:portion = 1
  427. if portion * 200 <= money:
  428. tampon += portion * 20
  429. minut += 5 + (portion / 5)
  430. money -= portion * 200
  431. '<center><img src="images/etogame/kassa.jpg"></center>'
  432. 'You bought tampons and paid the money to the cashier.'
  433. else
  434. 'You do not have enough money.'
  435. end
  436. act 'Move away from the counter':gt 'shop', 'cosm'
  437. end
  438. end
  439. if money >= 500:
  440. act 'Buy <b>razors</b> (500 rubles) <<iif(stanok > 0, ''[left:<b>'' + stanok + ''</b>]'', '''')>>':
  441. cla
  442. *clr
  443. portion = input ("How many razors you want to buy? (A razor lasts for 10 uses)")
  444. if portion <= 0:portion = 1
  445. if portion * 500 <= money:
  446. stanok += portion * 10
  447. minut += 5 + (portion / 5)
  448. money -= portion * 500
  449. '<center><img src="images/etogame/kassa.jpg"></center>'
  450. 'You bought razors and paid the money to the cashier.'
  451. else
  452. 'You do not have enough money.'
  453. end
  454. act 'Move away from the counter':gt 'shop', 'cosm'
  455. end
  456. act 'Buy <b>bottles of sunblock</b> (500 rubles) <<iif(krem > 0, ''[left:<b>'' + krem + ''</b>]'', '''')>>':
  457. cla
  458. *clr
  459. portion = input ("How much you want to buy? (A bottle of sunblock lasts for 20 uses)")
  460. if portion <= 0:portion = 1
  461. if portion * 500 <= money:
  462. krem += portion * 20
  463. minut += 5 + (portion / 5)
  464. money -= portion * 500
  465. '<center><img src="images/etogame/kassa.jpg"></center>'
  466. 'You bought bottles of sunblocks and paid the money to the cashier.'
  467. else
  468. 'You do not have enough money.'
  469. end
  470. act 'Move away from the counter':gt 'shop', 'cosm'
  471. end
  472. act 'Buy <b>shampoo</b> (500 rubles) <<iif(shampoo > 0, ''[left:<b>'' + shampoo + ''</b>]'', '''')>>':
  473. cla
  474. *clr
  475. portion = input ("How many shampoos you want to buy? (A bottle of shampoo lasts for 30 uses)")
  476. if portion <= 0:portion = 1
  477. if portion * 500 <= money:
  478. shampoo += portion * 30
  479. minut += 5 + (portion / 5)
  480. money -= portion * 500
  481. '<center><img src="images/etogame/kassa.jpg"></center>'
  482. 'You bought tampons and paid the money to the cashier.'
  483. else
  484. 'You do not have enough money.'
  485. end
  486. act 'Move away from the counter':gt 'shop', 'cosm'
  487. end
  488. end
  489. if money >= 1000:
  490. act 'Buy <b>makeup kits</b> (1,000 rubles) <<iif(kosmetica > 0, ''[left:<b>'' + kosmetica + ''</b>]'', '''')>>':
  491. cla
  492. *clr
  493. portion = input ("How many makeup kits you want to buy? (A kit lasts for 25 normal uses")
  494. if portion <= 0:portion = 1
  495. if portion *1000 <= money:
  496. kosmetica += portion * 50
  497. minut += 5 + (portion / 5)
  498. money -= portion * 1000
  499. '<center><img src="images/etogame/kassa.jpg"></center>'
  500. 'You bought cosmetics and paid the money to the cashier.'
  501. else
  502. 'You do not have enough money.'
  503. end
  504. act 'Move away from the counter':gt 'shop', 'cosm'
  505. end
  506. if bag > 0:
  507. act 'Buy <b>portable makeup kits</b> (1,000 rubles) <<iif(kosmetitka > 0, ''[left:<b>'' + kosmetitka + ''</b>]'', '''')>>':
  508. cla
  509. *clr
  510. portion = input ("How many portable makeup kits you want to buy? (A kit lasts for 5 normal uses")
  511. if portion <= 0:portion = 1
  512. if portion *1000 <= money:
  513. kosmetitka += portion * 10
  514. minut += 5 + (portion / 5)
  515. money -= portion * 1000
  516. '<center><img src="images/etogame/kassa.jpg"></center>'
  517. 'You bought portable cosmetics and paid the money to the cashier.'
  518. else
  519. 'You do not have enough money.'
  520. end
  521. act 'Move away from the counter':gt 'shop', 'cosm'
  522. end
  523. end
  524. end
  525. if money >= 5000 and bag = 0:
  526. act 'Buy a <b>handbag</b> (5,000 rubles)':
  527. cla
  528. *clr
  529. money -= 5000
  530. minut += 5
  531. bag = 1
  532. '<center><img src="images/etogame/kassa.jpg"></center>'
  533. 'You bought a handbag and paid the money to the cashier.'
  534. act 'Get out of the department':gt 'shop', 'cosm'
  535. end
  536. end
  537. else
  538. 'The grocery department is closed'
  539. end
  540. end
  541. if $ARGS[0] = 'hos':
  542. cla
  543. clr
  544. *clr
  545. minut += 1
  546. gs 'stat'
  547. fcolor = rgb(0, 0, 0)
  548. bcolor = rgb(255, 255, 255)
  549. lcolor = rgb(106, 90, 205)
  550. '<center><b><font color="maroon">Division of household goods</font></b></center>'
  551. '<center><img src="images/etogame/shop3.jpg"></center>'
  552. '<a href="exec:dynamic $buyfairy">Dishwashing detergent - 100 rubles</a>'
  553. '<a href="exec:dynamic $buyporoshok">Washing powder - 250 rubles</a>'
  554. '<a href="exec:dynamic $buycltarelka">of 5 plates - 300 rubles</a>'
  555. act 'Get out of the department':gt 'shop', 'start'
  556. if hour >= 8 and hour <= 20:
  557. if money > 100:
  558. act 'Buy <b>Dishwashing detergent</b> (100 rubles) <<iif(fairy > 0, ''[left:<b>'' + fairy + ''</b>]'', '''')>>':
  559. cla
  560. *clr
  561. portion = input("How many detergents you want to buy? (One box lasts for 20 uses)")
  562. if portion <= 0:portion = 1
  563. if portion * 100 <= money:
  564. fairy += portion * 20
  565. minut += 5 + (portion / 5)
  566. money -= portion * 100
  567. '<center><img src="images/etogame/kassa.jpg"></center>'
  568. 'You bought detergent and paid the money to the cashier.'
  569. else
  570. 'You do not have enough money.'
  571. end
  572. act 'Move away from the counter':gt 'shop', 'hos'
  573. end
  574. end
  575. if money > 250:
  576. act 'Buy <b>Washing powder</b> (100 rubles) <<iif(poroshok > 0, ''[left:<b>'' + poroshok + ''</b>]'', '''')>>':
  577. cla
  578. *clr
  579. portion = input("How many washing powder you want to buy? (One box lasts for 30 uses)")
  580. if portion <= 0:portion = 1
  581. if portion * 250 <= money:
  582. poroshok += portion * 30
  583. minut += 5 + (portion / 5)
  584. money -= portion * 250
  585. '<center><img src="images/etogame/kassa.jpg"></center>'
  586. 'You bought washing powder and paid the money to the cashier.'
  587. else
  588. 'You do not have enough money.'
  589. end
  590. act 'Move away from the counter':gt 'shop', 'hos'
  591. end
  592. end
  593. if money > 300:
  594. act 'Buy <b>Set of dishes</b> (100 rubles) <<iif(cltarelka > 0, ''[left:<b>'' + cltarelka + ''</b>]'', '''')>>':
  595. cla
  596. *clr
  597. portion = input("How many sets you want to buy? (One set contains 5 dishes)")
  598. if portion <= 0:portion = 1
  599. if portion * 300 <= money:
  600. cltarelka += portion * 5
  601. minut += 5 + (portion / 5)
  602. money -= portion * 300
  603. '<center><img src="images/etogame/kassa.jpg"></center>'
  604. 'You bought sets of dishes and paid the money to the cashier.'
  605. else
  606. 'You do not have enough money.'
  607. end
  608. act 'Move away from the counter':gt 'shop', 'hos'
  609. end
  610. end
  611. else
  612. 'Section closed'
  613. end
  614. end
  615. if $ARGS[0] = 'clo':
  616. cla
  617. *clr
  618. minut += 5
  619. clr
  620. gs 'stat'
  621. fcolor = rgb(0, 0, 0)
  622. bcolor = rgb(255, 255, 255)
  623. lcolor = rgb(106, 90, 205)
  624. '<center><b><font color="maroon">Department of Women''s Clothing - Main section</font></b></center>'
  625. '<center><img src="images/etogame/shop4.jpg"></center>'
  626. 'In front of you you see some sets of underwear and non-sorted clothing. Further ahead is a seperate section of female pants.'
  627. 'Underwear - 300 rubles'
  628. 'Swimsuit - 1,000 rubles'
  629. 'Underwear "Nedelka" - 2,000 rubles'
  630. 'All women''s clothing for 2,500 rubles'
  631. 'Winter coat - 10,000 rubles'
  632. act 'Leave the department':gt 'shop', 'start'
  633. if hour >= 8 and hour <= 20:
  634. act 'Go to the pants section':gt 'shop', 'clo2'
  635. if money >= 300:
  636. act 'Buy <b>underwear</b> (300 rubles) <<iif(clrbelo + dirtbelo > 0, ''[left:<b>'' + (clrbelo + dirtbelo) + ''</b>]'', '''')>>':
  637. cla
  638. *clr
  639. portion = input("How many underwear you want to buy?")
  640. if portion <= 0:portion = 1
  641. if portion * 300 <= money:
  642. clrbelo += portion
  643. minut += 5 + (portion / 5)
  644. money -= portion * 300
  645. '<center><img src="images/etogame/kassa.jpg"></center>'
  646. 'You bought some underwear and paid the money to the cashier.'
  647. else
  648. 'You do not have enough money.'
  649. end
  650. act 'Move away from the counter':gt 'shop', 'clo'
  651. end
  652. end
  653. if money >= 1000 and bikini = 0:
  654. act 'Buy a <b>swimsuit</b> (1,000 rubles)':
  655. cla
  656. *clr
  657. bikini = 1
  658. minut += 5
  659. money -= 1000
  660. '<center><img src="images/etogame/kassa.jpg"></center>'
  661. 'You bought a swimsuit and paid the money to the cashier.'
  662. act 'Move away from the counter':gt 'shop', 'clo'
  663. end
  664. end
  665. if money >= 2000:
  666. act 'Buy <b>sets of underwear "Nedelka"</b> (2,000 rubles) <<iif(clrbelo + dirtbelo > 0, ''[left:<b>'' + (clrbelo + dirtbelo) + ''</b>]'', '''')>>':
  667. cla
  668. *clr
  669. portion = input("How many "Nedelka" sets you want to buy? (One set contains 7 panties)")
  670. if portion <= 0:portion = 1
  671. if portion * 2000 <= money:
  672. clrbelo += portion * 7
  673. minut += 5 + (portion / 5)
  674. money -= portion * 2000
  675. '<center><img src="images/etogame/kassa.jpg"></center>'
  676. 'You bought some underwear and paid the money to the cashier.'
  677. else
  678. 'You do not have enough money.'
  679. end
  680. act 'Move away from the counter':gt 'shop', 'clo'
  681. end
  682. end
  683. if money >= 2500
  684. if sarafan[1] = 0:
  685. act 'Inspect colorful sundress':
  686. cla
  687. *clr
  688. '<center><img src="images/clothes/sarafan1.jpg"></center>'
  689. 'Simple sundress, its main advantage is its dimensionless.'
  690. act 'Leave':gt 'shop', 'clo'
  691. act 'Buy (2,500 rubles)':
  692. cla
  693. money -= 2500
  694. minut += 10
  695. sarafan[1] = 1
  696. sarafanH[1] = 60
  697. 'You bought a colorful sundress and paid the money to the cashier.'
  698. act 'Move away from the counter':gt 'shop', 'clo'
  699. end
  700. end
  701. end
  702. if sarafan[2] = 0:
  703. act 'Inspect light sundress':
  704. cla
  705. *clr
  706. '<center><img src="images/clothes/sarafan2.jpg"></center>'
  707. 'Simple sundress, its main advantage is its dimensionless.'
  708. act 'Leave':gt 'shop', 'clo'
  709. act 'Buy (2,500 rubles)':
  710. cla
  711. money -= 2500
  712. minut += 10
  713. sarafan[2] = 1
  714. sarafanH[2] = 60
  715. act 'Move away from the counter':gt 'shop', 'clo'
  716. end
  717. end
  718. end
  719. end
  720. if money >= 10000 and palto < 2:
  721. act 'Buy a <b>winter coat</b>':
  722. cla
  723. *clr*
  724. money -= 10000
  725. palto = 2
  726. $palto = 'Winter coat'
  727. 'You bought a winter coat and paid the money to the cashier.'
  728. act 'Move away from the counter':gt 'shop', 'clo'
  729. end
  730. end
  731. else
  732. 'Section closed'
  733. end
  734. end
  735. if $ARGS[0] = 'clo2'
  736. cla
  737. *clr
  738. minut += 5
  739. clr
  740. gs 'stat'
  741. fcolor = rgb(0, 0, 0)
  742. bcolor = rgb(255, 255, 255)
  743. lcolor = rgb(106, 90, 205)
  744. '<center><b><font color="maroon">Department of Women''s Clothing - Pants section</font></b></center>'
  745. '<center><img src="images/etogame/shop4.jpg"></center>'
  746. 'In front of you you see some sets of underwear and non-sorted clothing. Further ahead is a seperate section of female pants.'
  747. 'All women''s clothing for 2,500 rubles'
  748. if money >= 2500:
  749. if profi[1] = 0:
  750. act 'Inspect office clothes number 1':
  751. cla
  752. *clr
  753. '<center><img src="images/clothes/profi1.jpg"></center>'
  754. 'Office clothes.'
  755. 'Costs 2,500 rubles.'
  756. act 'Leave':gt 'shop', 'clo'
  757. act 'Buy':
  758. cla
  759. money -= 2500
  760. profi[1] = 1
  761. profiH[1] = 60
  762. profiB[1] = bedra
  763. gt 'shop', 'clo'
  764. end
  765. end
  766. end
  767. if profi[2] = 0:
  768. act 'Inspect office clothes number 2':
  769. cla
  770. *clr
  771. '<center><img src="images/clothes/profi2.jpg"></center>'
  772. 'Office clothes.'
  773. 'Costs 2,500 rubles.'
  774. act 'Leave':gt 'shop', 'clo'
  775. act 'Buy':
  776. cla
  777. money -= 2500
  778. profi[2] = 1
  779. profiH[2] = 60
  780. profiB[2] = bedra
  781. gt 'shop', 'clo'
  782. end
  783. end
  784. end
  785. if short[1] = 0:
  786. act 'Inspect Black shorts with a purple T-shirt':
  787. cla
  788. *clr
  789. '<center><img src="images/clothes/short1.jpg"></center>'
  790. 'Black shorts with a purple jersey.'
  791. 'Costs 2,500 rubles.'
  792. act 'Leave':gt 'shop', 'clo'
  793. act 'Buy':
  794. cla
  795. money -= 2500
  796. short[1] = 1
  797. shortH[1] = 60
  798. shortB[1] = bedra
  799. gt 'shop', 'clo'
  800. end
  801. end
  802. end
  803. if short[2] = 0:
  804. act 'Inspect Black shorts with a striped T-shirt':
  805. cla
  806. *clr
  807. '<center><img src="images/clothes/short2.jpg"></center>'
  808. 'Black shorts with striped jersey.'
  809. 'Costs 2,500 rubles.'
  810. act 'Leave':gt 'shop', 'clo'
  811. act 'Buy':
  812. cla
  813. money -= 2500
  814. short[2] = 1
  815. shortH[2] = 60
  816. shortB[2] = bedra
  817. gt 'shop', 'clo'
  818. end
  819. end
  820. end
  821. if short[3] = 0:
  822. act 'Inspect Black shorts with black jersey':
  823. cla
  824. *clr
  825. '<center><img src="images/clothes/short3.jpg"></center>'
  826. 'Black shorts with a black T-shirt.'
  827. 'Costs 2,500 rubles.'
  828. act 'Leave':gt 'shop', 'clo'
  829. act 'Buy':
  830. cla
  831. money -= 2500
  832. short[3] = 1
  833. shortH[3] = 60
  834. shortB[3] = bedra
  835. gt 'shop', 'clo'
  836. end
  837. end
  838. end
  839. if short[4] = 0:
  840. act 'Inspect pink shorts with pink jersey':
  841. cla
  842. *clr
  843. '<center><img src="images/clothes/short4.jpg"></center>'
  844. 'pink shorts with the pink jersey.'
  845. 'Costs 2,500 rubles.'
  846. act 'Leave':gt 'shop', 'clo'
  847. act 'Buy':
  848. cla
  849. money -= 2500
  850. short[4] = 1
  851. shortH[4] = 60
  852. shortB[4] = bedra
  853. gt 'shop', 'clo'
  854. end
  855. end
  856. end
  857. if short[5] = 0:
  858. act 'Inspect the white shorts with a white bodice':
  859. cla
  860. *clr
  861. '<center><img src="images/clothes/short5.jpg"></center>'
  862. 'white shorts with a white bodice.'
  863. 'Costs 2,500 rubles.'
  864. act 'Leave':gt 'shop', 'clo'
  865. act 'Buy':
  866. cla
  867. money -= 2500
  868. short[5] = 1
  869. shortH[5] = 60
  870. shortB[5] = bedra
  871. gt 'shop', 'clo'
  872. end
  873. end
  874. end
  875. if skirt[1] = 0:
  876. act 'Inspect the white skirt with a colorful blouse.':
  877. cla
  878. *clr
  879. '<center><img src="images/clothes/skirt1.jpg"></center>'
  880. 'White skirt with a colorful blouse.'
  881. 'Costs 2,500 rubles.'
  882. act 'Leave':gt 'shop', 'clo'
  883. act 'Buy':
  884. cla
  885. money -= 2500
  886. skirt[1] = 1
  887. skirtH[1] = 60
  888. skirtB[1] = bedra
  889. gt 'shop', 'clo'
  890. end
  891. end
  892. end
  893. if skirt[2] = 0:
  894. act 'Inspect the black skirt with a red sweater.':
  895. cla
  896. *clr
  897. '<center><img src="images/clothes/skirt2.jpg"></center>'
  898. 'Black skirt with a red sweater.'
  899. 'Costs 2,500 rubles.'
  900. act 'Leave':gt 'shop', 'clo'
  901. act 'Buy':
  902. cla
  903. money -= 2500
  904. skirt[2] = 1
  905. skirtH[2] = 60
  906. skirtB[2] = bedra
  907. gt 'shop', 'clo'
  908. end
  909. end
  910. end
  911. if skirt[3] = 0:
  912. act 'Inspect the white skirt with a striped shirt.':
  913. cla
  914. *clr
  915. '<center><img src="images/clothes/skirt3.jpg"></center>'
  916. 'White skirt with a striped shirt.'
  917. 'Costs 2,500 rubles.'
  918. act 'Leave':gt 'shop', 'clo'
  919. act 'Buy':
  920. cla
  921. money -= 2500
  922. skirt[3] = 1
  923. skirtH[3] = 60
  924. skirtB[3] = bedra
  925. gt 'shop', 'clo'
  926. end
  927. end
  928. end
  929. if skirt[4] = 0:
  930. act 'Inspect the skin black skirt with a red blouse.':
  931. cla
  932. *clr
  933. '<center><img src="images/clothes/skirt4.jpg"></center>'
  934. 'Black skirt under the skin with a red blouse.'
  935. 'Costs 2,500 rubles.'
  936. act 'Leave':gt 'shop', 'clo'
  937. act 'Buy':
  938. cla
  939. money -= 2500
  940. skirt[4] = 1
  941. skirtH[4] = 60
  942. skirtB[4] = bedra
  943. gt 'shop', 'clo'
  944. end
  945. end
  946. end
  947. if skirt[5] = 0:
  948. act 'Inspect the black skirt with a white blouse.':
  949. cla
  950. *clr
  951. '<center><img src="images/clothes/skirt5.jpg"></center>'
  952. 'Black skirt with a white blouse.'
  953. 'Costs 2,500 rubles.'
  954. act 'Leave':gt 'shop', 'clo'
  955. act 'Buy':
  956. cla
  957. money -= 2500
  958. skirt[5] = 1
  959. skirtH[5] = 60
  960. skirtB[5] = bedra
  961. gt 'shop', 'clo'
  962. end
  963. end
  964. end
  965. if pants[1] = 0:
  966. act 'Inspect the pants with a blouse. Number 1':
  967. cla
  968. *clr
  969. '<center><img src="images/clothes/pants1.jpg"></center>'
  970. 'Pants with a blouse.'
  971. 'Costs 2,500 rubles.'
  972. act 'Leave':gt 'shop', 'clo'
  973. act 'Buy':
  974. cla
  975. money -= 2500
  976. pants[1] = 1
  977. pantsH[1] = 60
  978. pantsB[1] = bedra
  979. gt 'shop', 'clo'
  980. end
  981. end
  982. end
  983. if pants[2] = 0:
  984. act 'Inspect the pants with a blouse. Number 2':
  985. cla
  986. *clr
  987. '<center><img src="images/clothes/pants2.jpg"></center>'
  988. 'Pants with a blouse.'
  989. 'Costs 2,500 rubles.'
  990. act 'Leave':gt 'shop', 'clo'
  991. act 'Buy':
  992. cla
  993. money -= 2500
  994. pants[2] = 1
  995. pantsH[2] = 60
  996. pantsB[2] = bedra
  997. gt 'shop', 'clo'
  998. end
  999. end
  1000. end
  1001. if pants[3] = 0:
  1002. act 'Inspect the pants with a blouse. Number 3':
  1003. cla
  1004. *clr
  1005. '<center><img src="images/clothes/pants3.jpg"></center>'
  1006. 'Pants with a blouse.'
  1007. 'Costs 2,500 rubles.'
  1008. act 'Leave':gt 'shop', 'clo'
  1009. act 'Buy':
  1010. cla
  1011. money -= 2500
  1012. pants[3] = 1
  1013. pantsH[3] = 60
  1014. pantsB[3] = bedra
  1015. gt 'shop', 'clo'
  1016. end
  1017. end
  1018. end
  1019. if pants[4] = 0:
  1020. act 'Inspect the pants with a blouse. Number 4':
  1021. cla
  1022. *clr
  1023. '<center><img src="images/clothes/pants4.jpg"></center>'
  1024. 'Pants with a blouse.'
  1025. 'Costs 2,500 rubles.'
  1026. act 'Leave':gt 'shop', 'clo'
  1027. act 'Buy':
  1028. cla
  1029. money -= 2500
  1030. pants[4] = 1
  1031. pantsH[4] = 60
  1032. pantsB[4] = bedra
  1033. gt 'shop', 'clo'
  1034. end
  1035. end
  1036. end
  1037. if pants[5] = 0:
  1038. act 'Inspect the pants with a blouse. Number 5':
  1039. cla
  1040. *clr
  1041. '<center><img src="images/clothes/pants5.jpg"></center>'
  1042. 'Pants with a blouse.'
  1043. 'Costs 2,500 rubles.'
  1044. act 'Leave':gt 'shop', 'clo'
  1045. act 'Buy':
  1046. cla
  1047. money -= 2500
  1048. pants[5] = 1
  1049. pantsH[5] = 60
  1050. pantsB[5] = bedra
  1051. gt 'shop', 'clo'
  1052. end
  1053. end
  1054. end
  1055. end
  1056. end
  1057. if $ARGS[0] = 'teh':
  1058. cla
  1059. *clr
  1060. minut += 1
  1061. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1062. $buytv = {
  1063. if hour >= 8 and hour <= 20:
  1064. if money >= 5000 and TV < 1:
  1065. cla
  1066. *clr
  1067. money -= 5000
  1068. TV = 1
  1069. '<center><img src="images/etogame/kassa.jpg"></center>'
  1070. 'You the money to the cashier and bought the TV'
  1071. act 'Leave':gt 'shop', 'teh'
  1072. elseif TV > 0:
  1073. 'Do you already have a TV'
  1074. else
  1075. 'You do not have enough money'
  1076. end
  1077. else
  1078. 'Department closed'
  1079. end
  1080. }
  1081. $buytv2 = {
  1082. if hour >= 8 and hour <= 20:
  1083. if money >= 35000 and TV < 2:
  1084. cla
  1085. *clr
  1086. money -= 35000
  1087. TV = 2
  1088. '<center><img src="images/etogame/kassa.jpg"></center>'
  1089. 'You the money to the cashier and bought the TV'
  1090. act 'Leave':gt 'shop', 'teh'
  1091. elseif TV > 1:
  1092. 'Do you already have a TV'
  1093. else
  1094. 'You do not have enough money'
  1095. end
  1096. else
  1097. 'Department closed'
  1098. end
  1099. }
  1100. $buykomp = {
  1101. if hour >= 8 and hour <= 20:
  1102. if money >= 25000 and komp =0:
  1103. cla
  1104. *clr
  1105. money -= 25000
  1106. komp = 1
  1107. '<center><img src="images/etogame/kassa.jpg"></center>'
  1108. 'You paid in cash and bought the computer'
  1109. act 'Leave':gt 'shop', 'teh'
  1110. elseif komp > 0:
  1111. 'Do you already have a computer'
  1112. else
  1113. 'You do not have enough money'
  1114. end
  1115. else
  1116. 'Department closed'
  1117. end
  1118. }
  1119. $buycd = {
  1120. if hour >= 8 and hour <= 20:
  1121. if money >= 500 and komp > 0 and GameCD = 0:
  1122. cla
  1123. *clr
  1124. money -= 500
  1125. GameCD = 1
  1126. '<center><img src="images/etogame/kassa.jpg"></center>'
  1127. 'You paid in cash and bought the game'
  1128. act 'Leave':gt 'shop', 'teh'
  1129. elseif komp = 0:
  1130. 'You do not have computer'
  1131. elseif GameCD > 0:
  1132. 'You already have this game'
  1133. else
  1134. 'You do not have enough money'
  1135. end
  1136. else
  1137. 'Department closed'
  1138. end
  1139. }
  1140. $buycd2 = {
  1141. if hour >= 8 and hour <= 20:
  1142. if money >= 500 and komp > 0 and GameCD2 = 0:
  1143. cla
  1144. *clr
  1145. money -= 500
  1146. GameCD2 = 1
  1147. '<center><img src="images/etogame/kassa.jpg"></center>'
  1148. 'You paid in cash and bought the game'
  1149. act 'Leave':gt 'shop', 'teh'
  1150. elseif komp = 0:
  1151. 'You do not have computer'
  1152. elseif GameCD2 > 0:
  1153. 'You already have this game'
  1154. else
  1155. 'You do not have enough money'
  1156. end
  1157. else
  1158. 'Department closed'
  1159. end
  1160. }
  1161. $buycd3 = {
  1162. if hour >= 8 and hour <= 20:
  1163. if money >= 500 and komp > 0 and GameCD3 = 0:
  1164. cla
  1165. *clr
  1166. money -= 500
  1167. GameCD3 = 1
  1168. '<center><img src="images/etogame/kassa.jpg"></center>'
  1169. 'You paid in cash and bought the game'
  1170. act 'Leave':gt 'shop', 'teh'
  1171. elseif komp = 0:
  1172. 'You do not have computer'
  1173. elseif GameCD3 > 0:
  1174. 'You already have this game'
  1175. else
  1176. 'You do not have enough money'
  1177. end
  1178. else
  1179. 'Department closed'
  1180. end
  1181. }
  1182. $buyposudmoi = {
  1183. if hour >= 8 and hour <= 20:
  1184. if money >= 50000 and posudomashina = 0:
  1185. cla
  1186. *clr
  1187. money -= 50000
  1188. posudomashina = 1
  1189. '<center><img src="images/etogame/kassa.jpg"></center>'
  1190. 'You paid in cash and bought a dishwasher'
  1191. act 'Leave':gt 'shop', 'teh'
  1192. elseif posudomashina > 0:
  1193. 'You already have a dishwasher'
  1194. else
  1195. 'You do not have enough money'
  1196. end
  1197. else
  1198. 'Department closed'
  1199. end
  1200. }
  1201. $buystiralka = {
  1202. if hour >= 8 and hour <= 20:
  1203. if money >= 50000 and stiralka = 0:
  1204. cla
  1205. *clr
  1206. money -= 50000
  1207. stiralka = 1
  1208. '<center><img src="images/etogame/kassa.jpg"></center>'
  1209. 'You paid in cash and bought a washing machine'
  1210. act 'Leave':gt 'shop', 'teh'
  1211. elseif stiralka > 0:
  1212. 'You already have a washing machine'
  1213. else
  1214. 'You do not have enough money'
  1215. end
  1216. else
  1217. 'Department closed'
  1218. end
  1219. }
  1220. $buyzenit = {
  1221. if hour >= 8 and hour <= 20:
  1222. if money >= 10000 and zenit = 0:
  1223. cla
  1224. *clr
  1225. money -= 10000
  1226. zenit = 1
  1227. '<center><img src="images/etogame/kassa.jpg"></center>'
  1228. 'You paid in cash and bought a camera'
  1229. act 'Leave':gt 'shop', 'teh'
  1230. elseif zenit > 0:
  1231. 'Do you already have a camera'
  1232. else
  1233. 'You do not have enough money'
  1234. end
  1235. else
  1236. 'Department closed'
  1237. end
  1238. }
  1239. $buyminifoto = {
  1240. if hour >= 8 and hour <= 20:
  1241. if money >= 40000 and minifoto = 0:
  1242. cla
  1243. *clr
  1244. money -= 40000
  1245. minifoto = 1
  1246. '<center><img src="images/etogame/kassa.jpg"></center>'
  1247. 'You paid in cash and bought a mini camera'
  1248. act 'Leave':gt 'shop', 'teh'
  1249. elseif minifoto > 0:
  1250. 'You already have a mini camera'
  1251. else
  1252. 'You do not have enough money'
  1253. end
  1254. else
  1255. 'Department closed'
  1256. end
  1257. }
  1258. cla
  1259. *clr
  1260. minut += 1
  1261. clr
  1262. gs 'stat'
  1263. fcolor = rgb(0, 0, 0)
  1264. bcolor = rgb(255, 255, 255)
  1265. lcolor = rgb(106, 90, 205)
  1266. '<center><b><font color="maroon">Department of household appliances</font></b></center>'
  1267. '<center><img src="images/etogame/shop5.jpg"></center>'
  1268. if TV = 0:'<a href="exec:dynamic $buytv">A small TV with a picture tube (5,000 rubles)</a>'
  1269. if TV ! 2:'<a href="exec:dynamic $buytv2">Large plasma TV (35,000 rubles)</a>'
  1270. if komp = 0:'<a href="exec:dynamic $buykomp">Computer - (25,000 rubles)</a>'
  1271. !!'<a href="exec:dynamic $buycd">Computer game Disopl (500 rubles)</a>'
  1272. if GameCD2 = 0:'<a href="exec:dynamic $buycd2">Computer game Dead Sun(500 rubles)</a>'
  1273. !!'<a href="exec:dynamic $buycd3">Computer game Albida (500 rubles)</a>'
  1274. if posudomashina = 0:'<a href="exec:dynamic $buyposudmoi">A dishwasher (50,000 rubles)</a>'
  1275. if stiralka = 0:'<a href="exec:dynamic $buystiralka">Washing machine (50,000 rubles)</a>'
  1276. if zenit = 0:'<a href="exec:dynamic $buyzenit">Camera can be bought (10,000 rubles)</a>'
  1277. if minifoto = 0:'<a href="exec:dynamic $buyminifoto">Mini camera disguised as a cigarette pack (40,000 rubles)</a>'
  1278. act 'Leave the department':gt 'shop', 'start'
  1279. end
  1280. --- shop ---------------------------------