events.qsrc 8.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362
  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:'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. minut += 60
  34. if pcs_nerd > 0:
  35. lastread = totminut
  36. lastreadday = daystart
  37. pcs_nerd += 1
  38. blizoruk += 1
  39. end
  40. gs 'stat'
  41. '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
  42. if pcs_nerd > 0:
  43. pcs_mood = 100
  44. if pcs_stren > 1:stren_deg -= 1
  45. if pcs_vital > 5:vital_deg -= 1
  46. 'For an hour you enthusiastically read the book, completely immersed in the authors world.'
  47. else
  48. pcs_mood += 10
  49. 'For an hour you read the book.'
  50. end
  51. act 'Close the book':gt $loc, $Metka
  52. end
  53. end
  54. if w_book > 0:
  55. if womanbook <= 0:womanbook = 5 & w_book -= 1
  56. 'You still have <<w_book>> unread women''s novels.'
  57. end
  58. if womanbook > 0:
  59. act 'Read Women''s Novel. There are <<womanbook * 100>> pages left (1:00)':
  60. *clr & cla
  61. womanbook -= 1
  62. if womanbook = 0:totalbook += 1
  63. minut += 60
  64. if pcs_nerd > 0:
  65. lastread = totminut
  66. lastreadday = daystart
  67. pcs_nerd += 1
  68. blizoruk += 1
  69. end
  70. gs 'stat'
  71. '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
  72. if pcs_nerd > 0:
  73. pcs_mood = 100
  74. pcs_horny += 10
  75. if pcs_stren > 1:stren_deg -= 1
  76. if pcs_vital > 5:vital_deg -= 1
  77. 'For an hour you enthusiastically read the book, completely immersed in the story.'
  78. else
  79. pcs_mood += 10
  80. pcs_horny += 3
  81. 'For an hour you read the book.'
  82. end
  83. act 'Close the book':gt $loc, $Metka
  84. end
  85. end
  86. act ' Close the book':gt $loc, $Metka
  87. end
  88. if cookmag = 0 and fashmag = 0 and compmag = 0 and biomag = 0 and knitmag = 0 and fitmag = 0:
  89. 'You have no magazines to read.'
  90. else
  91. act 'Read a magazine':
  92. *clr & cla
  93. gs 'stat'
  94. '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
  95. if cookmag = 1:
  96. act 'Read your cooking magazine':
  97. cla
  98. cookmag = 0
  99. pcs_mood += 5
  100. minut += 30
  101. 'You relax for half an hour reading your cooking magazine.'
  102. act 'Return':gt $loc, $Metka
  103. end
  104. end
  105. if fashmag = 1:
  106. act 'Read your fashion magazine':
  107. cla
  108. fashmag = 0
  109. pcs_mood += 5
  110. minut += 30
  111. makupskl_exp += 1
  112. 'You relax for half an hour reading your fashion magazine.'
  113. act 'Return':gt $loc, $Metka
  114. end
  115. end
  116. if compmag = 1:
  117. act 'Read your computing magazine':
  118. cla
  119. compmag = 0
  120. pcs_mood += 5
  121. minut += 30
  122. compskl_exp += 1
  123. 'You relax for half an hour reading your computing magazine.'
  124. act 'Return':gt $loc, $Metka
  125. end
  126. end
  127. if biomag = 1:
  128. act 'Read your biographical magazine':
  129. cla
  130. biomag = 0
  131. pcs_mood += 5
  132. minut += 30
  133. 'You relax for half an hour reading your biographical magazine.'
  134. act 'Return':gt $loc, $Metka
  135. end
  136. end
  137. if knitmag = 1:
  138. act 'Read your knitting magazine':
  139. cla
  140. knitmag = 0
  141. pcs_mood += 5
  142. minut += 30
  143. if pcs_sewng <= 100: sewng_exp += rand(1,3)
  144. 'You relax for half an hour reading your knitting magazine.'
  145. act 'Return':gt $loc, $Metka
  146. end
  147. end
  148. if fitmag = 1:
  149. act 'Read your fitness magazine':
  150. cla
  151. fitmag = 0
  152. pcs_mood += 5
  153. minut += 30
  154. 'You relax for half an hour reading your fitness magazine.'
  155. act 'Return':gt $loc, $Metka
  156. end
  157. end
  158. act 'Return':gt $loc, $Metka
  159. end
  160. end
  161. end
  162. if $ARGS[0] = 'read_porn':
  163. act 'Read the porn magazine':
  164. *clr & cla
  165. '<center><img <<$set_imgh>> src="images/shared/accessories/magazines/porn.jpg"></center>'
  166. if pornMagazine = 1:
  167. '<font color="magenta">Boring</font>, you''ve memorized this magazine by heart, you think that is time to buy a new one.'
  168. else
  169. pornMagazine -= 1
  170. pcs_horny += 10
  171. minut += 5
  172. gs 'stat'
  173. 'You flip through the porno magazine, reading the stories and looking at the pictures. A small excitement begins to cover your body.'
  174. end
  175. act 'Put away':gt $loc, $Metka
  176. end
  177. end
  178. if $ARGS[0] = 'snkayf':
  179. snkz = RAND(1,6)
  180. gs 'underwear', 'remove'
  181. if snkz = 1:
  182. minut += 120
  183. gt'gdk'
  184. end
  185. if snkz = 2:
  186. minut += 120
  187. gt 'gskver', 'start'
  188. end
  189. if snkz = 3:
  190. minut += 120
  191. gt'bedrPar'
  192. end
  193. if snkz = 4:
  194. minut += 120
  195. gt'gopskver'
  196. end
  197. if snkz = 5:
  198. minut += 120
  199. gt 'pavtrainhall', 'female'
  200. end
  201. if snkz = 6:
  202. gs 'clothing', 'strip'
  203. minut += 120
  204. gt'Glake'
  205. end
  206. end
  207. if $ARGS[0] = 'narkozakladka':
  208. *clr & cla
  209. '<center><b>Shooting galleries</b></center>'
  210. '<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
  211. '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..."'
  212. 'And then he looks at you menacingly at you, "And if I hear that you''ve caused any trouble, well death will seem like a good escape."'
  213. act 'Agree':
  214. *clr & cla
  215. snarkozak = 1
  216. '<center><b>Shooting galleries</b></center>'
  217. '<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
  218. 'You gulp and stammer "I assure you there willl be no problems"'
  219. 'Guy nods, "Good then you can find a range of product at the end of the platform."'
  220. act 'Leave':gt'narkopriton'
  221. end
  222. end
  223. if $ARGS[0] = 'snarkozaka':
  224. *clr & cla
  225. minut += 20
  226. gs 'stat'
  227. '<center><B>Pavlovsk train station</B></center>'
  228. '<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg"></center>'
  229. 'You walk to the end of the platform and see a man hiding undercover smoking a cigarette'
  230. 'Walking up to him you ask him if he has anything'
  231. 'He turns and looks you up and down, "That depends on what you want little lady?"'
  232. *nl
  233. 'Heroin: 560 <b>₽</b>'
  234. 'Cocaine: 2100 <b>₽</b>'
  235. 'Amphetamine: 600 <b>₽</b>'
  236. 'Weed: 300 <b>₽</b>'
  237. act 'Leave': gt 'pavtrainhall'
  238. if money >= 560:
  239. act 'Buy and use heroin (560 <b>₽</b>)':
  240. money -= 560
  241. gs 'drugs', 'heroin'
  242. gt 'events', 'snarkozaka'
  243. end
  244. else
  245. 'You don''t have enough money to buy heroin.'
  246. end
  247. if money >= 2100:
  248. act 'Buy enough cocaine for 5 lines (1800 <b>₽</b>)':
  249. money -= 2100
  250. dur += 5
  251. minut += 5
  252. gt 'events', 'snarkozaka'
  253. end
  254. else
  255. 'You don''t have enough money to buy cocaine.'
  256. end
  257. if money >= 600:
  258. act 'Buy 5 Amphetamine (600 <b>₽</b>)':
  259. money -= 600
  260. amphetamine += 5
  261. gt 'events', 'snarkozaka'
  262. end
  263. else
  264. 'You don''t have enough money to buy amphetamine.'
  265. end
  266. if money >= 300:
  267. act 'Buy enough weed for 5 joints (300 <b>₽</b>)':
  268. money -= 300
  269. drugUser = 1
  270. joint += 5
  271. minut += 5
  272. gt 'events', 'snarkozaka'
  273. end
  274. else
  275. 'You don''t have enough money to buy weed.'
  276. end
  277. end
  278. if $ARGS[0] = 'snkayf1':
  279. snkz = RAND(1,6)
  280. gs 'underwear', 'remove'
  281. if snkz = 1:
  282. minut += 120
  283. gt'park','start'
  284. end
  285. if snkz = 2:
  286. minut += 120
  287. gt'down'
  288. end
  289. if snkz = 3:
  290. minut += 120
  291. gt'nord'
  292. end
  293. if snkz = 4:
  294. minut += 120
  295. gt'street'
  296. end
  297. if snkz = 5:
  298. minut += 120
  299. gt'dachi'
  300. end
  301. if snkz = 6:
  302. minut += 120
  303. gt'lake','start'
  304. end
  305. end
  306. --- events ---------------------------------