events.qsrc 7.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327
  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. cls
  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. cls
  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. cls
  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. cls
  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. cls
  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. hour += 2
  183. gt'gdk'
  184. end
  185. if snkz = 2:
  186. hour += 2
  187. gt 'gskver', 'start'
  188. end
  189. if snkz = 3:
  190. hour += 2
  191. gt'bedrPar'
  192. end
  193. if snkz = 4:
  194. hour += 2
  195. gt'gopskver'
  196. end
  197. if snkz = 5:
  198. hour += 2
  199. gt 'pavtrainhall', 'female'
  200. end
  201. if snkz = 6:
  202. gs 'clothing', 'strip'
  203. hour += 2
  204. gt'Glake'
  205. end
  206. end
  207. if $ARGS[0] = 'narkozakladka':
  208. cls
  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. cls
  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. cls
  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. act 'Heroin':
  233. money -= 1500
  234. StrongNarkota += 25
  235. SNarkTimes += 1
  236. narkozakday=day
  237. gs'stat'
  238. 'You buy the drugs and without thinking twice you shoot up.'
  239. gt 'events', 'snkayf'
  240. end
  241. act 'Amphetamines':
  242. money -= 1000
  243. amphetamine += 5
  244. gt $loc, $metka
  245. end
  246. act 'Leave': gt $loc, $metka
  247. end
  248. if $ARGS[0] = 'snkayf1':
  249. snkz = RAND(1,6)
  250. gs 'underwear', 'remove'
  251. if snkz = 1:
  252. hour += 2
  253. gt'park','start'
  254. end
  255. if snkz = 2:
  256. hour += 2
  257. gt'down'
  258. end
  259. if snkz = 3:
  260. hour += 2
  261. gt'nord'
  262. end
  263. if snkz = 4:
  264. hour += 2
  265. gt'street'
  266. end
  267. if snkz = 5:
  268. hour += 2
  269. gt'dachi'
  270. end
  271. if snkz = 6:
  272. hour += 2
  273. gt'lake','start'
  274. end
  275. end
  276. --- events ---------------------------------