rinok 7.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261
  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 = $CURLOC
  21. $metkaM = $ARGS[0]
  22. $locM = $CURLOC
  23. '<center><b><font color="maroon">Marketplace</font></b></center>'
  24. '<center><img src="images/etogame/rinok.jpg"></center>'
  25. '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>.'
  26. *pl
  27. *pl '<center><table align="center">' + _
  28. FUNC ('$stock_item', 10, 'Dishwashing detergent', 45, 'fairy', 'rinok') + _
  29. FUNC ('$stock_item', 10, 'Clothing detergent', 90, 'poroshok', 'rinok') + _
  30. FUNC ('$stock_item', 8, 'Plates', 500, 'cltarelka', 'rinok') + _
  31. FUNC ('$stock_item', 20, 'Cosmetics', 380, 'kosmetica', 'rinok') + _
  32. FUNC ('$stock_item', 5, 'Razors', 200, 'stanok', 'rinok') + _
  33. FUNC ('$stock_item', 10, 'Tampons', 120, 'tampon', 'rinok') + _
  34. FUNC ('$stock_item', 10, 'Sanitary napkins', 120, 'sanpad', 'rinok') + _
  35. FUNC ('$stock_item', 5, 'Underwear', 1450, 'clrbelo', 'rinok')
  36. *pl iif(umbrella = 0, FUNC ('$single_stock_item', 1, 'Umbrella', 1000, 'umbrella', 'rinok'), '') + _
  37. '</table></center>'
  38. if analplugIN = 1 and tanga = 0 and PCloSkirt > 2:
  39. nurand = rand(0, 100)
  40. if nurand >= 80:
  41. manna -= 5
  42. SUB += 1
  43. horny += SUB
  44. nudity += 1
  45. 'You feel someones hand gently touch <a href="exec:gt ''etoexhib'', ''pos15''">your butt</a>.'
  46. end
  47. end
  48. act 'Leave':
  49. cla
  50. minut += 5
  51. $metka = ''
  52. gt 'street'
  53. end
  54. if workrin = 1:
  55. if week = 2 or week = 4 or week = 6:
  56. if hour < 9:
  57. 'Arthur is waiting to set up a stall for you.'
  58. act '<b>Set up stall</b>':
  59. cla
  60. *clr
  61. hour = 9
  62. minut = 0
  63. prodpayum = 1200
  64. 'Arthur unloads stuff from his truck and gives them to you. You start hanging the clothes on the stall.'
  65. '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>."'
  66. act 'To work':gt 'rinwork', 'start'
  67. end
  68. end
  69. end
  70. act 'Retire from work':
  71. cla
  72. work = 0
  73. workrin = 0
  74. 'You retired from work and collect papers.'
  75. act 'Leave':gt 'rinok', 'start'
  76. end
  77. end
  78. if (work = 0 or cheatWork = 1) and workrin = 0:
  79. nl
  80. 'On one of the tents hangs an ad, "Need female market stall staff. Paychecks big."'
  81. act 'Approach the owner of the ad':
  82. cla
  83. *clr
  84. 'Hi, my name is Arthur. I own many stalls here, I need a saleswoman. The last one moved to St. Petersburg. Want the job?'
  85. 'Pay is a percentage of sales, paid at end of shift. Your shifts would be Tuesdays, Thursdays and Saturdays. From 8 till 14.'
  86. 'Government insist I have your papers, so it would be your main job.'
  87. act 'Leave':gt 'rinok', 'start'
  88. act 'Take the job':
  89. cla
  90. work = 1
  91. workrin = 1
  92. arturplan = 5000
  93. 'You give your papers to Arthur and shaking your hand he welcomes you on board.'
  94. act 'Leave':gt 'rinok', 'start'
  95. end
  96. end
  97. end
  98. act 'Go to the book tray':
  99. cls
  100. minut += 15
  101. gs'stat'
  102. 'On the counter is a very entertaining fantasy book, that is all 150 <b>₽</b> and women''s novels are in paperback standing 300 <b>₽</b>.'
  103. if money >= 150:
  104. act 'Buy a book of fantasy 150r':
  105. cls
  106. minut += 15
  107. money -= 150
  108. f_book += 1
  109. gs'stat'
  110. 'You bought the book for fantasy 150 <b>₽</b>.'
  111. act 'Leave':gt'rinok','start'
  112. end
  113. end
  114. if money >= 300:
  115. act 'Buy ladies for romance 300r':
  116. cls
  117. minut += 15
  118. money -= 300
  119. w_book += 1
  120. gs'stat'
  121. 'You bought the novel for the ladies 300 <b>₽</b>.'
  122. act 'Leave':gt'rinok','start'
  123. end
  124. end
  125. act 'Leave':gt'rinok','start'
  126. end
  127. if coat[5] < 1:
  128. 'On the market you see winter jackets for sale - 4,000 <b>₽</b>'
  129. if coat[5] = 0:dynamic 'act ''Look at cheap coat 5'':gt ''clothing'', ''view_clothing_item'', ''shop'', ''coat'', 5, 4000'
  130. end
  131. act 'View clothing':
  132. cla
  133. minut += 5
  134. gt 'rinok', 'clo'
  135. end
  136. end
  137. if $ARGS[0] = 'clo':
  138. $metka = $ARGS[0]
  139. $loc = $CURLOC
  140. cls
  141. gs'stat'
  142. fcolor = rgb(0, 0, 0)
  143. bcolor = rgb(255, 255, 255)
  144. lcolor = rgb(106, 90, 205)
  145. '<center><b><font color="maroon">Clothes.</font></b></center>'
  146. 'Cheap clothing on the market stall.'
  147. act 'Return':
  148. cla
  149. minut += 5
  150. gt 'rinok', 'start'
  151. end
  152. i = 15
  153. :loopcheap
  154. if cheap[i] = 0:*p '<a href="exec: i = <<i>> & gt ''rinok'', ''marketclo''"><img src="images/clothing/1cheap/cheap<<i>>.jpg" height="400" /></a>'
  155. i += 1
  156. if i <= 20:jump 'loopcheap'
  157. end
  158. if $ARGS[0] = 'marketclo':
  159. cla
  160. if cheap[i] ! 0:
  161. msg 'You already own these clothes.'
  162. gt 'rinok', 'clo'
  163. end
  164. gt 'clothing', 'view_clothing_item', 'shop', 'cheap',i, 1500
  165. end
  166. if $ARGS[0] = 'tailor':
  167. CLOSE ALL
  168. cls
  169. gs 'stat'
  170. 'Above the window the sign says, Jacob Solomonovich Schneersohn, tailor, 8:00-16:00 Monday - Friday'
  171. act 'Speak to the tailor':
  172. cla
  173. *clr
  174. '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.'
  175. if portnoyQW > 0:
  176. 'Aah <<$name>>, come, come to adjust clothes again?'
  177. if money >= 500:
  178. act 'Take in the clothes you are wearing (500 <b>₽</b>)':
  179. cla
  180. *clr
  181. minut += 15
  182. if CloStyle = 5 or $clothingworntype = 'exercise':
  183. 'What are you wasting my time for? This type of clothing does not need to be resized.'
  184. else
  185. money -= 500
  186. dynamic '<<$clothingworntype>>B[<<clothingwornnumber>>] = bedra'
  187. 'You undress and give the clothes you need adjusting to Jacob Solomonovich, it is fifteen minutes until your clothes and returned to you.'
  188. end
  189. act 'Leave':gt 'street'
  190. end
  191. act 'Take in different clothes':gt 'clothing', 'view_clothing_list', 'resize'
  192. act 'Take in all the clothes':gt 'portnoi2'
  193. end
  194. else
  195. 'Hello young lady. I am Solomonovich Jacob, for you simply Yasha. And what is your name?'
  196. act 'Tell him your name':
  197. cla
  198. portnoyQW = 1
  199. '"<<$name>>"'
  200. '"What a pretty name. <<$name>>, come, sit here on this chair. Anyway how can I help you?'
  201. act 'Ask him about your clothes':
  202. cla
  203. *clr
  204. minut += 15
  205. gs 'stat'
  206. '"Can you tailor my clothes to fit me better?"'
  207. '"Of course I can! Otherwise, what kind of tailor would I be? Here, let me see what you''re wearing."'
  208. 'Jacob Solomonovich jumps up smartly and nimbly removes the tape from his neck and begins to measure your chest, waist and hips.'
  209. '"Well, I can take in whatever clothing you bring to me for 500 <b>₽</b>."'
  210. act 'Leave':gt 'street'
  211. end
  212. end
  213. end
  214. act 'Leave':gt 'street'
  215. end
  216. end
  217. --- rinok ---------------------------------