1
0

food 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176
  1. # food
  2. !{Snacks: +20 pcs_energy,+6 fat
  3. Fast Food: +70 pcs_energy, +12 fat (hamburgers, fried food, like the downtown diner)
  4. Small Meal: +40 pcs_energy, +3 fat (soup and sandwiches, cafe light lunches, etc)
  5. Medium Meal and Hotel Food: +60 pcs_energy, +6 fat (home cooked dinners and room service equivalent)
  6. Large Meal: +100 pcs_energy, +12 fat (steak dinners, new years party dinner, etc)
  7. Bagged Lunch: +30 pcs_energy, +3 fat (sandwich, cold leftovers, etc)
  8. Health Meal: +50 pcs_energy, +1 fat (Diet food, Salads, rice cakes with peanut butter)
  9. }
  10. if $ARGS[0] = 'snack':
  11. cla
  12. *clr
  13. gs 'stat'
  14. minut += 5
  15. pcs_health += 10
  16. pcs_mood += 20
  17. fat += 6
  18. pcs_energy += 20
  19. cumspclnt = 2
  20. gs 'cum_cleanup'
  21. pcs_breath = 0
  22. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  23. 'You enjoy a small tasty, but somewhat fattening, snack. It wasn''t very much food, and<<$mtxt>>'
  24. act 'Return':gt $loc, $metka
  25. end
  26. if $ARGS[0] = 'f_food':
  27. cla
  28. *clr
  29. frost = 0
  30. minut += 20
  31. pcs_health += 10
  32. fat += 12
  33. pcs_energy += 70
  34. cumspclnt = 2
  35. gs 'cum_cleanup'
  36. pcs_breath = 0
  37. gs 'food', 'aftermeal'
  38. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  39. 'You happily eat some fast food. The portions are quite generous and<<$mtxt>>'
  40. act 'Finish':gt $loc, $metka
  41. end
  42. if $ARGS[0] = 's_meal':
  43. cla
  44. *clr
  45. frost = 0
  46. minut += 15
  47. pcs_health += 10
  48. fat += 3
  49. pcs_energy += 40
  50. cumspclnt = 2
  51. gs 'cum_cleanup'
  52. pcs_breath = 0
  53. gs 'food', 'aftermeal'
  54. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  55. 'You happily eat your meal. The portions are fairly small and<<$mtxt>>'
  56. act 'Finish':gt $loc, $metka
  57. end
  58. if $ARGS[0] = 'm_meal':
  59. cla
  60. *clr
  61. frost = 0
  62. minut += 25
  63. pcs_health += 10
  64. fat += 6
  65. pcs_energy += 60
  66. cumspclnt = 2
  67. gs 'cum_cleanup'
  68. pcs_breath = 0
  69. gs 'food', 'aftermeal'
  70. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  71. 'You thoroughly enjoy the nicely cooked meal. The portions were moderate and<<$mtxt>>'
  72. 'You accompany it with a mug of tea.'
  73. act 'Finish':gt $loc, $metka
  74. end
  75. if $ARGS[0] = 'l_meal':
  76. cla
  77. *clr
  78. frost = 0
  79. minut += 30
  80. pcs_health += 10
  81. fat += 12
  82. pcs_energy += 100
  83. cumspclnt = 2
  84. gs 'cum_cleanup'
  85. pcs_breath = 0
  86. gs 'food', 'aftermeal'
  87. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  88. 'You are almost overwhelmed by the delicious meal laid before you and enjoy it immensely. The meal was simply colossal and<<$mtxt>>'
  89. if plcooked = 1: killvar 'plcooked'
  90. act 'Finish': gt $loc, $metka
  91. end
  92. if $ARGS[0] = 'bag_lunch':
  93. cla
  94. *clr
  95. frost = 0
  96. minut += 15
  97. pcs_health += 10
  98. fat += 3
  99. pcs_energy += 30
  100. cumspclnt = 2
  101. gs 'cum_cleanup'
  102. pcs_breath = 0
  103. gs 'food', 'aftermeal'
  104. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  105. 'You eat the lunch you packed from home. There was nothing fancy about it and<<$mtxt>>'
  106. act 'Finish': gt $loc, $metka
  107. end
  108. if $ARGS[0] = 'h_food':
  109. cla
  110. *clr
  111. frost = 0
  112. minut += 25
  113. pcs_health += 10
  114. fat += 6
  115. money -= 100
  116. pcs_energy += 60
  117. cumspclnt = 2
  118. gs 'cum_cleanup'
  119. pcs_breath = 0
  120. gs 'food', 'aftermeal'
  121. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/roomservice.jpg"></center>'
  122. 'The maid brings you a decent meal,<<$mtxt>>'
  123. 'You accompany it with a mug of tea.'
  124. act 'Finish':gt $loc, $metka
  125. end
  126. if $ARGS[0] = 'h_meal':
  127. cla
  128. *clr
  129. frost = 0
  130. minute += 25
  131. pcs_health += 20
  132. fat += 1
  133. pcs_energy += 50
  134. cumspclnt = 2
  135. gs 'cum_cleanup'
  136. pcs_breath = 0
  137. gs 'food', 'aftermeal'
  138. '<center><img <<$set_imgh>> src="images/shared/food/eating-salad.jpg"></center>'
  139. 'You enjoy a crisp salad of fresh green and<<$mtxt>>'
  140. act 'Finish': gt $loc, $metka
  141. end
  142. if $ARGS[0] = 'aftermeal':
  143. if pcs_energy > 100:
  144. $mtxt = ' you had to force yourself to finish and now you feel stuffed.'
  145. elseif pcs_energy >= 80:
  146. $mtxt = ' it was enough to leave you feeling full and satisfied.'
  147. elseif pcs_energy >= 60:
  148. $mtxt = ' while you no longer feel especially hungry, you don''t feel all that satisfied either.'
  149. elseif pcs_energy >= 40:
  150. $mtxt = ' while you no longer feel like you are starving, you are still quite hungry - in fact, you could probably eat the same amount again and still have room for dessert.'
  151. else
  152. $mtxt = ' did nothing to appease your hunger, in fact, it only amde you want more.'
  153. end
  154. end
  155. --- food ---------------------------------