kuhrPar.qsrc 3.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142
  1. # kuhrPar
  2. CLOSE ALL
  3. if fullmorrout = 1:
  4. minut += 2
  5. act '<font color = maroon><b>Leave the apartment and go outside</b></font>':
  6. minut +=1
  7. killvar 'fullmorrout'
  8. gs 'korrPar'
  9. gt'pavResidential'
  10. end
  11. end
  12. act 'Return to the hallway':
  13. killvar 'fullmorrout'
  14. gt 'korrPar'
  15. end
  16. $metka = $ARGS[0]
  17. $loc = $CURLOC
  18. $locclass = 'kitr'
  19. clr
  20. minut += 1
  21. gs 'stat'
  22. gs 'kit_din'
  23. if night_mode = 1:
  24. fcolor = rgb(255, 255, 255)
  25. bcolor = rgb(0, 0, 0)
  26. lcolor = rgb(106, 90, 205)
  27. else
  28. fcolor = rgb(0, 0, 0)
  29. bcolor = rgb(255, 255, 255)
  30. lcolor = rgb(106, 90, 205)
  31. end
  32. '<center><b><font color="maroon">Kitchen</font></b></center>'
  33. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/kuhrpar.jpg"></center>'
  34. if hour = 7 and indorf = 0:
  35. !r125
  36. *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.'
  37. ! on weekdays Anka here too
  38. 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.'
  39. else
  40. '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.'
  41. end
  42. gs 'family'
  43. act 'Eat a meal (0:30)':gs 'food', 'm_meal'
  44. act 'Have a snack (0:15)':gs 'food', 'snack'
  45. act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
  46. act 'Have a cup of tea (0:05)':
  47. cls
  48. if pcs_hydra >= 100:
  49. 'You don''t need any more tea.'
  50. else
  51. minut += 5
  52. pcs_hydra += 80
  53. cumspclnt = 2
  54. gs 'cum_cleanup'
  55. pcs_breath = 0
  56. pcs_mood += rand(3, 6)
  57. 'You make a refreshing cup of tea and everything seems a little better.'
  58. end
  59. gs 'stat'
  60. act 'Get up from the table':gt $loc, $metka
  61. end
  62. if pranik > 0:
  63. 'You have <<pranik>> tea biscuits.'
  64. act 'Drink tea with biscuits (0:05)':
  65. cla
  66. *clr
  67. minut += 5
  68. pranik -= 1
  69. pcs_health += 30
  70. pcs_mood += 20
  71. pcs_energy += 20
  72. if pcs_hydra >= 100:
  73. pcs_hydra += 30
  74. else
  75. pcs_hydra += 60
  76. end
  77. cumspclnt = 2
  78. gs 'cum_cleanup'
  79. pcs_breath = 0
  80. fat += 4
  81. frost = 0
  82. gs 'stat'
  83. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  84. '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!'
  85. act 'Get up from the table':gt $curloc
  86. end
  87. end
  88. if edaD > 0:
  89. act 'Eat diet food (0:30)':
  90. cla
  91. *clr
  92. frost = 0
  93. minut += 30
  94. pcs_health += 10
  95. pcs_mood += 20
  96. edaD -= 1
  97. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  98. if pcs_energy >= 100:
  99. 'You prepare a diet meal and try to eat it, but you''re really not hungry at all. You can''t finish the meal.'
  100. elseif pcs_energy >= 80:
  101. pcs_energy += 40
  102. '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.'
  103. else
  104. pcs_energy += 80
  105. 'The diet meal is tasty, and you enjoy eating it.'
  106. end
  107. if pcs_hydra >= 80:
  108. 'You don''t need any more tea.'
  109. else
  110. pcs_hydra += 100
  111. cumspclnt = 2
  112. gs 'cum_cleanup'
  113. pcs_breath = 0
  114. 'You have a cup of tea, quenching your thirst.'
  115. end
  116. act 'Get up from the table':gt $curloc
  117. end
  118. end
  119. dynamic $fatdel
  120. dynamic $lekarstvo
  121. dynamic $vitamin
  122. --- kuhrPar ---------------------------------