1
0

shop.qsrc 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607
  1. # shop
  2. !! This is the supermarket, located in several places
  3. !! Main entrance
  4. if $ARGS[0] = 'start':
  5. $menu_loc = 'shop'
  6. $menu_arg = 'start'
  7. menu_off = 0
  8. CLOSE ALL
  9. if sound = 0:PLAY 'sound/shop.mp3',30
  10. $shoplocation = 'main'
  11. end
  12. if $ARGS[0] = 'start' or $ARGS[0] = 'move': minut += 1
  13. !! Main area
  14. if $shoplocation = 'main':
  15. *clr & cla
  16. '<center><b><font color="maroon">Supermarket</font></b></center>'
  17. '<center><img <<$set_imgh>> src="images/locations/shared/store/shop.jpg"></center>'
  18. if hour < 8 or hour > 20:
  19. 'The supermarket is currently closed.'
  20. act 'Leave the store':minut += 3 & 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''">MegaFon</a>.'
  25. 'On the other side is on the wall <a href="exec: gs ''noticeboard'',''start''">Public notice board</a>, where you can check various private and official advertisement.'
  26. '<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>.'
  27. gs 'stat'
  28. gs 'themes', 'indoors'
  29. !! The store in the town and in the altstart only
  30. if $loc = 'pavCommercial' and StoryLine = 1:
  31. if week < 6 and hour >= 8 and hour < 16:
  32. *nl
  33. 'Your sister <a href="exec:$shoplocation = ''Anya'' & gt ''shop'', ''move''">Anya</a> is sitting at the cash register.'
  34. end
  35. end
  36. !! Store in the residential district
  37. if $loc = 'street':
  38. if rand(1, 20) = 20:
  39. if dimaQW = 0:
  40. 'By the store entrance a man is looking at you appreciatively.'
  41. act 'Return the look':gt 'event', 'dima'
  42. elseif dimaQW = 1:
  43. 'In the lobby of the store you notice Dima and you are frozen with fear, you want to run, but your legs won''t respond.'
  44. 'Your heart is thumping in your chest, your vision narrows, you feel faint.'
  45. act 'Pass out':gt 'event', 'scoreslut1'
  46. else
  47. 'You meet the same Dima whos friend fucked and abused you. Dima grins confidently and says, "Hello."'
  48. act 'Hello':
  49. cla
  50. '"Come with me, My wife''s away", says Dima.'
  51. act 'Fuck no':gt 'shop', 'start'
  52. act 'I deserve this':
  53. *clr & cla
  54. if rand(1, 2) = 1:
  55. cla
  56. stat['vaginal'] += 1
  57. oral += 1
  58. pcs_throat += 1
  59. spafinloc = 12
  60. gs 'cum_manage'
  61. swallow += 1
  62. pcs_horny = 0
  63. minut += 10
  64. '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.'
  65. '<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/gostdt2.jpg"></center>'
  66. 'Dima finally finishes in your mouth, you obediently swallow and lick the remnants of sperm off his big cock.'
  67. act 'Leave': minut += 3 & gt 'street'
  68. else
  69. cla
  70. stat['vaginal'] += 1
  71. stat['anal'] += 1
  72. spafinloc = 4
  73. gs 'cum_manage'
  74. spank += 1
  75. boom = 5
  76. pcs_horny = 0
  77. minut += 30
  78. '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.'
  79. '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 the rough enema, he bends you over and puts his big dick in your ass.'
  80. '<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/gostanal2.jpg"></center>'
  81. '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.'
  82. act 'Leave': minut += 3 & gt 'street'
  83. end
  84. end
  85. end
  86. end
  87. end
  88. end
  89. '<br>The store is crowded with shoppers.'
  90. !! This is connected to the trade mission
  91. if TorgPredZ > 0:
  92. !! the location of the shop hasn''t been done today
  93. if ($loc = 'street' and StreetShopTPday ! daystart) or ($loc = 'Nord' and nordShopTPday ! daystart) or ($loc = 'torgcentr' and downShopTPday ! daystart):
  94. act 'Arrange products':
  95. *clr & cla
  96. if $loc = 'street':StreetShopTPday = daystart
  97. if $loc = 'Nord':nordShopTPday = daystart
  98. if $loc = 'torgcentr':downShopTPday = daystart
  99. mtprand = rand(40, 130)
  100. minut += mtprand
  101. TorgPredZ -= 1
  102. TorgPredZV += 1
  103. gs 'stat'
  104. '<center><img <<$set_imgh>> src="images/locations/shared/store/shop.jpg"></center>'
  105. 'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
  106. act 'Exit':gt 'shop', 'start'
  107. end
  108. end
  109. end
  110. act 'Leave the store': minut += 3 & gt $loc
  111. exit
  112. end
  113. if $shoplocation = 'ATM':
  114. '<center><b><font color="maroon">ATM</font></b></center>'
  115. '<center><img <<$set_imgh>> src="images/locations/shared/store/atm.jpg"></center>'
  116. if bankAccount = 1:
  117. if karta >= 0:
  118. 'You have <<karta>> <b>₽</b> in your account.'
  119. 'You have an overdraft limit of <font color="blue"><<bankDebtLimit>></font>!'
  120. else
  121. 'You are overdrawn by <font color="red"><<-1 * karta>> <b>₽</b></font>.'
  122. 'You have a remaining credit limit of <font color="blue"><<bankDebtLimit + karta>></font>!'
  123. end
  124. '<br>ATM Deposit Fee: 100 <b>₽</b>'
  125. if atmDeposit = 0:
  126. act 'Deposit money':
  127. cla
  128. minut += 5
  129. kartaINATM = input ("How much money you want to deposit into the account? Note: A service charge of 100 <b>₽</b> will be deducted from the amount deposited.")
  130. if kartaINATM < 100 or kartaINATM > money:
  131. 'This is not a valid input.'
  132. else
  133. atmDeposit += kartaINATM - 100
  134. atmDepositDate = daystart + 2
  135. money -= kartaINATM
  136. '<br>You deposited <<kartaINATM>> <b>₽</b> into your account.'
  137. 'It will take 2 days for funds to be available. Your new balance will be <<karta+atmDeposit>> <b>₽</b>.'
  138. end
  139. gs 'stat'
  140. act 'Move away': gt 'shop'
  141. end
  142. else
  143. '<br>★ Processing deposit of <<atmDeposit>> <b>₽</b> in <<atmDepositDate - daystart>> days.'
  144. end
  145. if karta + bankDebtLimit > 0:
  146. act 'Withdraw money from the ATM':
  147. cla
  148. minut += 5
  149. kartaOUT = input ("How much money you want to withdraw?")
  150. if kartaOUT <= 0 or kartaOUT > karta + bankDebtLimit:
  151. '<br>Invalid operation.'
  152. else
  153. karta -= kartaOUT
  154. money += kartaOUT
  155. if karta > 0:
  156. '<br>You withdraw <<kartaOUT>> <b>₽</b>. You have <<karta>> <b>₽</b> left in your bank account.'
  157. elseif karta = 0:
  158. '<br>You withdraw <<kartaOUT>> <b>₽</b>. You have no money left in your bank account.'
  159. else
  160. '<br>You withdraw <<kartaOUT>> <b>₽</b>. <font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>.</font>'
  161. end
  162. end
  163. gs 'stat'
  164. act 'Move away': gt 'shop'
  165. end
  166. else
  167. 'You have maxed out your overdraft.'
  168. end
  169. else
  170. 'You don''t have a bank account yet!'
  171. end
  172. act 'Move away':gt 'shop', 'start'
  173. end
  174. if $shoplocation = 'grocery':
  175. *clr & cla
  176. '<center><b><font color="maroon">Grocery</font></b></center>'
  177. '<center><img <<$set_imgh>> src="images/locations/shared/store/shop1.jpg"></center>'
  178. if hour < 8 or hour > 20:
  179. 'The grocery is currently closed.'
  180. act 'Leave the grocery':gt 'shop', 'start'
  181. exit
  182. end
  183. !! output from purchase
  184. if $message ! '':
  185. '<center>'+$message+'</center>'
  186. killvar '$message'
  187. else
  188. ''
  189. end
  190. *pl '<center><table align="center" width=80%>'
  191. *P FUNC ('$stock_item', 1, 'Regular food', 80, 'eda', $CURLOC)
  192. *P FUNC ('$stock_item', 10, 'Regular food', 800, 'eda', $CURLOC)
  193. *P FUNC ('$stock_item', 1, 'Diet food', 300, 'edaD', $CURLOC)
  194. *P FUNC ('$stock_item', 10, 'Diet food', 3000, 'edaD', $CURLOC)
  195. *P FUNC ('$stock_item', 10, 'Tea biscuits', 400, 'pranik', $CURLOC)
  196. *P FUNC ('$single_stock_item', 1, 'Bottle of water', 100, 'bottle', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
  197. *P FUNC ('$single_stock_item', 1, 'Sandwich', 100, 'buterbrod', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
  198. *P FUNC ('$single_stock_item', 1, 'Cheap Bottle of wine', 200, 'wine', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
  199. *P '</table></center>'
  200. gs 'stat'
  201. gs 'themes', 'indoors'
  202. act 'Leave the grocery':gt 'shop', 'start'
  203. end
  204. if $shoplocation= 'cosmetics':
  205. *clr & cla
  206. '<center><b><font color="maroon">Cosmetics Department</font></b></center>'
  207. '<center><img <<$set_imgh>> src="images/locations/shared/store/shop2.jpg"></center>'
  208. if hour < 8 or hour > 20:
  209. 'The cosmetics department is currently closed.'
  210. act 'Leave the cosmetics department':gt 'shop', 'start'
  211. exit
  212. end
  213. !! output from purchase
  214. if $message ! '':
  215. '<center>'+$message+'</center>'
  216. killvar '$message'
  217. else
  218. ''
  219. end
  220. *pl '<center><table align="center" width=80%>'
  221. *P FUNC ('$stock_item', 50, 'Cosmetics', 1300, 'kosmetica', $CURLOC)
  222. *P FUNC ('$stock_item', 10, 'Plain false lashes', 1500, 'falselashesplain',$CURLOC)
  223. *P FUNC ('$stock_item', 3, 'Mink false lashes', 900, 'falselashesmink',$CURLOC)
  224. *P FUNC ('$stock_item', 40, 'Razors', 700, 'stanok', $CURLOC)
  225. *P FUNC ('$stock_item', 20, 'Sunblock', 500, 'krem', $CURLOC)
  226. *P FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC)
  227. *P FUNC ('$stock_item', 20, 'Sanitary napkins', 100, 'sanpad', $CURLOC)
  228. *P FUNC ('$stock_item', 30, 'Shampoo', 250, 'shampoo', $CURLOC)
  229. *P FUNC ('$stock_item', 10, 'Hair scrunchies', 80, 'hscrunch', $CURLOC)
  230. *P FUNC ('$stock_item', 12, 'Hair pins', 100, 'hpingrip', $CURLOC)
  231. *P FUNC ('$stock_item', 10, 'Wipes', 50, 'salfetka', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
  232. *P FUNC ('$stock_item', 10, 'Portable makeup', 700, 'kosmetitka', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
  233. *P FUNC ('$stock_item', 20, 'Mouthwash', 150, 'mouthwash', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
  234. *P FUNC ('$single_stock_item', 1, 'Comb', 150, 'greben', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
  235. *P '</table></center>'
  236. gs 'stat'
  237. gs 'themes', 'indoors'
  238. act 'Leave the cosmetics department': gt 'shop', 'start'
  239. if $loc = 'torgcentr': gs 'shoplifting', 'city'
  240. end
  241. if $shoplocation = 'hardware':
  242. *clr & cla
  243. '<center><b><font color="maroon">Division of household goods</font></b></center>'
  244. '<center><img <<$set_imgh>> src="images/locations/shared/store/shop3.jpg"></center>'
  245. if hour < 8 or hour > 20:
  246. 'The hardware department is currently closed.'
  247. act 'Leave the hardware department':gt 'shop', 'start'
  248. exit
  249. end
  250. !! output from purchase
  251. if $message ! '':
  252. '<center>'+$message+'</center>'
  253. killvar '$message'
  254. else
  255. ''
  256. end
  257. *pl '<center><table align="center" width=80%>'
  258. *P FUNC ('$stock_item', 20, 'Dishwashing detergent', 500, 'fairy', $CURLOC)
  259. *P FUNC ('$stock_item', 30, 'Clothing detergent', 500, 'poroshok', $CURLOC)
  260. *P FUNC ('$stock_item', 5, 'Plates', 450, 'cltarelka', $CURLOC)
  261. *P FUNC ('$stock_item', 5, 'Fabric', 250, 'tkan', $CURLOC)
  262. *P FUNC ('$single_stock_item', 1, 'Sewing kit', 500, 'sewing_kit', $CURLOC)
  263. *P FUNC ('$single_stock_item', 1, 'Umbrella', 1000, 'umbrella', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a purse')
  264. *P '</table></center>'
  265. *nl
  266. gs 'stat'
  267. gs 'themes', 'indoors'
  268. act 'Leave the hardware department':gt 'shop', 'start'
  269. 'On the counter you can see fabric suitable for sewing. It''s sold in large squares costing 50 <b>₽</b> each. You have <<tkan>> squares of fabric.'
  270. end
  271. if $shoplocation = 'clothing':
  272. *clr & cla
  273. '<center><b><font color="maroon">Department of Women''s Clothing</font></b></center>'
  274. '<center><img <<$set_imgh>> src="images/locations/shared/store/shop4.jpg"></center>'
  275. if hour < 8 or hour > 20:
  276. 'The women''s clothing department is currently closed.'
  277. act 'Leave the women''s clothing department':gt 'shop', 'start'
  278. exit
  279. else
  280. if $message ! '':
  281. '<center>'+$message+'</center>'
  282. killvar '$message'
  283. else
  284. ''
  285. end
  286. 'Women''s clothing at unbeatable prices, panties and bras 300<b>₽</b> each'
  287. gs 'stat'
  288. gs 'themes', 'indoors'
  289. act 'Leave the women''s clothing department':gt 'shop', 'start'
  290. act 'View clothing': $shoplocation = 'clothing1' & gt 'shop'
  291. act 'View underwear': $shoplocation = 'underwear' & gt 'shop'
  292. if swimwear[4] = 0:
  293. act 'View swimwear':
  294. *clr & cla
  295. '<center><img <<$set_imgh>> src="images/pc/clothing/12swimwear/4.jpg"></center>'
  296. gs 'clothing_attributes', 'swimwear', 4
  297. 'Swimwear 4'
  298. FUNC('$clothing_name', 'swimwear', 4)
  299. if CloInhibit > pcs_inhib:'You don''t feel daring enough to buy an outfit this revealing.'
  300. 'Costs 1,000 <b>₽</b>.'
  301. act 'Leave':gt 'shop'
  302. if money >= 1000 and CloInhibit <= pcs_inhib:
  303. act 'Buy':
  304. cla
  305. money -= 1000
  306. swimwear[4] = 1
  307. swimwearH[4] = 60
  308. swimwearB[4] = pcs_hips
  309. gt 'shop', '<font color="green">You bought <b>swimwear 4</b>.</font>'
  310. end
  311. end
  312. end
  313. end
  314. if coat[1] = 0:
  315. act 'View coats':
  316. *clr & cla
  317. '<center><img <<$set_imgh>> src="images/pc/clothing/11coat/1.jpg"></center>'
  318. gs 'clothing_attributes', 'coat', 1
  319. 'Coat 1'
  320. FUNC('$clothing_name', 'coat', 1)
  321. if CloInhibit > pcs_inhib:'You don''t feel daring enough to buy an outfit this revealing.'
  322. 'Costs 5,000 <b>₽</b>.'
  323. act 'Leave':gt 'shop'
  324. if money >= 5000 and CloInhibit <= pcs_inhib:
  325. act 'Buy':
  326. cla
  327. money -= 5000
  328. coat[1] = 1
  329. coatH[1] = 60
  330. gt 'shop', '<font color="green">You bought <b>coat 1</b>.</font>'
  331. end
  332. end
  333. end
  334. end
  335. if konki!1:
  336. 'A pair of ice-skates are available for 3000 <b>₽</b>.'
  337. if money >= 3000:
  338. act 'Buy ice skates (3000 <b>₽</b>)':
  339. *clr & cla
  340. money -= 3000
  341. konki = 1
  342. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/konki_shop.jpg"></center>'
  343. 'You buy a pair of skates.'
  344. act 'Move away from the counter':gt'shop'
  345. end
  346. end
  347. end
  348. end
  349. end
  350. if $shoplocation = 'clothing1':
  351. *clr & cla
  352. if $loc ! 'shop': $loc_bak = $loc
  353. $loc = 'shop'
  354. '<center><B>Click on an outfit to view details</B></center>'
  355. if office[1] = 0: *p '<a href="exec:gt ''clothing'', ''view_clothing_item'', ''shop'', ''office'', 1, 3000"><img src="images/pc/clothing/5office/1.jpg" height="250" /></a>'
  356. if office[2] = 0: *p '<a href="exec:gt ''clothing'', ''view_clothing_item'', ''shop'', ''office'', 2, 3000"><img src="images/pc/clothing/5office/2.jpg" height="250" /></a>'
  357. *nl
  358. if cheap[68] = 0: *p '<a href="exec:gt ''clothing'', ''view_clothing_item'', ''shop'', ''cheap'', 68, 1500"><img src="images/pc/clothing/1cheap/68.jpg" height="250" /></a>'
  359. if cheap[3] = 0: *p '<a href="exec:gt ''clothing'', ''view_clothing_item'', ''shop'', ''cheap'', 3, 1500"><img src="images/pc/clothing/1cheap/3.jpg" height="250" /></a>'
  360. if cheap[80] = 0: *p '<a href="exec:gt ''clothing'', ''view_clothing_item'', ''shop'', ''cheap'', 80, 1500"><img src="images/pc/clothing/1cheap/80.jpg" height="250" /></a>'
  361. if cheap[10] = 0: *p '<a href="exec:gt ''clothing'', ''view_clothing_item'', ''shop'', ''cheap'', 10, 1500"><img src="images/pc/clothing/1cheap/10.jpg" height="250" /></a>'
  362. if cheap[45] = 0: *p '<a href="exec:gt ''clothing'', ''view_clothing_item'', ''shop'', ''cheap'', 45, 1500"><img src="images/pc/clothing/1cheap/45.jpg" height="250" /></a>'
  363. if cheap[51] = 0: *p '<a href="exec:gt ''clothing'', ''view_clothing_item'', ''shop'', ''cheap'', 51, 1500"><img src="images/pc/clothing/1cheap/51.jpg" height="250" /></a>'
  364. *nl
  365. if exercise[4] = 0: *p '<a href="exec:gt ''clothing'', ''view_clothing_item'', ''shop'', ''exercise'', 4, 3000"><img src="images/pc/clothing/7exercise/4.jpg" height="250" /></a>'
  366. if exercise[20] = 0: *p '<a href="exec:gt ''clothing'', ''view_clothing_item'', ''shop'', ''exercise'', 20, 3000"><img src="images/pc/clothing/7exercise/20.jpg" height="250" /></a>'
  367. act 'Return':
  368. $loc = $loc_bak
  369. $shoplocation = 'clothing'
  370. gt 'shop'
  371. end
  372. end
  373. !! Women''s clothing underwear viewer
  374. if $shoplocation = 'underwear':
  375. *clr & cla
  376. if $loc ! 'shop': $loc_bak = $loc
  377. $loc = 'shop'
  378. '<center><B>Click on an item to view details</B></center>'
  379. if basic_panties[7] = 0:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''cheap'', 7, 300"><img src="images/pc/panties/basic/7.jpg" height="250" /></a>'
  380. if basic_panties[9] = 0:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''cheap'', 9, 300"><img src="images/pc/panties/basic/9.jpg" height="250" /></a>'
  381. if basic_panties[12] = 0:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''cheap'', 12, 300"><img src="images/pc/panties/basic/12.jpg" height="250" /></a>'
  382. if basic_panties[21] = 0:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''cheap'', 21, 300"><img src="images/pc/panties/basic/21.jpg" height="250" /></a>'
  383. if basic_panties[37] = 0:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''cheap'', 37, 300"><img src="images/pc/panties/basic/37.jpg" height="250" /></a>'
  384. *nl
  385. if basic_bras[11] = 0:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''cheap'', 11, 300"><img src="images/pc/bras/basic/11.jpg" height="250" /></a>'
  386. if basic_bras[12] = 0:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''cheap'', 12, 300"><img src="images/pc/bras/basic/12.jpg" height="250" /></a>'
  387. if basic_bras[16] = 0:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''cheap'', 16, 300"><img src="images/pc/bras/basic/16.jpg" height="250" /></a>'
  388. if basic_bras[18] = 0:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''cheap'', 18, 300"><img src="images/pc/bras/basic/18.jpg" height="250" /></a>'
  389. act 'Return':
  390. $loc = $loc_bak
  391. $shoplocation = 'clothing'
  392. gt 'shop'
  393. end
  394. end
  395. !! Household appliances
  396. if $shoplocation = 'tech':
  397. *clr & cla
  398. '<center><b><font color="maroon">Department of household appliances</font></b></center>'
  399. '<center><img <<$set_imgh>> src="images/locations/shared/store/shop5.jpg"></center>'
  400. if hour < 8 or hour > 20:
  401. 'The household appliance department is currently closed.'
  402. act 'Leave the appliance department':gt 'shop', 'start'
  403. exit
  404. end
  405. if $message ! '':
  406. '<center>'+$message+'</center>'
  407. killvar '$message'
  408. else
  409. ''
  410. end
  411. *pl '<center><table align="center" width=80%>'
  412. *P FUNC ('$single_stock_item', 1, 'Small TV', 15000, 'TV', $CURLOC, '', iif(home_owned[1] > 0 or home_owned[3] > 0 or home_owned[4] = 1 or home_owned[5] > 2, 0, 1), 'You need your own home')
  413. *P FUNC ('$single_stock_item', 2, 'Large Plasma TV', 30000, 'TV', $CURLOC, '', iif(home_owned[1] > 0 or home_owned[3] > 0 or home_owned[4] = 1 or home_owned[5] > 2, 0, 1), 'You need your own home')
  414. *P FUNC ('$single_stock_item', 1, 'Computer', 40000, 'komp', $CURLOC)
  415. *p FUNC ('$single_stock_item', 1, 'Computer game Dead Sunset', 800, 'GameCD2', $CURLOC, '', iif(komp > 0, 0, 1), 'You need a computer')
  416. *P FUNC ('$single_stock_item', 1, 'Dishwasher', 28000, 'posudomashina', $CURLOC, '', iif(home_owned[1] > 0 or home_owned[3] > 0 or home_owned[4] = 1 or home_owned[5] > 2, 0, 1), 'You need your own home')
  417. *P FUNC ('$single_stock_item', 1, 'Washing machine', 30000, 'stiralka', $CURLOC, '', iif(home_owned[1] > 0 or home_owned[3] > 0 or home_owned[4] = 1 or home_owned[5] > 2, 0, 1), 'You need your own home')
  418. *P FUNC ('$single_stock_item', 1, 'Camera', 20000, 'zenit', $CURLOC)
  419. *P FUNC ('$single_stock_item', 1, 'Mini camera disguised as a cigarette pack', 100000, 'minifoto', $CURLOC)
  420. *P FUNC ('$single_stock_item', 1, 'Webcam', 2000, 'webcamera', $CURLOC, '', iif((npc_rel['A11']>=30 and webcamera = 0) or (camwhore = 1 and webcamera = 0), 0, 1), 'You have no use for this')
  421. *P '</table></center>'
  422. gs 'stat'
  423. gs 'themes', 'indoors'
  424. act 'Leave the appliance department':gt 'shop', 'start'
  425. end
  426. !! Ice cream counter
  427. if $shoplocation = 'icecream':
  428. 'Ice cream is available for sale for 50 <b>₽</b>.'
  429. act 'Move away from the counter':gt 'shop', 'start'
  430. if money >= 50:
  431. act 'Buy ice cream':
  432. *clr & cla
  433. money -= 50
  434. fat += 3
  435. pcs_mood += 50
  436. pcs_hydra += 60
  437. pcs_energy += 30
  438. cumspclnt = 2
  439. gs 'cum_cleanup'
  440. pcs_breath = 0
  441. gs 'stat'
  442. '<center><img <<$set_imgh>> src="images/shared/food/icecreem.jpg"></center>'
  443. 'You bought ice cream and ate it not going far.'
  444. act 'Move away from the counter':gt 'shop', 'start'
  445. end
  446. end
  447. end
  448. if $shoplocation = 'megafon':
  449. *clr & cla
  450. minut+=3
  451. gs'stat'
  452. i = 0
  453. '<center><b><font color = maroon>MegaFon shop</font></B></center>'
  454. '<center><img src="images/system/phone/megafon2.jpg" ></center>'
  455. *pl '<center><table align="center">'
  456. :loopcard
  457. if i = 0:
  458. n = 5
  459. price = 60
  460. $buy_link = '<a' + iif(money >= 60, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  461. elseif i = 1:
  462. n = 10
  463. price = 115
  464. $buy_link = '<a' + iif(money >= 115, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  465. elseif i = 2:
  466. n = 20
  467. price = 220
  468. $buy_link = '<a' + iif(money >= 220, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  469. elseif i = 3:
  470. n = 50
  471. price = 520
  472. $buy_link = '<a' + iif(money >= 520, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  473. end
  474. i += 1
  475. '<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>'
  476. if i < 4:
  477. jump 'loopcard'
  478. end
  479. '</table></center>'
  480. act 'Return to the Supermarket':gt'shop','start'
  481. if money > 0:
  482. act 'Put the money on the phone':
  483. cla
  484. set minut = minut + 5
  485. obmennik = input ("How many <b>₽</b> do you want to deposit?")
  486. if obmennik <= 0:
  487. '<center><br><b>Do you want to think again?</b></center>'
  488. act 'Exit Department':gt'shop','start'
  489. else
  490. if money < obmennik:
  491. '<center><br>You do not have <b><<obmennik>></b> <b>₽</b>.</center>'
  492. act 'Exit Department':gt'shop','start'
  493. end
  494. if money >= obmennik:
  495. set balans = balans + obmennik
  496. set money = money - obmennik
  497. clr
  498. gs'stat'
  499. '<center><br>You put <b><<obmennik>></b> <b>₽</b> to the account.</center>'
  500. act 'Exit Department':gt'shop','start'
  501. end
  502. end
  503. end
  504. end
  505. end
  506. if $shoplocation = 'Anya':
  507. cla
  508. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister.jpg"></center>'
  509. gs'dinsister'
  510. dynamic $sischecks
  511. '"<<$pcs_nickname>>, do not disturb me at work, can''t you see I have customers?""'
  512. act '<B>Move away</B>':gt'shop','start'
  513. end
  514. --- shop ---------------------------------