1
0

096_shop 31 KB

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