1
0

kuhrPar 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166
  1. # kuhrPar
  2. CLOSE ALL
  3. act 'Return to the hallway':gt 'korrPar'
  4. $metkaM = $ARGS[0]
  5. $locM = $CURLOC
  6. $metka = $ARGS[0]
  7. $loc = $CURLOC
  8. clr
  9. minut += 1
  10. gs 'stat'
  11. fcolor = rgb(0, 0, 0)
  12. bcolor = rgb(255, 255, 255)
  13. lcolor = rgb(106, 90, 205)
  14. '<center><b><font color="maroon">Kitchen</font></b></center>'
  15. '<center><img src="images/qwest/alter/kuhrPar.jpg"></center>'
  16. '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.'
  17. gs 'family'
  18. act 'Eat a meal (0:30)':gs 'food', 'm_meal'
  19. act 'Have a snack (0:15)':gs 'food', 'snack'
  20. act 'Have a cup of tea (0:05)':
  21. cls
  22. minut += 5
  23. if water >= 100:
  24. 'You don''t need any more tea.'
  25. else
  26. water += 80
  27. cumspclnt = 2
  28. gs 'cum_cleanup'
  29. fbreath = 0
  30. 'You have a cup of tea, quenching your thirst.'
  31. end
  32. gs 'stat'
  33. act 'Get up from the table':gt $locM, $metkaM
  34. end
  35. if pranik > 0:
  36. 'You have <<pranik>> cookies.'
  37. act 'Drink tea with cookies (0:05)':
  38. cla
  39. *clr
  40. minut += 5
  41. pranik -= 1
  42. health += 30
  43. manna += 100
  44. energy += 80
  45. water += 80
  46. cumspclnt = 2
  47. gs 'cum_cleanup'
  48. fbreath = 0
  49. fat += 4
  50. frost = 0
  51. gs 'stat'
  52. '<center><img src="images/pics/food.jpg"></center>'
  53. '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!'
  54. act 'Get up from the table':gt $curloc
  55. end
  56. end
  57. if edaD > 0:
  58. act 'Eat diet food (0:30)':
  59. cla
  60. *clr
  61. frost = 0
  62. minut += 30
  63. health += 10
  64. manna += 20
  65. edaD -= 1
  66. '<center><img src="images/pics/food.jpg"></center>'
  67. if energy >= 100:
  68. 'You prepare a diet meal and try to eat it, but you''re really not hungry at all. You can''t finish the meal.'
  69. elseif energy >= 80:
  70. energy += 40
  71. '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.'
  72. else
  73. energy += 80
  74. 'The diet meal is tasty, and you enjoy eating it.'
  75. end
  76. if water >= 80:
  77. 'You don''t need any more tea.'
  78. else
  79. water = 100
  80. cumspclnt = 2
  81. gs 'cum_cleanup'
  82. fbreath = 0
  83. 'You have a cup of tea, quenching your thirst.'
  84. end
  85. act 'Get up from the table':gt $curloc
  86. end
  87. end
  88. if fatdel > 0:
  89. act 'Consume fat burners':
  90. cla
  91. *clr
  92. if fat > salo:fat = salo
  93. fatdel -= 1
  94. fat -= 25
  95. if fat < 0:fat = 0
  96. '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.'
  97. act 'Get up from the table':gt $curloc
  98. end
  99. end
  100. if lekarstvo > 0:
  101. 'You have <<lekarstvo>> tablet(s).'
  102. if sick > 0 and lekarday ! daystart:
  103. act 'Take a pill (0:05)':
  104. cla
  105. *clr
  106. minut += 5
  107. lekarday = daystart
  108. lekarstvo -= 1
  109. sick -= sick * 20 / 100
  110. '<center><img src="images/inBed/lekr<<picrand>>.jpg"></center>'
  111. 'You swallow the pill, and shortly after you feel a bit better.'
  112. act 'Continue':gt $curloc
  113. end
  114. end
  115. end
  116. if vitamin > 0:
  117. 'You have <<vitamin>> vitamin pills.'
  118. if vitaminday ! daystart:
  119. act 'Take vitamins (0:05)':
  120. cla
  121. *clr
  122. if fat > salo:fat = salo
  123. minut += 5
  124. vitaminday = daystart
  125. vitamin -= 1
  126. frost = 0
  127. if KandidozOnce = 1:Kandidoz -= 2
  128. if GerpesOnce = 1:Gerpes -= 2
  129. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  130. skinvan += 1
  131. 'You take some vitamins to stay healthy.'
  132. act 'Continue':gt $curloc
  133. end
  134. end
  135. end
  136. --- kuhrPar ---------------------------------