Grinok 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347
  1. # Grinok
  2. !{change log
  3. March 31, 2016
  4. Added rice wine quest
  5. April 20, 2016
  6. Fixed Rice wine event
  7. }
  8. $metka = $ARGS[0]
  9. $loc = $CURLOC
  10. CLOSE ALL
  11. if sound = 0:
  12. if month >=11 and month <= 12 or month >=1 and month <=3:
  13. if hour >= 8 and hour <= 23: PLAY 'sound/rynok.mp3',30 & PLAY 'sound/zima.mp3',30
  14. if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
  15. else
  16. if hour >= 8 and hour <= 23: PLAY 'sound/rynok.mp3',30 & PLAY 'sound/street_leto.mp3',30
  17. if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
  18. end
  19. end
  20. clr
  21. gs 'stat'
  22. gs 'time'
  23. '<center><h4>Market</h4></center>'
  24. '<center><img src="images/pic/Grinok.jpg"></center>'
  25. 'This small market is location near the station.'
  26. if arturQW = 1 and (week = 6 or week = 7) and hour < 12:
  27. act 'Wait for Arthur to arrive':hour = 12 & gt 'grinok'
  28. end
  29. if hour >= 8 and hour <= 18:
  30. 'In the market the sellers of goods are beckoning shoppers.'
  31. if gorslut > 2 and rand(0,9) = 0:
  32. 'An Armenian man comes up to you and in broken Russian says, "You girl who like men, no? Come meet real men have good time."'
  33. act 'Go with him':gt 'gevent', '3'
  34. act 'Reject him':
  35. 'You pretend not to understand what he is saying.'
  36. act 'Return':gt 'Grinok'
  37. end
  38. exit
  39. end
  40. act 'Wander through the market':
  41. cls
  42. minut += 15
  43. gs 'stat'
  44. 'You are strolling through the market looking for good deals.'
  45. if intel >= 100:
  46. rinmaxrand = 2
  47. elseif intel >= 75 and intel < 100:
  48. rinmaxrand = 4
  49. elseif intel >= 50 and intel < 75:
  50. rinmaxrand = 6
  51. elseif intel >= 25 and intel < 50:
  52. rinmaxrand = 8
  53. else
  54. rinmaxrand = 10
  55. end
  56. rinevrand = RAND(0,rinmaxrand)
  57. if rinevrand = 0:
  58. if arturKnow = 0:
  59. temp = rand(0, 6)
  60. else
  61. temp = rand(0, 5)
  62. end
  63. if temp = 0:
  64. tovpay = rand(3, 8) * 100
  65. 'You see that cosmetics are for sale for <<tovpay>> rubles.'
  66. if money >= tovpay:
  67. act 'Buy':
  68. cls
  69. minut += 15
  70. money -= tovpay
  71. kosmetica += rand(10, 40)
  72. gs 'stat'
  73. gt $curloc
  74. end
  75. end
  76. elseif temp = 1:
  77. tovpay = rand(2, 5) * 100
  78. 'You see vitamins for sale for <<tovpay>> rubles.'
  79. if money >= tovpay:
  80. act 'Buy':
  81. cls
  82. minut += 15
  83. vitamin += 20
  84. money -= tovpay
  85. gt $curloc
  86. end
  87. end
  88. elseif temp = 2:
  89. tovpay = rand(2, 8) * 10
  90. 'You see a booth selling condoms for <<tovpay>> rubles.'
  91. if money >= tovpay:
  92. act 'Buy':
  93. cls
  94. minut += 15
  95. prezik += 5
  96. money -= tovpay
  97. gt $curloc
  98. end
  99. end
  100. elseif temp = 3:
  101. tovpay = rand(5, 10) * 100
  102. 'There is lip balm for sale for <<tovpay>> rubles.'
  103. if money >= tovpay:
  104. act 'Buy':
  105. cls
  106. minut += 15
  107. lipbalm += 20
  108. money -= tovpay
  109. gt $curloc
  110. end
  111. end
  112. elseif temp = 4:
  113. tovpay = rand(1, 5) * 1000
  114. 'You see someone selling a handbag for <<tovpay>> rubles.'
  115. if bag = 0:
  116. if money >= tovpay:
  117. act 'Buy':
  118. cls
  119. minut += 15
  120. bag = 1
  121. money -= tovpay
  122. gt $curloc
  123. end
  124. end
  125. else
  126. 'But you already have a bag, so you move on.'
  127. end
  128. elseif temp = 5:
  129. if pornmarkonce = 0:pornmarkonce = 1
  130. 'Strolling through the market you accidentally wander into the far corner where they sell porn.'
  131. act 'Go to the area with the porn':gt 'Gpornmark'
  132. else
  133. 'Someone suddenly called out to you, "Hey pretty girl, do you want a fresh, juicy tangerine?"'
  134. act 'Look':gt 'arturRinok', 'start'
  135. end
  136. else
  137. 'Nothing unusual you do not come across, trash, buckets, granny gowns, sneakers, breeches and waistcoats with pockets.'
  138. end
  139. act 'Move on':gt $curloc
  140. end
  141. if pornmarkonce = 1:
  142. act 'Go to the area with the porn':gt 'Gpornmark'
  143. end
  144. if arturKnow = 1 and arturQW = 0:
  145. act 'Go to Arthur':gt 'arturRinok', 'start'
  146. elseif arturQW = 1 and (week = 6 or week = 7):
  147. if hour = 12 or hour = 13:
  148. act 'Go to Arthur':gt 'arturRinok', 'work_1'
  149. end
  150. elseif arturQW = 2:
  151. if hour = 16 and minut <= 30:
  152. act 'Go to Arthur':gt 'arturRinok', 'work_2'
  153. elseif hour < 16:
  154. act 'Wait for Arthur to arrive':hour = 16 & minut = 0 & gt 'Grinok'
  155. end
  156. end
  157. act 'Go to the book seller':
  158. cls
  159. minut += 15
  160. gs 'stat'
  161. 'On the shelves are very entertaining fantasy books, which costs only 150 rubles each and there are also women''s romance paperback novels for 300 rubles each.'
  162. if money >= 150:
  163. act 'Buy a fantasy book (150 rubles)':
  164. cls
  165. minut += 15
  166. money -= 150
  167. f_book += 1
  168. gs 'stat'
  169. 'You bought a fantasy book for 150 rubles.'
  170. act 'Leave':gt $curloc
  171. end
  172. end
  173. if money >= 300:
  174. act 'Buy a romance novel (300 rubles)':
  175. cls
  176. minut += 15
  177. money -= 300
  178. w_book += 1
  179. gs 'stat'
  180. 'You bought a romance novel for 300 rubles.'
  181. act 'Leave':gt $curloc
  182. end
  183. end
  184. act 'Escape':gt $curloc
  185. end
  186. if gobelen > 0 and gobQW = 0:
  187. act'Sell ​​tapestry':
  188. cls
  189. gobQW = 1
  190. minut += 15
  191. gs'stat'
  192. 'You stood quietly by the entrance to the market, waiting for customers and displaying your tapestries. Shortly buyers started to gather, but a large, muscular man approached you and said, "It is illegal to trade in the market without a trader''s licence, but I may be interesting in buying your tapestries, 500 rubles apiece. Come and see me at my stall."'
  193. 'Not wanting to get into trouble, you packed your stuff away. The man was already gone, but you saw which direction he went and he should be easy to find.'
  194. act 'Escape':gt $curloc
  195. end
  196. end
  197. if gobelen > 0 and gobQW >= 1:
  198. act'Sell ​​tapestry':
  199. cls
  200. minut += 15
  201. gs'stat'
  202. 'You went to the man who offered to buy your tapestries for 500 rubles. You found him by his stall, smiling.'
  203. if gobQW = 2:
  204. 'Roman welcomed you. Interested and businesslike, he asked what you have for sale.'
  205. end
  206. if gobQW = 1:
  207. gobQW = 2
  208. minute + 5
  209. 'The man greeted you and introduced himself as Roman, you told him that your name is <<$name>>. After a brief chat Roman said that he is interested in seeing what you have for sale.'
  210. end
  211. act'Show tapestry':
  212. cls
  213. gobelen -= 1
  214. money += 500
  215. gs'stat'
  216. 'You show your tapestry to Roman and he gives you five hundred for it. You take the money and give him the tapestry.'
  217. act 'Escape':gt $curloc
  218. end
  219. if gobelen > 1:
  220. act'Sell ​​all tapestries':
  221. cls
  222. kolgob = gobelen
  223. gobelen = 0
  224. moneyGob = kolgob*500
  225. money += moneyGob
  226. gs'stat'
  227. 'You show Roman your tapestries and he gives you <<moneyGob>> rubles for them. You take the money and give him the tapestries.'
  228. act 'Escape':gt $curloc
  229. end
  230. end
  231. act 'Leave':gt $curloc
  232. end
  233. end
  234. if ShowerIvan = 5 and porndeal = 0 and rand(1,100) <= 10:
  235. cls
  236. cla
  237. gs 'stat'
  238. minut += 20
  239. '<center><img src="images/locations/Pavlovsk/Market/chinese_stall01.jpg"></center>'
  240. 'You were looking through the market when you came upon a stall selling Chinese foods. On a shelf behind the old woman minding the stall there are a number of bottles.'
  241. act 'Ask about huangjiu':
  242. 'You asked the old woman if she has any rice wine to sell. She smiles at you and points to a basket filled with rice.'
  243. '"Onry 2 kopec, hundred glam." she said in badly accented Russian, "You buy?"'
  244. '"No," you replied, "I need rice wine, rice wine."'
  245. 'She looked at you in confusion for a moment then suddenly brightened, "Ah!" she exclaimed, "Come, come!"'
  246. 'The old woman hurried to the other side of the stall and you followed her to where a number of smoked piglets hung in a row.'
  247. '"Here," the old woman crowed handing you one of r the pigs, "Nice swine, vely nice swine."'
  248. '"No, not nice swine," you cried in dispair, "Rice. Wine."'
  249. '"Yes, yes," the woman countered, "Nice swine, only 5 lubles."'
  250. 'Just as you were about to give up, a young Chinese boy about your brother''s age arrived.'
  251. '"I am sorry, my grandmother does not speak much Russian." he said as he stepped up beside the old woman who started to speak rapidly to him in what you assumed was Chinese.'
  252. '"My grandmother asks why you don''t like the piglets." he translated as the old woman stopped speaking.'
  253. '"I don''t want a pig," you replied in relief as his Russian is quite good, "I am looking for rice wine, wang-goo."'
  254. '"Ah, huangjiu!" he said in understanding then spoke to his grandmother in Chinese.'
  255. 'The old woman glared at you then hung the smoked pig back on its hook. She shuffled over to the shelf with the bottles and peered short-sightedly at the labels. She finally picked up one of them and brought it over to you.'
  256. '"Why you not say wanted lice wine." she asked in aggrieved tones, "2000 lubles."'
  257. if money >= 2000:
  258. act 'Buy the wine':
  259. money -= 2000
  260. ricewine = 1
  261. 'You hand the woman the money and she gives you the wine.'
  262. act 'Leave': gt $curloc
  263. end
  264. else
  265. 'You are astonished by the price and realize that you cannot afford the wine. You apologize and turn away.'
  266. act 'Leave the market': gt $curloc
  267. act 'Continue browsing the market':
  268. cls
  269. cla
  270. gs 'stat'
  271. minut += 15
  272. '<center><img src="images/locations/Pavlovsk/Market/market_boy01.jpg"></center>'
  273. 'You continued to wander through the market for another 15 minutes when the boy from the Chinese stall came up to you.'
  274. '"Hey, you really want that rice wine?" he asked after checking to make sure no one was watching.'
  275. '"Yes," you answered him, "But it costs too much. I can''t afford it."'
  276. '"I''ll make a deal with you." he said, "Go to the porn dealer and buy me a porn magazine and I''ll get you the wine."'
  277. if pornmarkonce = 0: pornmarkonce = 1 & '"Where is the porn dealer?" you asked and he gives you directions.'
  278. act 'Agree': porndeal = 1 & gt 'Gpornmark'
  279. act 'Refuse':
  280. 'You declined his offer and he shrugged and walked away.'
  281. act 'Leave': gt $curloc
  282. end
  283. end
  284. end
  285. end
  286. elseif porndeal = 1 and porndealday ! daystart:
  287. cls
  288. cla
  289. gs 'stat'
  290. porndealday = daystart
  291. '<center><img src="images/locations/Pavlovsk/Market/market_boy01.jpg"></center>'
  292. 'The boy from the Chinese stall comes up to you as you entered the market.'
  293. '"Do you have it?" he asked eagerly.'
  294. if haveporn = 1:
  295. porndeal = 2 & ! to close the ricewine event
  296. ricewine = 1
  297. '"Do you have the wine?" you countered.'
  298. 'He pulls the bottle out of his backpack and you trade items.'
  299. act 'Leave': gt $curloc
  300. else
  301. 'You told him you didn''t have his magazine yet but you were working on it.'
  302. act 'Leave': gt $curloc
  303. end
  304. end
  305. else
  306. 'There is no one in the market.'
  307. end
  308. act 'Go back to the station':minut += 3 & gt 'vokzalG'
  309. --- Grinok ---------------------------------