1
0

events 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470
  1. # events
  2. if $ARGS[0] = 'street_cum':
  3. if spdirtyc > 0 or spdirtyv > 0:
  4. if hour >= 7 and hour <= 21:
  5. manna -= 5
  6. if face_write > 0:
  7. manna -= 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 spdirtyc = 0 and spdirtyv = 0 and face_write > 0:
  14. manna -= 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 src="images/pics/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 nerdism > 0:
  35. lastread = totminut
  36. lastreadday = daystart
  37. nerdism += 1
  38. blizoruk += 1
  39. end
  40. gs 'stat'
  41. '<center><img src="images/pics/book.jpg"></center>'
  42. if nerdism > 0:
  43. manna += 100
  44. if stren > 1:stren -= 1
  45. if vital > 5:vital -= 1
  46. 'For an hour you enthusiastically read the book, completely immersed in the authors world.'
  47. else
  48. manna += 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 nerdism > 0:
  65. lastread = totminut
  66. lastreadday = daystart
  67. nerdism += 1
  68. blizoruk += 1
  69. end
  70. gs 'stat'
  71. '<center><img src="images/pics/book.jpg"></center>'
  72. if nerdism > 0:
  73. manna += 100
  74. horny += 10
  75. if stren > 1:stren -= 1
  76. if vital > 5:vital -= 1
  77. 'For an hour you enthusiastically read the book, completely immersed in the story.'
  78. else
  79. manna += 10
  80. 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 src="images/pics/book.jpg"></center>'
  95. if cookmag = 1:
  96. act 'Read your cooking magazine':
  97. cla
  98. cookmag = 0
  99. manna += 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. manna += 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. manna += 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. manna += 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. manna += 5
  140. minut += 30
  141. if poSkill <= 100: poSkill += 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. manna += 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 src="images/qwest/alter/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. 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 $curloc
  174. end
  175. end
  176. if $ARGS[0] = 'sport':
  177. sports = 0
  178. if obruch > 0 and obruchday ! daystart:
  179. $sitrobr = '<a href="exec: gt ''events'', ''hula''">Hula hoop</a>'
  180. sports = 1
  181. else
  182. $sitrobr = ''
  183. end
  184. if bookYog > 0 and bookYogday ! daystart:
  185. $sitryog = '<a href="exec: gt ''events'', ''yoga''">Meditate</a>'
  186. sports = 1
  187. else
  188. $sitryog = ''
  189. end
  190. if skak > 0 and skakday ! daystart:
  191. $sitrskak = '<a href="exec: gt ''events'', ''rope''">Jumping rope</a>'
  192. sports = 1
  193. else
  194. $sitrskak = ''
  195. end
  196. if pressday ! daystart:
  197. $sitrpress = '<a href="exec: gt ''events'', ''press''">Abdominal exercises</a>'
  198. sports = 1
  199. else
  200. $sitrpress = ''
  201. end
  202. if pushday ! daystart:
  203. $sitrpush = '<a href="exec: gt ''events'', ''push''">Push-ups</a>'
  204. sports = 1
  205. else
  206. $sitrpush = ''
  207. end
  208. $sportsitr = '<<$sitrpush>> <<$sitrpress>> <<$sitrskak>> <<$sitryog>> <<$sitrobr>>'
  209. if sports = 1:
  210. 'There is enough space in the room for a variety of exercises, such as:'
  211. '<center><<$sportsitr>></center>'
  212. end
  213. end
  214. if $ARGS[0] = 'hula':
  215. cla
  216. *clr
  217. minut += 15
  218. obruchday = daystart
  219. agil += 1
  220. sweat += 10
  221. manna -= 1
  222. fat -= 1
  223. '<center><img src="images/etogame/obruch.gif"></center>'
  224. 'You develop your dexterity by using the hula hoop.'
  225. act 'Leave':gt $loc, $metka
  226. end
  227. if $ARGS[0] = 'yoga':
  228. cla
  229. *clr
  230. minut += 15
  231. bookYogday = daystart
  232. will += 1
  233. manna += 5
  234. if $clothingworntype ! 'nude':
  235. '<center><img src="images/community/yoga_dressed.jpg"></center>'
  236. elseif tanga = 1:
  237. '<center><img src="images/community/yoga_underwear.jpg"></center>'
  238. else
  239. '<center><img src="images/community/yoga_naked.png"></center>'
  240. end
  241. 'You meditate for fifteen minutes, developing your will.'
  242. act 'Leave':gt $loc, $metka
  243. end
  244. if $ARGS[0] = 'rope':
  245. cla
  246. *clr
  247. minut += 15
  248. skakday = daystart
  249. speed += 1
  250. sweat += 10
  251. manna -= 1
  252. fat -= 1
  253. if $clothingworntype ! 'nude':
  254. '<center><img src="images/community/rope_dressed.jpg"></center>'
  255. elseif tanga = 1:
  256. '<center><img src="images/community/rope_underwear.jpg"></center>'
  257. else
  258. '<center><img src="images/community/rope_naked.jpg"></center>'
  259. end
  260. 'You jump rope for fifteen minutes, developing your speed.'
  261. act 'Leave':gt $loc, $metka
  262. end
  263. if $ARGS[0] = 'press':
  264. cla
  265. *clr
  266. minut += 15
  267. pressday = daystart
  268. vital += 1 + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
  269. sweat += 15
  270. manna -= 1
  271. fat -= 1
  272. if $clothingworntype ! 'nude':
  273. '<center><img src="images/community/abdominal_dressed.jpg"></center>'
  274. elseif tanga = 1:
  275. '<center><img src="images/community/abdominal_underwear.jpg"></center>'
  276. else
  277. '<center><img src="images/community/abdominal_naked.jpg"></center>'
  278. end
  279. 'You do a series of abdominal exercises for fifteen minutes, developing your endurance.'
  280. act 'Leave':gt $loc, $metka
  281. end
  282. if $ARGS[0] = 'push':
  283. cla
  284. *clr
  285. minut += 15
  286. pushday = daystart
  287. stren += 1 + (steroid_dose - rand(0,steroid_dose)) & clit_size + rand(0,(steroid_dose - rand(0,steroid_dose)))
  288. sweat += 15
  289. manna -= 1
  290. fat -= 1
  291. if $clothingworntype ! 'nude':
  292. '<center><img src="images/community/push_dressed.jpg"></center>'
  293. elseif tanga = 1:
  294. '<center><img src="images/community/push_underwear.jpg"></center>'
  295. else
  296. '<center><img src="images/community/push_naked.jpg"></center>'
  297. end
  298. 'You do push-ups for fifteen minutes, developing your strength.'
  299. pushnum = stren * son * rand(1,3) / 200
  300. '<br>You managed to do <<pushnum>> push-ups. Your previous record is <<pushrecord>>.'
  301. if pushrecord < pushnum:pushrecord = pushnum & 'This is a new record!'
  302. act 'Leave':gt $loc, $metka
  303. end
  304. if $ARGS[0] = 'snkayf':
  305. snkz = RAND(1,6)
  306. if tanga = 1:tanga = 0
  307. if snkz = 1:
  308. hour += 2
  309. gt'gdk'
  310. end
  311. if snkz = 2:
  312. hour += 2
  313. gt'gskver'
  314. end
  315. if snkz = 3:
  316. hour += 2
  317. gt'bedrPar'
  318. end
  319. if snkz = 4:
  320. hour += 2
  321. gt'gopskver'
  322. end
  323. if snkz = 5:
  324. hour += 2
  325. gt 'vokmantoiev', 'female'
  326. end
  327. if snkz = 6:
  328. $clothingworntype = 'nude'
  329. hour += 2
  330. gt'Glake'
  331. end
  332. end
  333. if $ARGS[0] = 'narkozakladka':
  334. cls
  335. '<center><b>Shooting galleries</b></center>'
  336. '<center><img src="images/etogame/narkopriton.jpg"></center>'
  337. '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.'
  338. 'Price rise, taking into account the complexities twice and will link two pieces equals.'
  339. 'And then he looked menacingly at you and said, you if you cheat death.'
  340. act 'Agree':
  341. cls
  342. snarkozak = 1
  343. '<center><b>Shooting galleries</b></center>'
  344. '<center><img src="images/etogame/narkopriton.jpg"></center>'
  345. 'You scared nodded, they agree.'
  346. 'Guy added, that bookmarks will be on the train/train station from the platform. '
  347. act 'Leave':gt'narkopriton'
  348. end
  349. end
  350. if $ARGS[0] = 'snarkozaka':
  351. cls
  352. minut += 20
  353. money -= 2000
  354. StrongNarkota += 25
  355. SNarkTimes += 1
  356. narkozakday=day
  357. gs'stat'
  358. '<center><B>Peron Pavlovsky</B></center>'
  359. '<center><img src="images/pic/vokzalperg.jpg"></center>'
  360. 'You buy the drugs and without thinking twice you shoot up.'
  361. act 'Leave':gt 'events', 'snkayf'
  362. end
  363. if $ARGS[0] = 'snkayf1':
  364. snkz = RAND(1,6)
  365. if tanga = 1:tanga = 0
  366. if snkz = 1:
  367. hour += 2
  368. gt'park','start'
  369. end
  370. if snkz = 2:
  371. hour += 2
  372. gt'down'
  373. end
  374. if snkz = 3:
  375. hour += 2
  376. gt'nord'
  377. end
  378. if snkz = 4:
  379. hour += 2
  380. gt'street'
  381. end
  382. if snkz = 5:
  383. hour += 2
  384. gt'dachi'
  385. end
  386. if snkz = 6:
  387. hour += 2
  388. gt'lake','start'
  389. end
  390. end
  391. --- events ---------------------------------