1
0

rinok.qsrc 7.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280
  1. # rinok
  2. $location_type = 'public_outdoors'
  3. if $ARGS[0] = 'start' or $metka = 'start':
  4. CLOSE ALL
  5. if sound = 0:
  6. if month >=11 and month <= 12 or month >=1 and month <=3:
  7. if hour >= 8 and hour <= 23: PLAY 'sound/rynok.mp3',30 & PLAY 'sound/zima.mp3',30
  8. if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
  9. else
  10. if hour >= 8 and hour <= 23: PLAY 'sound/rynok.mp3',30 & PLAY 'sound/street_leto.mp3',30
  11. if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
  12. end
  13. end
  14. !if sound = 0:PLAY 'sound/street.mp3',30
  15. cls
  16. gs 'stat'
  17. minut = minut + 5
  18. mag = 1
  19. $metka = 'start'
  20. $loc = 'rinok'
  21. $menu_loc = 'rinok'
  22. $menu_arg = 'start'
  23. '<center><b><font color="maroon">Marketplace</font></b></center>'
  24. '<center><img <<$set_imgh>> src="images/locations/city/residential/market/rinok.jpg"></center>'
  25. ''
  26. 'On one of the stalls has a sign "Cash paid for secondhand clothes", here you can <a href="exec:cloc=2 & gt ''clothing'', ''view_clothing_list'', ''sell''">sell individual items</a> or <a href="exec:gs ''portnoi''">all of your unwanted clothes</a>.'
  27. if $message ! '':
  28. '<center>'+$message+'</center>'
  29. killvar '$message'
  30. else
  31. ''
  32. end
  33. *pl '<center><table align="center" width=80%>'
  34. *P FUNC ('$stock_item', 10, 'Dishwashing detergent', 400, 'fairy', 'rinok')
  35. *P FUNC ('$stock_item', 10, 'Clothing detergent', 400, 'poroshok', 'rinok')
  36. *P FUNC ('$stock_item', 8, 'Plates', 450, 'cltarelka', 'rinok')
  37. *P FUNC ('$stock_item', 20, 'Cosmetics', 1000, 'kosmetica', 'rinok')
  38. *P FUNC ('$stock_item', 30, 'Razors', 600, 'stanok', 'rinok')
  39. *P FUNC ('$stock_item', 10, 'Tampons', 160, 'tampon', 'rinok')
  40. *P FUNC ('$stock_item', 10, 'Sanitary napkins', 80, 'sanpad', 'rinok')
  41. *P FUNC ('$single_stock_item', 1, 'Umbrella', 1000, 'umbrella', 'rinok', '', iif(bag > 0, 0, 1), 'You need a purse')
  42. '</table></center>'
  43. *pl
  44. if analplugIN = 1 and $pantyworntype = 'none' and PCloSkirt > 2:
  45. nurand = rand(0, 100)
  46. if nurand >= 80:
  47. pcs_mood -= 5
  48. gs 'exhibitionism', 1
  49. 'You feel someones hand gently touch <a href="exec:gt ''etoexhib'', ''pos15''">your butt</a>.'
  50. gs 'arousal', 'foreplay', 3
  51. gs 'stat'
  52. end
  53. end
  54. act 'Leave':
  55. cla
  56. minut += 5
  57. $metka = ''
  58. gs 'arousal', 'end'
  59. gs 'stat'
  60. gt 'street'
  61. end
  62. if workrin = 1:
  63. if week = 2 or week = 4 or week = 6:
  64. if hour < 9:
  65. 'Arthur is waiting to set up a stall for you.'
  66. act '<b>Set up stall</b>':
  67. cla
  68. *clr
  69. hour = 9
  70. minut = 0
  71. prodpayum = 1200
  72. 'Arthur unloads stuff from his truck and gives them to you. You start hanging the clothes on the stall.'
  73. 'Before leaving Arthur gives you instructions. "Sell at whatever price you want, but at the end of your shift I will charge you 1000 <b>₽</b> for each item sold. You should be making me no less than <<arturplan>> <b>₽</b>."'
  74. act 'To work':gt 'rinwork', 'start'
  75. end
  76. end
  77. end
  78. act 'Retire from work':
  79. cla
  80. work = 0
  81. workrin = 0
  82. 'You retired from work and collect papers.'
  83. act 'Leave':gt 'rinok', 'start'
  84. end
  85. end
  86. if (work = 0 or cheatWork = 1) and workrin = 0:
  87. nl
  88. 'On one of the tents hangs an ad, "Need female market stall staff. Paychecks big."'
  89. act 'Approach the owner of the ad':
  90. cla
  91. *clr
  92. 'Hi, my name is Arthur. I own many stalls here, I need a saleswoman. The last one moved to St. Petersburg. Want the job?'
  93. 'Pay is a percentage of sales, paid at end of shift. Your shifts would be Tuesdays, Thursdays and Saturdays. From 8 till 14.'
  94. 'Government insist I have your papers, so it would be your main job.'
  95. act 'Leave':gt 'rinok', 'start'
  96. act 'Take the job':
  97. cla
  98. work = 1
  99. workrin = 1
  100. arturplan = 5000
  101. 'You give your papers to Arthur and shaking your hand he welcomes you on board.'
  102. act 'Leave':gt 'rinok', 'start'
  103. end
  104. end
  105. end
  106. act 'Go to the book tray':
  107. cls
  108. minut += 15
  109. gs'stat'
  110. 'On the counter is a very entertaining fantasy book, a science fiction book and women''s romance novels. They all cost 350 <b>₽</b>.'
  111. if money >= 350:
  112. act 'Buy a book of fantasy 350 <b>₽</b>':
  113. cls
  114. minut += 15
  115. money -= 350
  116. f_book += 1
  117. gs'stat'
  118. 'You bought the book for fantasy 350 <b>₽</b>.'
  119. act 'Leave':gt'rinok','start'
  120. end
  121. end
  122. if money >= 350:
  123. act 'Buy a book of science fiction 350 <b>₽</b>':
  124. cls
  125. minut += 15
  126. money -= 350
  127. f_book += 1
  128. gs'stat'
  129. 'You bought the book for science fiction 350 <b>₽</b>.'
  130. act 'Leave':gt'rinok','start'
  131. end
  132. end
  133. if money >= 350:
  134. act 'Buy ladies for romance 350 <b>₽</b>':
  135. cls
  136. minut += 15
  137. money -= 350
  138. w_book += 1
  139. gs'stat'
  140. 'You bought the novel for the ladies 350 <b>₽</b>.'
  141. act 'Leave':gt'rinok','start'
  142. end
  143. end
  144. act 'Leave':gt'rinok','start'
  145. end
  146. if coat[5] < 1:
  147. 'On the market you see winter jackets for sale - 4,000 <b>₽</b>'
  148. if coat[5] = 0:dynamic 'act ''Look at cheap coat 5'':gt ''clothing'', ''view_clothing_item'', ''shop'', ''coat'', 5, 4000'
  149. end
  150. act 'View clothing':
  151. cla
  152. minut += 5
  153. gt 'rinok', 'clo'
  154. end
  155. end
  156. if $ARGS[0] = 'clo':
  157. $metka = $ARGS[0]
  158. $loc = $CURLOC
  159. cls
  160. gs'stat'
  161. gs 'themes', 'indoors'
  162. '<center><b><font color="maroon">Clothes.</font></b></center>'
  163. 'Cheap clothing on the market stall.'
  164. act 'Return':
  165. cla
  166. minut += 5
  167. gt 'rinok', 'start'
  168. end
  169. i = 15
  170. :loopcheap
  171. if cheap[i] = 0:*p '<a href="exec: i = <<i>> & gt ''rinok'', ''marketclo''"><img <<$set_imgh>> src="images/pc/clothing/1cheap/<<i>>.jpg" height="400" /></a>'
  172. i += 1
  173. if i <= 20:jump 'loopcheap'
  174. end
  175. if $ARGS[0] = 'marketclo':
  176. cla
  177. if cheap[i] ! 0:
  178. msg 'You already own these clothes.'
  179. gt 'rinok', 'clo'
  180. end
  181. gt 'clothing', 'view_clothing_item', 'shop', 'cheap',i, 750
  182. end
  183. if $ARGS[0] = 'tailor':
  184. CLOSE ALL
  185. cls
  186. gs 'stat'
  187. 'Above the window the sign says, Jacob Solomonovich Schneersohn, tailor, 8:00-16:00 Monday - Friday'
  188. act 'Speak to the tailor':
  189. cla
  190. *clr
  191. 'Elderly Jewish man makes a pattern at the table, he pulls his glasses down a little and looking over the top of them he points at you.'
  192. if portnoyQW > 0:
  193. 'Aah <<$pcs_nickname>>, come, come to adjust clothes again?'
  194. if money >= 500:
  195. act 'Take in the clothes you are wearing (500 <b>₽</b>)':
  196. cla
  197. *clr
  198. minut += 15
  199. if CloStyle = 5 or $clothingworntype = 'exercise':
  200. 'What are you wasting my time for? This type of clothing does not need to be resized.'
  201. else
  202. money -= 500
  203. dynamic '<<$clothingworntype>>B[<<clothingwornnumber>>] = pcs_hips'
  204. 'You undress and give the clothes you need adjusting to Jacob Solomonovich, it is fifteen minutes until your clothes and returned to you.'
  205. end
  206. act 'Leave': minut += 10 & gt 'street'
  207. end
  208. act 'Take in different clothes':gt 'clothing', 'view_clothing_list', 'resize'
  209. act 'Take in all the clothes':gt 'portnoi2'
  210. end
  211. else
  212. 'Hello young lady. I am Solomonovich Jacob, for you simply Yasha. And what is your name?'
  213. act 'Tell him your name':
  214. cla
  215. portnoyQW = 1
  216. '"<<$pcs_nickname>>"'
  217. '"What a pretty name. <<$pcs_nickname>>, come, sit here on this chair. Anyway how can I help you?'
  218. act 'Ask him about your clothes':
  219. cla
  220. *clr
  221. minut += 15
  222. gs 'stat'
  223. '"Can you tailor my clothes to fit me better?"'
  224. '"Of course I can! Otherwise, what kind of tailor would I be? Here, let me see what you''re wearing."'
  225. 'Jacob Solomonovich jumps up smartly and nimbly removes the tape from his neck and begins to measure your chest, waist and hips.'
  226. '"Well, I can take in whatever clothing you bring to me for 500 <b>₽</b>."'
  227. act 'Leave': minut += 10 & gt 'street'
  228. end
  229. end
  230. end
  231. act 'Leave': minut += 10 & gt 'street'
  232. end
  233. end
  234. --- rinok ---------------------------------