1
0

shop 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785
  1. # shop
  2. !! This is the supermarket, located in several places
  3. !! Main entrance
  4. if $ARGS[0] = 'start':
  5. CLOSE ALL
  6. if sound = 0:PLAY 'sound/shop.mp3',30
  7. $shoplocation = 'main'
  8. end
  9. if $ARGS[0] = 'start' or $ARGS[0] = 'move':
  10. minut += 1
  11. end
  12. !! Main area
  13. if $shoplocation = 'main':
  14. cla
  15. *clr
  16. '<center><b><font color="maroon">Supermarket</font></b></center>'
  17. '<center><img src="images/etogame/shop.jpg"></center>'
  18. if hour < 8 or hour > 20:
  19. 'The supermarket is currently closed.'
  20. act 'Leave the store':gt $loc
  21. exit
  22. end
  23. '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.'
  24. 'There is a branch of communication giants <a href="exec:$shoplocation = ''megafon'' & gt ''shop'', ''move''">Bullhorn</a>.'
  25. '<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>.'
  26. clr
  27. gs 'stat'
  28. fcolor = rgb(0, 0, 0)
  29. bcolor = rgb(255, 255, 255)
  30. lcolor = rgb(106, 90, 205)
  31. !! The store in the town and in the altstart only
  32. if $loc = 'pavCommercial' and StoryLine = 1:
  33. if week < 6 and hour >= 8 and hour < 16:
  34. 'Your sister <a href="exec:$shoplocation = ''Anya'' & gt ''shop'', ''move''">Anya</a> is sitting at the cash register.'
  35. end
  36. end
  37. !! Store in the residential district
  38. if $loc = 'street':
  39. if rand(1, 20) = 20:
  40. if dimaQW = 0:
  41. 'By the store entrance a man is looking at you appreciatively.'
  42. act 'Return the look':gt 'event', 'dima'
  43. elseif dimaQW = 1:
  44. 'In the lobby of the store you notice Dima and you are frozen with fear, you want to run, but your legs wont respond.'
  45. 'Your heart is thumping in your chest, your vision narrows, you feel faint.'
  46. act 'Pass out':gt 'event', 'scoreslut1'
  47. else
  48. 'You meet the same Dima whos friend fucked and abused you. Dima grins confidently and says, "Hello."'
  49. act 'Hello':
  50. cla
  51. '"Come with me, My wife''s away", says Dima.'
  52. act 'Fuck no':gt 'shop', 'start'
  53. act 'I deserve this':
  54. cla
  55. *clr
  56. if rand(1, 2) = 1:
  57. cla
  58. sex += 1
  59. oral += 1
  60. throat += 1
  61. spafinloc = 12
  62. gs 'cum_manage'
  63. swallow += 1
  64. horny = 0
  65. minut += 10
  66. 'Dima takes you to his house and orders you to lie across the sofa. You get on into position, he calls you a bitch and a starts fucking you in the mouth.'
  67. '<center><img src="images/pics/gostDT2.jpg"></center>'
  68. 'Dima finally finishes in your mouth, you obediently swallow and lick the remnants of sperm off his big cock.'
  69. act 'Leave':gt 'street'
  70. else
  71. cla
  72. sex += 1
  73. anal += 1
  74. spafinloc = 4
  75. gs 'cum_manage'
  76. spank += 1
  77. boom = 5
  78. horny = 0
  79. minut += 30
  80. 'Dima has brings you to his house and right in the corridor begins to kiss and undress you. When you are naked he takes you to the bathroom.'
  81. 'There he unscrews the showerhead and puts the hose in your ass. Quickly you feel the fullness and Dima sits you on the toilet. After he rough enema, he bends you over and puts his big dick in your ass.'
  82. '<center><img src="images/pics/gostAnal2.jpg"></center>'
  83. 'Dima fucks you in the ass whilst slapping your butt, at first it is painful, but gradually you get it and it feels amazing. Finally, your ass fills with hot liquid and Dima moans and grabs your buttocks.'
  84. act 'Leave':gt 'street'
  85. end
  86. end
  87. end
  88. end
  89. end
  90. end
  91. '<br>The store is crowded with shoppers.'
  92. !! This is connected to the trade mission
  93. if TorgPredZ > 0:
  94. !! the location of the shop hasn''t been done today
  95. if ($loc = 'street' and StreetShopTPday ! daystart) or ($loc = 'Nord' and nordShopTPday ! daystart) or ($loc = 'down' and downShopTPday ! daystart):
  96. act 'Arrange products':
  97. if $loc = 'street':StreetShopTPday = daystart
  98. if $loc = 'Nord':nordShopTPday = daystart
  99. if $loc = 'down':downShopTPday = daystart
  100. cls
  101. mtprand = rand(40, 130)
  102. minut += mtprand
  103. TorgPredZ -= 1
  104. TorgPredZV += 1
  105. gs 'stat'
  106. '<center><img src="images/etogame/shop.jpg"></center>'
  107. 'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
  108. act 'Exit':gt 'shop', 'start'
  109. end
  110. end
  111. end
  112. act 'Leave the store':gt $loc
  113. exit
  114. end
  115. !! ATM
  116. if $shoplocation = 'ATM':
  117. '<center><b><font color="maroon">ATM</font></b></center>'
  118. '<center><img src="images/bank/atm.jpg"></center>'
  119. if bankAccount = 1:
  120. if karta >= 0:
  121. 'You have <<karta>> <b>₽</b> in your account.'
  122. 'You have an approved credit of <font color="blue"><<bankDebtLimit>></font> <b>₽</b>!'
  123. else
  124. 'You have a debt of <font color="red"><<-1 * karta>></font> <b>₽</b>.'
  125. 'You have an approved credit of <font color="blue"><<bankDebtLimit + karta>></font> <b>₽</b>!'
  126. end
  127. '<br>ATM Deposit Fee: 100 <b>₽</b>'
  128. if atmDeposit = 0:
  129. act 'Deposit money':
  130. cla
  131. minut += 5
  132. kartaINATM = input ("How much money you want to deposit into the account?")
  133. if kartaINATM <= 0 or kartaINATM > money:
  134. 'This is not a valid input.'
  135. else
  136. atmDeposit += kartaINATM - 100
  137. atmDepositDate = daystart + 2
  138. money -= kartaINATM
  139. '<br>You deposited <<kartaINATM>> <b>₽</b> into your account.'
  140. 'It will take 2 days for funds to be available. Your new balance will be <<karta+atmDeposit>> <b>₽</b>.'
  141. end
  142. gs 'stat'
  143. act 'Move away': gt 'shop'
  144. end
  145. else
  146. '<br>★ Processing deposit of <<atmDeposit>> <b>₽</b> in <<atmDepositDate - daystart>> days.'
  147. end
  148. if karta + bankDebtLimit > 0:
  149. act 'Withdraw money from the ATM':
  150. cla
  151. minut += 5
  152. kartaOUT = input ("How much money you want to withdraw?")
  153. if kartaOUT <= 0 or kartaOUT > karta + bankDebtLimit:
  154. '<br>Invalid operation.'
  155. else
  156. karta -= kartaOUT
  157. money += kartaOUT
  158. '<br>You withdraw <<kartaOUT>> <b>₽</b>. You have <<karta>> <b>₽</b> left in your bank account.'
  159. end
  160. gs 'stat'
  161. act 'Move away': gt 'shop'
  162. end
  163. else
  164. 'You don''t have any money left in the bank.'
  165. end
  166. else
  167. 'You don''t have a bank account yet!'
  168. end
  169. act 'Move away':gt 'shop', 'start'
  170. end
  171. !! Grocery
  172. if $shoplocation = 'grocery':
  173. cla
  174. *clr
  175. '<center><b><font color="maroon">Grocery</font></b></center>'
  176. '<center><img src="images/etogame/shop1.jpg"></center>'
  177. if hour < 8 or hour > 20:
  178. 'The grocery is currently closed.'
  179. act 'Leave the grocery':gt 'shop', 'start'
  180. exit
  181. end
  182. !! output from purchase
  183. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  184. *pl '<center><table align="center">' + _
  185. FUNC ('$stock_item', 1, 'Regular food', 50, 'eda', $CURLOC) + _
  186. FUNC ('$stock_item', 1, 'Diet food', 250, 'edaD', $CURLOC) + _
  187. FUNC ('$stock_item', 10, 'Tea biscuits', 300, 'pranik', $CURLOC) + _
  188. iif(bag > 0, FUNC ('$single_stock_item', 1, 'Bottle of water', 50, 'bottle', $CURLOC), '<tr><td>Bottle of water</td><td colspan=2>You need a handbag</td><td>for 50 <b>₽</b></td></tr>') + _
  189. iif(bag > 0, FUNC ('$single_stock_item', 1, 'Sandwich', 100, 'buterbrod', $CURLOC), '<tr><td>Sandwich</td><td colspan=2>You need a handbag</td><td>for 100 <b>₽</b></td></tr>') + _
  190. iif(bag > 0, FUNC ('$single_stock_item', 1, 'Bottle of wine', 500, 'wine', $CURLOC), '<tr><td>Bottle of wine</td><td colspan=2>You need a handbag</td><td>for 500 <b>₽</b></td></tr>') + _
  191. '</table></center>'
  192. clr
  193. gs 'stat'
  194. fcolor = rgb(0, 0, 0)
  195. bcolor = rgb(255, 255, 255)
  196. lcolor = rgb(106, 90, 205)
  197. act 'Leave the grocery':gt 'shop', 'start'
  198. end
  199. !! Cosmetics
  200. !! The scrunchies and hairpins sold here are from the Maruda Hair Mod
  201. if $shoplocation= 'cosmetics':
  202. cla
  203. *clr
  204. '<center><b><font color="maroon">Cosmetics Department</font></b></center>'
  205. '<center><img src="images/etogame/shop2.jpg"></center>'
  206. if hour < 8 or hour > 20:
  207. 'The cosmetics department is currently closed.'
  208. act 'Leave the cosmetics department':gt 'shop', 'start'
  209. exit
  210. end
  211. !! output from purchase
  212. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  213. *pl '<center><table align="center">' + _
  214. FUNC ('$stock_item', 50, 'Cosmetics', 1000, 'kosmetica', $CURLOC) + _
  215. FUNC ('$stock_item', 10, 'Razors', 500, 'stanok', $CURLOC) + _
  216. FUNC ('$stock_item', 20, 'Sunblock', 500, 'krem', $CURLOC) + _
  217. FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC) + _
  218. FUNC ('$stock_item', 20, 'Sanitary napkins', 200, 'sanpad', $CURLOC) + _
  219. FUNC ('$stock_item', 30, 'Shampoo', 500, 'shampoo', $CURLOC) + _
  220. FUNC ('$stock_item', 10, 'Hair scrunchies', 80, 'hscrunch', $CURLOC) + _
  221. FUNC ('$stock_item', 12, 'Hair pins', 100, 'hpingrip', $CURLOC)
  222. *pl iif(bag > 0, FUNC ('$stock_item', 10, 'Wipes', 100, 'salfetka', $CURLOC), '<tr><td>Wipes</td><td colspan=2>You need a handbag</td><td>for 100 <b>₽</b></td></tr>') + _
  223. iif(bag > 0, FUNC ('$stock_item', 10, 'Portable makeup', 1000, 'kosmetitka', $CURLOC), '<tr><td>Portable makeup</td><td colspan=2>You need a handbag</td><td>for 1000 <b>₽</b></td></tr>') + _
  224. iif(bag > 0, FUNC ('$stock_item', 20, 'Mouthwash', 400, 'mouthwash', $CURLOC), '<tr><td>Mouthwash</td><td colspan=2>You need a handbag</td><td>for 400 <b>₽</b></td></tr>') + _
  225. iif(bag > 0, FUNC ('$single_stock_item', 1, 'Comb', 150, 'greben', $CURLOC), '<tr><td>Comb</td><td colspan=2>You need a handbag</td><td>for 150 <b>₽</b></td></tr>') + _
  226. FUNC ('$single_stock_item', 1, 'Handbag', 5000, 'bag', $CURLOC) + _
  227. '</table></center>'
  228. clr
  229. gs 'stat'
  230. fcolor = rgb(0, 0, 0)
  231. bcolor = rgb(255, 255, 255)
  232. lcolor = rgb(106, 90, 205)
  233. act 'Leave the cosmetics department':gt 'shop', 'start'
  234. end
  235. !! Hardware
  236. if $shoplocation = 'hardware':
  237. cla
  238. *clr
  239. '<center><b><font color="maroon">Division of household goods</font></b></center>'
  240. '<center><img src="images/etogame/shop3.jpg"></center>'
  241. if hour < 8 or hour > 20:
  242. 'The hardware department is currently closed.'
  243. act 'Leave the hardware department':gt 'shop', 'start'
  244. exit
  245. end
  246. !! output from purchase
  247. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  248. *pl '<center><table align="center">' + _
  249. FUNC ('$stock_item', 20, 'Dishwashing detergent', 100, 'fairy', $CURLOC) + _
  250. FUNC ('$stock_item', 30, 'Clothing detergent', 250, 'poroshok', $CURLOC) + _
  251. FUNC ('$stock_item', 5, 'Plates', 300, 'cltarelka', $CURLOC) + _
  252. '</table></center>'
  253. clr
  254. gs 'stat'
  255. fcolor = rgb(0, 0, 0)
  256. bcolor = rgb(255, 255, 255)
  257. lcolor = rgb(106, 90, 205)
  258. act 'Leave the hardware department':gt 'shop', 'start'
  259. if poSkill >= 40:
  260. 'On the counter you can see that the fabric is suitable for teaching sewing. Bolt which is enough for one lesson stands 300 <b>₽</b>.'
  261. if tkan <= 0:'Now you do not have tissue'
  262. if tkan > 0:'Now you have enough tissue to <<tkan>> lessons'
  263. if money >= 300:
  264. act'Buy cloth':
  265. cls
  266. portion = input ("How much do you want to buy?")
  267. if portion <= 0:portion = 1
  268. if portion*300 > money:'You do not have enough money.'
  269. if portion*300 <= money:
  270. tkan += portion
  271. money = money - portion*300
  272. '<center><img src="images/etogame/kassa.jpg"></center>'
  273. 'You paid the cashier and bought cloth.'
  274. end
  275. gs'stat'
  276. act 'Move away from the counter':gt'shop','hos'
  277. end
  278. end
  279. end
  280. end
  281. !! Women''s clothing
  282. if $shoplocation = 'clothing':
  283. cla
  284. *clr
  285. '<center><b><font color="maroon">Department of Women''s Clothing</font></b></center>'
  286. '<center><img src="images/etogame/shop4.jpg"></center>'
  287. if hour < 8 or hour > 20:
  288. 'The women''s clothing department is currently closed.'
  289. act 'Leave the women''s clothing department':gt 'shop', 'start'
  290. exit
  291. end
  292. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  293. *pl '<center><table align="center">' + _
  294. FUNC ('$stock_item', 1, 'Underwear', 300, 'clrbelo', $CURLOC) + _
  295. FUNC ('$stock_item', 7, 'Sale pack of underwear', 2000, 'clrbelo', $CURLOC) + _
  296. '</table></center>'
  297. '<br/>Women''s clothing cost 2,500 <b>₽</b> each.'
  298. clr
  299. gs 'stat'
  300. fcolor = rgb(0, 0, 0)
  301. bcolor = rgb(255, 255, 255)
  302. lcolor = rgb(106, 90, 205)
  303. act 'Leave the women''s clothing department':gt 'shop', 'start'
  304. if konki!1:
  305. 'A pair of ice-skates are available for 500 <b>₽</b>.'
  306. if money >= 500:
  307. act 'Buy skates for 500 <b>₽</b>':
  308. cla
  309. *clr
  310. money = money - 500
  311. konki = 1
  312. '<center><img src="images/nigma/gor/lake/Katok/konki_shop.jpg"></center>'
  313. 'You buy a pair of skates.'
  314. act 'Move away from the counter':gt'shop'
  315. end
  316. end
  317. end
  318. if money >= 2500:
  319. if office[1] = 0:
  320. act 'Inspect Office clothes number 1':
  321. cla
  322. *clr
  323. '<center><img src="images/Clothing/5office/Office1.jpg"></center>'
  324. 'Office clothes.'
  325. 'Costs 2,500 <b>₽</b>.'
  326. act 'Leave':gt'shop'
  327. act 'Buy':
  328. cla
  329. money -= 2500
  330. office[1] = 1
  331. officeH[1] = 60
  332. officeB[1] = bedra
  333. gt'shop', '<font color="green">You bought <b>Office clothes number 1</b>.</font>'
  334. end
  335. end
  336. end
  337. if office[2] = 0:
  338. act 'Inspect Office clothes number 2':
  339. cla
  340. *clr
  341. '<center><img src="images/Clothing/5office/Office2.jpg"></center>'
  342. 'Office clothes.'
  343. 'Costs 2,500 <b>₽</b>.'
  344. act 'Leave':gt'shop'
  345. act 'Buy':
  346. cla
  347. money -= 2500
  348. office[2] = 1
  349. officeH[2] = 60
  350. officeB[2] = bedra
  351. gt'shop', '<font color="green">You bought <b>Office clothes number 2</b>.</font>'
  352. end
  353. end
  354. end
  355. if cheap[68] = 0:
  356. act 'Inspect cheap clothes 102':
  357. cla
  358. *clr
  359. '<center><img src="images/Clothing/1cheap/Cheap68.jpg"></center>'
  360. 'A cheap skirt and top.'
  361. 'Costs 2,500 <b>₽</b>.'
  362. act 'Leave':gt 'shop'
  363. act 'Buy':
  364. cla
  365. money -= 2500
  366. cheap[68] = 1
  367. cheapH[68] = 60
  368. cheapB[68] = bedra
  369. gt 'shop', '<font color="green">You bought <b>cheap clothes 68</b>.</font>'
  370. end
  371. end
  372. end
  373. if cheap[3] = 0:
  374. act 'Inspect cheap clothes 3':
  375. cla
  376. *clr
  377. '<center><img src="images/Clothing/1cheap/Cheap3.jpg"></center>'
  378. 'A cheap skirt and top.'
  379. 'Costs 2,500 <b>₽</b>.'
  380. act 'Leave':gt 'shop'
  381. act 'Buy':
  382. cla
  383. money -= 2500
  384. cheap[3] = 1
  385. cheapH[3] = 60
  386. cheapB[3] = bedra
  387. gt 'shop', '<font color="green">You bought <b>cheap clothes 3</b>.</font>'
  388. end
  389. end
  390. end
  391. if cheap[80] = 0:
  392. act 'Inspect cheap clothes 80':
  393. cla
  394. *clr
  395. '<center><img src="images/Clothing/1cheap/Cheap80.jpg"></center>'
  396. 'Cheap shorts and top.'
  397. 'Costs 2,500 <b>₽</b>.'
  398. act 'Leave':gt 'shop'
  399. act 'Buy':
  400. cla
  401. money -= 2500
  402. cheap[80] = 1
  403. cheapH[80] = 60
  404. cheapB[80] = bedra
  405. gt 'shop', '<font color="green">You bought <b>cheap clothes 80</b>.</font>'
  406. end
  407. end
  408. end
  409. if cheap[10] = 0:
  410. act 'Inspect cheap clothes 10':
  411. cla
  412. *clr
  413. '<center><img src="images/Clothing/1cheap/Cheap10.jpg"></center>'
  414. 'A cheap dress.'
  415. 'Costs 2,500 <b>₽</b>.'
  416. act 'Leave':gt 'shop'
  417. act 'Buy':
  418. cla
  419. money -= 2500
  420. cheap[10] = 1
  421. cheapH[10] = 60
  422. cheapB[10] = bedra
  423. gt 'shop', '<font color="green">You bought <b>cheap clothes 10</b>.</font>'
  424. end
  425. end
  426. end
  427. if cheap[45] = 0:
  428. act 'Inspect cheap clothes 45':
  429. cla
  430. *clr
  431. '<center><img src="images/Clothing/1cheap/Cheap45.jpg"></center>'
  432. 'Cheap jeans and top.'
  433. 'Costs 2,500 <b>₽</b>.'
  434. act 'Leave':gt 'shop'
  435. act 'Buy':
  436. cla
  437. money -= 2500
  438. cheap[45] = 1
  439. cheapH[45] = 60
  440. cheapB[45] = bedra
  441. gt 'shop', '<font color="green">You bought <b>cheap clothes 45</b>.</font>'
  442. end
  443. end
  444. end
  445. if cheap[51] = 0:
  446. act 'Inspect cheap clothes 51':
  447. cla
  448. *clr
  449. '<center><img src="images/Clothing/1cheap/Cheap51.jpg"></center>'
  450. 'Cheap leggings and top.'
  451. 'Costs 2,500 <b>₽</b>.'
  452. act 'Leave':gt 'shop'
  453. act 'Buy':
  454. cla
  455. money -= 2500
  456. cheap[51] = 1
  457. cheapH[51] = 60
  458. cheapB[51] = bedra
  459. gt 'shop', '<font color="green">You bought <b>cheap clothes 51</b>.</font>'
  460. end
  461. end
  462. end
  463. if swimwear[4] = 0:
  464. act 'Inspect swimwear 4':
  465. cla
  466. *clr
  467. '<center><img src="images/Clothing/12swimwear/Swimwear4.jpg"></center>'
  468. 'Swimwear.'
  469. 'Costs 1,000 <b>₽</b>.'
  470. act 'Leave':gt 'shop'
  471. act 'Buy':
  472. cla
  473. money -= 1000
  474. swimwear[4] = 1
  475. swimwearH[4] = 60
  476. swimwearB[4] = bedra
  477. gt 'shop', '<font color="green">You bought <b>swimwear 4</b>.</font>'
  478. end
  479. end
  480. end
  481. if exercise[4] = 0:
  482. act 'Inspect exercise clothes 4':
  483. cla
  484. *clr
  485. '<center><img src="images/Clothing/7exercise/Exercise4.jpg"></center>'
  486. 'Exercise clothes.'
  487. 'Costs 2,500 <b>₽</b>.'
  488. act 'Leave':gt 'shop'
  489. act 'Buy':
  490. cla
  491. money -= 2500
  492. exercise[4] = 1
  493. exerciseH[4] = 60
  494. gt 'shop', '<font color="green">You bought <b>exercise clothes 4</b>.</font>'
  495. end
  496. end
  497. end
  498. if exercise[20] = 0:
  499. act 'Inspect exercise clothes 20':
  500. cla
  501. *clr
  502. '<center><img src="images/Clothing/7exercise/Exercise20.jpg"></center>'
  503. 'Exercise clothes.'
  504. 'Costs 2,500 <b>₽</b>.'
  505. act 'Leave':gt 'shop'
  506. act 'Buy':
  507. cla
  508. money -= 2500
  509. exercise[20] = 1
  510. exerciseH[20] = 60
  511. gt 'shop', '<font color="green">You bought <b>exercise clothes 31</b>.</font>'
  512. end
  513. end
  514. end
  515. if coat[1] = 0:
  516. act 'Inspect coat 1':
  517. cla
  518. *clr
  519. '<center><img src="images/Clothing/11coat/Coat1.jpg"></center>'
  520. 'A coat.'
  521. 'Costs 7,500 <b>₽</b>.'
  522. act 'Leave':gt 'shop'
  523. act 'Buy':
  524. cla
  525. money -= 5000
  526. coat[1] = 1
  527. coatH[1] = 60
  528. gt 'shop', '<font color="green">You bought <b>coat 1</b>.</font>'
  529. end
  530. end
  531. end
  532. end
  533. end
  534. !! Household appliances
  535. if $shoplocation = 'tech':
  536. cla
  537. *clr
  538. '<center><b><font color="maroon">Department of household appliances</font></b></center>'
  539. '<center><img src="images/etogame/shop5.jpg"></center>'
  540. if hour < 8 or hour > 20:
  541. 'The household appliance department is currently closed.'
  542. act 'Leave the appliance department':gt 'shop', 'start'
  543. exit
  544. end
  545. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  546. *pl '<center><table align="center">' + _
  547. iif(housr > 0, FUNC ('$single_stock_item', 1, 'Scondhand Small CRT TV', 5000, 'TV', $CURLOC), '<tr><td>Scondhand Small CRT TV</td><td colspan=2>costs 5000 <b>₽</b></td><td>You need your own home</td></tr>') + _
  548. iif(housr > 0, FUNC ('$single_stock_item', 2, 'Large Plasma TV', 35000, 'TV', $CURLOC), '<tr><td>Large Plasma TV</td><td colspan=2>costs 35000 <b>₽</b></td><td>You need your own home</td></tr>') + _
  549. FUNC ('$single_stock_item', 1, 'Computer', 25000, 'komp', $CURLOC)
  550. *p iif(komp > 0, FUNC ('$single_stock_item', 1, 'Computer game Dead Sunset', 500, 'GameCD2', $CURLOC), '') + _
  551. iif(housr > 0, FUNC ('$single_stock_item', 1, 'Dishwasher', 50000, 'posudomashina', $CURLOC), '<tr><td>Dishwasher</td><td colspan=2>costs 50000 <b>₽</b></td><td>You need your own home</td></tr>') + _
  552. iif(housr > 0, FUNC ('$single_stock_item', 1, 'Washing machine', 50000, 'stiralka', $CURLOC), '<tr><td>Washing machine</td><td colspan=2>costs 50000 <b>₽</b></td><td>You need your own home</td></tr>') + _
  553. FUNC ('$single_stock_item', 1, 'Camera', 10000, 'zenit', $CURLOC) + _
  554. FUNC ('$single_stock_item', 1, 'Mini camera disguised as a cigarette pack', 40000, 'minifoto', $CURLOC)
  555. *p iif((vasya_shulgin>=30 and webcamera = 0) or (camwhore = 1 and webcamera = 0), FUNC ('$single_stock_item', 1, 'Webcam', 10000, 'webcamera', $CURLOC), '') + _
  556. '</table></center>'
  557. clr
  558. gs 'stat'
  559. fcolor = rgb(0, 0, 0)
  560. bcolor = rgb(255, 255, 255)
  561. lcolor = rgb(106, 90, 205)
  562. act 'Leave the appliance department':gt 'shop', 'start'
  563. end
  564. !! Ice cream counter
  565. if $shoplocation = 'icecream':
  566. 'Ice cream is available for sale for 50 <b>₽</b>.'
  567. act 'Move away from the counter':gt 'shop', 'start'
  568. if money >= 50:
  569. act 'Buy ice cream':
  570. cls
  571. money -= 50
  572. fat += 3
  573. manna += 500
  574. water += 60
  575. energy += 30
  576. cumspclnt = 2
  577. gs 'cum_cleanup'
  578. fbreath = 0
  579. gs 'stat'
  580. '<center><img src="images/etogame/icecreem.jpg"></center>'
  581. 'You bought ice cream and ate it not going far.'
  582. act 'Move away from the counter':gt 'shop', 'start'
  583. end
  584. end
  585. end
  586. if $shoplocation = 'megafon':
  587. cls
  588. minut+=3
  589. gs'stat'
  590. i = 0
  591. '<center><b><font color = maroon>Salon connection Megaphone</font></B></center>'
  592. '<center><img src="images/pic/phone/megafon2.jpg" ></center>'
  593. *pl '<center><table align="center">'
  594. :loopcard
  595. if i = 0:
  596. n = 5
  597. price = 60
  598. $buy_link = '<a' + iif(money >= 60, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  599. elseif i = 1:
  600. n = 10
  601. price = 115
  602. $buy_link = '<a' + iif(money >= 115, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  603. elseif i = 2:
  604. n = 20
  605. price = 220
  606. $buy_link = '<a' + iif(money >= 220, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  607. elseif i = 3:
  608. n = 50
  609. price = 520
  610. $buy_link = '<a' + iif(money >= 520, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  611. end
  612. i += 1
  613. '<tr><td align="center"><<n>> hour internet card </td><td align="right">(you have <<internet>> hours of internet access) </td><td align="right"><<$buy_link>> </td><td align="left">for <<price>> <b>₽</b></td></tr>'
  614. if i < 4:
  615. jump 'loopcard'
  616. end
  617. '</table></center>'
  618. act 'Exit Department':gt'shop','start'
  619. if money > 0:
  620. act 'Put the money on the phone':
  621. cla
  622. set minut = minut + 5
  623. obmennik = input ("How many <b>₽</b> do you want to deposit?")
  624. if obmennik <= 0:
  625. '<center><br><b>Do you want to think again?</b></center>'
  626. act 'Exit Department':gt'shop','start'
  627. else
  628. if money < obmennik:
  629. '<center><br>You do not have <b><<obmennik>></b> <b>₽</b>.</center>'
  630. act 'Exit Department':gt'shop','start'
  631. end
  632. if money >= obmennik:
  633. set balans = balans + obmennik
  634. set money = money - obmennik
  635. clr
  636. gs'stat'
  637. '<center><br>You put <b><<obmennik>></b> <b>₽</b> to the account.</center>'
  638. act 'Exit Department':gt'shop','start'
  639. end
  640. end
  641. end
  642. end
  643. end
  644. if $shoplocation = 'Anya':
  645. cla
  646. '<center><img src="images/qwest/alter/sister/sister.jpg"></center>'
  647. gs'dinsister'
  648. dynamic $sischecks
  649. '"<<$name>>, do not disturb me at work, can''t you see I have customers?""'
  650. act '<B>Move away</B>':gt'shop','start'
  651. end
  652. --- shop ---------------------------------