1
0

shop 24 KB

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