1
0

shop.qsrc 22 KB

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