087_rinok 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271
  1. # rinok
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. set minut += 5
  6. $rinbuy1 = {
  7. cla
  8. *clr
  9. portion = input ("How much you want to buy?")
  10. if portion <= 0:portion = 1
  11. if portion * 50 > money:'You do not have enough money.'
  12. if portion * 50 <= money:
  13. set fairy += portion
  14. set money -= portion * 50
  15. '<center><img src="images/etogame/kassa2.jpg"></center>'
  16. 'You pay the cashier and bought dishwashing detergent.'
  17. end
  18. act 'Move away from the counter':gt 'rinok', 'start'
  19. }
  20. $rinbuy2 = {
  21. cla
  22. *clr
  23. portion = input ("How much you want to buy?")
  24. if portion <= 0:portion = 1
  25. if portion * 150 > money:'You do not have enough money.'
  26. if portion * 150 <= money:
  27. set poroshok += portion
  28. set money -= portion * 150
  29. '<center><img src="images/etogame/kassa2.jpg"></center>'
  30. 'You pay the cashier and bought detergent.'
  31. end
  32. act 'Move away from the counter':gt 'rinok', 'start'
  33. }
  34. $rinbuy3 = {
  35. cla
  36. *clr
  37. portion = input ("How much you want to buy?")
  38. if portion <= 0:portion = 1
  39. if portion * 150 > money:'You do not have enough money.'
  40. if portion * 150 <= money:
  41. set cltarelka += portion * 3
  42. set money -= portion * 150
  43. '<center><img src="images/etogame/kassa2.jpg"></center>'
  44. 'You pay the cashier and bought plates.'
  45. end
  46. act 'Move away from the counter':gt 'rinok', 'start'
  47. }
  48. $rinbuy4 = {
  49. cla
  50. *clr
  51. portion = input ("How much you want to buy?")
  52. if portion <= 0:portion = 1
  53. if portion * 500 > money:'You do not have enough money.'
  54. if portion * 500 <= money:
  55. set kosmetica += portion * 25
  56. set money -= portion * 500
  57. '<center><img src="images/etogame/kassa2.jpg"></center>'
  58. 'You pay the cashier and bought cosmetics.'
  59. end
  60. act 'Move away from the counter':gt 'rinok', 'start'
  61. }
  62. $rinbuy5 = {
  63. cla
  64. *clr
  65. portion = input ("How much you want to buy?")
  66. if portion <= 0:portion = 1
  67. if portion * 200 > money:'You do not have enough money.'
  68. if portion * 200 <= money:
  69. set stanok += portion * 10
  70. set money -= portion * 200
  71. '<center><img src="images/etogame/kassa2.jpg"></center>'
  72. 'You pay the cashier and bought razor.'
  73. end
  74. act 'Move away from the counter':gt 'rinok', 'start'
  75. }
  76. $rinbuy6 = {
  77. cla
  78. *clr
  79. portion = input ("How much you want to buy?")
  80. if portion <= 0:portion = 1
  81. if portion * 150 > money:'You do not have enough money.'
  82. if portion * 150 <= money:
  83. set tampon += portion * 20
  84. set money -= portion * 150
  85. '<center><img src="images/etogame/kassa2.jpg"></center>'
  86. 'You pay the cashier and bought tampons.'
  87. end
  88. act 'Move away from the counter':gt 'rinok', 'start'
  89. }
  90. $rinbuy7 = {
  91. cla
  92. *clr
  93. portion = input ("How much you want to buy?")
  94. if portion <= 0:portion = 1
  95. if portion * 200 > money:'You do not have enough money.'
  96. if portion * 200 <= money:
  97. set clrbelo += portion
  98. set money -= portion * 200
  99. '<center><img src="images/etogame/kassa2.jpg"></center>'
  100. 'You pay the cashier and bought clothes.'
  101. end
  102. act 'Move away from the counter':gt 'rinok', 'start'
  103. }
  104. $rinbuy8 = {
  105. if money >= 1000 and bikini < 1:
  106. cla
  107. *clr
  108. set money -= 1000
  109. set bikini = 1
  110. '<center><img src="images/etogame/kassa2.jpg"></center>'
  111. 'You pay the cashier and bought a swimsuit.'
  112. act 'Move away from the counter':gt 'rinok', 'start'
  113. else
  114. 'You do not have enough money.'
  115. end
  116. }
  117. $rinbuy9 = {
  118. if money >= 1000 and umbrella < 1:
  119. cla
  120. *clr
  121. set money -= 1000
  122. set umbrella = 1
  123. '<center><img src="images/etogame/kassa2.jpg"></center>'
  124. 'You pay the cashier and bought an umbrella.'
  125. act 'Move away from the counter':gt 'rinok', 'start'
  126. else
  127. 'You do not have enough money.'
  128. end
  129. }
  130. $metka = $ARGS[0]
  131. $loc = $CURLOC
  132. $metkaM = $ARGS[0]
  133. $locM = $CURLOC
  134. mag = 1
  135. '<center><b><font color="maroon">Trade</font></b></center>'
  136. '<center><img src="images/etogame/rinok.jpg"></center>'
  137. '<a href="exec:dynamic $rinbuy1 ">dishwashing detergent - 50 rubles</a> <a href="exec:dynamic $rinbuy2 ">laundry detergent - 150 rubles</a> <a href="exec:dynamic $rinbuy3 ">a set of 3 plates - 150 rubles</a> <a href="exec:dynamic $rinbuy4 ">Cosmetics - 500 rubles</a> <a href="exec:dynamic $rinbuy5 ">razor - 200 rubles</a> <a href="exec:dynamic $rinbuy6 ">tampons - 100 rubles</a> <a href="exec:dynamic $rinbuy7 ">Underwear - 200 rubles</a>'
  138. if bikini < 1:'<a href="exec:dynamic $rinbuy8 ">swimsuit (1,000 rubles)</a>'
  139. if umbrella < 1:'<a href="exec:dynamic $rinbuy9 ">umbrella (1,000 rubles)</a>'
  140. 'On one of the tents hanging listing <a href="exec:gt ''loker2'', ''start''">"Accept the things to implement"</a>'
  141. if (analplugIN = 1 and tanga = 0 and ski = 1) or (analplugIN = 1 and tanga = 0 and glamur = 1):
  142. set nurand = rand(0, 100)
  143. if nurand >= 80:
  144. set manna -= 5
  145. set SUB += 1
  146. set horny += SUB
  147. set nudity += 1
  148. 'You feel that someone gently touched <a href="exec:gt ''etoexhib'', ''pos15''">your hand buttocks</a>'
  149. *nl
  150. end
  151. end
  152. '<a href="exec:numdres = 1 & payclo = 1500 & gt ''loker'', ''jeans''">Inspect jeans number 1</a> <a href="exec:numdres = 2 & payclo = 1500 & gt ''loker'', ''jeans''">Inspect the jeans. Number 2</a> <a href="exec:numdres = 3 & payclo = 1500 & gt ''loker'', ''jeans''">Inspect the jeans. Number 3</a> <a href="exec:numdres = 4 & payclo = 1500 & gt ''loker'', ''jeans''">Inspect the jeans. Number 4</a> <a href="exec:numdres = 5 & payclo = 1500 & gt ''loker'', ''jeans''">Inspect the jeans. Number 5</a>'
  153. clr
  154. gs 'stat'
  155. gs 'time'
  156. act 'Leave':
  157. cla
  158. set minut += 5
  159. gt 'street'
  160. end
  161. if workrin = 1:
  162. if week = 2 or week = 4 or week = 6:
  163. if hour < 9:
  164. 'Arthur item is waiting for you.'
  165. act '<b>Accept goods.</b>':
  166. cla
  167. *clr
  168. hour = 9
  169. minut = 0
  170. prodpayum = 1200
  171. 'Arthur unloaded stuff from his ushatannoy Shokhi to the tray and gave you. You started to hang clothes on the tent.'
  172. 'Before leaving Arthur gives you instructions. "Sell what you want, but that night I would have given to each item sold by 1000. And to gain by selling no less than <<arturplan>> rubles."'
  173. act 'To work.':gt 'rinwork', 'start'
  174. end
  175. end
  176. end
  177. end
  178. if workrin = 1:
  179. act 'Retire from work':
  180. cla
  181. work = 0
  182. workrin = 0
  183. 'You retired from work and took labor.'
  184. act 'Leave':gt 'rinok', 'start'
  185. end
  186. end
  187. if work = 0:
  188. nl
  189. 'On one of the tents hanging ad "Need females saleswomen. Paychecks big."'
  190. act 'Approach to a host of tents ad':
  191. cla
  192. *clr
  193. 'Hi, my name is Arthur. I am the master of the tent, I need a saleswoman. I do not cope. Well? Will you?'
  194. 'Paying a percentage of wages. Will operate on Tuesdays, Thursdays and Saturdays. With 8 to 14.'
  195. 'Work on labor.'
  196. act 'Leave':gt 'rinok', 'start'
  197. act 'Find a job':
  198. cla
  199. work = 1
  200. workrin = 1
  201. arturplan = 5000
  202. 'You got a job to Arthur and gave him a career.'
  203. act 'Leave':gt 'rinok', 'start'
  204. end
  205. end
  206. end
  207. if palto < 1:
  208. 'On the market sell for winter jackets. (5,000 rubles)'
  209. if money >= 5000:
  210. act 'Buy a down jacket':
  211. cla
  212. money -= 5000
  213. palto = 1
  214. $palto = 'Chinese wear'
  215. 'You bought a down jacket.'
  216. act 'Leave':gt 'rinok', 'start'
  217. end
  218. end
  219. end
  220. end
  221. --- rinok ---------------------------------