Grinok 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574
  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 <<$set_imgh>> src="images/locations/pavlovsk/market/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 pav_slut >= 50 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. cla
  37. 'You pretend not to understand what he is saying.'
  38. act 'Return':gt 'Grinok'
  39. end
  40. exit
  41. end
  42. act 'Wander through the market': gt 'Grinok','events'
  43. !expand market events from 1.2.4
  44. if pornmarkonce = 1:
  45. act 'Go to the stall selling porn':gt 'Gpornmark'
  46. end
  47. if arturKnow = 1 and arturQW = 0:
  48. act 'Look for Arthur':gt 'arturRinok', 'start'
  49. elseif arturQW = 1 and (week = 6 or week = 7):
  50. if hour = 12 or hour = 13:
  51. act 'Look for Arthur':gt 'arturRinok', 'work_1'
  52. end
  53. elseif arturQW = 2:
  54. if hour = 16 and minut <= 30:
  55. act 'Look for Arthur':gt 'arturRinok', 'work_2'
  56. elseif hour < 16:
  57. act 'Wait for Arthur to arrive':hour = 16 & minut = 0 & gt 'Grinok'
  58. end
  59. end
  60. act 'Go to the book stall':
  61. cls
  62. minut += 15
  63. gs 'stat'
  64. '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.'
  65. if money >= 150:
  66. act 'Buy a fantasy book (150 <b>₽</b>)':
  67. cls
  68. minut += 15
  69. money -= 150
  70. f_book += 1
  71. gs 'stat'
  72. 'You bought a fantasy book for 150 <b>₽</b>.'
  73. act 'Leave':gt 'Grinok'
  74. end
  75. end
  76. if money >= 300:
  77. act 'Buy a romance novel (300 <b>₽</b>)':
  78. cls
  79. minut += 15
  80. money -= 300
  81. w_book += 1
  82. gs 'stat'
  83. 'You bought a romance novel for 300 <b>₽</b>.'
  84. act 'Leave':gt 'Grinok'
  85. end
  86. end
  87. act 'Leave':gt $curloc
  88. end
  89. if gobelen > 0 and gobQW = 0:
  90. act'Sell ​​tapestry':
  91. cls
  92. gobQW = 1
  93. minut += 15
  94. gs'stat'
  95. 'You stand quietly by the entrance to the market, waiting for customers and displaying your tapestries. Shortly buyers start to gather, but a large, muscular man approaches you and says, "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."'
  96. 'Not wanting to get into trouble, you pack your stuff away. The man was already gone, but you saw which direction he went and he should be easy to find.'
  97. act 'Leave':gt 'Grinok'
  98. end
  99. end
  100. if gobelen > 0 and gobQW >= 1:
  101. act'Sell ​​tapestry':
  102. cls
  103. minut += 15
  104. gs'stat'
  105. 'You go to the man who offered to buy your tapestries for 500 <b>₽</b>. You find him by his stall, smiling.'
  106. if gobQW = 2:
  107. 'Roman welcomes you. He is interested and businesslike as he asks what you have for sale.'
  108. end
  109. if gobQW = 1:
  110. gobQW = 2
  111. minute + 5
  112. 'The man greets you and introduces himself as Roman, you tell him that your name is <<$pcs_nickname>>. After a brief chat Roman says that he is interested in seeing what you have for sale.'
  113. end
  114. act'Show your tapestry':
  115. cls
  116. gobelen -= 1
  117. money += 500
  118. gs'stat'
  119. 'You show your tapestry to Roman and he gives you five hundred for it. You take the money and give him the tapestry.'
  120. act 'Leave':gt 'Grinok'
  121. end
  122. if gobelen > 1:
  123. act'Sell all of your tapestries':
  124. cls
  125. kolgob = gobelen
  126. gobelen = 0
  127. moneyGob = kolgob*500
  128. money += moneyGob
  129. gs'stat'
  130. 'You show Roman your tapestries and he gives you <<moneyGob>> <b>₽</b> for them. You take the money and give him the tapestries.'
  131. act 'Leave':gt 'Grinok'
  132. end
  133. end
  134. act 'Leave':gt 'Grinok'
  135. end
  136. end
  137. if ShowerIvan = 5 and porndeal = 0 and rand(1,100) <= 10 and lookwine ! daystart:
  138. cls
  139. cla
  140. gs 'stat'
  141. minut += 20
  142. lookwine = daystart
  143. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/chinese_stall01.jpg"></center>'
  144. '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.'
  145. act 'Ask about huangjiu':
  146. cla
  147. '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.'
  148. '"Onry 2 kopec, hundred glam." she said in badly accented Russian, "You buy?"'
  149. '"No," you replied, "I need rice wine, rice wine."'
  150. 'She looked at you in confusion for a moment then suddenly brightened, "Ah!" she exclaimed, "Come, come!"'
  151. '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.'
  152. '"Here," the old woman crowed handing you one of r the pigs, "Nice swine, vely nice swine."'
  153. '"No, not nice swine," you cried in dispair, "Rice. Wine."'
  154. '"Yes, yes," the woman countered, "Nice swine, only 5 lubles."'
  155. 'Just as you were about to give up, a young Chinese boy about your brother''s age arrived.'
  156. '"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.'
  157. '"My grandmother asks why you don''t like the piglets." he translated as the old woman stopped speaking.'
  158. '"I don''t want a pig," you replied in relief as his Russian is quite good, "I am looking for rice wine, wang-goo."'
  159. '"Ah, huangjiu!" he said in understanding then spoke to his grandmother in Chinese.'
  160. '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.'
  161. '"Why you not say wanted lice wine." she asked in aggrieved tones, "2000 lubles."'
  162. if money >= 2000:
  163. act 'Buy the wine':
  164. cla
  165. money -= 2000
  166. ricewine = 1
  167. 'You hand the woman the money and she gives you the wine.'
  168. act 'Leave': gt $curloc
  169. end
  170. else
  171. 'You are astonished by the price and realize that you cannot afford the wine. You apologize and turn away.'
  172. act 'Leave the market': gt $curloc
  173. act 'Continue browsing the market':
  174. cls
  175. cla
  176. gs 'stat'
  177. minut += 15
  178. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/market_boy01.jpg"></center>'
  179. 'You continued to wander through the market for another 15 minutes when the boy from the Chinese stall came up to you.'
  180. '"Hey, you really want that rice wine?" he asked after checking to make sure no one was watching.'
  181. '"Yes," you answered him, "But it costs too much. I can''t afford it."'
  182. '"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."'
  183. if pornmarkonce = 0: pornmarkonce = 1 & '"Where is the porn dealer?" you asked and he gives you directions.'
  184. act 'Agree': porndeal = 1 & gt 'Gpornmark'
  185. act 'Refuse':
  186. 'You declined his offer and he shrugged and walked away.'
  187. act 'Leave': gt $curloc
  188. end
  189. end
  190. end
  191. end
  192. elseif ShowerIvan = 5 and lookwine ! daystart:
  193. cla
  194. cls
  195. gs 'stat'
  196. lookwine = daystart
  197. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/grinok.jpg"></center>'
  198. 'You look around the market, but the Chinese vendors don''t seem to be here today.'
  199. act 'Leave': gt $curloc
  200. end
  201. if porndeal = 1 and porndealday ! daystart:
  202. cls
  203. cla
  204. gs 'stat'
  205. porndealday = daystart
  206. lookboy = 0
  207. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/market_boy01.jpg"></center>'
  208. 'The boy from the Chinese stall comes up to you as you entered the market.'
  209. '"Do you have it?" he asked eagerly.'
  210. if haveporn = 1:
  211. porndeal = 2 & ! to close the ricewine event
  212. ricewine = 1
  213. '"Do you have the wine?" you countered.'
  214. 'He pulls the bottle out of his backpack and you trade items.'
  215. act 'Leave': gt $curloc
  216. else
  217. 'You told him you didn''t have his magazine yet but you were working on it.'
  218. act 'Leave': gt $curloc
  219. end
  220. end
  221. if porndeal = 1 and porndealday = daystart and lookboy = 0:
  222. cls
  223. cla
  224. gs 'stat'
  225. lookboy = 1
  226. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/chinese_stall01.jpg"></center>'
  227. '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.'
  228. act 'Leave': gt $curloc
  229. end
  230. else
  231. 'There is no one in the market.'
  232. end
  233. act 'Go back to the station':minut += 3 & gt 'vokzalG'
  234. end
  235. if $ARGS[0] = 'events':
  236. cls
  237. cla
  238. '<center><h4>Market</h4></center>'
  239. minut += 10
  240. gs 'stat'
  241. !modify from 1.2.4(force 50%) and old one, set it 30~80% for events, with pcs_intel /2 by illume
  242. if (30 + pcs_intel/2) > RAND(0,100):
  243. rinevrand = rand(1,22)
  244. else
  245. ! no events
  246. rinevrand = 0
  247. end
  248. if rinevrand <= 1:
  249. $grinok_text[0]='you notice a beggar.'
  250. $grinok_text[1]='a beggar asks you for some change.'
  251. $grinok_text[2]='you see a beggar.'
  252. $grinok_text[3]='you pass a stall is selling children''s clothes.'
  253. $grinok_text[4]='you see a woman looking for underwear.'
  254. $grinok_text[5]='you notice a half-naked girl trying on clothes.'
  255. $grinok_text[6]='you look away as a woman tries on a bra'
  256. $grinok_text[7]='you don''t see anything unusual, just the usual vegetables and tasteless clothes.'
  257. $grinok_text[8]='you just see old women in dressing gowns and slippers. Stupid crappy market.'
  258. $grinok_text[9]='you don''t find anything interesting'
  259. $grinok_text[10]='you just see cheap Chinese goods and nothing more.'
  260. $grinok_text[11]='you see all the usual stuff. People with bags scurrying back and forth, children begging for toys from their parents and vociferous traders.'
  261. $grinok_text[12]='you have to be careful as its so busy. The hustle and bustle makes it hard to find anything worthwhile.'
  262. !will killvar after events
  263. end
  264. ! def action
  265. act 'Wander further': gt 'Grinok','events'
  266. act 'Stop wandering': gt $curloc
  267. if rinevrand = 0:
  268. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/brodit'+rand(1,8)+'.jpg"></center>'
  269. 'As you are strolling through the market, ' + $grinok_text[rand(3,12)]
  270. killvar '$grinok_text'
  271. elseif rinevrand = 1:
  272. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/poproshaika'+rand(1,3)+'.jpg"></center>'
  273. 'You are strolling through the market when ' + $grinok_text[rand(0,2)]
  274. killvar '$grinok_text'
  275. act 'Throw a trifle':
  276. cla
  277. *clr
  278. money -= rand(3,20)
  279. pcs_willpwr += 5
  280. pcs_mood += 5
  281. gs 'stat'
  282. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/podaet.jpg"></center>'
  283. 'You gave the beggar a trifle'
  284. act 'Wander further': gt 'Grinok','events'
  285. end
  286. elseif rinevrand = 2:
  287. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/dedgitara.jpg"></center>'
  288. 'You see an old man playing the guitar.'
  289. elseif rinevrand = 3:
  290. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/girlvoyeur.jpg"></center>'
  291. 'You see a girl bending over, putting her pussy on display.'
  292. if girl > 0: pcs_horny += 10
  293. gs 'stat'
  294. elseif rinevrand = 4:
  295. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/goodass.jpg"></center>'
  296. 'You see a pretty girl and ogle her beautiful ass.'
  297. elseif rinevrand = 5:
  298. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/dedgitara.jpg"></center>'
  299. 'You see an old man playing the guitar.'
  300. elseif rinevrand = 6:
  301. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/nenavizublyadcigan.jpg"></center>'
  302. 'You meet a Gypsy woman. She offers to tell your fortune.'
  303. act 'Agree':
  304. cla
  305. *clr
  306. minut += 5
  307. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/gadaet'+rand(1,2)+'.jpg"></center>'
  308. 'You agree and Gypsy takes your hand before she predicts you will have great happiness and lots of money. Afterwards, she promptly walks away.'
  309. act 'Something''s wrong':
  310. cla
  311. *clr
  312. money = 0
  313. pcs_mood -= 50
  314. gs 'stat'
  315. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pusto.jpg"></center>'
  316. 'With a sneaking suspicion you start looking through your stuff. Your wallet is nowhere to be found!'
  317. act 'Find the Gypsy':
  318. cla
  319. *clr
  320. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/okliknut.jpg"></center>'
  321. 'You search the area hoping to find the thief, but she has already disappeared into the crowd.'
  322. act 'Back': gt 'Grinok'
  323. end
  324. end
  325. end
  326. elseif rinevrand = 7:
  327. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/kosmetic.jpg"></center>'
  328. tovpay = rand(3, 8) * 100
  329. 'You see some cosmetics on sale for <<tovpay>> <b>₽</b>.'
  330. if money >= tovpay:
  331. act 'Buy':
  332. cls
  333. minut += 15
  334. money -= tovpay
  335. kosmetica += rand(10, 40)
  336. gs 'stat'
  337. gt $curloc
  338. end
  339. end
  340. elseif rinevrand = 8:
  341. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/vitaminki.jpg"></center>'
  342. tovpay = rand(2, 5) * 100
  343. 'You see some vitamins on sale for <<tovpay>> <b>₽</b>.'
  344. if money >= tovpay:
  345. act 'Buy':
  346. cls
  347. minut += 15
  348. vitamin += 20
  349. money -= tovpay
  350. gt $curloc
  351. end
  352. end
  353. elseif rinevrand = 9:
  354. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/condoms.jpg"></center>'
  355. tovpay = rand(2, 8) * 10
  356. 'You see a booth selling condoms for <<tovpay>> <b>₽</b>.'
  357. if money >= tovpay:
  358. act 'Buy':
  359. cls
  360. minut += 15
  361. prezik += 5
  362. i = 5
  363. :cndmlp
  364. if rand(0,49)-6*(8-tovpay/10) <= 0:badprezik += 1
  365. if i > 0: i-= 1 & jump 'cndmlp'
  366. killvar 'i'
  367. money -= tovpay
  368. gt $curloc
  369. end
  370. end
  371. elseif rinevrand = 10:
  372. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/balzam.jpg"></center>'
  373. tovpay = rand(3, 9) * 10
  374. 'There is lip balm on sale for <<tovpay>> <b>₽</b>.'
  375. if money >= tovpay:
  376. act 'Buy':
  377. cls
  378. minut += 15
  379. lipbalm += 20
  380. money -= tovpay
  381. gt $curloc
  382. end
  383. end
  384. elseif rinevrand = 11:
  385. if pornmarkonce = 0:pornmarkonce = 1
  386. 'Strolling through the market you accidentally wander across a stall selling porn.'
  387. act 'View the stall sell the porn':gt 'Gpornmark'
  388. elseif rinevrand = 12:
  389. if arturKnow = 0:
  390. 'Someone suddenly calls out to you, "Hey pretty girl, do you want a fresh, juicy tangerine?"'
  391. act 'Look': gt 'arturRinok','start'
  392. else
  393. 'Someone suddenly calls out to you, "Hey <<$pcs_nickname>>, do you want a fresh, juicy tangerine?"'
  394. act 'Come': gt 'arturRinok','start'
  395. end
  396. elseif rinevrand = 13:
  397. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/cheburek.jpg"></center>'
  398. 'Walking through the market, you came across a grandmother selling pies.'
  399. if pcs_energy <= 80:
  400. act 'Buy a pie for 20 <b>₽</b>':
  401. cla
  402. *clr
  403. fat+=3
  404. frost = 0
  405. pcs_health += 5
  406. pcs_mood += 5
  407. water -= 5
  408. pcs_energy+=5
  409. money-=20
  410. minut+=10
  411. gs 'stat'
  412. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/eat.jpg"></center>'
  413. 'You ate a delicious pie with pleasure.'
  414. act 'Continue walking through the market': gt 'Grinok','events'
  415. end
  416. else
  417. *p ', But you are not hungry right now.'
  418. end
  419. elseif rinevrand = 14:
  420. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/dropwallet.jpg"></center>'
  421. 'You see woman ahead of you drop her purse.'
  422. cla
  423. act 'Tell her':
  424. cla
  425. *clr
  426. minut += 2
  427. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/vernutwallet.jpg"></center>'
  428. 'You call to the woman and hold out her wallet. She looks at you and releasing she gratefully takes her wallet back and walks away.'
  429. act 'Continue walking through the market': gt 'Grinok','events'
  430. end
  431. act 'Look through the purse':
  432. cla
  433. *clr
  434. minut += 5
  435. i = rand(40,200)
  436. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/zaglanut.jpg"></center>'
  437. 'In the purse is <<i>> <b>₽</b>'
  438. act 'Take the money and throw away the wallet':
  439. cla
  440. *clr
  441. money += i
  442. pcs_mood += 10
  443. gt $curloc
  444. end
  445. act 'Catch up with the woman and return her purse':
  446. cla
  447. *clr
  448. pcs_mood += 5
  449. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/proverka.jpg"></center>'
  450. 'You catch up with the woman and telling her she dropped something you hand her the purse. The woman checks her money is still there and seeing that everything is in place, she thanks you and walked away.'
  451. act 'Continue walking through the market': gt 'Grinok','events'
  452. end
  453. end
  454. elseif rinevrand = 15:
  455. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/rebenok.jpg"></center>'
  456. 'You see a young mother and her crying baby.'
  457. elseif rinevrand = 16:
  458. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/rezba.jpg"></center>'
  459. 'You find a stall with beautiful things carved out of wood and metal.'
  460. elseif rinevrand = 17:
  461. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/gruzchik.jpg"></center>'
  462. 'Gazing around, he almost collided with a loader.'
  463. elseif rinevrand = 18:
  464. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/meatlavka.jpg"></center>'
  465. 'You wandered past a the meet seller and see a butcher working with an ax.'
  466. elseif rinevrand = 19:
  467. if pcs_apprnc >= 30:
  468. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/walk'+rand(1,2)+'.jpg"></center>'
  469. 'As you walk, you make an effort to shake your booty. Some guys stare at you, unable to avert their eyes.'
  470. pcs_mood += 5
  471. else
  472. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/walk'+rand(3,4)+'.jpg"></center>'
  473. 'As you walk, you make an effort to shake your booty. But no one gives you slightest attention.'
  474. pcs_mood -= 5
  475. end
  476. gs 'stat'
  477. elseif rinevrand = 20:
  478. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/dirka.jpg"></center>'
  479. 'As you walk past a stall you notice a small hole torn in the canvas.'
  480. act 'Look through the hole':
  481. cla
  482. *clr
  483. if girl > 1: pcs_horny += 5
  484. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pereodev'+rand(1,15)+'.jpg"></center>'
  485. 'You look inside the tent and see ' + $grinokrandtext[rand(3,7)]
  486. act 'Leave': gt 'Grinok'
  487. end
  488. elseif rinevrand = 21:
  489. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/birthcontrolpills.jpg"></center>'
  490. tovpay = rand(2,8) * 50
  491. 'You see a booth selling birth control pills for <<tovpay>> <b>₽</b>.'
  492. if money >= tovpay:
  493. act 'Buy':
  494. cls
  495. minut += 15
  496. tabletki += 1
  497. if rand(0,49) - (6*(8-tovpay/50)) <= 0:
  498. temp = rand(0,3)
  499. if temp = 0:
  500. tabletkiold += 1 & !Pills are expired and less effective
  501. elseif temp = 1:
  502. tabletkifake += 1 & !Pills are counterfeit and useless
  503. elseif temp = 2:
  504. tabletkirej += 1 & !Pills are factory rejects with variable strength
  505. else
  506. !Pills were tampered with
  507. if rand(0,100) = 0:
  508. tabletkifert += 1 & ! pills were replaced with fertility hormones
  509. else
  510. tabletkisug += 1 & ! pills were all replaced with sugar pills
  511. end
  512. end
  513. end
  514. money -= tovpay
  515. gt 'Grinok'
  516. end
  517. end
  518. else
  519. tovpay = rand(1, 5) * 1000
  520. 'You see someone selling a handbag for <<tovpay>> <b>₽</b>.'
  521. if bag = 0:
  522. if money >= tovpay:
  523. act 'Buy':
  524. cls
  525. minut += 15
  526. bag = 1
  527. money -= tovpay
  528. if menu_option = 1:dynamic $menu_addoldmenu
  529. if menu_option = 0:gs 'obj_din', 'new'
  530. gt 'Grinok'
  531. end
  532. end
  533. else
  534. 'But you already have a bag, so you move on.'
  535. end
  536. end
  537. end
  538. --- Grinok ---------------------------------