events 7.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316
  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. 'You relax for half an hour reading your fashion magazine.'
  112. act 'Return':gt $loc, $Metka
  113. end
  114. end
  115. if compmag = 1:
  116. act 'Read your computing magazine':
  117. cla
  118. compmag = 0
  119. pcs_mood += 5
  120. minut += 30
  121. 'You relax for half an hour reading your computing magazine.'
  122. act 'Return':gt $loc, $Metka
  123. end
  124. end
  125. if biomag = 1:
  126. act 'Read your biographical magazine':
  127. cla
  128. biomag = 0
  129. pcs_mood += 5
  130. minut += 30
  131. 'You relax for half an hour reading your biographical magazine.'
  132. act 'Return':gt $loc, $Metka
  133. end
  134. end
  135. if knitmag = 1:
  136. act 'Read your knitting magazine':
  137. cla
  138. knitmag = 0
  139. pcs_mood += 5
  140. minut += 30
  141. if pcs_sewng <= 100: sewng_exp += rand(1,3)
  142. 'You relax for half an hour reading your knitting magazine.'
  143. act 'Return':gt $loc, $Metka
  144. end
  145. end
  146. if fitmag = 1:
  147. act 'Read your fitness magazine':
  148. cla
  149. fitmag = 0
  150. pcs_mood += 5
  151. minut += 30
  152. 'You relax for half an hour reading your fitness magazine.'
  153. act 'Return':gt $loc, $Metka
  154. end
  155. end
  156. act 'Return':gt $loc, $Metka
  157. end
  158. end
  159. end
  160. if $ARGS[0] = 'read_porn':
  161. act 'Read the porn magazine':
  162. cls
  163. '<center><img <<$set_imgh>> src="images/shared/accessories/magazines/porn.jpg"></center>'
  164. if pornMagazine = 1:
  165. '<font color="magenta">Boring</font>, you''ve memorized this magazine by heart, you think that is time to buy a new one.'
  166. else
  167. pornMagazine -= 1
  168. pcs_horny += 10
  169. minut += 5
  170. gs 'stat'
  171. 'You flip through the porno magazine, reading the stories and looking at the pictures. A small excitement begins to cover your body.'
  172. end
  173. act 'Put away':gt $loc, $Metka
  174. end
  175. end
  176. if $ARGS[0] = 'snkayf':
  177. snkz = RAND(1,6)
  178. if tanga = 1:tanga = 0
  179. if snkz = 1:
  180. hour += 2
  181. gt'gdk'
  182. end
  183. if snkz = 2:
  184. hour += 2
  185. gt'gskver'
  186. end
  187. if snkz = 3:
  188. hour += 2
  189. gt'bedrPar'
  190. end
  191. if snkz = 4:
  192. hour += 2
  193. gt'gopskver'
  194. end
  195. if snkz = 5:
  196. hour += 2
  197. gt 'vokmantoiev', 'female'
  198. end
  199. if snkz = 6:
  200. $clothingworntype = 'nude'
  201. hour += 2
  202. gt'Glake'
  203. end
  204. end
  205. if $ARGS[0] = 'narkozakladka':
  206. cls
  207. '<center><b>Shooting galleries</b></center>'
  208. '<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
  209. 'You decide to ask, and whether their point of Ozersk. To which the man replied, that is not the point, but it can organize your tab and you will be left in place Bookmark money.'
  210. 'Price rise, taking into account the complexities twice and will link two pieces equals.'
  211. 'And then he looked menacingly at you and said, you if you cheat death.'
  212. act 'Agree':
  213. cls
  214. snarkozak = 1
  215. '<center><b>Shooting galleries</b></center>'
  216. '<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
  217. 'You scared nodded, they agree.'
  218. 'Guy added, that bookmarks will be on the train/train station from the platform. '
  219. act 'Leave':gt'narkopriton'
  220. end
  221. end
  222. if $ARGS[0] = 'snarkozaka':
  223. cls
  224. minut += 20
  225. money -= 2000
  226. StrongNarkota += 25
  227. SNarkTimes += 1
  228. narkozakday=day
  229. gs'stat'
  230. '<center><B>Pavlovsk train station</B></center>'
  231. '<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg"></center>'
  232. 'You buy the drugs and without thinking twice you shoot up.'
  233. act 'Leave':gt 'events', 'snkayf'
  234. end
  235. if $ARGS[0] = 'snkayf1':
  236. snkz = RAND(1,6)
  237. if tanga = 1:tanga = 0
  238. if snkz = 1:
  239. hour += 2
  240. gt'park','start'
  241. end
  242. if snkz = 2:
  243. hour += 2
  244. gt'down'
  245. end
  246. if snkz = 3:
  247. hour += 2
  248. gt'nord'
  249. end
  250. if snkz = 4:
  251. hour += 2
  252. gt'street'
  253. end
  254. if snkz = 5:
  255. hour += 2
  256. gt'dachi'
  257. end
  258. if snkz = 6:
  259. hour += 2
  260. gt'lake','start'
  261. end
  262. end
  263. --- events ---------------------------------