1
0

kit_din.qsrc 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604
  1. # kit_din
  2. $santehnikgr = {
  3. *clr & cla
  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. *clr & cla
  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. *clr & cla
  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. *clr & cla
  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. *clr & cla
  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. *clr & cla
  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. *clr & cla
  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. *clr & cla
  81. kransloman = 0
  82. minut += 30
  83. gs 'stat'
  84. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
  85. 'Half an hour later he says he is finished, and it will be 1,500 <b>₽</b>'
  86. if money >= 1500:
  87. act 'Pay':
  88. money -= 1500
  89. gt $curloc
  90. end
  91. elseif money < 1500:
  92. 'You do not have enough cash on you.'
  93. if money+stolmoney >= 1500:
  94. 'You remember the stash in your table and with that you''ll have enough.'
  95. act 'Pay':
  96. money = money+stolmoney & stolmoney = 0
  97. money -= 1500
  98. gt $curloc
  99. end
  100. elseif money+stolmoney + karta >= 1500:
  101. 'You know that even with your stash in the apartment you are short, but you could get the extra from the ATM.'
  102. act 'Walk down to the ATM and get the extra money, then pay':
  103. minut += 10
  104. money = money + stolmoney & stolmoney = 0
  105. karta -= (1500 - money)
  106. money = 0
  107. gt $curloc
  108. end
  109. elseif money+stolmoney < 1500:
  110. act 'I did not have enough money':
  111. *clr & cla
  112. gs'stat'
  113. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
  114. '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?"'
  115. act 'Shrug':dynamic $santehnikend1
  116. act 'Suggest a loan':dynamic $santehnikend2
  117. end
  118. end
  119. if money+stolmoney<1500 and shameless > 14:
  120. act 'Offer a favour instead':
  121. *clr & cla
  122. gs 'stat'
  123. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s4.jpg"></center>'
  124. '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.'
  125. gs 'arousal', 'bj', 3, 'sub'
  126. gs 'stat'
  127. act 'Continue':
  128. ! here I need work around the direct return address and get from kuhr korr and from kuhr2x korr2x
  129. $sexloc = 'korr' + $mid($curloc,5,2)
  130. if pcs_apprnc < 60:
  131. *clr & cla
  132. guy += 1
  133. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s5.jpg"></center>'
  134. '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.'
  135. gs 'arousal', 'bj', 5, 'sub', 'deepthroat', 'rough'
  136. gs 'arousal', 'end'
  137. gs 'stat'
  138. act 'Leave':gt $sexloc
  139. elseif pcs_apprnc >= 60:
  140. picrand = 90
  141. gt 'sex', 'minet'
  142. end
  143. end
  144. end
  145. end
  146. end
  147. }
  148. $santehnik1 = {
  149. kransloman = 0
  150. minut += 20
  151. gs 'stat'
  152. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s0.jpg"></center>'
  153. 'You find a phone number for a plumber in a kitchen draw. After 20 minutes, the plumber arrives.'
  154. '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.'
  155. act 'Disregard':dynamic $santehnikend
  156. }
  157. $santehnik = {
  158. *clr & cla
  159. kransloman = 0
  160. if husband = 0 or husbandrink = 10:dynamic $santehnik1 & exit
  161. if husband > 0 and week < 6 and hour < 17 and hour > 7:dynamic $santehnik1 & exit
  162. sexpartkno = 1
  163. gs 'boyStat', $HusID
  164. gs 'boyStat', 53, 'a'
  165. if husband > 0 and husbandrink ! 10:
  166. *clr & cla
  167. minut += 20
  168. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s7.jpg"></center>'
  169. 'You tell your husband about the leak and he makes a phone call. After 20 minutes, a plumber arrives.'
  170. '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.'
  171. act 'Leave':
  172. *clr & cla
  173. gs 'stat'
  174. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s8.jpg"></center>'
  175. '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.'
  176. '"What are you doing? What if the plumber comes in?"'
  177. '"He''ll be another hour poking around." he answers, "Come on, quick blow job."'
  178. '"OK, lets." you say, now excited, it really looks like his hand has done its job.'
  179. gs 'arousal', 'foreplay', 10, 'sub'
  180. gs 'stat'
  181. act 'Start':
  182. *clr & cla
  183. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s9.jpg"></center>'
  184. '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.'
  185. gs 'arousal', 'bj', 10, 'sub'
  186. gs 'stat'
  187. if izvratH = 0:
  188. 'Your husband tries to remove his member from your mouth'
  189. if pcs_horny < 80:
  190. act 'Stop':
  191. cla
  192. 'Your husband quickly hides his dick in his pants and with the plumber goes out into the corridor'
  193. gs 'arousal', 'end'
  194. gs 'stat'
  195. act 'Leave':gt 'sitr'
  196. end
  197. end
  198. act 'Do not stop':
  199. cla
  200. '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.'
  201. 'But the excitement does not recede, you want even more, and the watching plumber just arouses you. You can not control yourself.'
  202. $orgasm_or = 'yes'
  203. gs 'arousal', 'bj', 10, 'sub'
  204. gs 'stat'
  205. act 'Ride your husband':
  206. *clr & cla
  207. gs 'cum_manage'
  208. suprdolg += 1
  209. husband += 1
  210. husbizvradd += 1
  211. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s12.jpg"></center>'
  212. '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'
  213. '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.'
  214. $orgasm_or = 'yes'
  215. gs 'arousal', 'vaginal', 10, 'sub'
  216. gs 'arousal', 'end'
  217. gs 'stat'
  218. act 'Leave':gt 'sitr'
  219. end
  220. end
  221. else
  222. 'Your husband did not even try to stop you'
  223. if pcs_horny < 80:
  224. act 'Stop':
  225. if harakHusb ! 2:
  226. cla
  227. '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'
  228. act 'Leave':gt 'sitr'
  229. elseif harakHusb = 2:
  230. cla
  231. guy += 1
  232. '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.'
  233. '"Fifteen hundred." Manages the plumber.'
  234. '"Well, with those prices can agree that if you feed her too, we consider it paid?" He asks.'
  235. '"I do not know, a blowjob would earn a discount, but if she can do us both, then yes." replied the plumber.'
  236. '"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.'
  237. act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
  238. end
  239. end
  240. end
  241. act 'Do not stop':
  242. cla
  243. 'You continued to suck ignoring the watching plumber.'
  244. if harakHusb = 0:'Your husband tries not to look at the plumber, obviously embarrassed, but he does not hesitate to follow your every move.'
  245. if harakHusb = 1:'Your husband stands savoring the process without paying attention to the plumber.'
  246. if harakHusb = 2:'Your husband chats with the plumber does not hesitate to turn slightly so that it is easier for him to see.'
  247. gs 'arousal', 'bj', 10, 'sub'
  248. gs 'stat'
  249. act 'Continue':
  250. cla
  251. swallow += 1
  252. suprdolg += 1
  253. husband += 1
  254. pcs_horny += 20
  255. '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.'
  256. gs 'arousal', 'end'
  257. gs 'stat'
  258. act 'Leave':gt 'sitr'
  259. end
  260. if pcs_horny > 70:
  261. act 'Suggest a threesome':
  262. cla
  263. 'You break away from the penis, and a whisper to your husband if he wants to try a threesome.'
  264. if harakHusb = 0:
  265. *clr
  266. houseslut += 1
  267. husband += 2
  268. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s11.jpg"></center>'
  269. '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."'
  270. '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.'
  271. '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.'
  272. gs 'arousal', 'cuni', 10, 'sub', 'group'
  273. gs 'arousal', 'vaginal_finger', 10, 'sub', 'group'
  274. minut -= 10
  275. gs 'stat'
  276. act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
  277. elseif harakHusb = 1:
  278. husband -= 5
  279. '"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.'
  280. act 'Leave':gt 'sitr'
  281. elseif harakHusb = 2:
  282. *clr
  283. houseslut += 1
  284. husband += 2
  285. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s10.jpg"></center>'
  286. '"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.'
  287. '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."'
  288. gs 'arousal', 'bj', 10, 'sub', 'group'
  289. gs 'stat'
  290. act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
  291. end
  292. end
  293. end
  294. end
  295. end
  296. end
  297. end
  298. end
  299. }
  300. $dirtarm = {
  301. if fairy > 0:
  302. *clr & cla
  303. fairy -= 1
  304. minut += dirttarelka * 3
  305. cltarelka += dirttarelka
  306. dirttarelka = 0
  307. pcs_mood -= 5
  308. gs 'stat'
  309. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/dirt.jpg"></center>'
  310. 'Using the dishwashing liquid you washed the dishes.'
  311. act 'Dry your hands':gt $loc, $loc_arg
  312. else
  313. '<b><font color="red">You have no dishwashing liquid.</font></b>'
  314. end
  315. }
  316. $edagotd = {
  317. *clr & cla
  318. gs 'stat'
  319. killvar '$_eat'
  320. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  321. 'What kind of meal would you like to make?'
  322. act 'Prepare a light meal (0:30)': $edameal = 's_meal' & dynamic $edagotpk
  323. act 'Prepare a normal meal (0:30)': $edameal = 'm_meal' & dynamic $edagotpk
  324. act 'Prepare a hearty meal (0:30)': $edameal = 'l_meal' & plcooked = 1 & dynamic $edagotpk
  325. act 'Nevermind':gt $loc, $loc_arg
  326. }
  327. $edagotpk = {
  328. *clr & cla
  329. minut += 30
  330. edahot += 1
  331. eda -= 1
  332. kuhdrova = 0
  333. musor += 1
  334. cltarelka -= 1
  335. pcs_mood -= 5
  336. gs 'stat'
  337. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  338. 'You prepare the meal.'
  339. act 'Eat cooked food (0:30)':dynamic $edahotd
  340. act 'Leave the meal':gt $loc, $loc_arg
  341. }
  342. $edahotd = {
  343. *clr & cla
  344. edahot = 0
  345. dirttarelka += 1
  346. pcs_mood += 20
  347. if $edameal = '': $edameal = 'm_meal'
  348. gs 'food', $edameal
  349. killvar '$edameal'
  350. }
  351. $eatout = {
  352. *clr & cla
  353. edahot = 0
  354. pcs_mood += 20
  355. gs 'food', 'm_meal'
  356. }
  357. $posudomashina = {
  358. if dirttarelka > 0 and fairy >= dirttarelka:
  359. cltarelka += dirttarelka
  360. fairy -= dirttarelka
  361. dirttarelka = 0
  362. 'Your dishwasher has washed the dirty dishes.'
  363. elseif fairy < dirttarelka:
  364. 'You have run out of dishwashing liquid.'
  365. end
  366. }
  367. $edasnack = {
  368. act 'Have a snack (0:15)': gs 'food', 'snack'
  369. }
  370. $pranik = {
  371. if pranik > 0:
  372. 'You have <<pranik>> tea biscuits.'
  373. act 'Have tea with biscuits (0:05)':
  374. *clr & cla
  375. menu_off = 1
  376. minut += 5
  377. pranik -= 1
  378. pcs_health += 30
  379. pcs_mood += 20
  380. pcs_energy += 20
  381. if pcs_hydra >= 100:
  382. pcs_hydra += 30
  383. else
  384. pcs_hydra += 60
  385. end
  386. cumspclnt = 2
  387. gs 'cum_cleanup'
  388. pcs_breath = 0
  389. fat += 4
  390. frost = 0
  391. gs 'stat'
  392. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  393. '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!'
  394. act 'Get up from the table':gt $loc, $loc_arg
  395. end
  396. end
  397. }
  398. $dritea = {
  399. act 'Have a cup of tea (0:10)': gs 'beverage', 'bev_tea'
  400. }
  401. $edaD = {
  402. if edaD > 0:
  403. 'The refrigerator contains <b><<edaD>></b> healthy meals.'
  404. act 'Eat diet food (0:30)':
  405. *clr & cla
  406. menu_off = 1
  407. frost = 0
  408. minut += 30
  409. pcs_health += 10
  410. pcs_mood += 20
  411. edaD -= 1
  412. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  413. if pcs_energy >= 100:
  414. 'You prepare a diet meal and try to eat it, but you''re really not hungry at all. You can''t finish the meal.'
  415. elseif pcs_energy >= 80:
  416. pcs_energy += 40
  417. '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.'
  418. else
  419. pcs_energy += 80
  420. 'The diet meal is tasty, and you enjoy eating it.'
  421. end
  422. gs 'stat'
  423. act 'Get up from the table':gt $loc, $loc_arg
  424. end
  425. end
  426. }
  427. $fatdel = {
  428. if fatdel > 0:
  429. act 'Take fat burners (0:05)':
  430. *clr & cla
  431. menu_off = 1
  432. minut += 5
  433. fatdel -= 1
  434. if pcs_hydra >= 100:
  435. pcs_hydra += 25
  436. else
  437. pcs_hydra += 50
  438. end
  439. fat -= 20
  440. 'You drink the fat burning capsule. These capsules are quick release and results can be seen soon.'
  441. gs 'stat'
  442. act 'Get up from the table':gt $loc, $loc_arg
  443. end
  444. end
  445. }
  446. $driwater = {
  447. act 'Drink some water (0:01)': gs 'beverage', 'bev_wat'
  448. }
  449. $fill_bottle = {
  450. if refillable_bottle > 0 and refillable_bottle < 4:
  451. *nl
  452. 'You can fill your sports water bottle with filtrated tap water.'
  453. act 'Fill your water bottle (0:01)':
  454. minut += 1
  455. refillable_bottle = 4
  456. gt $loc, $loc_arg
  457. end
  458. end
  459. }
  460. $sandwich = {
  461. if bag > 0 and buterbrod = 0:
  462. act 'Make a sandwich to go (0:05)':
  463. minut += 5
  464. buterbrod = 1
  465. gt $loc, $loc_arg
  466. end
  467. end
  468. }
  469. $lekarstvo = {
  470. if lekarstvo > 0:
  471. 'You have <b><<lekarstvo>></b> tablets.'
  472. if sick > 0 and lekarday ! daystart:
  473. act 'Take a pill (0:05)':
  474. *clr & cla
  475. menu_off = 1
  476. minut += 5
  477. lekarday = daystart
  478. lekarstvo -= 1
  479. sick -= sick * 20 / 100
  480. if pcs_hydra >= 100:
  481. pcs_hydra += 25
  482. else
  483. pcs_hydra += 50
  484. end
  485. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/lekr<<picrand>>.jpg"></center>'
  486. 'You took a pill'
  487. gs 'stat'
  488. act 'Move away':gt $loc, $loc_arg
  489. end
  490. end
  491. end
  492. }
  493. $vitamin = {
  494. if vitamin > 0:
  495. 'You have <b><<vitamin>></b> vitamin drinks.'
  496. if vitaminday ! daystart:
  497. act 'Take vitamins (0:02)':
  498. *clr & cla
  499. menu_off = 1
  500. minut += 2
  501. vitaminday = daystart
  502. vitamin -= 1
  503. frost = 0
  504. if pcs_hydra >= 100:
  505. pcs_hydra += 25
  506. else
  507. pcs_hydra += 50
  508. end
  509. if KandidozOnce = 1:Kandidoz -= 2
  510. if GerpesOnce = 1:Gerpes -= 2
  511. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  512. pcs_skin += 1
  513. 'You took some vitamins.'
  514. gs 'stat'
  515. act 'Move away':gt $loc, $loc_arg
  516. end
  517. end
  518. end
  519. }
  520. --- kit_din ---------------------------------