pav_train_market.qsrc 36 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005
  1. # pav_train_market
  2. !2020/10/14/Gwen
  3. $location_type = 'public_outdoors'
  4. if $ARGS[0] = 'start':
  5. $loc_arg = 'start'
  6. $loc = 'pav_train_market'
  7. $menu_loc = 'pav_train_market'
  8. $menu_arg = 'start'
  9. menu_off = 0
  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. '<center><h2>Market</h2></center>'
  23. if month >= 11 or month <= 3:
  24. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/grinokw.jpg"></center>'
  25. else
  26. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/grinok.jpg"></center>'
  27. end
  28. *nl
  29. 'This small open air market is located near the train station.'
  30. *nl
  31. '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>.'
  32. if arturQW = 1 and (week = 6 or week = 7) and hour < 12: act 'Wait for Arthur to arrive':hour = 12 & gt 'pav_train_market', 'start'
  33. *nl
  34. if hour >= 8 and hour <= 18:
  35. 'The market stalls are buzzing with shoppers. Everyone seems to be in a good mood and you can hear back and forth bargaining as you pass by.'
  36. if pav_slut >= 100 and rand(0,9) = 0:
  37. menu_off = 1
  38. gs 'stat'
  39. '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."'
  40. act 'Reject him':
  41. *clr & cla
  42. 'You pretend not to understand what he is saying, smiling and shaking your head as you move away from him.'
  43. act 'Return':gt 'pav_train_market', 'start'
  44. end
  45. act 'Go with him':gt 'gevent', '3'
  46. exit
  47. end
  48. act 'Go back to the station': minut += 3 & gt 'pav_train'
  49. act 'Wander through the market': gt 'pav_train_market','events'
  50. if pavtrain_book = 1: act 'Go to the book stall': minut += 5 & gt 'pav_train_market', 3
  51. if pavmarket_porn = 1: act 'Go to the porn stall': minut += 5 & gt 'pav_train_market', 4
  52. if arturKnow = 1 and arturQW = 0:
  53. act 'Look for Arthur':gt 'arturRinok', 'start'
  54. elseif arturQW = 1 and (week = 6 or week = 7):
  55. if hour = 12 or hour = 13:
  56. act 'Look for Arthur':gt 'arturRinok', 'work_1'
  57. end
  58. elseif arturQW = 2:
  59. if hour = 16 and minut <= 30:
  60. act 'Look for Arthur':gt 'arturRinok', 'work_2'
  61. elseif hour < 16:
  62. act 'Wait for Arthur to arrive':hour = 16 & minut = 0 & gt 'pav_train_market', 'start'
  63. end
  64. end
  65. if gobelen > 0 and gobQW = 0:
  66. act'Sell ​​tapestry':
  67. menu_off = 1
  68. *clr & cla
  69. gobQW = 1
  70. minut += 15
  71. gs'stat'
  72. '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 license, but I may be interesting in buying your tapestries, 1000 <b>₽</b> apiece. Come and see me at my stall."'
  73. '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.'
  74. act 'Leave':gt 'pav_train_market', 'start'
  75. end
  76. elseif gobelen > 0 and gobQW >= 1:
  77. act'Sell ​​tapestry':
  78. menu_off = 1
  79. *clr & cla
  80. minut += 15
  81. gs'stat'
  82. 'You go to the man who offered to buy your tapestries for 1000 <b>₽</b>. You find him by his stall, smiling.'
  83. if gobQW = 2:
  84. 'Roman welcomes you. He is interested and businesslike as he asks what you have for sale.'
  85. elseif gobQW = 1:
  86. gobQW = 2
  87. minut += 5
  88. '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.'
  89. end
  90. act 'Leave':gt 'pav_train_market', 'start'
  91. act'Show your tapestry':
  92. *clr & cla
  93. gobelen -= 1
  94. money += 1000
  95. gs'stat'
  96. 'You show your tapestry to Roman and he gives you five hundred for it. You take the money and give him the tapestry.'
  97. act 'Leave':gt 'pav_train_market', 'start'
  98. end
  99. if gobelen > 1:
  100. act'Sell all of your tapestries':
  101. *clr & cla
  102. 'You show Roman your tapestries and he gives you <<gobelen * 1000>> <b>₽</b> for them. You take the money and give him the tapestries.'
  103. money += gobelen * 1000
  104. gobelen = 0
  105. gs'stat'
  106. act 'Leave':gt 'pav_train_market', 'start'
  107. end
  108. end
  109. end
  110. end
  111. if ShowerIvan = 5 and porndeal = 0 and rand(1,10) <= 4 and ricewine ! 1 and lookwine ! daystart:
  112. *clr & cla
  113. gs 'stat'
  114. minut += 20
  115. menu_off = 1
  116. lookwine = daystart
  117. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/chinese_stall01.jpg"></center>'
  118. '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.'
  119. act 'Ask about wang-goo':
  120. cla
  121. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/chinese_stall01.jpg"></center>'
  122. '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.'
  123. '"Onry 2 <b>₽</b>, hundred glam." she said in badly accented Russian, "You buy?"'
  124. '"No," you reply, "I need rice wine, rice wine."'
  125. 'She looks at you in confusion for a moment then suddenly brightened, "Ah!" she exclaims, "Come, come!"'
  126. 'The old woman hurries to the other side of the stall as you follow her to where a number of smoked piglets are hung in a row.'
  127. '"Here," the old woman crowed handing you one of the pigs, "Nice swine, vely nice swine."'
  128. '"No, not nice swine," you sigh out in despair, "Rice! Wine."'
  129. '"Yes, yes," the woman counters, "Nice swine, only 5 <b>₽</b>."'
  130. *nl
  131. 'Just as you were about to give up, a young Chinese boy about your brother''s age arrives.'
  132. '"I am sorry, my grandmother does not speak much Russian." he says as he steps beside the old woman who started to speak rapidly to him in what you assume is Chinese.'
  133. '"My grandmother asks why you don''t like the piglets?" he translates as the old woman stops.'
  134. '"I don''t want a pig," you reply in relief as his Russian is quite good, "I am looking for rice wine, wang-goo."'
  135. '"Ah, huangjiu!" he exclaims as he turns to his grandmother and starts speaking in Chinese.'
  136. 'The old woman glares at you, hangs back the smoked pig and shuffles over to the shelf with the bottles. She finally picks up one of them and brings it over to you.'
  137. '"Why you not say wanted rice wine." she asked in aggrieved tones, "500 <b>₽</b>."'
  138. if money >= 500:
  139. act 'Buy the wine':
  140. *clr & cla
  141. money -= 500
  142. ricewine = 1
  143. 'You hand the woman the money and she gives you the wine.'
  144. act 'Leave': gt 'pav_train_market', 'start'
  145. end
  146. else
  147. 'You are chocked by the high price and realize that you cannot afford the wine. You apologize and turn away.'
  148. act 'Leave the market': gt 'pav_train_market', 'start'
  149. act 'Continue browsing the market':
  150. *clr & cla
  151. gs 'stat'
  152. minut += 15
  153. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/market_boy01.jpg"></center>'
  154. 'You continue to wander through the market for another 15 minutes when the boy from the Chinese stall comes up to you.'
  155. '"Hey, you really want that rice wine?" he asks after checking to make sure that no one is watching.'
  156. '"Yes," you answer him, "But it''s too expensive. I can''t afford it."'
  157. '"How about we make a deal." he says, "Go to the porn dealer and buy me a porn magazine and I''ll get you the wine."'
  158. if pornmarkonce = 0: pornmarkonce = 1 & '"Where can I find the porn dealer?" you ask and he happily gives you directions.'
  159. act 'Refuse':
  160. 'You decline his offer as he upsettingly walks away.'
  161. act 'Leave': gt 'pav_train_market', 'start'
  162. end
  163. act 'Agree': porndeal = 1 & gt 'pav_train_market', 4
  164. end
  165. end
  166. end
  167. elseif ShowerIvan = 5 and ricewine ! 1 and lookwine ! daystart:
  168. *clr & cla
  169. menu_off = 1
  170. gs 'stat'
  171. lookwine = daystart
  172. if month >= 11 or month <= 3:
  173. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/grinokw.jpg"></center>'
  174. else
  175. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/grinok.jpg"></center>'
  176. end
  177. 'You look around the market, but the Chinese vendors don''t seem to be here today.'
  178. act 'Leave': gt 'pav_train_market', 'start'
  179. end
  180. if porndeal = 1 and ricewine ! 1 and porndealday ! daystart:
  181. *clr & cla
  182. menu_off = 1
  183. gs 'stat'
  184. porndealday = daystart
  185. lookboy = 0
  186. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/market_boy01.jpg"></center>'
  187. 'The boy from the Chinese stall comes up to you as you enter the market.'
  188. '"Do you have it?" he asks eagerly.'
  189. if haveporn = 1:
  190. porndeal = 2 & ! to close the ricewine event
  191. ricewine = 1
  192. '"Do you have the wine?" you counter.'
  193. 'He pulls the bottle out of his backpack and you trade items.'
  194. act 'Leave': gt 'pav_train_market', 'start'
  195. else
  196. 'You tell him that you haven''t had time to pick up the magazine yet but you were working on it.'
  197. act 'Leave': gt 'pav_train_market', 'start'
  198. end
  199. elseif porndeal = 1 and ricewine ! 1 and porndealday = daystart and lookboy = 0:
  200. *clr & cla
  201. menu_off = 1
  202. gs 'stat'
  203. lookboy = 1
  204. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/chinese_stall01.jpg"></center>'
  205. '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.'
  206. act 'Leave': gt 'pav_train_market', 'start'
  207. end
  208. act 'View clothing':
  209. cla
  210. minut += 5
  211. gt 'pav_train_market', 'clo'
  212. end
  213. else
  214. 'The market stalls are empty. The market is only open between 08:00 and 19:00.'
  215. act 'Go back to the station': minut += 3 & gt 'pav_train'
  216. end
  217. end
  218. if $ARGS[0] = 'clo':
  219. $loc_arg = 'clo'
  220. $loc = 'pav_train_market'
  221. cls
  222. gs'stat'
  223. gs 'themes', 'indoors'
  224. '<center><b><font color="maroon">Clothes.</font></b></center>'
  225. 'Cheap clothing on the market stall.'
  226. act 'Return':
  227. cla
  228. minut += 5
  229. gt 'pav_train_market', 'start'
  230. end
  231. i = 1
  232. :loopmarket_outfits
  233. if market_outfits[i] = 0:*p '<a href="exec: i = <<i>> & gt ''pav_train_market'', ''marketclo''"><img <<$set_imgh>> src="images/pc/items/market/clothes/<<i>>.jpg" height="400" /></a>'
  234. i += 1
  235. if i <= 10:jump 'loopmarket_outfits'
  236. end
  237. if $ARGS[0] = 'marketclo':
  238. cla
  239. if market_outfits[i] ! 0:
  240. msg 'You already own these clothes.'
  241. gt 'pav_train_market', 'clo'
  242. end
  243. gt 'clothing', 'view_clothing_item', 'shop', 'market_outfits',i, 750
  244. end
  245. if $ARGS[0] = 'events':
  246. *clr & cla
  247. minut += 10
  248. menu_off = 1
  249. gs 'stat'
  250. '<center><h2>Market</h2></center>'
  251. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/brodit'+rand(1,16)+'.jpg"></center>'
  252. 'You wander around the market taking in the sounds and colours but nothing catches your eye.'
  253. act 'Stop wandering': gt 'pav_train_market', 'start'
  254. if hour >= 8 and hour <= 18:
  255. act 'Wander around the market': gt 'pav_train_market','events'
  256. end
  257. if rand(0,3) = 0: gt 'pav_train_market', rand(1,19)
  258. end
  259. if ARGS[0] = 1:
  260. *clr & cla
  261. menu_off = 1
  262. gs 'stat'
  263. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/poproshaika1.jpg"></center>'
  264. 'You are strolling through the market when a beggar asks you for some change.'
  265. act 'Don''t give money':
  266. *clr & cla
  267. gs 'stat'
  268. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/poproshaika2.jpg"></center>'
  269. 'You ignore the beggar and pretend not to hear him.'
  270. act 'Stop wandering': gt 'pav_train_market', 'start'
  271. if hour >= 8 and hour <= 18:
  272. act 'Wander around the market': gt 'pav_train_market','events'
  273. end
  274. end
  275. act 'Give some money':
  276. *clr & cla
  277. money -= rand(3,20)
  278. pcs_mood += 5
  279. gs 'stat'
  280. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/podaet.jpg"></center>'
  281. 'You give the beggar a few rubles which he kindly thanks you for.'
  282. act 'Stop wandering': gt 'pav_train_market', 'start'
  283. if hour >= 8 and hour <= 18:
  284. act 'Wander around the market': gt 'pav_train_market','events'
  285. end
  286. end
  287. end
  288. if ARGS[0] = 2:
  289. *clr & cla
  290. menu_off = 1
  291. minut += 5
  292. gs 'stat'
  293. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/dedgitara.jpg"></center>'
  294. 'You see an old man playing the guitar. He''s trying to avert as much attention as he can to himself.'
  295. act 'Stop wandering': gt 'pav_train_market', 'start'
  296. if hour >= 8 and hour <= 18:
  297. act 'Wander around the market': gt 'pav_train_market','events'
  298. end
  299. end
  300. if ARGS[0] = 3:
  301. *clr & cla
  302. menu_off = 1
  303. pavtrain_book = 1
  304. gs 'stat'
  305. if month >= 11 or month <= 3:
  306. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/bookw.jpg"></center>'
  307. else
  308. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/book.jpg"></center>'
  309. end
  310. 'You find a stall selling various books, there are fantasy books, science fiction and romance novels, all of which costs only 350 <b>₽</b> each.'
  311. act 'Stop wandering': gt 'pav_train_market', 'start'
  312. if hour >= 8 and hour <= 18:
  313. act 'Wander around the market': gt 'pav_train_market','events'
  314. end
  315. if money >= 350:
  316. act 'Buy a fantasy book (350 <b>₽</b>)':
  317. *clr & cla
  318. minut += 15
  319. money -= 350
  320. f_book += 1
  321. gs 'stat'
  322. '<center><img <<$set_imgh>> src="images/shared/accessories/books/fantasy' + rand(1,9) + '.jpg"></center>'
  323. 'You bought a fantasy book for 350 <b>₽</b>.'
  324. act 'Leave':gt 'pav_train_market', 'start'
  325. end
  326. end
  327. if money >= 350:
  328. act 'Buy a science fiction book (350 <b>₽</b>)':
  329. *clr & cla
  330. minut += 15
  331. money -= 350
  332. f_book += 1
  333. gs 'stat'
  334. '<center><img <<$set_imgh>> src="images/shared/accessories/books/scifi' + rand(1,6) + '.jpg"></center>'
  335. 'You bought a science ficiton book for 350 <b>₽</b>.'
  336. act 'Leave':gt 'pav_train_market', 'start'
  337. end
  338. end
  339. if money >= 350:
  340. act 'Buy a romance novel (350 <b>₽</b>)':
  341. *clr & cla
  342. minut += 15
  343. money -= 350
  344. w_book += 1
  345. gs 'stat'
  346. '<center><img <<$set_imgh>> src="images/shared/accessories/books/romance' + rand(1,20) + '.jpg"></center>'
  347. 'You bought a romance novel for 350 <b>₽</b>.'
  348. act 'Leave':gt 'pav_train_market', 'start'
  349. end
  350. end
  351. end
  352. if ARGS[0] = 4:
  353. *clr & cla
  354. menu_off = 1
  355. pavmarket_porn = 1
  356. gs 'stat'
  357. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pornmag.jpg"></center>'
  358. 'You find a small stall that has many shelves with a large variety of porn magazines, a pack of brand new porn playing cards, and you can see several sex toys just behind the counter. The salesman watches over his stall with shifty eyes.'
  359. act 'Stop wandering': gt 'pav_train_market', 'start'
  360. if hour >= 8 and hour <= 18:
  361. act 'Wander around the market': gt 'pav_train_market','events'
  362. end
  363. if money >= 699 and card < 2:
  364. act 'Buy cards (699 <b>₽</b>)':
  365. *clr & cla
  366. minut += 5
  367. money -= 699
  368. card = 2
  369. TimesBuyPorno += 1
  370. gs 'stat'
  371. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pornmag.jpg"></center>'
  372. 'You try not to look into the eyes of the porn dealer as you count the money. You quickly grab the cards and shove them in your purse.'
  373. act 'Leave':gt 'pav_train_market', 'start'
  374. act 'Buy something else':gt 'pav_train_market', 4
  375. end
  376. end
  377. if porndeal = 1:
  378. if money >= 400:
  379. act 'Buy a porn magazine for the Chinese boy (400 <b>₽</b>)':
  380. *clr & cla
  381. minut += 5
  382. money -= 400
  383. haveporn = 1
  384. gs 'stat'
  385. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pornmag.jpg"></center>'
  386. 'You try your best not to look into the eyes of the porn dealer as you count the money. You take the magazine and quickly hide it.'
  387. act 'Leave':gt 'pav_train_market', 'start'
  388. act 'Buy something else':gt 'pav_train_market', 4
  389. end
  390. end
  391. else
  392. act 'Browse the porn magazines':
  393. *clr & cla
  394. gs 'arousal', 'erotic', 5
  395. gs 'arousal', 'end'
  396. gs 'stat'
  397. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pornmag.jpg"></center>'
  398. act 'Leave':gt 'pav_train_market', 'start'
  399. act 'Look for something else':gt 'pav_train_market', 4
  400. if TimesBuyPorno = 0:
  401. 'You look over the magazine covers, covered in images of half-naked girls on them. Many of them appear to be near your own age. The porn dealer notices your interest and looks at you expectantly.'
  402. act 'Look through a magazine':
  403. cla
  404. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pornmag.jpg"></center>'
  405. 'You pick up one of the magazines and flip through the pages. Inside the magazines, you see men with large erect penis engaging in sexual acts with women who are either half-naked or fully naked, most of them look close to your own age. You feel yourself getting aroused looking at the images.'
  406. act 'Leave':gt 'pav_train_market', 'start'
  407. act 'Look for something else':gt 'pav_train_market', 4
  408. act 'Ask for the price':
  409. *clr & cla
  410. minut += 5
  411. gs 'stat'
  412. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pornmag.jpg"></center>'
  413. 'Blushing profusely right down to your roots, you approach the porn dealer and stammeringly ask him the price on the magazines. The porn dealer smiles at you and says, "All magazines are 400 <b>₽</b> each."'
  414. act 'Leave':gt 'pav_train_market', 'start'
  415. act 'Look for something else':gt 'pav_train_market', 4
  416. if money >= 400:
  417. act 'Buy magazine (400 <b>₽</b>)':
  418. *clr & cla
  419. minut += 5
  420. money -= 400
  421. pornMagazine = 40
  422. TimesBuyPorno += 1
  423. gs 'stat'
  424. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pornmag.jpg"></center>'
  425. 'You try not to look into the porn dealers eyes as you hand him the money. You take the magazine and quickly hide it under your shirt.'
  426. act 'Leave':gt 'pav_train_market', 'start'
  427. act 'Buy something else':gt 'pav_train_market', 4
  428. end
  429. end
  430. end
  431. end
  432. elseif TimesBuyPorno > 0 and TimesBuyPorno < 5:
  433. 'The porn dealer notices you coming over and asks, "Looking to buy a magazine? They''re only 400 <b>₽</b> each."'
  434. act 'Look through a magazine':
  435. cla
  436. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pornmag.jpg"></center>'
  437. 'You pick up one of the magazines and flip through the pages. Inside the magazines, you see men with large erect penis engaging in sexual acts with women who are either half-naked or fully naked, most of them look close to your own age. You feel yourself getting aroused looking at the images.'
  438. act 'Leave':gt 'pav_train_market', 'start'
  439. act 'Look for something else':gt 'pav_train_market', 4
  440. if money >= 400:
  441. act 'Buy magazine (400 <b>₽</b>)':
  442. *clr & cla
  443. minut += 5
  444. money -= 400
  445. pornMagazine = 40
  446. TimesBuyPorno += 1
  447. gs 'stat'
  448. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pornmag.jpg"></center>'
  449. 'You try not to look into the porn dealers eyes as you hand him the money. You take the magazine and quickly hide it under your shirt.'
  450. act 'Leave':gt 'pav_train_market', 'start'
  451. act 'Buy something else':gt 'pav_train_market', 4
  452. end
  453. end
  454. end
  455. elseif TimesBuyPorno >= 5:
  456. 'The porn dealer sees you approaching the stall, "Ah, my best customer! Welcome back!"'
  457. act 'Look through a magazine':
  458. cla
  459. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pornmag.jpg"></center>'
  460. 'You pick up one of the magazines and flip through the pages. Inside the magazines, you see men with large erect penis engaging in sexual acts with women who are either half-naked or fully naked, most of them look close to your own age. You feel yourself getting aroused looking at the images.'
  461. act 'Leave':gt 'pav_train_market', 'start'
  462. act 'Look for something else':gt 'pav_train_market', 4
  463. if money >= 400:
  464. act 'Buy magazine (400 <b>₽</b>)':
  465. *clr & cla
  466. minut += 5
  467. money -= 400
  468. pornMagazine = 40
  469. TimesBuyPorno += 1
  470. gs 'stat'
  471. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pornmag.jpg"></center>'
  472. 'You try not to look into the porn dealers eyes as you hand him the money. You take the magazine and quickly hide it under your shirt.'
  473. act 'Leave':gt 'pav_train_market', 'start'
  474. act 'Buy something else':gt 'pav_train_market', 4
  475. end
  476. end
  477. end
  478. end
  479. end
  480. end
  481. act 'Ask to see the sex toys':
  482. *clr & cla
  483. gs 'stat'
  484. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/sextoys.jpg"></center>'
  485. 'He lets you step behind the counter so you can get a better look, as you do he says. "Take a look and let me know what you would like." You see several 15cm dildos. Each with a tag, "Only 700 <b>₽</b> each." You also see a small selection of vibrators in various colors, mostly pink. "Only 700 <b>₽</b> each." To one side you see many butt plugs, rubber and metal. "Only 700 <b>₽</b>each." Near the bottom is several strapon harnesses without a dildo. "Only 500 <b>₽</b>each."'
  486. act 'Leave':gt 'pav_train_market', 'start'
  487. act 'Look for something else':gt 'pav_train_market', 4
  488. if money >= 700 and middildo = 0:
  489. act 'Buy a 15cm dildo (700 <b>₽</b>)':
  490. cla
  491. minut += 5
  492. middildo = 1
  493. money -= 700
  494. pcs_horny += 10
  495. TimesBuyPorno += 1
  496. '<center><img <<$set_imgh>> src="images/pc/items/sextoys/15cm.jpg"></center>'
  497. if pcs_inhib < 35:
  498. 'You buy a dildo and hastily hide it, while your face blushes with embarrassment.'
  499. else
  500. 'You buy a dildo and calmly hide it.'
  501. end
  502. act 'Leave':gt 'pav_train_market', 'start'
  503. act 'Buy something else':gt 'pav_train_market', 4
  504. end
  505. end
  506. if money >= 1000 and suction_dildo = 0:
  507. act 'Buy a 15cm suction dildo (1000 <b>₽</b>)':
  508. cla
  509. minut += 5
  510. suction_dildo += 1
  511. money -= 1000
  512. pcs_horny += 10
  513. TimesBuyPorno += 1
  514. '<center><img <<$set_imgh>> src="images/pc/items/sextoys/15cm.jpg"></center>'
  515. if pcs_inhib < 35:
  516. 'You buy the dildo and hastily hide it, while your face blushes with embarrassment.'
  517. else
  518. 'You buy the dildo and calmly hide it.'
  519. end
  520. act 'Leave':gt 'pav_train_market', 'start'
  521. act 'Buy something else':gt 'pav_train_market', 4
  522. end
  523. elseif money >= 1000 and suction_dildo > 0:
  524. act 'Buy another 15cm suction dildo (1000 <b>₽</b>)':
  525. cla
  526. minut += 5
  527. suction_dildo += 1
  528. money -= 1000
  529. pcs_horny += 10
  530. TimesBuyPorno += 1
  531. '<center><img <<$set_imgh>> src="images/pc/items/sextoys/15cm.jpg"></center>'
  532. if pcs_inhib < 35:
  533. 'You buy the dildo and hastily hide it, while your face blushes with embarrassment.'
  534. else
  535. 'You buy the dildo and calmly hide it.'
  536. end
  537. act 'Leave':gt 'pav_train_market', 'start'
  538. act 'Buy something else':gt 'pav_train_market', 4
  539. end
  540. end
  541. if money >= 700 and vibrator = 0:
  542. act 'Buy vibrator (700 <b>₽</b>)':
  543. cla
  544. minut += 5
  545. vibrator = 1
  546. money -= 700
  547. pcs_horny += 10
  548. TimesBuyPorno += 1
  549. if pcs_horny >= 50 and pav_slut < 150:
  550. 'You buy a vibrator and hastily hide it, while your face blushes with embarrassment.'
  551. else
  552. 'You buy a vibrator and calmly hide it.'
  553. end
  554. act 'Leave':gt 'pav_train_market', 'start'
  555. act 'Buy something else':gt 'pav_train_market', 4
  556. end
  557. end
  558. if money >= 700 and analplug = 0:
  559. act 'Buy butt plug (700 <b>₽</b>)':
  560. cla
  561. minut += 5
  562. money -= 700
  563. analplug = 1
  564. !!this needs to be changed from analplug bought to smallbp for the smallone
  565. pcs_horny += 10
  566. TimesBuyPorno += 1
  567. '<center><img <<$set_imgh>> src="images/pc/items/sextoys/bp_small.jpg"></center>'
  568. if pcs_horny >= 50 and pav_slut < 150:
  569. 'You buy a butt plug and hastily hide it, while your face blushes with embarrassment.'
  570. else
  571. 'You buy a butt plug and calmly hide it.'
  572. end
  573. act 'Leave':gt 'pav_train_market', 'start'
  574. act 'Buy something else':gt 'pav_train_market', 4
  575. end
  576. end
  577. if dildo = 1:
  578. if money >= 500 and strapon = 0:
  579. act 'Buy strap-on harness (500 <b>₽</b>)':
  580. cla
  581. minut += 5
  582. strapon = 1
  583. strapnumber = 1
  584. money -= 500
  585. pcs_horny += 10
  586. TimesBuyPorno += 1
  587. '<center><img <<$set_imgh>> src="images/pc/items/sextoys/harness.jpg"></center>'
  588. if pcs_horny >= 50 and pav_slut < 150:
  589. 'You buy a strap-on harness and hastily hide it, while your face blushes with embarrassment.'
  590. else
  591. 'You buy a strap-on harness and calmly hide it.'
  592. end
  593. act 'Leave':gt 'pav_train_market', 'start'
  594. act 'Buy something else':gt 'pav_train_market', 4
  595. end
  596. end
  597. else
  598. if money >= 1200 and strapon = 0 and middildo = 0:
  599. act 'Buy strap-on harness with a 15cm dildo (1200 <b>₽</b>)':
  600. cla
  601. minut += 5
  602. strapon = 1
  603. middildo = 1
  604. strapnumber = 1
  605. money -= 1200
  606. pcs_horny += 10
  607. TimesBuyPorno += 1
  608. '<center><img <<$set_imgh>> src="images/pc/items/sextoys/harness.jpg"></center>'
  609. if pcs_horny >= 50 and pav_slut < 150:
  610. 'You buy a strap-on harness and hastily hide it, while your face blushes with embarrassment.'
  611. else
  612. 'You buy a strap-on harness and calmly hide it.'
  613. end
  614. act 'Leave':gt 'pav_train_market', 'start'
  615. act 'Buy something else':gt 'pav_train_market', 4
  616. end
  617. end
  618. end
  619. end
  620. end
  621. if ARGS[0] = 5:
  622. *clr & cla
  623. menu_off = 1
  624. minut += 5
  625. gs 'stat'
  626. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/dedgitara.jpg"></center>'
  627. 'You see an old man playing the guitar. He''s trying to avert as much attention as he can to himself.'
  628. act 'Stop wandering': gt 'pav_train_market', 'start'
  629. if hour >= 8 and hour <= 18:
  630. act 'Wander around the market': gt 'pav_train_market','events'
  631. end
  632. end
  633. if ARGS[0] = 6:
  634. *clr & cla
  635. menu_off = 1
  636. minut += 5
  637. gs 'stat'
  638. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/nenavizublyadcigan.jpg"></center>'
  639. 'You meet a Gypsy woman. She offers to tell your fortune.'
  640. act 'Decline': gt 'pav_train_market', 'start'
  641. act 'Accept':
  642. *clr & cla
  643. minut += 5
  644. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/gadaet'+rand(1,2)+'.jpg"></center>'
  645. 'You agree and Gypsy takes your hand before she predicts you will have great happiness and lots of money. Afterwards, she promptly walks away.'
  646. act 'Something''s wrong':
  647. *clr & cla
  648. money = 0
  649. pcs_mood -= 50
  650. gs 'stat'
  651. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pusto.jpg"></center>'
  652. 'With a sneaking suspicion you start looking through your stuff. Your wallet is nowhere to be found!'
  653. act 'Find the Gypsy':
  654. *clr & cla
  655. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/okliknut.jpg"></center>'
  656. 'You search the area hoping to find the thief, but she has already disappeared into the crowd.'
  657. act 'Back': gt 'pav_train_market', 'start'
  658. end
  659. end
  660. end
  661. end
  662. if ARGS[0] = 7:
  663. *clr & cla
  664. menu_off = 1
  665. minut += 5
  666. gs 'stat'
  667. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/kosmetic.jpg"></center>'
  668. tovpay = 800
  669. 'You see some cosmetics on sale for <<tovpay>> <b>₽</b>.'
  670. act 'Stop wandering': gt 'pav_train_market', 'start'
  671. if hour >= 8 and hour <= 18:
  672. act 'Wander around the market': gt 'pav_train_market','events'
  673. end
  674. if money >= tovpay:
  675. act 'Buy the cosmetics (800 <b>₽</b>)':
  676. minut += 15
  677. money -= tovpay
  678. kosmetica += 50
  679. gt 'pav_train_market', 'start'
  680. end
  681. end
  682. end
  683. if ARGS[0] = 8:
  684. *clr & cla
  685. menu_off = 1
  686. minut += 5
  687. gs 'stat'
  688. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/vitaminki.jpg"></center>'
  689. tovpay = 105
  690. 'You see some vitamins on sale for <<tovpay>> <b>₽</b>.'
  691. act 'Stop wandering': gt 'pav_train_market', 'start'
  692. if hour >= 8 and hour <= 18:
  693. act 'Wander around the market': gt 'pav_train_market','events'
  694. end
  695. if money >= tovpay:
  696. act 'Buy vitamins (105 <b>₽</b>)':
  697. minut += 15
  698. vitamin += 20
  699. money -= tovpay
  700. gt 'pav_train_market', 'start'
  701. end
  702. end
  703. end
  704. if ARGS[0] = 9:
  705. *clr & cla
  706. menu_off = 1
  707. minut += 5
  708. gs 'stat'
  709. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/condoms.jpg"></center>'
  710. tovpay = 80
  711. 'You see a booth selling condoms for <<tovpay>> <b>₽</b>.'
  712. act 'Stop wandering': gt 'pav_train_market', 'start'
  713. if hour >= 8 and hour <= 18:
  714. act 'Wander around the market': gt 'pav_train_market','events'
  715. end
  716. if money >= tovpay:
  717. act 'Buy condoms (80 <b>₽</b>)':
  718. minut += 15
  719. prezik += 5
  720. i = 5
  721. :cndmlp
  722. if rand(0,49)-6*(8-tovpay/10) <= 0:badprezik += 1
  723. if i > 0: i-= 1 & jump 'cndmlp'
  724. killvar 'i'
  725. money -= tovpay
  726. gt 'pav_train_market', 'start'
  727. end
  728. end
  729. end
  730. if ARGS[0] = 10:
  731. *clr & cla
  732. menu_off = 1
  733. minut += 5
  734. gs 'stat'
  735. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/balzam.jpg"></center>'
  736. tovpay = 100
  737. 'There is lip balm on sale for <<tovpay>> <b>₽</b>.'
  738. act 'Stop wandering': gt 'pav_train_market', 'start'
  739. if hour >= 8 and hour <= 18:
  740. act 'Wander around the market': gt 'pav_train_market','events'
  741. end
  742. if money >= tovpay:
  743. act 'Buy lip balm (100 <b>₽</b>)':
  744. *clr & cla
  745. minut += 15
  746. lipbalm += 30
  747. money -= tovpay
  748. gt 'pav_train_market', 'start'
  749. end
  750. end
  751. end
  752. if ARGS[0] = 11:
  753. *clr & cla
  754. menu_off = 1
  755. minut += 5
  756. gs 'stat'
  757. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/arthur/artur.jpg"></center>'
  758. if arturKnow = 0:
  759. 'Someone suddenly calls out to you, "Hey pretty girl, do you want a fresh, juicy tangerine?"'
  760. act 'Look': gt 'arturRinok','start'
  761. else
  762. 'Someone suddenly calls out to you, "Hey <<$pcs_nickname>>, do you want a fresh, juicy tangerine?"'
  763. act 'Go and see Arthur': gt 'arturRinok','start'
  764. end
  765. end
  766. if ARGS[0] = 12:
  767. *clr & cla
  768. menu_off = 1
  769. minut += 5
  770. gs 'stat'
  771. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/cheburek.jpg"></center>'
  772. 'Walking through the market, you came across an old woman selling pies.'
  773. act 'Stop wandering': gt 'pav_train_market', 'start'
  774. if hour >= 8 and hour <= 18:
  775. act 'Wander around the market': gt 'pav_train_market','events'
  776. end
  777. if pcs_energy <= 80:
  778. act 'Buy a pie for 20 <b>₽</b>':
  779. *clr & cla
  780. fat+=3
  781. frost = 0
  782. pcs_health += 5
  783. pcs_mood += 5
  784. pcs_hydra -= 5
  785. pcs_energy+=5
  786. money-=20
  787. minut+=10
  788. gs 'stat'
  789. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/eat.jpg"></center>'
  790. 'The pie is still warm as the woman hands it over to you. Barely able to keep yourself away from it, you find a place to sit down and enjoy the pie.'
  791. act 'Continue walking through the market': gt 'pav_train_market','events'
  792. end
  793. else
  794. *p ', But you are not hungry right now.'
  795. end
  796. end
  797. if ARGS[0] = 13:
  798. *clr & cla
  799. menu_off = 1
  800. minut += 5
  801. gs 'stat'
  802. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/dropwallet.jpg"></center>'
  803. 'You see a wallet fall out of a woman''s purse.'
  804. act 'Tell her':
  805. *clr & cla
  806. minut += 2
  807. gs 'stat'
  808. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/vernutwallet.jpg"></center>'
  809. '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.'
  810. act 'Continue walking through the market': gt 'pav_train_market','events'
  811. end
  812. act 'Look through the purse':
  813. *clr & cla
  814. minut += 5
  815. i = rand(40,200)
  816. gs 'stat'
  817. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/zaglanut.jpg"></center>'
  818. 'You open the wallet and you see that there''s <<i>> <b>₽</b>'
  819. gs 'willpower', 'misc', 'self', 'easy'
  820. if will_cost <= pcs_willpwr:
  821. act 'Take the money and throw away the wallet (<<will_cost>> Willpower)':
  822. *clr & cla
  823. money += i
  824. pcs_mood += 10
  825. killvar 'i'
  826. gs 'willpower', 'pay', 'resist'
  827. gs 'stat'
  828. 'You just need the money.'
  829. act 'Continue': gt 'pav_train_market','start'
  830. end
  831. else
  832. act 'Take the money and throw away the wallet (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  833. end
  834. act 'Catch up with the woman and return her purse':
  835. *clr & cla
  836. pcs_mood += 5
  837. gs 'stat'
  838. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/proverka.jpg"></center>'
  839. '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.'
  840. act 'Stop wandering': gt 'pav_train_market', 'start'
  841. if hour >= 8 and hour <= 18:
  842. act 'Wander around the market': gt 'pav_train_market','events'
  843. end
  844. end
  845. end
  846. end
  847. if ARGS[0] = 14:
  848. *clr & cla
  849. menu_off = 1
  850. minut += 5
  851. gs 'stat'
  852. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/rebenok.jpg"></center>'
  853. 'You see a young mother and her crying baby.'
  854. act 'Stop wandering': gt 'pav_train_market', 'start'
  855. if hour >= 8 and hour <= 18:
  856. act 'Wander around the market': gt 'pav_train_market','events'
  857. end
  858. end
  859. if ARGS[0] = 15:
  860. *clr & cla
  861. menu_off = 1
  862. minut += 5
  863. gs 'stat'
  864. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/rezba.jpg"></center>'
  865. 'You find a stall with beautiful things carved out of wood and metal.'
  866. act 'Stop wandering': gt 'pav_train_market', 'start'
  867. if hour >= 8 and hour <= 18:
  868. act 'Wander around the market': gt 'pav_train_market','events'
  869. end
  870. end
  871. if ARGS[0] = 16:
  872. *clr & cla
  873. menu_off = 1
  874. minut += 5
  875. gs 'stat'
  876. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/gruzchik.jpg"></center>'
  877. 'Looking around, you almost collide with a man pulling a small cart.'
  878. act 'Stop wandering': gt 'pav_train_market', 'start'
  879. if hour >= 8 and hour <= 18:
  880. act 'Wander around the market': gt 'pav_train_market','events'
  881. end
  882. end
  883. if ARGS[0] = 17:
  884. *clr & cla
  885. menu_off = 1
  886. minut += 5
  887. gs 'stat'
  888. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/meatlavka.jpg"></center>'
  889. 'You wander past a the meet seller and see a butcher working with an axe.'
  890. act 'Stop wandering': gt 'pav_train_market', 'start'
  891. if hour >= 8 and hour <= 18:
  892. act 'Wander around the market': gt 'pav_train_market','events'
  893. end
  894. end
  895. if ARGS[0] = 18:
  896. *clr & cla
  897. menu_off = 1
  898. minut += 5
  899. gs 'stat'
  900. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/dirka.jpg"></center>'
  901. 'As you walk past a stall you notice a small hole torn in the canvas.'
  902. act 'Stop wandering': gt 'pav_train_market', 'start'
  903. if hour >= 8 and hour <= 18:
  904. act 'Wander around the market': gt 'pav_train_market','events'
  905. end
  906. gs 'willpower', 'voyeur', 'self', 'easy'
  907. if will_cost <= pcs_willpwr:
  908. act 'Look through the hole (<<will_cost>> Willpower)':
  909. *clr & cla
  910. gs 'arousal', 'voyeur', 2
  911. gs 'willpower', 'pay', 'resist'
  912. gs 'stat'
  913. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pereodev'+rand(1,15)+'.jpg"></center>'
  914. 'You look inside the tent and see ' + $pavtrain_marketrandtext[rand(3,7)]
  915. act 'Leave': gt 'pav_train_market', 'start'
  916. end
  917. else
  918. act 'Look through the hole (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  919. end
  920. end
  921. if ARGS[0] = 19:
  922. *clr & cla
  923. menu_off = 1
  924. minut += 5
  925. gs 'stat'
  926. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/birthcontrolpills.jpg"></center>'
  927. tovpay = 1500
  928. 'You see a booth selling birth control pills for <<tovpay>> <b>₽</b>.'
  929. act 'Stop wandering': gt 'pav_train_market', 'start'
  930. if hour >= 8 and hour <= 18:
  931. act 'Wander around the market': gt 'pav_train_market','events'
  932. end
  933. if money >= tovpay:
  934. act 'Buy birth control pills (1500 <b>₽</b>)':
  935. *clr & cla
  936. minut += 15
  937. tabletki += 1
  938. if rand(0,49) - (6*(8-tovpay/50)) <= 0:
  939. temp = rand(0,3)
  940. if temp = 0:
  941. tabletkiold += 1 & !Pills are expired and less effective
  942. elseif temp = 1:
  943. tabletkifake += 1 & !Pills are counterfeit and useless
  944. elseif temp = 2:
  945. tabletkirej += 1 & !Pills are factory rejects with variable strength
  946. else
  947. !Pills were tampered with
  948. if rand(0,100) = 0:
  949. tabletkifert += 1 & ! pills were replaced with fertility hormones
  950. else
  951. tabletkisug += 1 & ! pills were all replaced with sugar pills
  952. end
  953. end
  954. end
  955. money -= tovpay
  956. gt 'pav_train_market', 'start'
  957. end
  958. end
  959. end
  960. --- pav_train_market ---------------------------------