kuhrPar 4.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177
  1. # kuhrPar
  2. CLOSE ALL
  3. act 'Return to the hallway':gt 'korrPar'
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. $metka = $ARGS[0]
  7. $loc = $CURLOC
  8. clr
  9. minut += 1
  10. gs 'stat'
  11. if night_mode = 1:
  12. fcolor = rgb(255, 255, 255)
  13. bcolor = rgb(0, 0, 0)
  14. lcolor = rgb(106, 90, 205)
  15. else
  16. fcolor = rgb(0, 0, 0)
  17. bcolor = rgb(255, 255, 255)
  18. lcolor = rgb(106, 90, 205)
  19. end
  20. '<center><b><font color="maroon">Kitchen</font></b></center>'
  21. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/kuhrpar.jpg"></center>'
  22. if hour = 7 and indorf = 0:
  23. !r125
  24. *nl '<a href="exec:gt''father''">Your stepfather</a> and <a href="exec:gt ''brother'', ''start''">Kolka</a> are sitting at the table eating Breakfast. <a href="exec:gt''mother''">Your mother</a> is hard at work to make sure everybody has enough to eat for the rest of the day.'
  25. ! on weekdays Anka here too
  26. if week <= 5: *P ' <a href="exec:gt''sister''">Anya</a> is trying to lose some weight so she is only having a very light breakfast.'
  27. else
  28. 'The kitchen is not very impressive, but it has everything your family needs. Since everyone has the habit of eating at different times, Mom usually pre-cooks the meals and stores them in the fridge. Of course, you could also just have a snack if you''re not that hungry.'
  29. end
  30. gs 'family'
  31. act 'Eat a meal (0:30)':gs 'food', 'm_meal'
  32. act 'Have a snack (0:05)':gs 'food', 'snack'
  33. act 'Have a cup of tea (0:05)':
  34. cls
  35. minut += 5
  36. water += 80
  37. cumspclnt = 2
  38. gs 'cum_cleanup'
  39. pcs_breath = 0
  40. pcs_mood += rand(3, 6)
  41. 'You make a refreshing cup of tea and everything seems a little better.'
  42. gs 'stat'
  43. act 'Get up from the table':gt $loc, $metka
  44. end
  45. if pranik > 0:
  46. 'You have <<pranik>> cookies.'
  47. act 'Drink tea with cookies (0:05)':
  48. cla
  49. *clr
  50. minut += 5
  51. pranik -= 1
  52. pcs_health += 30
  53. pcs_mood += 20
  54. pcs_energy += 80
  55. water += 80
  56. cumspclnt = 2
  57. gs 'cum_cleanup'
  58. pcs_breath = 0
  59. fat += 4
  60. frost = 0
  61. gs 'stat'
  62. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  63. 'You drank tea and enjoyed the cookies. You know they''re too sweet and can''t be good for your figure, but they taste so good!'
  64. act 'Get up from the table':gt $curloc
  65. end
  66. end
  67. if edaD > 0:
  68. act 'Eat diet food (0:30)':
  69. cla
  70. *clr
  71. frost = 0
  72. minut += 30
  73. pcs_health += 10
  74. pcs_mood += 20
  75. edaD -= 1
  76. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  77. if pcs_energy >= 100:
  78. 'You prepare a diet meal and try to eat it, but you''re really not hungry at all. You can''t finish the meal.'
  79. elseif pcs_energy >= 80:
  80. pcs_energy += 40
  81. '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.'
  82. else
  83. pcs_energy += 80
  84. 'The diet meal is tasty, and you enjoy eating it.'
  85. end
  86. if water >= 80:
  87. 'You don''t need any more tea.'
  88. else
  89. water = 100
  90. cumspclnt = 2
  91. gs 'cum_cleanup'
  92. pcs_breath = 0
  93. 'You have a cup of tea, quenching your thirst.'
  94. end
  95. act 'Get up from the table':gt $curloc
  96. end
  97. end
  98. if fatdel > 0:
  99. act 'Consume fat burners':
  100. cla
  101. *clr
  102. fatdel -= 1
  103. salo -= 20
  104. if salo < 11: salo = 11
  105. gs 'body_shape', 'softreset'
  106. 'You throw the capsule of fat burners in a glass, add some water and drink it. You''re amazed at how fast the capsule works, feeling your body slim down almost immediately.'
  107. act 'Get up from the table':gt $curloc
  108. end
  109. end
  110. if lekarstvo > 0:
  111. 'You have <<lekarstvo>> tablet(s).'
  112. if sick > 0 and lekarday ! daystart:
  113. act 'Take a pill (0:05)':
  114. cla
  115. *clr
  116. minut += 5
  117. lekarday = daystart
  118. lekarstvo -= 1
  119. sick -= sick * 20 / 100
  120. if water < 50 : water += 30 else water +=15
  121. if water > 100: water = 100
  122. picrand = rand(1,9)
  123. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/lekr<<picrand>>.jpg"></center>'
  124. 'You swallow the pill, and shortly after you feel a bit better.'
  125. act 'Continue':gt $curloc
  126. end
  127. end
  128. end
  129. if vitamin > 0:
  130. 'You have <<vitamin>> vitamin pills.'
  131. if vitaminday ! daystart:
  132. act 'Take vitamins (0:05)':
  133. cla
  134. *clr
  135. minut += 5
  136. vitaminday = daystart
  137. vitamin -= 1
  138. frost = 0
  139. if water < 50 : water += 30 else water +=15
  140. if water > 100: water = 100
  141. if KandidozOnce = 1:Kandidoz -= 2
  142. if GerpesOnce = 1:Gerpes -= 2
  143. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  144. pcs_skin += 1
  145. 'You take some vitamins to stay healthy.'
  146. act 'Continue':gt $curloc
  147. end
  148. end
  149. end
  150. --- kuhrPar ---------------------------------