shop 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774
  1. # shop
  2. !! This is the supermarket, located in several places
  3. !! Main entrance
  4. if $ARGS[0] = 'start':
  5. $shoplocation = 'main'
  6. end
  7. if $ARGS[0] = 'start' or $ARGS[0] = 'move':
  8. minut += 1
  9. end
  10. !! Main area
  11. if $shoplocation = 'main':
  12. cla
  13. *clr
  14. '<center><b><font color="maroon">Supermarket</font></b></center>'
  15. '<center><img src="images/etogame/shop.jpg"></center>'
  16. if hour < 8 or hour > 20:
  17. 'The supermarket is currently closed.'
  18. act 'Leave the store':gt $loc
  19. exit
  20. end
  21. 'In the hall stands an <a href="exec:$shoplocation = ''ATM'' & gt ''shop'', ''move''">ATM</a>, from which you can withdraw money from your bank account.'
  22. '<br>Most of the space in the supermarket is taken up by the <a href="exec:$shoplocation = ''grocery'' & gt ''shop'', ''move''">grocery department</a>, but the store has many smaller departments as well. <a href="exec:$shoplocation=''cosmetics'' & gt ''shop'', ''move''">Cosmetics</a>, <a href="exec:$shoplocation = ''hardware'' & gt ''shop'', ''move''">hardware</a>, <a href="exec:$shoplocation = ''clothing'' & gt ''shop'', ''move''">clothing</a> and the department of <a href="exec:$shoplocation = ''tech'' & gt ''shop'', ''move''">household appliances</a>. Not far from the entrance is a <a href="exec:$shoplocation = ''icecream'' & gt ''shop'', ''move''">counter selling ice cream</a>.'
  23. clr
  24. gs 'stat'
  25. fcolor = rgb(0, 0, 0)
  26. bcolor = rgb(255, 255, 255)
  27. lcolor = rgb(106, 90, 205)
  28. !! The store in the town and in the altstart only
  29. if $loc = 'gorodok' and StoryLine = 1:
  30. if week < 6 and hour >= 8 and hour < 16:
  31. 'Your sister <a href="exec:gt ''sister'', ''work''">Anja</a> sits at the checkout.'
  32. end
  33. end
  34. !! Store in the residential district
  35. if $loc = 'street':
  36. if rand(1, 20) = 20:
  37. if dimaQW = 0:
  38. 'In the lobby of the store looks at you appreciatively what that man.'
  39. act 'See it':gt 'event', 'dima'
  40. elseif dimaQW = 1:
  41. 'In the lobby of the store you notice Dima and binds you fear, you can not move.'
  42. act 'See it':gt 'event', 'scoreslut1'
  43. else
  44. 'You met the same Dima who boyfriend fucking amuse you. Dima cocky grin came to you and said hello.'
  45. act 'Hello':
  46. cla
  47. 'Come to me, I have no wife at home said Dima.'
  48. act 'No':gt 'shop', 'start'
  49. act 'Come':
  50. cla
  51. *clr
  52. if rand(1, 2) = 1:
  53. cla
  54. sex += 1
  55. oral += 1
  56. throat += 1
  57. cumlip += 1
  58. swallow += 1
  59. horny = 0
  60. '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.'
  61. '<center><img src="images/pics/gostDT2.jpg"></center>'
  62. 'Dima finally finished your mouth, you obediently swallowed and licked the remnants of sperm with his big cock.'
  63. act 'Leave':gt 'street'
  64. else
  65. cla
  66. sex += 1
  67. anal += 1
  68. cumass += 1
  69. spank += 1
  70. boom = 5
  71. horny = 0
  72. '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.'
  73. '<center><img src="images/pics/gostAnal2.jpg"></center>'
  74. '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.'
  75. act 'Leave':gt 'street'
  76. end
  77. end
  78. end
  79. end
  80. end
  81. end
  82. '<br>The store is crowded with shoppers.'
  83. !! This is connected to the trade mission
  84. if TorgPredZ > 0:
  85. !! the location of the shop hasn''t been done today
  86. if ($loc = 'street' and StreetShopTPday ! day) or ($loc = 'Nord' and nordShopTPday ! day) or ($loc = 'down' and downShopTPday ! day):
  87. act 'Arrange products':
  88. if $loc = 'street':StreetShopTPday = day
  89. if $loc = 'Nord':nordShopTPday = day
  90. if $loc = 'down':downShopTPday = day
  91. cls
  92. mtprand = rand(40, 130)
  93. minut += mtprand
  94. TorgPredZ -= 1
  95. TorgPredZV += 1
  96. gs 'stat'
  97. '<center><img src="images/etogame/shop.jpg"></center>'
  98. 'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
  99. act 'Exit':gt 'shop', 'start'
  100. end
  101. end
  102. end
  103. act 'Leave the store':gt $loc
  104. exit
  105. end
  106. !! ATM
  107. if $shoplocation = 'ATM':
  108. if karta > 0:
  109. act 'Withdraw money from the ATM':
  110. cla
  111. minut += 5
  112. kartaOUT = input ("How much money you want to withdraw?")
  113. if kartaOUT <= 0 or kartaOUT > karta:
  114. '<br>Invalid operation.'
  115. else
  116. karta -= kartaOUT
  117. money += kartaOUT
  118. '<br>You withdraw <<kartaOUT>> rubles. You have <<karta>> rubles left in your bank account.'
  119. end
  120. act 'Move away':gt 'shop', 'start'
  121. end
  122. else
  123. 'You do not have any money in the bank.'
  124. act 'Move away':gt 'shop', 'start'
  125. end
  126. end
  127. !! Grocery
  128. if $shoplocation = 'grocery':
  129. cla
  130. *clr
  131. '<center><b><font color="maroon">Grocery</font></b></center>'
  132. '<center><img src="images/etogame/shop1.jpg"></center>'
  133. if hour < 8 or hour > 20:
  134. 'The grocery is currently closed.'
  135. act 'Leave the grocery':gt 'shop', 'start'
  136. exit
  137. end
  138. !! output from purchase
  139. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  140. *pl '<center><table align="center">' + _
  141. FUNC ('$stock_item', 1, 'Regular food', 50, 'eda', $CURLOC) + _
  142. FUNC ('$stock_item', 1, 'Diet food', 250, 'edaD', $CURLOC) + _
  143. FUNC ('$stock_item', 10, 'Tea biscuits', 300, 'pranik', $CURLOC) + _
  144. iif(bag > 0, FUNC ('$single_stock_item', 1, 'Bottle of water', 50, 'bottle', $CURLOC), '') + _
  145. iif(bag > 0, FUNC ('$single_stock_item', 1, 'Sandwich', 100, 'buterbrod', $CURLOC), '') + _
  146. iif(bag > 0, FUNC ('$single_stock_item', 1, 'Bottle of wine', 500, 'wine', $CURLOC), '') + _
  147. '</table></center>'
  148. clr
  149. gs 'stat'
  150. fcolor = rgb(0, 0, 0)
  151. bcolor = rgb(255, 255, 255)
  152. lcolor = rgb(106, 90, 205)
  153. act 'Leave the grocery':gt 'shop', 'start'
  154. end
  155. !! Cosmetics
  156. !! The scrunchies and hairpins sold here are from the Maruda Hair Mod
  157. if $shoplocation= 'cosmetics':
  158. cla
  159. *clr
  160. '<center><b><font color="maroon">Cosmetics Department</font></b></center>'
  161. '<center><img src="images/etogame/shop2.jpg"></center>'
  162. if hour < 8 or hour > 20:
  163. 'The cosmetics department is currently closed.'
  164. act 'Leave the cosmetics department':gt 'shop', 'start'
  165. exit
  166. end
  167. !! output from purchase
  168. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  169. *pl '<center><table align="center">' + _
  170. FUNC ('$stock_item', 50, 'Cosmetics', 1000, 'kosmetica', $CURLOC) + _
  171. FUNC ('$stock_item', 10, 'Razors', 500, 'stanok', $CURLOC) + _
  172. FUNC ('$stock_item', 20, 'Sunblock', 500, 'krem', $CURLOC) + _
  173. FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC) + _
  174. FUNC ('$stock_item', 30, 'Shampoo', 500, 'shampoo', $CURLOC) + _
  175. FUNC ('$stock_item', 10, 'Hair scrunchies', 80, 'hscrunch', $CURLOC)
  176. *pl FUNC ('$stock_item', 12, 'Hair pins', 100, 'hpingrip', $CURLOC) + _
  177. iif(bag > 0, FUNC ('$stock_item', 10, 'Wipes', 100, 'salfetka', $CURLOC), '') + _
  178. iif(bag > 0, FUNC ('$stock_item', 10, 'Portable makeup', 1000, 'kosmetitka', $CURLOC), '') + _
  179. iif(bag > 0, FUNC ('$single_stock_item', 1, 'Comb', 150, 'greben', $CURLOC), '') + _
  180. FUNC ('$single_stock_item', 1, 'Handbag', 5000, 'bag', $CURLOC) + _
  181. '</table></center>'
  182. clr
  183. gs 'stat'
  184. fcolor = rgb(0, 0, 0)
  185. bcolor = rgb(255, 255, 255)
  186. lcolor = rgb(106, 90, 205)
  187. act 'Leave the cosmetics department':gt 'shop', 'start'
  188. end
  189. !! Hardware
  190. if $shoplocation = 'hardware':
  191. cla
  192. *clr
  193. '<center><b><font color="maroon">Division of household goods</font></b></center>'
  194. '<center><img src="images/etogame/shop3.jpg"></center>'
  195. if hour < 8 or hour > 20:
  196. 'The hardware department is currently closed.'
  197. act 'Leave the hardware department':gt 'shop', 'start'
  198. exit
  199. end
  200. !! output from purchase
  201. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  202. *pl '<center><table align="center">' + _
  203. FUNC ('$stock_item', 20, 'Dishwashing detergent', 100, 'fairy', $CURLOC) + _
  204. FUNC ('$stock_item', 30, 'Clothing detergent', 250, 'poroshok', $CURLOC) + _
  205. FUNC ('$stock_item', 5, 'Plates', 300, 'cltarelka', $CURLOC) + _
  206. '</table></center>'
  207. clr
  208. gs 'stat'
  209. fcolor = rgb(0, 0, 0)
  210. bcolor = rgb(255, 255, 255)
  211. lcolor = rgb(106, 90, 205)
  212. act 'Leave the hardware department':gt 'shop', 'start'
  213. end
  214. !! Women''s clothing
  215. if $shoplocation = 'clothing':
  216. cla
  217. *clr
  218. '<center><b><font color="maroon">Department of Women''s Clothing</font></b></center>'
  219. '<center><img src="images/etogame/shop4.jpg"></center>'
  220. if hour < 8 or hour > 20:
  221. 'The women''s clothing department is currently closed.'
  222. act 'Leave the women''s clothing department':gt 'shop', 'start'
  223. exit
  224. end
  225. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  226. *pl '<center><table align="center">' + _
  227. FUNC ('$stock_item', 1, 'Underwear', 300, 'clrbelo', $CURLOC) + _
  228. FUNC ('$stock_item', 7, 'Sale pack of underwear', 2000, 'clrbelo', $CURLOC) + _
  229. FUNC ('$single_stock_item', 1, 'Swimsuit', 1000, 'bikini', $CURLOC) + _
  230. '</table></center>'
  231. '<br/>Women''s clothing cost 2,500 rubles each.'
  232. clr
  233. gs 'stat'
  234. fcolor = rgb(0, 0, 0)
  235. bcolor = rgb(255, 255, 255)
  236. lcolor = rgb(106, 90, 205)
  237. act 'Leave the women''s clothing department':gt 'shop', 'start'
  238. !! This is not being done as a stock item because it needs to set the palto string value
  239. if palto < 2:
  240. 'A winter coat is available for 10,000 rubles'
  241. if money >= 10000:
  242. act 'Purchase a winter coat for 10,000 rubles':
  243. cla
  244. money -= 10000
  245. palto = 2
  246. $palto = 'winter coat'
  247. 'You bought a coat.'
  248. act 'Move away from the counter':gt 'shop'
  249. end
  250. end
  251. end
  252. if money >= 2500:
  253. if profi[1] = 0:
  254. act 'Inspect Office clothes number 1':
  255. cla
  256. *clr
  257. '<center><img src="images/clothes/profi1.jpg"></center>'
  258. 'Office clothes.'
  259. 'Costs 2,500 rubles.'
  260. act 'Leave':gt 'shop'
  261. act 'Buy':
  262. cla
  263. money -= 2500
  264. profi[1] = 1
  265. profiH[1] = 60
  266. profiB[1] = bedra
  267. gt 'shop', '<font color="green">You bought <b>Office clothes number 1</b>.</font>'
  268. end
  269. end
  270. end
  271. if profi[2] = 0:
  272. act 'Inspect Office clothes number 2':
  273. cla
  274. *clr
  275. '<center><img src="images/clothes/profi2.jpg"></center>'
  276. 'Office clothes.'
  277. 'Costs 2,500 rubles.'
  278. act 'Leave':gt 'shop'
  279. act 'Buy':
  280. cla
  281. money -= 2500
  282. profi[2] = 1
  283. profiH[2] = 60
  284. profiB[2] = bedra
  285. gt 'shop', '<font color="green">You bought <b>Office clothes number 2</b>.</font>'
  286. end
  287. end
  288. end
  289. if sarafan[1] = 0:
  290. act 'Inspect Colorful sundress':
  291. cla
  292. *clr
  293. '<center><img src="images/clothes/sarafan1.jpg"></center>'
  294. 'Simple sundress, its main advantage is its dimensionless.'
  295. 'Costs 2,500 rubles.'
  296. act 'Leave':gt 'shop'
  297. act 'Buy':
  298. cla
  299. money -= 2500
  300. sarafan[1] = 1
  301. sarafanH[1] = 60
  302. gt 'shop', '<font color="green">You bought <b>colorful sundress</b>.</font>'
  303. end
  304. end
  305. end
  306. if sarafan[2] = 0:
  307. act 'Inspect Light sundress':
  308. cla
  309. *clr
  310. '<center><img src="images/clothes/sarafan2.jpg"></center>'
  311. 'Simple sundress, its main advantage is its dimensionless.'
  312. 'Costs 2,500 rubles.'
  313. act 'Leave':gt 'shop'
  314. act 'Buy':
  315. cla
  316. money -= 2500
  317. sarafan[2] = 1
  318. sarafanH[2] = 60
  319. gt 'shop', '<font color="green">You bought <b>Light sundress</b>.</font>'
  320. end
  321. end
  322. end
  323. if short[1] = 0:
  324. act 'Inspect Black shorts with a purple t-shirt':
  325. cla
  326. *clr
  327. '<center><img src="images/clothes/short1.jpg"></center>'
  328. 'Black shorts with a purple jersey.'
  329. 'Costs 2,500 rubles.'
  330. act 'Leave':gt 'shop'
  331. act 'Buy':
  332. cla
  333. money -= 2500
  334. short[1] = 1
  335. shortH[1] = 60
  336. shortB[1] = bedra
  337. gt 'shop', '<font color="green">You bought <b>Black shorts with a purple t-shirt</b>.</font>'
  338. end
  339. end
  340. end
  341. if short[2] = 0:
  342. act 'Inspect Black shorts with a striped t-shirt':
  343. cla
  344. *clr
  345. '<center><img src="images/clothes/short2.jpg"></center>'
  346. 'Black shorts with striped jersey.'
  347. 'Costs 2,500 rubles.'
  348. act 'Leave':gt 'shop'
  349. act 'Buy':
  350. cla
  351. money -= 2500
  352. short[2] = 1
  353. shortH[2] = 60
  354. shortB[2] = bedra
  355. gt 'shop', '<font color="green">You bought <b>Black shorts with a striped t-shirt</b>.</font>'
  356. end
  357. end
  358. end
  359. if short[3] = 0:
  360. act 'Inspect Black shorts with a black jersey':
  361. cla
  362. *clr
  363. '<center><img src="images/clothes/short3.jpg"></center>'
  364. 'Black shorts with a black T-shirt.'
  365. 'Costs 2,500 rubles.'
  366. act 'Leave':gt 'shop'
  367. act 'Buy':
  368. cla
  369. money -= 2500
  370. short[3] = 1
  371. shortH[3] = 60
  372. shortB[3] = bedra
  373. gt 'shop', '<font color="green">You bought <b>Black shorts with a black jersey</b>.</font>'
  374. end
  375. end
  376. end
  377. if short[4] = 0:
  378. act 'Inspect Pink shorts with a pink jersey':
  379. cla
  380. *clr
  381. '<center><img src="images/clothes/short4.jpg"></center>'
  382. 'pink shorts with the pink jersey.'
  383. 'Costs 2,500 rubles.'
  384. act 'Leave':gt 'shop'
  385. act 'Buy':
  386. cla
  387. money -= 2500
  388. short[4] = 1
  389. shortH[4] = 60
  390. shortB[4] = bedra
  391. gt 'shop', '<font color="green">You bought <b>Pink shorts with a pink jersey</b>.</font>'
  392. end
  393. end
  394. end
  395. if short[5] = 0:
  396. act 'Inspect White shorts with a white bodice':
  397. cla
  398. *clr
  399. '<center><img src="images/clothes/short5.jpg"></center>'
  400. 'white shorts with a white bodice.'
  401. 'Costs 2,500 rubles.'
  402. act 'Leave':gt 'shop'
  403. act 'Buy':
  404. cla
  405. money -= 2500
  406. short[5] = 1
  407. shortH[5] = 60
  408. shortB[5] = bedra
  409. gt 'shop', '<font color="green">You bought <b>White shorts with a white bodice</b>.</font>'
  410. end
  411. end
  412. end
  413. if skirt[1] = 0:
  414. act 'Inspect White skirt with a colorful blouse':
  415. cla
  416. *clr
  417. '<center><img src="images/clothes/skirt1.jpg"></center>'
  418. 'White skirt with a colorful blouse.'
  419. 'Costs 2,500 rubles.'
  420. act 'Leave':gt 'shop'
  421. act 'Buy':
  422. cla
  423. money -= 2500
  424. skirt[1] = 1
  425. skirtH[1] = 60
  426. skirtB[1] = bedra
  427. gt 'shop', '<font color="green">You bought <b>White shirt with a colorful blouse</b>.</font>'
  428. end
  429. end
  430. end
  431. if skirt[2] = 0:
  432. act 'Inspect Black skirt with a red sweater':
  433. cla
  434. *clr
  435. '<center><img src="images/clothes/skirt2.jpg"></center>'
  436. 'Black skirt with a red sweater.'
  437. 'Costs 2,500 rubles.'
  438. act 'Leave':gt 'shop'
  439. act 'Buy':
  440. cla
  441. money -= 2500
  442. skirt[2] = 1
  443. skirtH[2] = 60
  444. skirtB[2] = bedra
  445. gt 'shop', '<font color="green">You bought <b>Black skirt with a red sweater</b>.</font>'
  446. end
  447. end
  448. end
  449. if skirt[3] = 0:
  450. act 'Inspect White skirt with a striped shirt':
  451. cla
  452. *clr
  453. '<center><img src="images/clothes/skirt3.jpg"></center>'
  454. 'White skirt with a striped shirt.'
  455. 'Costs 2,500 rubles.'
  456. act 'Leave':gt 'shop'
  457. act 'Buy':
  458. cla
  459. money -= 2500
  460. skirt[3] = 1
  461. skirtH[3] = 60
  462. skirtB[3] = bedra
  463. gt 'shop', '<font color="green">You bought <b>White skirt with a striped shirt</b>.</font>'
  464. end
  465. end
  466. end
  467. if skirt[4] = 0:
  468. act 'Inspect Skin black skirt with a red blouse':
  469. cla
  470. *clr
  471. '<center><img src="images/clothes/skirt4.jpg"></center>'
  472. 'Black skirt under the skin with a red blouse.'
  473. 'Costs 2,500 rubles.'
  474. act 'Leave':gt 'shop'
  475. act 'Buy':
  476. cla
  477. money -= 2500
  478. skirt[4] = 1
  479. skirtH[4] = 60
  480. skirtB[4] = bedra
  481. gt 'shop', '<font color="green">You bought <b>Skin black skirt with a red blouse</b>.</font>'
  482. end
  483. end
  484. end
  485. if skirt[5] = 0:
  486. act 'Inspect Black skirt with a white blouse':
  487. cla
  488. *clr
  489. '<center><img src="images/clothes/skirt5.jpg"></center>'
  490. 'Black skirt with a white blouse.'
  491. 'Costs 2,500 rubles.'
  492. act 'Leave':gt 'shop'
  493. act 'Buy':
  494. cla
  495. money -= 2500
  496. skirt[5] = 1
  497. skirtH[5] = 60
  498. skirtB[5] = bedra
  499. gt 'shop', '<font color="green">You bought <b>Black skirt with a white blouse</b>.</font>'
  500. end
  501. end
  502. end
  503. if pants[1] = 0:
  504. act 'Inspect Pants with a blouse number 1':
  505. cla
  506. *clr
  507. '<center><img src="images/clothes/pants1.jpg"></center>'
  508. 'Pants with a blouse.'
  509. 'Costs 2,500 rubles.'
  510. act 'Leave':gt 'shop'
  511. act 'Buy':
  512. cla
  513. money -= 2500
  514. pants[1] = 1
  515. pantsH[1] = 60
  516. pantsB[1] = bedra
  517. gt 'shop', '<font color="green">You bought <b>Pants with a blouse number 1</b>.</font>'
  518. end
  519. end
  520. end
  521. if pants[2] = 0:
  522. act 'Inspect Pants with a blouse number 2':
  523. cla
  524. *clr
  525. '<center><img src="images/clothes/pants2.jpg"></center>'
  526. 'Pants with a blouse.'
  527. 'Costs 2,500 rubles.'
  528. act 'Leave':gt 'shop'
  529. act 'Buy':
  530. cla
  531. money -= 2500
  532. pants[2] = 1
  533. pantsH[2] = 60
  534. pantsB[2] = bedra
  535. gt 'shop', '<font color="green">You bought <b>Pants with a blouse number 2</b>.</font>'
  536. end
  537. end
  538. end
  539. if pants[3] = 0:
  540. act 'Inspect Pants with a blouse number 3':
  541. cla
  542. *clr
  543. '<center><img src="images/clothes/pants3.jpg"></center>'
  544. 'Pants with a blouse.'
  545. 'Costs 2,500 rubles.'
  546. act 'Leave':gt 'shop'
  547. act 'Buy':
  548. cla
  549. money -= 2500
  550. pants[3] = 1
  551. pantsH[3] = 60
  552. pantsB[3] = bedra
  553. gt 'shop', '<font color="green">You bought <b>Pants with a blouse number 3</b>.</font>'
  554. end
  555. end
  556. end
  557. if pants[4] = 0:
  558. act 'Inspect Pants with a blouse number 4':
  559. cla
  560. *clr
  561. '<center><img src="images/clothes/pants4.jpg"></center>'
  562. 'Pants with a blouse.'
  563. 'Costs 2,500 rubles.'
  564. act 'Leave':gt 'shop'
  565. act 'Buy':
  566. cla
  567. money -= 2500
  568. pants[4] = 1
  569. pantsH[4] = 60
  570. pantsB[4] = bedra
  571. gt 'shop', '<font color="green">You bought <b>Pants with a blouse number 4</b>.</font>'
  572. end
  573. end
  574. end
  575. if pants[5] = 0:
  576. act 'Inspect Pants with a blouse number 5':
  577. cla
  578. *clr
  579. '<center><img src="images/clothes/pants5.jpg"></center>'
  580. 'Pants with a blouse.'
  581. 'Costs 2,500 rubles.'
  582. act 'Leave':gt 'shop'
  583. act 'Buy':
  584. cla
  585. money -= 2500
  586. pants[5] = 1
  587. pantsH[5] = 60
  588. pantsB[5] = bedra
  589. gt 'shop', '<font color="green">You bought <b>Pants with a blouse number 5</b>.</font>'
  590. end
  591. end
  592. end
  593. end
  594. end
  595. !! Household appliances
  596. if $shoplocation = 'tech':
  597. cla
  598. *clr
  599. '<center><b><font color="maroon">Department of household appliances</font></b></center>'
  600. '<center><img src="images/etogame/shop5.jpg"></center>'
  601. if hour < 8 or hour > 20:
  602. 'The household appliance department is currently closed.'
  603. act 'Leave the appliance department':gt 'shop', 'start'
  604. exit
  605. end
  606. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  607. *pl '<center><table align="center">' + _
  608. FUNC ('$single_stock_item', 1, 'Small TV with a picture tube', 35000, 'TV', $CURLOC) + _
  609. FUNC ('$single_stock_item', 2, 'Large Plasma TV', 35000, 'TV', $CURLOC) + _
  610. FUNC ('$single_stock_item', 1, 'Computer', 25000, 'komp', $CURLOC) + _
  611. iif(komp > 0, FUNC ('$single_stock_item', 1, 'Computer game Dead Sunset', 500, 'GameCD2', $CURLOC), '') + _
  612. FUNC ('$single_stock_item', 1, 'Dishwasher', 50000, 'posudomashina', $CURLOC) + _
  613. FUNC ('$single_stock_item', 1, 'Washing machine', 50000, 'stiralka', $CURLOC) + _
  614. FUNC ('$single_stock_item', 1, 'Camera', 10000, 'zenit', $CURLOC) + _
  615. FUNC ('$single_stock_item', 1, 'Mini camera disguised as a cigarette pack', 40000, 'minifoto', $CURLOC) + _
  616. '</table></center>'
  617. clr
  618. gs 'stat'
  619. fcolor = rgb(0, 0, 0)
  620. bcolor = rgb(255, 255, 255)
  621. lcolor = rgb(106, 90, 205)
  622. act 'Leave the appliance department':gt 'shop', 'start'
  623. end
  624. !! Ice cream counter
  625. if $shoplocation = 'icecream':
  626. 'Ice cream is available for sale for 50 rubles.'
  627. act 'Move away from the counter':gt 'shop', 'start'
  628. if money >= 50:
  629. act 'Buy ice cream':
  630. cls
  631. money -= 50
  632. fat += 50
  633. manna += 500
  634. water = 20
  635. energy = 20
  636. !! perkice is currently only ever referenced in stat and only then to decrement itself if > 0, so it does not currently do anything
  637. perkice += 1
  638. gs 'stat'
  639. '<center><img src="images/etogame/icecreem.jpg"></center>'
  640. 'You bought ice cream and ate it not going far.'
  641. act 'Move away from the counter':gt 'shop', 'start'
  642. end
  643. end
  644. end
  645. --- shop ---------------------------------