shop 26 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882
  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':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 he 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, 'Underwear', 300, 'clrbelo', $CURLOC)
  351. *P FUNC ('$stock_item', 7, 'Sale pack of underwear', 2000, 'clrbelo', $CURLOC)
  352. *P '</table></center>'
  353. '<br/>Women''s clothing cost 2,500 <b>₽</b> each.'
  354. gs 'stat'
  355. if night_mode = 1:
  356. fcolor = rgb(255, 255, 255)
  357. bcolor = rgb(0, 0, 0)
  358. lcolor = rgb(106, 90, 205)
  359. else
  360. fcolor = rgb(0, 0, 0)
  361. bcolor = rgb(255, 255, 255)
  362. lcolor = rgb(106, 90, 205)
  363. end
  364. act 'Leave the women''s clothing department':gt 'shop', 'start'
  365. if konki!1:
  366. 'A pair of ice-skates are available for 500 <b>₽</b>.'
  367. if money >= 500:
  368. act 'Buy skates for 500 <b>₽</b>':
  369. cla
  370. *clr
  371. money = money - 500
  372. konki = 1
  373. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/konki_shop.jpg"></center>'
  374. 'You buy a pair of skates.'
  375. act 'Move away from the counter':gt'shop'
  376. end
  377. end
  378. end
  379. if money >= 2500:
  380. if office[1] = 0:
  381. act 'Inspect Office clothes number 1':
  382. cla
  383. *clr
  384. '<center><img <<$set_imgh>> src="images/pc/clothing/5office/1.jpg"></center>'
  385. gs 'clothing_attributes', 'office', 1
  386. 'Office clothes 1'
  387. gs 'clothing_descriptions'
  388. '<<$description>>'
  389. 'Costs 2,500 <b>₽</b>.'
  390. act 'Leave':gt'shop'
  391. act 'Buy':
  392. cla
  393. money -= 2500
  394. office[1] = 1
  395. officeH[1] = 60
  396. officeB[1] = pcs_hips
  397. gt'shop', '<font color="green">You bought <b>Office clothes number 1</b>.</font>'
  398. end
  399. end
  400. end
  401. if office[2] = 0:
  402. act 'Inspect Office clothes number 2':
  403. cla
  404. *clr
  405. '<center><img <<$set_imgh>> src="images/pc/clothing/5office/2.jpg"></center>'
  406. gs 'clothing_attributes', 'office', 2
  407. 'Office clothes 2'
  408. gs 'clothing_descriptions'
  409. '<<$description>>'
  410. 'Costs 2,500 <b>₽</b>.'
  411. act 'Leave':gt'shop'
  412. act 'Buy':
  413. cla
  414. money -= 2500
  415. office[2] = 1
  416. officeH[2] = 60
  417. officeB[2] = pcs_hips
  418. gt'shop', '<font color="green">You bought <b>Office clothes number 2</b>.</font>'
  419. end
  420. end
  421. end
  422. if cheap[68] = 0 and pcs_exhibition >= 25:
  423. act 'Inspect cheap clothes 68':
  424. cla
  425. *clr
  426. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/68.jpg"></center>'
  427. gs 'clothing_attributes', 'cheap', 68
  428. 'Cheap clothes 68'
  429. gs 'clothing_descriptions'
  430. '<<$description>>'
  431. 'Costs 2,500 <b>₽</b>.'
  432. act 'Leave':gt 'shop'
  433. act 'Buy':
  434. cla
  435. money -= 2500
  436. cheap[68] = 1
  437. cheapH[68] = 60
  438. cheapB[68] = pcs_hips
  439. gt 'shop', '<font color="green">You bought <b>cheap clothes 68</b>.</font>'
  440. end
  441. end
  442. end
  443. if cheap[3] = 0 and pcs_exhibition >= 10:
  444. act 'Inspect cheap clothes 3':
  445. cla
  446. *clr
  447. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/3.jpg"></center>'
  448. gs 'clothing_attributes', 'cheap', 3
  449. 'Cheap clothes 3'
  450. gs 'clothing_descriptions'
  451. '<<$description>>'
  452. 'Costs 2,500 <b>₽</b>.'
  453. act 'Leave':gt 'shop'
  454. act 'Buy':
  455. cla
  456. money -= 2500
  457. cheap[3] = 1
  458. cheapH[3] = 60
  459. cheapB[3] = pcs_hips
  460. gt 'shop', '<font color="green">You bought <b>cheap clothes 3</b>.</font>'
  461. end
  462. end
  463. end
  464. if cheap[80] = 0 and pcs_exhibition >= 25:
  465. act 'Inspect cheap clothes 80':
  466. cla
  467. *clr
  468. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/80.jpg"></center>'
  469. gs 'clothing_attributes', 'cheap', 80
  470. 'Cheap clothes 80'
  471. gs 'clothing_descriptions'
  472. '<<$description>>'
  473. 'Costs 2,500 <b>₽</b>.'
  474. act 'Leave':gt 'shop'
  475. act 'Buy':
  476. cla
  477. money -= 2500
  478. cheap[80] = 1
  479. cheapH[80] = 60
  480. cheapB[80] = pcs_hips
  481. gt 'shop', '<font color="green">You bought <b>cheap clothes 80</b>.</font>'
  482. end
  483. end
  484. end
  485. if cheap[10] = 0 and pcs_exhibition >= 5:
  486. act 'Inspect cheap clothes 10':
  487. cla
  488. *clr
  489. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/10.jpg"></center>'
  490. gs 'clothing_attributes', 'cheap', 10
  491. 'Cheap clothes 10'
  492. gs 'clothing_descriptions'
  493. '<<$description>>'
  494. 'Costs 2,500 <b>₽</b>.'
  495. act 'Leave':gt 'shop'
  496. act 'Buy':
  497. cla
  498. money -= 2500
  499. cheap[10] = 1
  500. cheapH[10] = 60
  501. cheapB[10] = pcs_hips
  502. gt 'shop', '<font color="green">You bought <b>cheap clothes 10</b>.</font>'
  503. end
  504. end
  505. end
  506. if cheap[45] = 0 and pcs_exhibition >= 15:
  507. act 'Inspect cheap clothes 45':
  508. cla
  509. *clr
  510. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/45.jpg"></center>'
  511. gs 'clothing_attributes', 'cheap', 45
  512. 'Cheap clothes 45'
  513. gs 'clothing_descriptions'
  514. '<<$description>>'
  515. 'Costs 2,500 <b>₽</b>.'
  516. act 'Leave':gt 'shop'
  517. act 'Buy':
  518. cla
  519. money -= 2500
  520. cheap[45] = 1
  521. cheapH[45] = 60
  522. cheapB[45] = pcs_hips
  523. gt 'shop', '<font color="green">You bought <b>cheap clothes 45</b>.</font>'
  524. end
  525. end
  526. end
  527. if cheap[51] = 0 and pcs_exhibition >= 30:
  528. act 'Inspect cheap clothes 51':
  529. cla
  530. *clr
  531. '<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/51.jpg"></center>'
  532. gs 'clothing_attributes', 'cheap', 51
  533. 'Cheap clothes 51'
  534. gs 'clothing_descriptions'
  535. '<<$description>>'
  536. 'Costs 2,500 <b>₽</b>.'
  537. act 'Leave':gt 'shop'
  538. act 'Buy':
  539. cla
  540. money -= 2500
  541. cheap[51] = 1
  542. cheapH[51] = 60
  543. cheapB[51] = pcs_hips
  544. gt 'shop', '<font color="green">You bought <b>cheap clothes 51</b>.</font>'
  545. end
  546. end
  547. end
  548. if exercise[4] = 0:
  549. act 'Inspect exercise clothes 4':
  550. cla
  551. *clr
  552. '<center><img <<$set_imgh>> src="images/pc/clothing/7exercise/4.jpg"></center>'
  553. gs 'clothing_attributes', 'exercise', 4
  554. 'Exercise clothes 4'
  555. gs 'clothing_descriptions'
  556. '<<$description>>'
  557. 'Costs 2,500 <b>₽</b>.'
  558. act 'Leave':gt 'shop'
  559. act 'Buy':
  560. cla
  561. money -= 2500
  562. exercise[4] = 1
  563. exerciseH[4] = 60
  564. gt 'shop', '<font color="green">You bought <b>exercise clothes 4</b>.</font>'
  565. end
  566. end
  567. end
  568. if exercise[20] = 0 and pcs_exhibition >= 5:
  569. act 'Inspect exercise clothes 20':
  570. cla
  571. *clr
  572. '<center><img <<$set_imgh>> src="images/pc/clothing/7exercise/20.jpg"></center>'
  573. gs 'clothing_attributes', 'exercise', 20
  574. 'Exercise clothes 20'
  575. gs 'clothing_descriptions'
  576. '<<$description>>'
  577. 'Costs 2,500 <b>₽</b>.'
  578. act 'Leave':gt 'shop'
  579. act 'Buy':
  580. cla
  581. money -= 2500
  582. exercise[20] = 1
  583. exerciseH[20] = 60
  584. gt 'shop', '<font color="green">You bought <b>exercise clothes 31</b>.</font>'
  585. end
  586. end
  587. end
  588. end
  589. if money >= 5000:
  590. if coat[1] = 0:
  591. act 'Inspect coat 1':
  592. cla
  593. *clr
  594. '<center><img <<$set_imgh>> src="images/pc/clothing/11coat/1.jpg"></center>'
  595. gs 'clothing_attributes', 'coat', 1
  596. 'Coat 1'
  597. FUNC('$clothing_name', 'coat', 1)
  598. 'Costs 7,500 <b>₽</b>.'
  599. act 'Leave':gt 'shop'
  600. act 'Buy':
  601. cla
  602. money -= 5000
  603. coat[1] = 1
  604. coatH[1] = 60
  605. gt 'shop', '<font color="green">You bought <b>coat 1</b>.</font>'
  606. end
  607. end
  608. end
  609. end
  610. if money >= 1000:
  611. if swimwear[4] = 0:
  612. act 'Inspect swimwear 4':
  613. cla
  614. *clr
  615. '<center><img <<$set_imgh>> src="images/pc/clothing/12swimwear/4.jpg"></center>'
  616. gs 'clothing_attributes', 'swimwear', 4
  617. 'Swimwear 4'
  618. FUNC('$clothing_name', 'swimwear', 4)
  619. 'Costs 1,000 <b>₽</b>.'
  620. act 'Leave':gt 'shop'
  621. act 'Buy':
  622. cla
  623. money -= 1000
  624. swimwear[4] = 1
  625. swimwearH[4] = 60
  626. swimwearB[4] = pcs_hips
  627. gt 'shop', '<font color="green">You bought <b>swimwear 4</b>.</font>'
  628. end
  629. end
  630. end
  631. end
  632. end
  633. !! Household appliances
  634. if $shoplocation = 'tech':
  635. cla
  636. *clr
  637. '<center><b><font color="maroon">Department of household appliances</font></b></center>'
  638. '<center><img <<$set_imgh>> src="images/locations/shared/store/shop5.jpg"></center>'
  639. if hour < 8 or hour > 20:
  640. 'The household appliance department is currently closed.'
  641. act 'Leave the appliance department':gt 'shop', 'start'
  642. exit
  643. end
  644. if $message ! '':
  645. '<center>'+$message+'</center>'
  646. killvar '$message'
  647. else
  648. ''
  649. end
  650. *pl '<center><table align="center" width=80%>'
  651. *P FUNC ('$single_stock_item', 1, 'Scondhand Small CRT TV', 5000, 'TV', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
  652. *P FUNC ('$single_stock_item', 2, 'Large Plasma TV', 35000, 'TV', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
  653. *P FUNC ('$single_stock_item', 1, 'Computer', 25000, 'komp', $CURLOC)
  654. *p FUNC ('$single_stock_item', 1, 'Computer game Dead Sunset', 500, 'GameCD2', $CURLOC, '', iif(komp > 0, 0, 1), 'You need a computer')
  655. *P FUNC ('$single_stock_item', 1, 'Dishwasher', 50000, 'posudomashina', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
  656. *P FUNC ('$single_stock_item', 1, 'Washing machine', 50000, 'stiralka', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
  657. *P FUNC ('$single_stock_item', 1, 'Camera', 10000, 'zenit', $CURLOC)
  658. *P FUNC ('$single_stock_item', 1, 'Mini camera disguised as a cigarette pack', 40000, 'minifoto', $CURLOC)
  659. *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')
  660. *P '</table></center>'
  661. gs 'stat'
  662. if night_mode = 1:
  663. fcolor = rgb(255, 255, 255)
  664. bcolor = rgb(0, 0, 0)
  665. lcolor = rgb(106, 90, 205)
  666. else
  667. fcolor = rgb(0, 0, 0)
  668. bcolor = rgb(255, 255, 255)
  669. lcolor = rgb(106, 90, 205)
  670. end
  671. act 'Leave the appliance department':gt 'shop', 'start'
  672. end
  673. !! Ice cream counter
  674. if $shoplocation = 'icecream':
  675. 'Ice cream is available for sale for 50 <b>₽</b>.'
  676. act 'Move away from the counter':gt 'shop', 'start'
  677. if money >= 50:
  678. act 'Buy ice cream':
  679. cls
  680. money -= 50
  681. fat += 3
  682. pcs_mood += 50
  683. water += 60
  684. pcs_energy += 30
  685. cumspclnt = 2
  686. gs 'cum_cleanup'
  687. pcs_breath = 0
  688. gs 'stat'
  689. '<center><img <<$set_imgh>> src="images/shared/food/icecreem.jpg"></center>'
  690. 'You bought ice cream and ate it not going far.'
  691. act 'Move away from the counter':gt 'shop', 'start'
  692. end
  693. end
  694. end
  695. if $shoplocation = 'megafon':
  696. cls
  697. minut+=3
  698. gs'stat'
  699. i = 0
  700. '<center><b><font color = maroon>Salon connection Megaphone</font></B></center>'
  701. '<center><img src="images/system/phone/megafon2.jpg" ></center>'
  702. *pl '<center><table align="center">'
  703. :loopcard
  704. if i = 0:
  705. n = 5
  706. price = 60
  707. $buy_link = '<a' + iif(money >= 60, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  708. elseif i = 1:
  709. n = 10
  710. price = 115
  711. $buy_link = '<a' + iif(money >= 115, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  712. elseif i = 2:
  713. n = 20
  714. price = 220
  715. $buy_link = '<a' + iif(money >= 220, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  716. elseif i = 3:
  717. n = 50
  718. price = 520
  719. $buy_link = '<a' + iif(money >= 520, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
  720. end
  721. i += 1
  722. '<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>'
  723. if i < 4:
  724. jump 'loopcard'
  725. end
  726. '</table></center>'
  727. act 'Exit Department':gt'shop','start'
  728. if money > 0:
  729. act 'Put the money on the phone':
  730. cla
  731. set minut = minut + 5
  732. obmennik = input ("How many <b>₽</b> do you want to deposit?")
  733. if obmennik <= 0:
  734. '<center><br><b>Do you want to think again?</b></center>'
  735. act 'Exit Department':gt'shop','start'
  736. else
  737. if money < obmennik:
  738. '<center><br>You do not have <b><<obmennik>></b> <b>₽</b>.</center>'
  739. act 'Exit Department':gt'shop','start'
  740. end
  741. if money >= obmennik:
  742. set balans = balans + obmennik
  743. set money = money - obmennik
  744. clr
  745. gs'stat'
  746. '<center><br>You put <b><<obmennik>></b> <b>₽</b> to the account.</center>'
  747. act 'Exit Department':gt'shop','start'
  748. end
  749. end
  750. end
  751. end
  752. end
  753. if $shoplocation = 'Anya':
  754. cla
  755. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister.jpg"></center>'
  756. gs'dinsister'
  757. dynamic $sischecks
  758. '"<<$pcs_nickname>>, do not disturb me at work, can''t you see I have customers?""'
  759. act '<B>Move away</B>':gt'shop','start'
  760. end
  761. --- shop ---------------------------------