1
0

shop 26 KB

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