events.qsrc 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441
  1. # events
  2. if $ARGS[0] = 'street_cum':
  3. if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
  4. if hour >= 7 and hour <= 21:
  5. pcs_mood -= 5
  6. if face_write > 0:
  7. pcs_mood -= 5
  8. 'Passers puzzled turn around staring at you - one with surprise, and others with contempt. Someone smiles and shows a finger. Some of the pictures on your phone, absolutely not hiding and giggling at you. You clearly noticeable semen and bargain painted face.'
  9. else
  10. 'Puzzled passerbys turn around and stare at you. Some take pictures on their phones, not entirely hiding that they are giggling at you. The sperm on you is clearly noticeable.'
  11. end
  12. end
  13. elseif (cumloc[6] = 0 or cumloc[7] = 0) and cumloc[11] = 0 and face_write > 0:
  14. pcs_mood -= 5
  15. 'Surrounding look at you with surprise, grin or a slight contempt. Someone just point the finger and laughs. Someone photographed phone. Hair obviously can not hide "art" on your face.'
  16. end
  17. end
  18. if $ARGS[0] = 'read':
  19. act 'Read a book':
  20. *clr & cla
  21. gs 'stat'
  22. '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
  23. if f_book <= 0 and fantasybook <= 0 and w_book = 0 and womanbook = 0 and artem_borrowed_book = 0 and artembook <= 0:'You scratch your head looking at the book you already read, thinking. "Damn, nothing to read, maybe I''ll take a walk or search the market for a new book?"'
  24. if f_book > 0:
  25. if fantasybook <= 0:fantasybook = 5 & f_book -= 1
  26. 'You still have <<f_book>> unread fantasy novels.'
  27. end
  28. if fantasybook > 0:
  29. act 'Read fantasy book. There are <<fantasybook * 100>> pages left (1:00)':
  30. *clr & cla
  31. fantasybook -= 1
  32. if fantasybook = 0:totalbook += 1
  33. if blizoruk = 500 or glassqw = 1:
  34. glassqw = 1
  35. msg' The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
  36. end
  37. minut += 60
  38. if pcs_nerd > 0:
  39. lastread = totminut
  40. lastreadday = daystart
  41. pcs_nerd += 1
  42. blizoruk += 1
  43. end
  44. gs 'stat'
  45. '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
  46. if pcs_nerd > 0:
  47. pcs_mood = 100
  48. if pcs_stren > 1:stren_deg -= 1
  49. if pcs_vital > 5:vital_deg -= 1
  50. 'For an hour you enthusiastically read the book, completely immersed in the authors world.'
  51. else
  52. pcs_mood += 10
  53. 'For an hour you read the book.'
  54. end
  55. act 'Close the book':gt $loc, $loc_arg
  56. end
  57. end
  58. if w_book > 0:
  59. if womanbook <= 0:womanbook = 5 & w_book -= 1
  60. 'You still have <<w_book>> unread women''s novels.'
  61. end
  62. if womanbook > 0:
  63. act 'Read Women''s Novel. There are <<womanbook * 100>> pages left (1:00)':
  64. if blizoruk = 500 or glassqw = 1:
  65. glassqw = 1
  66. msg' The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
  67. end
  68. *clr & cla
  69. womanbook -= 1
  70. if womanbook = 0:totalbook += 1
  71. minut += 60
  72. if pcs_nerd > 0:
  73. lastread = totminut
  74. lastreadday = daystart
  75. pcs_nerd += 1
  76. blizoruk += 1
  77. end
  78. gs 'stat'
  79. '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
  80. if pcs_nerd > 0:
  81. pcs_mood = 100
  82. pcs_horny += 10
  83. if pcs_stren > 1:stren_deg -= 1
  84. if pcs_vital > 5:vital_deg -= 1
  85. 'For an hour you enthusiastically read the book, completely immersed in the story.'
  86. else
  87. pcs_mood += 10
  88. pcs_horny += 3
  89. 'For an hour you read the book.'
  90. end
  91. act 'Close the book':gt $loc, $loc_arg
  92. end
  93. end
  94. if artembook > 0:
  95. act 'Read the book your borrowed from Artem. There are <<artembook * 100>> pages left (1:00) ':
  96. if blizoruk = 500 or glassqw = 1:
  97. glassqw = 1
  98. msg' The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
  99. end
  100. *clr & cla
  101. artembook -= 1
  102. if artembook = 0:totalbook += 1
  103. minut += 60
  104. if pcs_nerd > 0:
  105. lastread = totminut
  106. lastreadday = daystart
  107. pcs_nerd += 1
  108. blizoruk += 1
  109. end
  110. gs 'stat'
  111. '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
  112. if pcs_nerd > 0:
  113. pcs_mood = 100
  114. if pcs_stren > 1:stren_deg -= 1
  115. if pcs_vital > 5:vital_deg -= 1
  116. 'For an hour you enthusiastically read the book, completely immersed in the authors world.'
  117. else
  118. pcs_mood += 10
  119. 'For an hour you read the book.'
  120. end
  121. act 'Close the book':gt $loc, $loc_arg
  122. end
  123. end
  124. act ' Close the book':gt $loc, $loc_arg
  125. end
  126. if cookmag = 0 and fashmag = 0 and compmag = 0 and biomag = 0 and knitmag = 0 and fitmag = 0:
  127. 'You have no magazines to read.'
  128. else
  129. act 'Read a magazine':
  130. *clr & cla
  131. gs 'stat'
  132. '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
  133. if cookmag = 1:
  134. act 'Read your cooking magazine':
  135. if blizoruk = 500 or glassqw = 1:
  136. glassqw = 1
  137. msg' The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
  138. end
  139. cla
  140. cookmag = 0
  141. pcs_mood += 5
  142. minut += 30
  143. 'You relax for half an hour reading your cooking magazine.'
  144. act 'Return':gt $loc, $loc_arg
  145. end
  146. end
  147. if fashmag = 1:
  148. act 'Read your fashion magazine':
  149. if blizoruk = 500 or glassqw = 1:
  150. glassqw = 1
  151. msg' The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
  152. end
  153. cla
  154. fashmag = 0
  155. pcs_mood += 5
  156. minut += 30
  157. makupskl_exp += 1
  158. 'You relax for half an hour reading your fashion magazine.'
  159. act 'Return':gt $loc, $loc_arg
  160. end
  161. end
  162. if compmag = 1:
  163. act 'Read your computing magazine':
  164. if blizoruk = 500 or glassqw = 1:
  165. glassqw = 1
  166. msg' The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
  167. end
  168. cla
  169. compmag = 0
  170. pcs_mood += 5
  171. minut += 30
  172. compskl_exp += 1
  173. 'You relax for half an hour reading your computing magazine.'
  174. act 'Return':gt $loc, $loc_arg
  175. end
  176. end
  177. if biomag = 1:
  178. act 'Read your biographical magazine':
  179. if blizoruk = 500 or glassqw = 1:
  180. glassqw = 1
  181. msg' The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
  182. end
  183. cla
  184. biomag = 0
  185. pcs_mood += 5
  186. minut += 30
  187. 'You relax for half an hour reading your biographical magazine.'
  188. act 'Return':gt $loc, $loc_arg
  189. end
  190. end
  191. if knitmag = 1:
  192. act 'Read your knitting magazine':
  193. if blizoruk = 500 or glassqw = 1:
  194. glassqw = 1
  195. msg' The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
  196. end
  197. cla
  198. knitmag = 0
  199. pcs_mood += 5
  200. minut += 30
  201. if pcs_sewng <= 100: sewng_exp += rand(1,3)
  202. 'You relax for half an hour reading your knitting magazine.'
  203. act 'Return':gt $loc, $loc_arg
  204. end
  205. end
  206. if fitmag = 1:
  207. act 'Read your fitness magazine':
  208. if blizoruk = 500 or glassqw = 1:
  209. glassqw = 1
  210. msg' The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
  211. end
  212. cla
  213. fitmag = 0
  214. pcs_mood += 5
  215. minut += 30
  216. 'You relax for half an hour reading your fitness magazine.'
  217. act 'Return':gt $loc, $loc_arg
  218. end
  219. end
  220. act 'Return':gt $loc, $loc_arg
  221. end
  222. end
  223. end
  224. if $ARGS[0] = 'read_porn':
  225. act 'Read the porn magazine':
  226. if blizoruk = 500 or glassqw = 1:
  227. glassqw = 1
  228. msg' The text blurs across the page, it seems you have poor eyesight probably from all the porn. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
  229. end
  230. *clr & cla
  231. '<center><img <<$set_imgh>> src="images/shared/accessories/magazines/porn.jpg"></center>'
  232. if pornMagazine = 1:
  233. '<font color="magenta">Boring</font>, you''ve memorized this magazine by heart, you think that is time to buy a new one.'
  234. else
  235. pornMagazine -= 1
  236. pcs_horny += 10
  237. minut += 5
  238. gs 'stat'
  239. 'You flip through the porno magazine, reading the stories and looking at the pictures. A small excitement begins to cover your body.'
  240. end
  241. act 'Put away':gt $loc, $loc_arg
  242. end
  243. end
  244. if $ARGS[0] = 'snkayf':
  245. snkz = RAND(1,6)
  246. gs 'underwear', 'remove'
  247. if snkz = 1:
  248. minut += 120
  249. gt'pav_commcenter'
  250. end
  251. if snkz = 2:
  252. minut += 120
  253. gt 'pav_park', 'start'
  254. end
  255. if snkz = 3:
  256. minut += 120
  257. gt'bedrPar'
  258. end
  259. if snkz = 4:
  260. minut += 120
  261. gt'gopskver'
  262. end
  263. if snkz = 5:
  264. minut += 120
  265. gt 'pav_train_hall', 'female'
  266. end
  267. if snkz = 6:
  268. gs 'clothing', 'strip'
  269. minut += 120
  270. gt'Glake'
  271. end
  272. end
  273. if $ARGS[0] = 'narkozakladka':
  274. *clr & cla
  275. '<center><b>Shooting galleries</b></center>'
  276. '<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
  277. 'You decide to ask, and whether there are any dealers in Pavlovsk. To which the man replied, "Go to the train station platform, it will cost you though..."'
  278. 'And then he looks at you menacingly "And if I hear that you''ve caused any trouble, well death will seem like a good escape."'
  279. act 'Agree':
  280. *clr & cla
  281. snarkozak = 1
  282. '<center><b>Shooting galleries</b></center>'
  283. '<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
  284. 'You gulp and stammer "I assure you there willl be no problems"'
  285. 'Guy nods, "Good then you can find a range of product at the end of the platform."'
  286. act 'Leave':gt'city_drugden'
  287. end
  288. end
  289. if $ARGS[0] = 'snarkozaka':
  290. *clr & cla
  291. minut += 20
  292. gs 'stat'
  293. '<center><B>Pavlovsk train station</B></center>'
  294. '<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg"></center>'
  295. 'You walk to the end of the platform and see a man hiding undercover smoking a cigarette'
  296. 'Walking up to him you ask him if he has anything'
  297. 'He turns and looks you up and down, "That depends on what you want little lady?"'
  298. *nl
  299. 'Heroin: 560 <b>₽</b>'
  300. 'Cocaine: 2100 <b>₽</b>'
  301. 'Amphetamine: 600 <b>₽</b>'
  302. 'Weed: 300 <b>₽</b>'
  303. act 'Leave': gt 'pav_train_hall'
  304. if money >= 560:
  305. act 'Buy and use heroin (560 <b>₽</b>)':
  306. money -= 560
  307. gs 'drugs', 'heroin'
  308. gt 'events', 'snarkozaka'
  309. end
  310. else
  311. 'You don''t have enough money to buy heroin.'
  312. end
  313. if money >= 2100:
  314. act 'Buy enough cocaine for 5 lines (1800 <b>₽</b>)':
  315. money -= 2100
  316. dur += 5
  317. minut += 5
  318. gt 'events', 'snarkozaka'
  319. end
  320. else
  321. 'You don''t have enough money to buy cocaine.'
  322. end
  323. if money >= 600:
  324. act 'Buy 5 Amphetamine (600 <b>₽</b>)':
  325. money -= 600
  326. amphetamine += 5
  327. gt 'events', 'snarkozaka'
  328. end
  329. else
  330. 'You don''t have enough money to buy amphetamine.'
  331. end
  332. if money >= 300:
  333. act 'Buy enough weed for 5 joints (300 <b>₽</b>)':
  334. money -= 300
  335. drugUser = 1
  336. joint += 5
  337. minut += 5
  338. gt 'events', 'snarkozaka'
  339. end
  340. else
  341. 'You don''t have enough money to buy weed.'
  342. end
  343. end
  344. if $ARGS[0] = 'snkayf1':
  345. snkz = RAND(1,6)
  346. gs 'underwear', 'remove'
  347. if snkz = 1:
  348. minut += 120
  349. gt'city_park','start'
  350. end
  351. if snkz = 2:
  352. minut += 120
  353. gt'city_center'
  354. end
  355. if snkz = 3:
  356. minut += 120
  357. gt'city_industrial'
  358. end
  359. if snkz = 4:
  360. minut += 120
  361. gt'city_residential'
  362. end
  363. if snkz = 5:
  364. minut += 120
  365. gt'dachi'
  366. end
  367. if snkz = 6:
  368. minut += 120
  369. gt'city_lake','start'
  370. end
  371. end
  372. --- events ---------------------------------