1
0

shop 28 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909
  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 wont 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 FUNC ('$single_stock_item', 1, 'Handbag', 5000, 'bag', $CURLOC, '', iif(bag > 0, 1, 0), '')
  259. *P '</table></center>'
  260. gs 'stat'
  261. if night_mode = 1:
  262. fcolor = rgb(255, 255, 255)
  263. bcolor = rgb(0, 0, 0)
  264. lcolor = rgb(106, 90, 205)
  265. else
  266. fcolor = rgb(0, 0, 0)
  267. bcolor = rgb(255, 255, 255)
  268. lcolor = rgb(106, 90, 205)
  269. end
  270. act 'Leave the cosmetics department':
  271. if menu_option = 1:dynamic $menu_addoldmenu
  272. if menu_option = 0:gs 'obj_din', 'new'
  273. gt 'shop', 'start'
  274. end
  275. end
  276. !! Hardware
  277. if $shoplocation = 'hardware':
  278. cla
  279. *clr
  280. '<center><b><font color="maroon">Division of household goods</font></b></center>'
  281. '<center><img <<$set_imgh>> src="images/locations/shared/store/shop3.jpg"></center>'
  282. if hour < 8 or hour > 20:
  283. 'The hardware department is currently closed.'
  284. act 'Leave the hardware department':gt 'shop', 'start'
  285. exit
  286. end
  287. !! output from purchase
  288. if $message ! '':
  289. '<center>'+$message+'</center>'
  290. killvar '$message'
  291. else
  292. ''
  293. end
  294. *pl '<center><table align="center" width=80%>'
  295. *P FUNC ('$stock_item', 20, 'Dishwashing detergent', 100, 'fairy', $CURLOC)
  296. *P FUNC ('$stock_item', 30, 'Clothing detergent', 250, 'poroshok', $CURLOC)
  297. *P FUNC ('$stock_item', 5, 'Plates', 300, 'cltarelka', $CURLOC)
  298. *P '</table></center>'
  299. gs 'stat'
  300. if night_mode = 1:
  301. fcolor = rgb(255, 255, 255)
  302. bcolor = rgb(0, 0, 0)
  303. lcolor = rgb(106, 90, 205)
  304. else
  305. fcolor = rgb(0, 0, 0)
  306. bcolor = rgb(255, 255, 255)
  307. lcolor = rgb(106, 90, 205)
  308. end
  309. act 'Leave the hardware department':gt 'shop', 'start'
  310. if pcs_sewng >= 40:
  311. '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>.'
  312. if tkan <= 0:'Now you do not have tissue'
  313. if tkan > 0:'Now you have enough tissue to <<tkan>> lessons'
  314. if money >= 300:
  315. act'Buy cloth':
  316. cls
  317. portion = input ("How much do you want to buy?")
  318. if portion <= 0:portion = 1
  319. if portion*300 > money:'You do not have enough money.'
  320. if portion*300 <= money:
  321. tkan += portion
  322. money = money - portion*300
  323. '<center><img <<$set_imgh>> src="images/locations/shared/store/kassa.jpg"></center>'
  324. 'You paid the cashier and bought cloth.'
  325. end
  326. gs'stat'
  327. act 'Move away from the counter':gt'shop'
  328. end
  329. end
  330. end
  331. end
  332. !! Women''s clothing
  333. if $shoplocation = 'clothing':
  334. cla
  335. *clr
  336. '<center><b><font color="maroon">Department of Women''s Clothing</font></b></center>'
  337. '<center><img <<$set_imgh>> src="images/locations/shared/store/shop4.jpg"></center>'
  338. if hour < 8 or hour > 20:
  339. 'The women''s clothing department is currently closed.'
  340. act 'Leave the women''s clothing department':gt 'shop', 'start'
  341. exit
  342. end
  343. if $message ! '':
  344. '<center>'+$message+'</center>'
  345. killvar '$message'
  346. else
  347. ''
  348. end
  349. *pl '<center><table align="center" width=80%>'
  350. *P FUNC ('$stock_item', 1, 'Panties', 300, 'clrbelo', $CURLOC)
  351. *P FUNC ('$stock_item', 7, 'Pack of 7 pairs of panties', 2000, 'clrbelo', $CURLOC)
  352. *P FUNC ('$stock_item', 1, 'Bra', 300, 'clrbra', $CURLOC)
  353. *P FUNC ('$stock_item', 7, 'Pack of 7 bras', 2000, 'clrbra', $CURLOC)
  354. *P '</table></center>'
  355. '<br/>Women''s clothing cost 2,500 <b>₽</b> each.'
  356. gs 'stat'
  357. if night_mode = 1:
  358. fcolor = rgb(255, 255, 255)
  359. bcolor = rgb(0, 0, 0)
  360. lcolor = rgb(106, 90, 205)
  361. else
  362. fcolor = rgb(0, 0, 0)
  363. bcolor = rgb(255, 255, 255)
  364. lcolor = rgb(106, 90, 205)
  365. end
  366. act 'Leave the women''s clothing department':gt 'shop', 'start'
  367. if konki!1:
  368. 'A pair of ice-skates are available for 500 <b>₽</b>.'
  369. if money >= 500:
  370. act 'Buy skates for 500 <b>₽</b>':
  371. cla
  372. *clr
  373. money = money - 500
  374. konki = 1
  375. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/konki_shop.jpg"></center>'
  376. 'You buy a pair of skates.'
  377. act 'Move away from the counter':gt'shop'
  378. end
  379. end
  380. end
  381. if office[1] = 0:
  382. act 'Inspect Office clothes number 1':
  383. cla
  384. *clr
  385. '<center><img <<$set_imgh>> src="images/pc/clothing/5office/1.jpg"></center>'
  386. gs 'clothing_attributes', 'office', 1
  387. 'Office clothes 1'
  388. gs 'clothing_descriptions'
  389. '<<$description>>'
  390. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  391. 'Costs 2,500 <b>₽</b>.'
  392. act 'Leave':gt'shop'
  393. if money => 2500 and CloExhibit <= pcs_exhibition:
  394. act 'Buy':
  395. cla
  396. money -= 2500
  397. office[1] = 1
  398. officeH[1] = 60
  399. officeB[1] = pcs_hips
  400. gt'shop', '<font color="green">You bought <b>Office clothes number 1</b>.</font>'
  401. end
  402. end
  403. end
  404. end
  405. if office[2] = 0:
  406. act 'Inspect Office clothes number 2':
  407. cla
  408. *clr
  409. '<center><img <<$set_imgh>> src="images/pc/clothing/5office/2.jpg"></center>'
  410. gs 'clothing_attributes', 'office', 2
  411. 'Office clothes 2'
  412. gs 'clothing_descriptions'
  413. '<<$description>>'
  414. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  415. 'Costs 2,500 <b>₽</b>.'
  416. act 'Leave':gt'shop'
  417. if money => 2500 and CloExhibit <= pcs_exhibition:
  418. act 'Buy':
  419. cla
  420. money -= 2500
  421. office[2] = 1
  422. officeH[2] = 60
  423. officeB[2] = pcs_hips
  424. gt'shop', '<font color="green">You bought <b>Office clothes number 2</b>.</font>'
  425. end
  426. end
  427. end
  428. end
  429. if cheap[68] = 0:
  430. act 'Inspect cheap clothes 68':
  431. cla
  432. *clr
  433. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/68.jpg"></center>'
  434. gs 'clothing_attributes', 'cheap', 68
  435. 'Cheap clothes 68'
  436. gs 'clothing_descriptions'
  437. '<<$description>>'
  438. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  439. 'Costs 2,500 <b>₽</b>.'
  440. act 'Leave':gt 'shop'
  441. if money => 2500 and CloExhibit <= pcs_exhibition:
  442. act 'Buy':
  443. cla
  444. money -= 2500
  445. cheap[68] = 1
  446. cheapH[68] = 60
  447. cheapB[68] = pcs_hips
  448. gt 'shop', '<font color="green">You bought <b>cheap clothes 68</b>.</font>'
  449. end
  450. end
  451. end
  452. end
  453. if cheap[3] = 0:
  454. act 'Inspect cheap clothes 3':
  455. cla
  456. *clr
  457. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/3.jpg"></center>'
  458. gs 'clothing_attributes', 'cheap', 3
  459. 'Cheap clothes 3'
  460. gs 'clothing_descriptions'
  461. '<<$description>>'
  462. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  463. 'Costs 2,500 <b>₽</b>.'
  464. act 'Leave':gt 'shop'
  465. if money => 2500 and CloExhibit <= pcs_exhibition:
  466. act 'Buy':
  467. cla
  468. money -= 2500
  469. cheap[3] = 1
  470. cheapH[3] = 60
  471. cheapB[3] = pcs_hips
  472. gt 'shop', '<font color="green">You bought <b>cheap clothes 3</b>.</font>'
  473. end
  474. end
  475. end
  476. end
  477. if cheap[80] = 0:
  478. act 'Inspect cheap clothes 80':
  479. cla
  480. *clr
  481. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/80.jpg"></center>'
  482. gs 'clothing_attributes', 'cheap', 80
  483. 'Cheap clothes 80'
  484. gs 'clothing_descriptions'
  485. '<<$description>>'
  486. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  487. 'Costs 2,500 <b>₽</b>.'
  488. act 'Leave':gt 'shop'
  489. if money => 2500 and CloExhibit <= pcs_exhibition:
  490. act 'Buy':
  491. cla
  492. money -= 2500
  493. cheap[80] = 1
  494. cheapH[80] = 60
  495. cheapB[80] = pcs_hips
  496. gt 'shop', '<font color="green">You bought <b>cheap clothes 80</b>.</font>'
  497. end
  498. end
  499. end
  500. end
  501. if cheap[10] = 0:
  502. act 'Inspect cheap clothes 10':
  503. cla
  504. *clr
  505. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/10.jpg"></center>'
  506. gs 'clothing_attributes', 'cheap', 10
  507. 'Cheap clothes 10'
  508. gs 'clothing_descriptions'
  509. '<<$description>>'
  510. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  511. 'Costs 2,500 <b>₽</b>.'
  512. act 'Leave':gt 'shop'
  513. if money => 2500 and CloExhibit <= pcs_exhibition:
  514. act 'Buy':
  515. cla
  516. money -= 2500
  517. cheap[10] = 1
  518. cheapH[10] = 60
  519. cheapB[10] = pcs_hips
  520. gt 'shop', '<font color="green">You bought <b>cheap clothes 10</b>.</font>'
  521. end
  522. end
  523. end
  524. end
  525. if cheap[45] = 0:
  526. act 'Inspect cheap clothes 45':
  527. cla
  528. *clr
  529. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/45.jpg"></center>'
  530. gs 'clothing_attributes', 'cheap', 45
  531. 'Cheap clothes 45'
  532. gs 'clothing_descriptions'
  533. '<<$description>>'
  534. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  535. 'Costs 2,500 <b>₽</b>.'
  536. act 'Leave':gt 'shop'
  537. if money => 2500 and CloExhibit <= pcs_exhibition:
  538. act 'Buy':
  539. cla
  540. money -= 2500
  541. cheap[45] = 1
  542. cheapH[45] = 60
  543. cheapB[45] = pcs_hips
  544. gt 'shop', '<font color="green">You bought <b>cheap clothes 45</b>.</font>'
  545. end
  546. end
  547. end
  548. end
  549. if cheap[51] = 0:
  550. act 'Inspect cheap clothes 51':
  551. cla
  552. *clr
  553. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/51.jpg"></center>'
  554. gs 'clothing_attributes', 'cheap', 51
  555. 'Cheap clothes 51'
  556. gs 'clothing_descriptions'
  557. '<<$description>>'
  558. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  559. 'Costs 2,500 <b>₽</b>.'
  560. act 'Leave':gt 'shop'
  561. if money => 2500 and CloExhibit <= pcs_exhibition:
  562. act 'Buy':
  563. cla
  564. money -= 2500
  565. cheap[51] = 1
  566. cheapH[51] = 60
  567. cheapB[51] = pcs_hips
  568. gt 'shop', '<font color="green">You bought <b>cheap clothes 51</b>.</font>'
  569. end
  570. end
  571. end
  572. end
  573. if exercise[4] = 0:
  574. act 'Inspect exercise clothes 4':
  575. cla
  576. *clr
  577. '<center><img <<$set_imgh>> src="images/pc/clothing/7exercise/4.jpg"></center>'
  578. gs 'clothing_attributes', 'exercise', 4
  579. 'Exercise clothes 4'
  580. gs 'clothing_descriptions'
  581. '<<$description>>'
  582. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  583. 'Costs 2,500 <b>₽</b>.'
  584. act 'Leave':gt 'shop'
  585. if money => 2500 and CloExhibit <= pcs_exhibition:
  586. act 'Buy':
  587. cla
  588. money -= 2500
  589. exercise[4] = 1
  590. exerciseH[4] = 60
  591. gt 'shop', '<font color="green">You bought <b>exercise clothes 4</b>.</font>'
  592. end
  593. end
  594. end
  595. end
  596. if exercise[20] = 0:
  597. act 'Inspect exercise clothes 20':
  598. cla
  599. *clr
  600. '<center><img <<$set_imgh>> src="images/pc/clothing/7exercise/20.jpg"></center>'
  601. gs 'clothing_attributes', 'exercise', 20
  602. 'Exercise clothes 20'
  603. gs 'clothing_descriptions'
  604. '<<$description>>'
  605. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  606. 'Costs 2,500 <b>₽</b>.'
  607. act 'Leave':gt 'shop'
  608. if money => 2500 and CloExhibit <= pcs_exhibition:
  609. act 'Buy':
  610. cla
  611. money -= 2500
  612. exercise[20] = 1
  613. exerciseH[20] = 60
  614. gt 'shop', '<font color="green">You bought <b>exercise clothes 31</b>.</font>'
  615. end
  616. end
  617. end
  618. end
  619. if coat[1] = 0:
  620. act 'Inspect coat 1':
  621. cla
  622. *clr
  623. '<center><img <<$set_imgh>> src="images/pc/clothing/11coat/1.jpg"></center>'
  624. gs 'clothing_attributes', 'coat', 1
  625. 'Coat 1'
  626. FUNC('$clothing_name', 'coat', 1)
  627. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  628. 'Costs 5,000 <b>₽</b>.'
  629. act 'Leave':gt 'shop'
  630. if money => 5000 and CloExhibit <= pcs_exhibition:
  631. act 'Buy':
  632. cla
  633. money -= 5000
  634. coat[1] = 1
  635. coatH[1] = 60
  636. gt 'shop', '<font color="green">You bought <b>coat 1</b>.</font>'
  637. end
  638. end
  639. end
  640. end
  641. if swimwear[4] = 0:
  642. act 'Inspect swimwear 4':
  643. cla
  644. *clr
  645. '<center><img <<$set_imgh>> src="images/pc/clothing/12swimwear/4.jpg"></center>'
  646. gs 'clothing_attributes', 'swimwear', 4
  647. 'Swimwear 4'
  648. FUNC('$clothing_name', 'swimwear', 4)
  649. if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
  650. 'Costs 1,000 <b>₽</b>.'
  651. act 'Leave':gt 'shop'
  652. if money => 1000 and CloExhibit <= pcs_exhibition:
  653. act 'Buy':
  654. cla
  655. money -= 1000
  656. swimwear[4] = 1
  657. swimwearH[4] = 60
  658. swimwearB[4] = pcs_hips
  659. gt 'shop', '<font color="green">You bought <b>swimwear 4</b>.</font>'
  660. end
  661. end
  662. end
  663. end
  664. end
  665. !! Household appliances
  666. if $shoplocation = 'tech':
  667. cla
  668. *clr
  669. '<center><b><font color="maroon">Department of household appliances</font></b></center>'
  670. '<center><img <<$set_imgh>> src="images/locations/shared/store/shop5.jpg"></center>'
  671. if hour < 8 or hour > 20:
  672. 'The household appliance department is currently closed.'
  673. act 'Leave the appliance department':gt 'shop', 'start'
  674. exit
  675. end
  676. if $message ! '':
  677. '<center>'+$message+'</center>'
  678. killvar '$message'
  679. else
  680. ''
  681. end
  682. *pl '<center><table align="center" width=80%>'
  683. *P FUNC ('$single_stock_item', 1, 'Scondhand Small CRT TV', 5000, 'TV', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
  684. *P FUNC ('$single_stock_item', 2, 'Large Plasma TV', 35000, 'TV', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
  685. *P FUNC ('$single_stock_item', 1, 'Computer', 25000, 'komp', $CURLOC)
  686. *p FUNC ('$single_stock_item', 1, 'Computer game Dead Sunset', 500, 'GameCD2', $CURLOC, '', iif(komp > 0, 0, 1), 'You need a computer')
  687. *P FUNC ('$single_stock_item', 1, 'Dishwasher', 50000, 'posudomashina', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
  688. *P FUNC ('$single_stock_item', 1, 'Washing machine', 50000, 'stiralka', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
  689. *P FUNC ('$single_stock_item', 1, 'Camera', 10000, 'zenit', $CURLOC)
  690. *P FUNC ('$single_stock_item', 1, 'Mini camera disguised as a cigarette pack', 40000, 'minifoto', $CURLOC)
  691. *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')
  692. *P '</table></center>'
  693. gs 'stat'
  694. if night_mode = 1:
  695. fcolor = rgb(255, 255, 255)
  696. bcolor = rgb(0, 0, 0)
  697. lcolor = rgb(106, 90, 205)
  698. else
  699. fcolor = rgb(0, 0, 0)
  700. bcolor = rgb(255, 255, 255)
  701. lcolor = rgb(106, 90, 205)
  702. end
  703. act 'Leave the appliance department':gt 'shop', 'start'
  704. end
  705. !! Ice cream counter
  706. if $shoplocation = 'icecream':
  707. 'Ice cream is available for sale for 50 <b>₽</b>.'
  708. act 'Move away from the counter':gt 'shop', 'start'
  709. if money >= 50:
  710. act 'Buy ice cream':
  711. cls
  712. money -= 50
  713. fat += 3
  714. pcs_mood += 50
  715. water += 60
  716. pcs_energy += 30
  717. cumspclnt = 2
  718. gs 'cum_cleanup'
  719. pcs_breath = 0
  720. gs 'stat'
  721. '<center><img <<$set_imgh>> src="images/shared/food/icecreem.jpg"></center>'
  722. 'You bought ice cream and ate it not going far.'
  723. act 'Move away from the counter':gt 'shop', 'start'
  724. end
  725. end
  726. end
  727. if $shoplocation = 'megafon':
  728. cls
  729. minut+=3
  730. gs'stat'
  731. i = 0
  732. '<center><b><font color = maroon>Salon connection Megaphone</font></B></center>'
  733. '<center><img src="images/system/phone/megafon2.jpg" ></center>'
  734. *pl '<center><table align="center">'
  735. :loopcard
  736. if i = 0:
  737. n = 5
  738. price = 60
  739. $buy_link = '<a' + iif(money >= 60, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  740. elseif i = 1:
  741. n = 10
  742. price = 115
  743. $buy_link = '<a' + iif(money >= 115, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  744. elseif i = 2:
  745. n = 20
  746. price = 220
  747. $buy_link = '<a' + iif(money >= 220, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  748. elseif i = 3:
  749. n = 50
  750. price = 520
  751. $buy_link = '<a' + iif(money >= 520, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  752. end
  753. i += 1
  754. '<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>'
  755. if i < 4:
  756. jump 'loopcard'
  757. end
  758. '</table></center>'
  759. act 'Exit Department':gt'shop','start'
  760. if money > 0:
  761. act 'Put the money on the phone':
  762. cla
  763. set minut = minut + 5
  764. obmennik = input ("How many <b>₽</b> do you want to deposit?")
  765. if obmennik <= 0:
  766. '<center><br><b>Do you want to think again?</b></center>'
  767. act 'Exit Department':gt'shop','start'
  768. else
  769. if money < obmennik:
  770. '<center><br>You do not have <b><<obmennik>></b> <b>₽</b>.</center>'
  771. act 'Exit Department':gt'shop','start'
  772. end
  773. if money >= obmennik:
  774. set balans = balans + obmennik
  775. set money = money - obmennik
  776. clr
  777. gs'stat'
  778. '<center><br>You put <b><<obmennik>></b> <b>₽</b> to the account.</center>'
  779. act 'Exit Department':gt'shop','start'
  780. end
  781. end
  782. end
  783. end
  784. end
  785. if $shoplocation = 'Anya':
  786. cla
  787. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister.jpg"></center>'
  788. gs'dinsister'
  789. dynamic $sischecks
  790. '"<<$pcs_nickname>>, do not disturb me at work, can''t you see I have customers?""'
  791. act '<B>Move away</B>':gt'shop','start'
  792. end
  793. --- shop ---------------------------------