obkitchen 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186
  1. # obkitchen
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. gs 'stat'
  5. '<center><b>in the dorm kitchen</b></center>'
  6. '<center><img src="images/img/centr/obkitchen.jpg"></center>'
  7. act 'In the corridor':gt 'dorm', 'korr'
  8. if eda > 0:
  9. act 'Cook food (1:00)':
  10. cla
  11. *clr
  12. minut += 60
  13. gs 'stat'
  14. edahot += 1
  15. eda -= 1
  16. manna -= 5
  17. '<center><img src="images/pics/cook.jpg"></center>'
  18. 'You prepare the meal.'
  19. act 'Leave the meal':gt 'obkitchen'
  20. end
  21. end
  22. if edahot > 0:
  23. act 'Eat cooked food (0:30)':
  24. cla
  25. *clr
  26. gs 'stat'
  27. frost = 0
  28. minut += 30
  29. edahot -= 1
  30. health += 10
  31. manna += 20
  32. '<center><img src="images/pics/food.jpg"></center>'
  33. if energy >= 30:
  34. fat += 5
  35. 'You can no longer eat.'
  36. elseif energy >= 20 and energy < 30:
  37. fat += 3
  38. energy += 10
  39. 'You pushed through the power of a meal.'
  40. elseif energy < 20:
  41. energy += 20
  42. !!fat += 1
  43. 'You gladly ate cooked food.'
  44. end
  45. if water >= 20:
  46. 'You don''t need any more tea.'
  47. else
  48. water += 20
  49. 'You gladly drank a mug of tea.'
  50. end
  51. act 'Get up from the table':gt 'obkitchen'
  52. end
  53. end
  54. if pranik > 0:
  55. act 'Drink tea with cookies (0:05)':
  56. cla
  57. *clr
  58. minut += 5
  59. pranik -= 1
  60. health += 30
  61. manna += 100
  62. energy += 20
  63. water += 20
  64. fat += 50
  65. frost = 0
  66. gs 'stat'
  67. '<center><img src="images/pics/food.jpg"></center>'
  68. 'You drank tea with cookies, sweet and very bad for the figure, but so nice.'
  69. act 'Get up from the table':gt 'obkitchen'
  70. end
  71. end
  72. if edaD > 0:
  73. act 'Eat diet meal (0:30)':
  74. cla
  75. *clr
  76. frost = 0
  77. minut += 30
  78. health += 10
  79. manna += 20
  80. edaD -= 1
  81. '<center><img src="images/pics/food.jpg"></center>'
  82. if energy >= 30:
  83. 'You can no longer eat.'
  84. elseif energy >= 20 and energy < 30:
  85. energy += 10
  86. 'You pushed through the power of a meal.'
  87. elseif energy < 20:
  88. energy += 20
  89. 'You gladly ate cooked food.'
  90. end
  91. if water >= 20:
  92. 'You don''t need any more tea.'
  93. else
  94. water += 20
  95. 'You gladly drank a mug of tea.'
  96. end
  97. act 'Get up from the table':gt 'obkitchen'
  98. end
  99. end
  100. if fatdel > 0:
  101. act 'Consume fat burners':
  102. cla
  103. *clr
  104. fatdel -= 1
  105. fat -= 25
  106. if fat < 0:fat = 0
  107. 'You drank fat burning capsule. These capsules are gradually and results will be seen immediately.'
  108. act 'Get up from the table':gt 'obkitchen'
  109. end
  110. end
  111. act 'Drink':
  112. cla
  113. minut += 5
  114. if water >= 20:
  115. 'You don''t need any more water.'
  116. else
  117. water += 20
  118. 'You gladly drank a glass of water.'
  119. end
  120. act 'Get up from the table':gt 'obkitchen'
  121. end
  122. if lekarstvo > 0:
  123. 'You have <<lekarstvo>> tablets.'
  124. if sick > 0 and lekarday ! day:
  125. act 'Take a pill':
  126. cla
  127. *clr
  128. minut += 5
  129. lekarday = day
  130. lekarstvo -= 1
  131. sick -= sick * 20 / 100
  132. lekrand = rand(1, 9)
  133. '<center><img src="images/inBed/lekr<<picrand>>.jpg"></center>'
  134. 'You took a pill'
  135. act 'Move away':gt 'obkitchen'
  136. end
  137. end
  138. end
  139. if vitamin > 0:
  140. 'You have <<vitamin>> vitaminok.'
  141. if vitaminday ! day:
  142. act 'Take vitamins (0:05)':
  143. cla
  144. *clr
  145. minut += 5
  146. vitaminday = day
  147. vitamin -= 1
  148. frost = 0
  149. skinvan += 1
  150. if skinvan = 20:skinvan = 0 & skin += 1
  151. 'You took some vitamins'
  152. act 'Move away':gt 'obkitchen'
  153. end
  154. end
  155. end
  156. --- obkitchen ---------------------------------