1
0

kit_din.qsrc 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596
  1. # kit_din
  2. $santehnikgr = {
  3. cls
  4. ransloman = 0
  5. minut += 25
  6. gs 'stat'
  7. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
  8. 'You called the plumber and Grisha arrived literally 15 minutes later. He quickly found the cause and repairs the problem.'
  9. act 'Next':dynamic $santehnikend
  10. }
  11. $santehnikend3 = {
  12. cls
  13. ransloman = 0
  14. facial += 1
  15. spafinloc = 11
  16. gs 'cum_manage'
  17. if GrishaSex = 0:GrishaSex = 1 & guy += 1
  18. if pcs_makeup > 1:pcs_makeup = 0
  19. gs 'stat'
  20. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/plumber/bj2.jpg"></center>'
  21. 'You feel like you are slapped in the face by something warm and viscous. Then another and another, covering your face with his white seed. Cum drips from your face on the lips, chin and cheeks. The plumber is finally spent.'
  22. 'You can not open your eyes because they are covered in sperm which has matted your eyelashes. The plumber chuckles and says, "Classy lady. You slut." His words touch you and you feel your cheeks flush with shame.'
  23. 'You have try wiping the sperm from the face, hoping to unstick your eyes, but you only manage to smear it all over your face. Finally you are able to open one eye and see the plumber standing over you, he smirks as he buttons up his pants.'
  24. 'Thereafter, the plumber turna and leaves your apartment.'
  25. gs 'arousal', 'end'
  26. gs 'stat'
  27. act 'Get up':gt $curloc
  28. }
  29. $santehnikend1 = {
  30. cls
  31. kransloman = 0
  32. minut += 1
  33. gs 'stat'
  34. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
  35. 'You helplessly shrug and mumble that you have no idea what to do now. The plumber examines you with oily eyes and tells you with an infamous smirk, "Maybe there is another way. I can take payment for work, but not with money."'
  36. act 'Suggest a loan':dynamic $santehnikend2
  37. act 'Another way?':
  38. cls
  39. minut += 1
  40. gs 'stat'
  41. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
  42. 'You ask the plumber what he has in mind. Instead of answering, he takes you by the shoulders and draws you to him. You rest your soft breasts against his chest and feel your stomach resting on something solid. He easily pushes your shoulders and whispers, "Come on baby, do not be shy."'
  43. act 'Kneel':
  44. cls
  45. minut += 1
  46. gs 'stat'
  47. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/plumber/bj.jpg"></center>'
  48. 'You slowly kneel before then smelly plumber. He unbuttons his pants and his dick slaps you in your face, making you pull back.'
  49. if stat['bj'] = 0:
  50. 'You have never blown a guy before and you look with horror at the cock in front of you. The plumber sees your confusion and taking you by the head pulls you to the member. Unwittingly your lips touch the crimson head.'
  51. else
  52. 'You tilt your head forward and kiss it.'
  53. end
  54. act 'Suck':
  55. cls
  56. gs 'stat'
  57. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/plumber/bj1.jpg"></center>'
  58. 'You cup the warm and hard cock between your lips and start sucking it, uttering slurping sounds. The plumber begins to move his hips trying to drive his cock deeper into your mouth. His solid organ fills almost your entire mouth and sticks in your throat, unwittingly choking you.'
  59. 'Tears flow from your eyes, but the plumber has already fallen into a rage, and not paying attention to you, fucking your mouth, keeping it in. Finally he quickly pull his cock out of your wet mouth and starts masturbating in front of your face.'
  60. gs 'arousal', 'bj', 3, 'sub', 'deepthroat', 'rough'
  61. gs 'stat'
  62. act 'Close your eyes':dynamic $santehnikend3
  63. end
  64. end
  65. end
  66. }
  67. $santehnikend2 = {
  68. cls
  69. kransloman = 0
  70. minut += 15
  71. santehnikDolg = 1500
  72. if Grisha >= 1:$textsan = 'Grisha smiles at you. "Not the first time I''ve been here. Write receipt, then you save up the money, again."'
  73. if Grisha = 0:Grisha = 1 & $textsan = 'I''m Grisha by the way, you? "You smile feeling that the storm has passed and tell the plumber that your name is <<$pcs_nickname>>.'
  74. gs 'stat'
  75. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
  76. 'You offer to issue the plumber a reciept of debt. He thinks for a moment and says, "Okay. Write a receipt. Next time I''m about, I''ll look in and you give me the money. <<$textsan>> Then teking a pen and paper you write the plumber a receipt that you owe him 1,500 <b>₽</b>. Grisha takes the paper and puts it in his pocket. "If you have another leak, call me, here''s my card."'
  77. act 'Plumber leaves':gt $curloc
  78. }
  79. $santehnikend = {
  80. cla
  81. *clr
  82. kransloman = 0
  83. minut += 30
  84. gs 'stat'
  85. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
  86. 'Half an hour later he says he is finished, and it will be 1,500 <b>₽</b>'
  87. if money>=1500:
  88. act 'Pay':
  89. money -= 1500
  90. gt'kuhr'
  91. end
  92. end
  93. if money < 1500:
  94. 'You do not have enough cash on you.'
  95. if money+stolmoney >= 1500:
  96. 'You remember the stash in your table and with that you''ll have enough.'
  97. act 'Pay':
  98. money = money+stolmoney & stolmoney = 0
  99. money -= 1500
  100. gt'kuhr'
  101. end
  102. elseif money+stolmoney + karta >= 1500:
  103. 'You know that even with your stash in the apartment you are short, but you could get the extra from the ATM.'
  104. act 'Walk down to the ATM and get the extra money, then pay':
  105. minut += 10
  106. money = money + stolmoney & stolmoney = 0
  107. karta -= (1500 - money)
  108. money = 0
  109. gt'kuhr'
  110. end
  111. elseif money+stolmoney < 1500:
  112. act 'I did not have enough money':
  113. cls
  114. gs'stat'
  115. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
  116. 'You are embarrassed and tell the plumber, that you do not have enough money. He is visibly angry. "You call a fucking plumber and don''t have any money? What am I supposed to do now?"'
  117. act 'Shrug':dynamic $santehnikend1
  118. act 'Suggest a loan':dynamic $santehnikend2
  119. end
  120. end
  121. if money+stolmoney<1500 and shameless > 14:
  122. act 'Offer a favour instead':
  123. cla
  124. *clr
  125. gs 'stat'
  126. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s4.jpg"></center>'
  127. 'I do not have money, but you can take another form of payment? you say, dropping to her knees and starting to unbutton his pants. The guy obviously does not mind and watching your actions. You remove it even flaccid penis and tightly gripping his hand, start to kiss the head, gradually sucking it into his mouth.'
  128. gs 'arousal', 'bj', 3, 'sub'
  129. gs 'stat'
  130. act 'Continue':
  131. if pcs_apprnc < 60:
  132. cla
  133. *clr
  134. guy += 1
  135. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s5.jpg"></center>'
  136. 'You diligently sucking his dick between his legs itched from all desires, you break off a couple of times to stop and go to the sex, but he took you by the head and continued to fuck your mouth, soon he came into your mouth and swallow once you come and pick it up again member, as he put his pants and silently walked to the door, to sleep with you, he was not even going. From rastrojstva you spat out semen on the floor, looks like you do not attract even plumbing.'
  137. gs 'arousal', 'bj', 5, 'sub', 'deepthroat', 'rough'
  138. gs 'arousal', 'end'
  139. gs 'stat'
  140. act 'Leave':gt 'korr'
  141. elseif pcs_apprnc >= 60:
  142. picrand = 90
  143. gt 'sex', 'minet'
  144. end
  145. end
  146. end
  147. end
  148. end
  149. }
  150. $santehnik1 = {
  151. kransloman = 0
  152. minut += 20
  153. gs 'stat'
  154. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s0.jpg"></center>'
  155. 'You find a phone number for a plumber in a kitchen draw. After 20 minutes, the plumber arrives.'
  156. 'You lead him into the kitchen and he starts to get to work. When you reached up to one of the shelves, you notice that he is staring at your ass.'
  157. act 'Disregard':dynamic $santehnikend
  158. }
  159. $santehnik = {
  160. cla
  161. *clr
  162. kransloman = 0
  163. if husband = 0 or husbandrink = 10:dynamic $santehnik1 & exit
  164. if husband > 0 and week < 6 and hour < 17 and hour > 7:dynamic $santehnik1 & exit
  165. sexpartkno = 1
  166. gs 'boyStat', $HusID
  167. gs 'boyStat', 53, 'a'
  168. if husband > 0 and husbandrink ! 10:
  169. cla
  170. *clr
  171. minut += 20
  172. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s7.jpg"></center>'
  173. 'You tell your husband about the leak and he makes a phone call. After 20 minutes, a plumber arrives.'
  174. 'Your husband walks him to the kitchen and the two of you began to observe his actions, you are sick of hearing about how the plumber hates cheap Chinese fittings and what people pushed into the sink, and you decided to wait in the living room.'
  175. act 'Leave':
  176. cla
  177. *clr
  178. gs 'stat'
  179. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s8.jpg"></center>'
  180. 'You go into the room and sit on the couch, soon your husband comes in and sits down beside you. With one hand on your breast, he runs his other hand down under your panties and begins to massage your clitoris.'
  181. '"What are you doing? What if the plumber comes in?"'
  182. '"He''ll be another hour poking around." he answers, "Come on, quick blow job."'
  183. '"OK, lets." you say, now excited, it really looks like his hand has done its job.'
  184. gs 'arousal', 'foreplay', 10, 'sub'
  185. gs 'stat'
  186. act 'Start':
  187. cla
  188. *clr
  189. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s9.jpg"></center>'
  190. 'The husband stands up and pulls from his unbuttoned pants his member, you drop to your knees and his cock is in your mouth, right then the plumber enters, "I''m finished." he says and freezes, seeing this picture.'
  191. gs 'arousal', 'bj', 10, 'sub'
  192. gs 'stat'
  193. if izvratH = 0:
  194. 'Your husband tries to remove his member from your mouth'
  195. if pcs_horny < 80:
  196. act 'Stop':
  197. cla
  198. 'Your husband quickly hides his dick in his pants and with the plumber goes out into the corridor'
  199. gs 'arousal', 'end'
  200. gs 'stat'
  201. act 'Leave':gt 'sitr'
  202. end
  203. end
  204. act 'Do not stop':
  205. cla
  206. 'You grabbed your husbands hips and continued to work your mouth, he jerks a couple of times trying to free himself, but you can not stop and just swallow his cock even deeper. When he stops twitching you bring one hand to your crotch and with just a couple of motions bring yourself to orgasm.'
  207. 'But the excitement does not recede, you want even more, and the watching plumber just arouses you. You can not control yourself.'
  208. $orgasm_or = 'yes'
  209. gs 'arousal', 'bj', 10, 'sub'
  210. gs 'stat'
  211. act 'Ride your husband':
  212. cla
  213. *clr
  214. gs 'cum_manage'
  215. suprdolg += 1
  216. husband += 1
  217. husbizvradd += 1
  218. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s12.jpg"></center>'
  219. 'You release your husband''s member from your mouth and quickly push him to sit on the couch, then jump on top of him, quickly planting his dick in your pussy. You ride it like crazy, ignoring the plumber, still stood in the doorway, watching you. When you are again close to orgasm you feel as sperm gushes into you'
  220. 'It take a few movements from his twitching cock, but you also reach orgasm, uttering a cry you limp and fall from your husband. He leaves you still quaking, pulls up his pants and walks out with the plumber to the hallway.'
  221. $orgasm_or = 'yes'
  222. gs 'arousal', 'vaginal', 10, 'sub'
  223. gs 'arousal', 'end'
  224. gs 'stat'
  225. act 'Leave':gt 'sitr'
  226. end
  227. end
  228. else
  229. 'Your husband did not even try to stop you'
  230. if pcs_horny < 80:
  231. act 'Stop':
  232. if harakHusb ! 2:
  233. cla
  234. 'You release your husband''s member from your mouth and he quickly pulls up his pants and with the plumber goes out into the corridor'
  235. act 'Leave':gt 'sitr'
  236. elseif harakHusb = 2:
  237. cla
  238. guy += 1
  239. 'You tried to spit the member from your mouth, but your husband grabs hold of your head and he starts to fuck you in the mouth, talking with shocked plumber, "We''re a little busy, at the moment, it''s her feeding time." he laughes, "How much do I owe you?" He continues.'
  240. '"Fifteen hundred." Manages the plumber.'
  241. '"Well, with those prices can agree that if you feed her too, we consider it paid?" He asks.'
  242. '"I do not know, a blowjob would earn a discount, but if she can do us both, then yes." replied the plumber.'
  243. '"You know how to bargain." Says your husband, "Okay agreed." He adds, almost without thinking. Knowing the character of your husband you know that your peril has been decided.'
  244. act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
  245. end
  246. end
  247. end
  248. act 'Do not stop':
  249. cla
  250. 'You continued to suck ignoring the watching plumber.'
  251. if harakHusb = 0:'Your husband tries not to look at the plumber, obviously embarrassed, but he does not hesitate to follow your every move.'
  252. if harakHusb = 1:'Your husband stands savoring the process without paying attention to the plumber.'
  253. if harakHusb = 2:'Your husband chats with the plumber does not hesitate to turn slightly so that it is easier for him to see.'
  254. gs 'arousal', 'bj', 10, 'sub'
  255. gs 'stat'
  256. act 'Continue':
  257. cla
  258. swallow += 1
  259. suprdolg += 1
  260. husband += 1
  261. pcs_horny += 20
  262. 'You continue to blow your husband, and soon a stream of hot liquid squirts into your mouth, swallowing the sperm you lick the remnants of semen from his penis. Your husband puts his cleaned dick in his pants and walks out into the hallway with the plumber. And you are left sitting on the floor, exhausted from desire.'
  263. gs 'arousal', 'end'
  264. gs 'stat'
  265. act 'Leave':gt 'sitr'
  266. end
  267. if pcs_horny > 70:
  268. act 'Suggest a threesome':
  269. cla
  270. 'You break away from the penis, and a whisper to your husband if he wants to try a threesome.'
  271. if harakHusb = 0:
  272. *clr
  273. houseslut += 1
  274. husband += 2
  275. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s11.jpg"></center>'
  276. 'Your husband is a little shocked by the idea, what would convince him? In a loud voice you continue, "Let him lick me while I caress you."'
  277. 'The plumber tenses, waiting for the reaction of your husband, "Well, if only licking you, then let him." Says your husband. The plumber does not need persuading, your husband sits on the sofa, and you get on your knees and stick out your ass as the plumbers tongue penetrates your pussy.'
  278. 'At first your husband keeps glancing in his direction, but soon relaxes and finally when the guy starts to finger your hole with a vengance, he says nothing, you decide that he is no longer against you sharing with others.'
  279. gs 'arousal', 'cuni', 10, 'sub', 'group'
  280. gs 'arousal', 'vaginal_finger', 10, 'sub', 'group'
  281. minut -= 10
  282. gs 'stat'
  283. act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
  284. elseif harakHusb = 1:
  285. husband -= 5
  286. '"You think I should share you, my wife with the plumber? Cool that foolish pussy, you must think with your head." shouts your husband and returning his member to his pants goes out of the room with the plumber.'
  287. act 'Leave':gt 'sitr'
  288. elseif harakHusb = 2:
  289. *clr
  290. houseslut += 1
  291. husband += 2
  292. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s10.jpg"></center>'
  293. '"It''s not for nothing that they say all women are whores, hey man this whore wants to do both of us, but then the repair is free of charge." Says your husband. The plumber does need a second invite, he quickly approachs and pulls out his dick.'
  294. 'Bringing it to your face, you cling to him and start to suck both cocks alternately, your husband stands carefully watching your actions "You like sucking fresh meat, but do not forget about me, and this boys and mine you swallow deeper and deeper."'
  295. gs 'arousal', 'bj', 10, 'sub', 'group'
  296. gs 'stat'
  297. act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
  298. end
  299. end
  300. end
  301. end
  302. end
  303. end
  304. end
  305. end
  306. }
  307. $dirtarm = {
  308. if fairy > 0:
  309. cla
  310. *clr
  311. fairy -= 1
  312. minut += dirttarelka * 3
  313. cltarelka += dirttarelka
  314. dirttarelka = 0
  315. pcs_mood -= 5
  316. gs 'stat'
  317. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/dirt.jpg"></center>'
  318. 'Using the dishwashing liquid you washed the dishes.'
  319. act 'Dry your hands':gt $loc, $metka
  320. else
  321. '<b><font color="red">You have no dishwashing liquid.</font></b>'
  322. end
  323. }
  324. $edagotd = {
  325. cla
  326. *clr
  327. gs 'stat'
  328. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  329. 'What kind of meal would you like to make?'
  330. act 'Prepare a light meal (0:30)': $edameal = 's_meal' & dynamic $edagotpk
  331. act 'Prepare a normal meal (0:30)': $edameal = 'm_meal' & dynamic $edagotpk
  332. act 'Prepare a hearty meal (0:30)': $edameal = 'l_meal' & plcooked = 1 & dynamic $edagotpk
  333. act 'Nevermind':gt $loc, $metka
  334. }
  335. $edagotpk = {
  336. cla
  337. *clr
  338. minut += 30
  339. edahot += 1
  340. eda -= 1
  341. kuhdrova = 0
  342. musor += 1
  343. cltarelka -= 1
  344. pcs_mood -= 5
  345. gs 'stat'
  346. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  347. 'You prepare the meal.'
  348. act 'Eat cooked food (0:30)':dynamic $edahotd
  349. act 'Leave the meal':gt $loc, $metka
  350. }
  351. $edahotd = {
  352. cla
  353. *clr
  354. edahot = 0
  355. dirttarelka += 1
  356. pcs_mood += 20
  357. if $edameal = '': $edameal = 'm_meal'
  358. gs 'food', $edameal
  359. killvar '$edameal'
  360. }
  361. $eatout = {
  362. cla
  363. *clr
  364. edahot = 0
  365. pcs_mood += 20
  366. gs 'food', 'm_meal'
  367. }
  368. $posudomashina = {
  369. if dirttarelka > 0 and fairy >= dirttarelka:
  370. cltarelka += dirttarelka
  371. fairy -= dirttarelka
  372. dirttarelka = 0
  373. 'Your dishwasher has washed the dirty dishes.'
  374. elseif fairy < dirttarelka:
  375. 'You have run out of dishwashing liquid.'
  376. end
  377. }
  378. $edasnack = {
  379. act 'Have a snack (0:15)':
  380. gs 'food', 'snack'
  381. end
  382. }
  383. $pranik = {
  384. if pranik > 0:
  385. 'You have <<pranik>> tea biscuits.'
  386. act 'Have tea with biscuits (0:05)':
  387. cla
  388. *clr
  389. minut += 5
  390. pranik -= 1
  391. pcs_health += 30
  392. pcs_mood += 20
  393. pcs_energy += 20
  394. if pcs_hydra >= 100:
  395. pcs_hydra += 30
  396. else
  397. pcs_hydra += 60
  398. end
  399. cumspclnt = 2
  400. gs 'cum_cleanup'
  401. pcs_breath = 0
  402. fat += 4
  403. frost = 0
  404. gs 'stat'
  405. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  406. 'You drank tea and enjoyed the tea biscuits. You know they''re too sweet and can''t be good for your figure, but they taste so good!'
  407. act 'Get up from the table':gt $loc, $metka
  408. end
  409. end
  410. }
  411. $dritea = {
  412. act 'Have a cup of tea (0:10)':
  413. gs 'beverage', 'bev_tea'
  414. end
  415. }
  416. $edaD = {
  417. if edaD > 0:
  418. 'The refrigerator contains <b><<edaD>></b> healthy meals.'
  419. act 'Eat diet food (0:30)':
  420. cla
  421. *clr
  422. frost = 0
  423. minut += 30
  424. pcs_health += 10
  425. pcs_mood += 20
  426. edaD -= 1
  427. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  428. if pcs_energy >= 100:
  429. 'You prepare a diet meal and try to eat it, but you''re really not hungry at all. You can''t finish the meal.'
  430. elseif pcs_energy >= 80:
  431. pcs_energy += 40
  432. 'You try to enjoy the diet meal, but half-way in you realize you weren''t all that hungry yet. You manage to finish the meal, but feel like it was kind of wasted.'
  433. else
  434. pcs_energy += 80
  435. 'The diet meal is tasty, and you enjoy eating it.'
  436. end
  437. act 'Get up from the table':gt $curloc
  438. end
  439. end
  440. }
  441. $fatdel = {
  442. if fatdel > 0:
  443. act 'Take fat burners (0:05)':
  444. cla
  445. *clr
  446. minut += 5
  447. fatdel -= 1
  448. if pcs_hydra >= 100:
  449. pcs_hydra += 25
  450. else
  451. pcs_hydra += 50
  452. end
  453. fat -= 20
  454. 'You drink the fat burning capsule. These capsules are quick release and results can be seen soon.'
  455. act 'Get up from the table':gt $loc, $metka
  456. end
  457. end
  458. }
  459. $driwater = {
  460. act 'Drink some water (0:05)':
  461. gs 'beverage', 'bev_wat'
  462. end
  463. }
  464. $lekarstvo = {
  465. if lekarstvo > 0:
  466. 'You have <b><<lekarstvo>></b> tablets.'
  467. if sick > 0 and lekarday ! daystart:
  468. act 'Take a pill (0:05)':
  469. cla
  470. *clr
  471. minut += 5
  472. lekarday = daystart
  473. lekarstvo -= 1
  474. sick -= sick * 20 / 100
  475. if pcs_hydra >= 100:
  476. pcs_hydra += 25
  477. else
  478. pcs_hydra += 50
  479. end
  480. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/lekr<<picrand>>.jpg"></center>'
  481. 'You took a pill'
  482. act 'Move away':gt $loc, $metka
  483. end
  484. end
  485. end
  486. }
  487. $vitamin = {
  488. if vitamin > 0:
  489. 'You have <b><<vitamin>></b> vitamin drinks.'
  490. if vitaminday ! daystart:
  491. act 'Take vitamins (0:05)':
  492. cla
  493. *clr
  494. minut += 5
  495. vitaminday = daystart
  496. vitamin -= 1
  497. frost = 0
  498. if pcs_hydra >= 100:
  499. pcs_hydra += 25
  500. else
  501. pcs_hydra += 50
  502. end
  503. if KandidozOnce = 1:Kandidoz -= 2
  504. if GerpesOnce = 1:Gerpes -= 2
  505. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  506. pcs_skin += 1
  507. 'You took some vitamins.'
  508. act 'Move away':gt $loc, $metka
  509. end
  510. end
  511. end
  512. }
  513. --- kit_din ---------------------------------