shop 24 KB

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