Grinok 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536
  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. $location_type = 'public_outdoors'
  9. if $ARGS[0] = '':
  10. $metka = $ARGS[0]
  11. $loc = $CURLOC
  12. CLOSE ALL
  13. if sound = 0:
  14. if month >=11 and month <= 12 or month >=1 and month <=3:
  15. if hour >= 8 and hour <= 23: PLAY 'sound/rynok.mp3',30 & PLAY 'sound/zima.mp3',30
  16. if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
  17. else
  18. if hour >= 8 and hour <= 23: PLAY 'sound/rynok.mp3',30 & PLAY 'sound/street_leto.mp3',30
  19. if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
  20. end
  21. end
  22. clr
  23. gs 'stat'
  24. '<center><h4>Market</h4></center>'
  25. '<center><img src="images/pic/grinok.jpg"></center>'
  26. 'This small market is location near the station.'
  27. if arturQW = 1 and (week = 6 or week = 7) and hour < 12:
  28. act 'Wait for Arthur to arrive':hour = 12 & gt 'grinok'
  29. end
  30. if hour >= 8 and hour <= 18:
  31. 'In the market the sellers of goods are beckoning shoppers.'
  32. if gorslut > 2 and rand(0,9) = 0:
  33. '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."'
  34. act 'Go with him':gt 'gevent', '3'
  35. act 'Reject him':
  36. 'You pretend not to understand what he is saying.'
  37. act 'Return':gt 'Grinok'
  38. end
  39. exit
  40. end
  41. act 'Wander through the market': gt 'Grinok','events'
  42. !expand market events from 1.2.4
  43. if pornmarkonce = 1:
  44. act 'Go to the area with the porn':gt 'Gpornmark'
  45. end
  46. if arturKnow = 1 and arturQW = 0:
  47. act 'Go to Arthur':gt 'arturRinok', 'start'
  48. elseif arturQW = 1 and (week = 6 or week = 7):
  49. if hour = 12 or hour = 13:
  50. act 'Go to Arthur':gt 'arturRinok', 'work_1'
  51. end
  52. elseif arturQW = 2:
  53. if hour = 16 and minut <= 30:
  54. act 'Go to Arthur':gt 'arturRinok', 'work_2'
  55. elseif hour < 16:
  56. act 'Wait for Arthur to arrive':hour = 16 & minut = 0 & gt 'Grinok'
  57. end
  58. end
  59. act 'Go to the book seller':
  60. cls
  61. minut += 15
  62. gs 'stat'
  63. 'On the shelves are very entertaining fantasy books, which costs only 150 <b>₽</b> each and there are also women''s romance paperback novels for 300 <b>₽</b> each.'
  64. if money >= 150:
  65. act 'Buy a fantasy book (150 <b>₽</b>)':
  66. cls
  67. minut += 15
  68. money -= 150
  69. f_book += 1
  70. gs 'stat'
  71. 'You bought a fantasy book for 150 <b>₽</b>.'
  72. act 'Leave':gt $curloc
  73. end
  74. end
  75. if money >= 300:
  76. act 'Buy a romance novel (300 <b>₽</b>)':
  77. cls
  78. minut += 15
  79. money -= 300
  80. w_book += 1
  81. gs 'stat'
  82. 'You bought a romance novel for 300 <b>₽</b>.'
  83. act 'Leave':gt $curloc
  84. end
  85. end
  86. act 'Leave':gt $curloc
  87. end
  88. if gobelen > 0 and gobQW = 0:
  89. act'Sell ​​tapestry':
  90. cls
  91. gobQW = 1
  92. minut += 15
  93. gs'stat'
  94. '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 <b>₽</b> apiece. Come and see me at my stall."'
  95. '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.'
  96. act 'Leave':gt $curloc
  97. end
  98. end
  99. if gobelen > 0 and gobQW >= 1:
  100. act'Sell ​​tapestry':
  101. cls
  102. minut += 15
  103. gs'stat'
  104. 'You went to the man who offered to buy your tapestries for 500 <b>₽</b>. You found him by his stall, smiling.'
  105. if gobQW = 2:
  106. 'Roman welcomed you. Interested and businesslike, he asked what you have for sale.'
  107. end
  108. if gobQW = 1:
  109. gobQW = 2
  110. minute + 5
  111. '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.'
  112. end
  113. act'Show tapestry':
  114. cls
  115. gobelen -= 1
  116. money += 500
  117. gs'stat'
  118. 'You show your tapestry to Roman and he gives you five hundred for it. You take the money and give him the tapestry.'
  119. act 'Leave':gt $curloc
  120. end
  121. if gobelen > 1:
  122. act'Sell ​​all tapestries':
  123. cls
  124. kolgob = gobelen
  125. gobelen = 0
  126. moneyGob = kolgob*500
  127. money += moneyGob
  128. gs'stat'
  129. 'You show Roman your tapestries and he gives you <<moneyGob>> <b>₽</b> for them. You take the money and give him the tapestries.'
  130. act 'Leave':gt $curloc
  131. end
  132. end
  133. act 'Leave':gt $curloc
  134. end
  135. end
  136. if ShowerIvan = 5 and porndeal = 0 and rand(1,100) <= 10 and lookwine ! daystart:
  137. cls
  138. cla
  139. gs 'stat'
  140. minut += 20
  141. lookwine = daystart
  142. '<center><img src="images/locations/pavlovsk/market/chinese_stall01.jpg"></center>'
  143. '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.'
  144. act 'Ask about huangjiu':
  145. cla
  146. '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.'
  147. '"Onry 2 kopec, hundred glam." she said in badly accented Russian, "You buy?"'
  148. '"No," you replied, "I need rice wine, rice wine."'
  149. 'She looked at you in confusion for a moment then suddenly brightened, "Ah!" she exclaimed, "Come, come!"'
  150. '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.'
  151. '"Here," the old woman crowed handing you one of r the pigs, "Nice swine, vely nice swine."'
  152. '"No, not nice swine," you cried in dispair, "Rice. Wine."'
  153. '"Yes, yes," the woman countered, "Nice swine, only 5 lubles."'
  154. 'Just as you were about to give up, a young Chinese boy about your brother''s age arrived.'
  155. '"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.'
  156. '"My grandmother asks why you don''t like the piglets." he translated as the old woman stopped speaking.'
  157. '"I don''t want a pig," you replied in relief as his Russian is quite good, "I am looking for rice wine, wang-goo."'
  158. '"Ah, huangjiu!" he said in understanding then spoke to his grandmother in Chinese.'
  159. '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.'
  160. '"Why you not say wanted lice wine." she asked in aggrieved tones, "2000 lubles."'
  161. if money >= 2000:
  162. act 'Buy the wine':
  163. cla
  164. money -= 2000
  165. ricewine = 1
  166. 'You hand the woman the money and she gives you the wine.'
  167. act 'Leave': gt $curloc
  168. end
  169. else
  170. 'You are astonished by the price and realize that you cannot afford the wine. You apologize and turn away.'
  171. act 'Leave the market': gt $curloc
  172. act 'Continue browsing the market':
  173. cls
  174. cla
  175. gs 'stat'
  176. minut += 15
  177. '<center><img src="images/locations/pavlovsk/market/market_boy01.jpg"></center>'
  178. 'You continued to wander through the market for another 15 minutes when the boy from the Chinese stall came up to you.'
  179. '"Hey, you really want that rice wine?" he asked after checking to make sure no one was watching.'
  180. '"Yes," you answered him, "But it costs too much. I can''t afford it."'
  181. '"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."'
  182. if pornmarkonce = 0: pornmarkonce = 1 & '"Where is the porn dealer?" you asked and he gives you directions.'
  183. act 'Agree': porndeal = 1 & gt 'Gpornmark'
  184. act 'Refuse':
  185. 'You declined his offer and he shrugged and walked away.'
  186. act 'Leave': gt $curloc
  187. end
  188. end
  189. end
  190. end
  191. elseif ShowerIvan = 5 and lookwine ! daystart:
  192. cla
  193. cls
  194. gs 'stat'
  195. lookwine = daystart
  196. '<center><img src="images/pic/grinok.jpg"></center>'
  197. 'You look around the market, but the Chinese vendors don''t seem to be here today.'
  198. act 'Leave': gt $curloc
  199. end
  200. if porndeal = 1 and porndealday ! daystart:
  201. cls
  202. cla
  203. gs 'stat'
  204. porndealday = daystart
  205. lookboy = 0
  206. '<center><img src="images/locations/pavlovsk/market/market_boy01.jpg"></center>'
  207. 'The boy from the Chinese stall comes up to you as you entered the market.'
  208. '"Do you have it?" he asked eagerly.'
  209. if haveporn = 1:
  210. porndeal = 2 & ! to close the ricewine event
  211. ricewine = 1
  212. '"Do you have the wine?" you countered.'
  213. 'He pulls the bottle out of his backpack and you trade items.'
  214. act 'Leave': gt $curloc
  215. else
  216. 'You told him you didn''t have his magazine yet but you were working on it.'
  217. act 'Leave': gt $curloc
  218. end
  219. end
  220. if porndeal = 1 and porndealday = daystart and lookboy = 0:
  221. cls
  222. cla
  223. gs 'stat'
  224. lookboy = 1
  225. '<center><img src="images/locations/pavlovsk/market/chinese_stall01.jpg"></center>'
  226. 'You look around the market for the boy from the Chinese stall, but you can''t find him. You decide to look for him another day.'
  227. act 'Leave': gt $curloc
  228. end
  229. else
  230. 'There is no one in the market.'
  231. end
  232. act 'Go back to the station':minut += 3 & gt 'vokzalG'
  233. end
  234. if $ARGS[0] = 'events':
  235. cls
  236. cla
  237. '<center><h4>Market</h4></center>'
  238. minut += 10
  239. gs 'stat'
  240. !modify from 1.2.4(force 50%) and old one, set it 30~80% for events, with intel /2 by illume
  241. if (30 + intel/2) > RAND(0,100):
  242. rinevrand = rand(1,21)
  243. else
  244. ! no events
  245. rinevrand = 0
  246. end
  247. if rinevrand <= 1:
  248. $grinok_text[0]='You came across a beggar'
  249. $grinok_text[1]='You see a beggar asking alms'
  250. $grinok_text[2]='You see a beggar'
  251. $grinok_text[3]='disguised as a girl'
  252. $grinok_text[4]='what sort of a woman picks up her underwear'
  253. $grinok_text[5]='half-naked girl'
  254. $grinok_text[6]='girl trying on bra'
  255. $grinok_text[7]='Anything unusual you do not come across, all hlame, vegetables and tasteless clothing'
  256. $grinok_text[8]='You are not lucky and you continually run across old women in dressing gowns, Slippers and vests with pockets.'
  257. $grinok_text[9]='You don''t find anything interesting'
  258. $grinok_text[10]='You come across one Chinese consumer goods and nothing more'
  259. $grinok_text[11]='The market works in a regular mode. People with bags scurrying back and forth, children trick-or-treat toy from their parents and vociferous sellers.'
  260. $grinok_text[12]='The market as always a lot of people. Hustle and bustle makes you focus on your desires'
  261. !will killvar after events
  262. end
  263. ! def action
  264. act 'Wander further': gt 'Grinok','events'
  265. act 'Stop wandering': gt $curloc
  266. if rinevrand = 0:
  267. '<center><img src="images/qwest/alter/grinok/brodit'+rand(1,8)+'.jpg"></center>'
  268. 'You are strolling through the market. ' + $grinok_text[rand(3,12)]
  269. killvar '$grinok_text'
  270. elseif rinevrand = 1:
  271. '<center><img src="images/qwest/alter/grinok/poproshaika'+rand(1,3)+'.jpg"></center>'
  272. *pl $grinok_text[rand(0,2)]
  273. killvar '$grinok_text'
  274. act 'Throw a trifle':
  275. cla
  276. *clr
  277. money -= rand(3,20)
  278. willpower += 5
  279. manna += 5
  280. gs 'stat'
  281. '<center><img src="images/qwest/alter/grinok/podaet.jpg"></center>'
  282. 'You gave the beggar a trifle'
  283. act 'Wander further': gt 'Grinok','events'
  284. end
  285. elseif rinevrand = 2:
  286. '<center><img src="images/qwest/alter/grinok/dedgitara.jpg"></center>'
  287. 'You see old man playing the guitar.'
  288. elseif rinevrand = 3:
  289. '<center><img src="images/qwest/alter/grinok/girlvoyeur.jpg"></center>'
  290. 'You see a girl bending, putting her pussy on display.'
  291. if girl > 0: horny += 10
  292. gs 'stat'
  293. elseif rinevrand = 4:
  294. '<center><img src="images/qwest/alter/grinok/goodass.jpg"></center>'
  295. 'You saw a pretty girl and ogled her beautiful ass.'
  296. elseif rinevrand = 5:
  297. '<center><img src="images/qwest/alter/grinok/dedgitara.jpg"></center>'
  298. 'You see old man playing the guitar.'
  299. elseif rinevrand = 6:
  300. '<center><img src="images/qwest/alter/grinok/nenavizublyadcigan.jpg"></center>'
  301. 'You met a Gypsy woman. She offers to tell fortunes for you.'
  302. act 'Agree':
  303. cla
  304. *clr
  305. minut += 5
  306. '<center><img src="images/qwest/alter/grinok/gadaet'+rand(1,2)+'.jpg"></center>'
  307. 'You agreed and Gypsy taking your hand began to predict you great happiness and lots of money. After graduating, she promptly walked away.'
  308. act 'Look':
  309. cla
  310. *clr
  311. money = 0
  312. manna -= 50
  313. gs 'stat'
  314. '<center><img src="images/qwest/alter/grinok/pusto.jpg"></center>'
  315. 'With a sneaking suspicion you start looking through your stuff. But your wallet is nowhere to be found.'
  316. act 'Hail a Gypsy':
  317. cla
  318. *clr
  319. '<center><img src="images/qwest/alter/grinok/okliknut.jpg"></center>'
  320. 'You turned around hoping to see the thief, but she already dissolved into the crowd.'
  321. act 'Back': gt $curloc
  322. end
  323. end
  324. end
  325. elseif rinevrand = 7:
  326. '<center><img src="images/qwest/alter/grinok/kosmetic.jpg"></center>'
  327. tovpay = rand(3, 8) * 100
  328. 'You see some cosmetics on sale for <<tovpay>> <b>₽</b>.'
  329. if money >= tovpay:
  330. act 'Buy':
  331. cls
  332. minut += 15
  333. money -= tovpay
  334. kosmetica += rand(10, 40)
  335. gs 'stat'
  336. gt $curloc
  337. end
  338. end
  339. elseif rinevrand = 8:
  340. '<center><img src="images/qwest/alter/grinok/vitaminki.jpg"></center>'
  341. tovpay = rand(2, 5) * 100
  342. 'You see some vitamins on sale for <<tovpay>> <b>₽</b>.'
  343. if money >= tovpay:
  344. act 'Buy':
  345. cls
  346. minut += 15
  347. vitamin += 20
  348. money -= tovpay
  349. gt $curloc
  350. end
  351. end
  352. elseif rinevrand = 9:
  353. '<center><img src="images/qwest/alter/grinok/condoms.jpg"></center>'
  354. tovpay = rand(2, 8) * 10
  355. 'You see a booth selling condoms for <<tovpay>> <b>₽</b>.'
  356. if money >= tovpay:
  357. act 'Buy':
  358. cls
  359. minut += 15
  360. prezik += 5
  361. money -= tovpay
  362. gt $curloc
  363. end
  364. end
  365. elseif rinevrand = 10:
  366. '<center><img src="images/qwest/alter/grinok/balzam.jpg"></center>'
  367. tovpay = rand(5, 10) * 100
  368. 'There is lip balm on sale for <<tovpay>> <b>₽</b>.'
  369. if money >= tovpay:
  370. act 'Buy':
  371. cls
  372. minut += 15
  373. lipbalm += 20
  374. money -= tovpay
  375. gt $curloc
  376. end
  377. end
  378. elseif rinevrand = 11:
  379. if pornmarkonce = 0:pornmarkonce = 1
  380. 'Strolling through the market you accidentally wander into the far corner where they sell porn.'
  381. act 'Go to the area with the porn':gt 'Gpornmark'
  382. elseif rinevrand = 12:
  383. if arturKnow = 0:
  384. 'Someone suddenly called out to you, "Hey pretty girl, do you want a fresh, juicy tangerine?"'
  385. act 'Look': gt 'arturRinok','start'
  386. else
  387. 'Someone suddenly called out to you, "Hey <<$nickname>>, do you want a fresh, juicy tangerine?"'
  388. act 'Come': gt 'arturRinok','start'
  389. end
  390. elseif rinevrand = 13:
  391. '<center><img src="images/qwest/alter/grinok/cheburek.jpg"></center>'
  392. 'Walking through the market, you came across a grandmother selling pies.'
  393. if energy <= 80:
  394. act 'Buy a pie for 20 <b>₽</b>':
  395. cla
  396. *clr
  397. fat+=3
  398. frost = 0
  399. health += 5
  400. manna += 5
  401. water -= 5
  402. energy+=5
  403. money-=20
  404. minut+=10
  405. gs 'stat'
  406. '<center><img src="images/qwest/alter/grinok/eat.jpg"></center>'
  407. 'You ate a delicious pie with pleasure.'
  408. act 'Wander further': gt 'Grinok','events'
  409. end
  410. else
  411. *p ', But you are not hungry right now.'
  412. end
  413. elseif rinevrand = 14:
  414. '<center><img src="images/qwest/alter/grinok/dropwallet.jpg"></center>'
  415. 'You see woman ahead of you dropped her purse'
  416. cla
  417. act 'Tell her':
  418. cla
  419. *clr
  420. minut += 2
  421. '<center><img src="images/qwest/alter/grinok/vernutwallet.jpg"></center>'
  422. 'You call the woman and show her the wallet. She looked up gratefully at you and raising his lost, walked away'
  423. act 'Wander further': gt 'Grinok','events'
  424. end
  425. act 'Take the purse':
  426. cla
  427. *clr
  428. minut += 5
  429. i = rand(40,200)
  430. '<center><img src="images/qwest/alter/grinok/zaglanut.jpg"></center>'
  431. 'In the purse are <<i>> <b>₽</b>'
  432. act 'Take the money and throw the wallet':
  433. cla
  434. *clr
  435. money += i
  436. manna += 10
  437. gt $curloc
  438. end
  439. act 'Catch up with the woman and return her purse':
  440. cla
  441. *clr
  442. manna += 5
  443. '<center><img src="images/qwest/alter/grinok/proverka.jpg"></center>'
  444. 'You caught up with the woman and telling her she dropped something you hand her the purse. Woman immediately began to count the money. Seeing that everything is in place, she thanked you and walked away'
  445. act 'Wander further': gt 'Grinok','events'
  446. end
  447. end
  448. elseif rinevrand = 15:
  449. '<center><img src="images/qwest/alter/grinok/rebenok.jpg"></center>'
  450. 'You see a young mother and her crying baby.'
  451. elseif rinevrand = 16:
  452. '<center><img src="images/qwest/alter/grinok/rezba.jpg"></center>'
  453. 'You find a tent with beautiful things carved out of wood and metal.'
  454. elseif rinevrand = 17:
  455. '<center><img src="images/qwest/alter/grinok/gruzchik.jpg"></center>'
  456. 'Gazing around, he almost collided with a loader.'
  457. elseif rinevrand = 18:
  458. '<center><img src="images/qwest/alter/grinok/meatlavka.jpg"></center>'
  459. 'You wandered into the meat Department and see the butcher working with an ax.'
  460. elseif rinevrand = 19:
  461. if vnesh >= 30:
  462. '<center><img src="images/qwest/alter/grinok/walk'+rand(1,2)+'.jpg"></center>'
  463. 'You walk, defiantly wagging booty. Some guys stare at you, unable to avert their eyes.'
  464. manna += 5
  465. else
  466. '<center><img src="images/qwest/alter/grinok/walk'+rand(3,4)+'.jpg"></center>'
  467. 'You walk, carefully twisting your waist. But people don''t give you slightest attention'
  468. manna -= 5
  469. end
  470. gs 'stat'
  471. elseif rinevrand = 20:
  472. '<center><img src="images/qwest/alter/grinok/dirka.jpg"></center>'
  473. 'When you crawl series with things you notice a small hole in the tent'
  474. act 'Look':
  475. cla
  476. *clr
  477. if girl > 1: horny += 5
  478. '<center><img src="images/qwest/alter/grinok/pereodev'+rand(1,15)+'.jpg"></center>'
  479. 'You look inside the tent and see ' + $grinokrandtext[rand(3,7)]
  480. act 'Leave': gt $curloc
  481. end
  482. else
  483. tovpay = rand(1, 5) * 1000
  484. 'You see someone selling a handbag for <<tovpay>> <b>₽</b>.'
  485. if bag = 0:
  486. if money >= tovpay:
  487. act 'Buy':
  488. cls
  489. minut += 15
  490. bag = 1
  491. money -= tovpay
  492. if menu_option = 1:dynamic $menu_addoldmenu
  493. if menu_option = 0:gs 'obj_din', 'new'
  494. gt $curloc
  495. end
  496. end
  497. else
  498. 'But you already have a bag, so you move on.'
  499. end
  500. end
  501. end
  502. --- Grinok ---------------------------------