1
0

food 3.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173
  1. # food
  2. !{Snacks: +20 energy/thirst,+2 fat
  3. Fast Food: +70 energy/thirst, +4 fat (hamburgers, fried food, like the downtown diner)
  4. Small Meal: +40 energy/thirst, +1 fat (sandwiches, cafe light lunches, etc)
  5. Medium Meal: +60 energy/thirst, +2 fat (home cooked dinners)
  6. Large Meal: +100 energy/thirst, +4 fat (steak dinners, new years party dinner, etc)
  7. Bagged Lunch: +30 energy/ +40 water, +1 fat (sandwich, cold leftovers, etc)}
  8. if $ARGS[0] = 'snack':
  9. cla
  10. *clr
  11. gs 'stat'
  12. minut += 15
  13. health += 10
  14. manna += 20
  15. fat += 2
  16. energy += 20
  17. water += 20
  18. cumspclnt = 2
  19. gs 'cum_cleanup'
  20. fbreath = 0
  21. '<center><img src="images/pics/food.jpg"></center>'
  22. 'You have a little snack and a fizzy drink, it will keep you going for a little while, but it is a bit fatty.'
  23. act 'Return':gt $locM, $metkaM
  24. end
  25. if $ARGS[0] = 'dyn_snack':
  26. cla
  27. *clr
  28. gs 'stat'
  29. minut += 15
  30. health += 10
  31. manna += 20
  32. fat += 2
  33. energy += 20
  34. water += 20
  35. cumspclnt = 2
  36. gs 'cum_cleanup'
  37. fbreath = 0
  38. '<center><img src="images/pics/food.jpg"></center>'
  39. 'You have a little snack and a fizzy drink, it will keep you going for a little while, but it is a bit fatty.'
  40. end
  41. if $ARGS[0] = 'f_food':
  42. cla
  43. *clr
  44. frost = 0
  45. minut += 30
  46. health += 10
  47. fat += 4
  48. energy += 70
  49. water += 70
  50. cumspclnt = 2
  51. gs 'cum_cleanup'
  52. fbreath = 0
  53. '<center><img src="images/pics/food.jpg"></center>'
  54. 'You gladly eat the fast food. You feel sated.'
  55. 'The large drink helps your thirst, but it is a bit sugary.'
  56. act 'Finish':gt $locM, $metkaM
  57. end
  58. if $ARGS[0] = 'dynf_food':
  59. cla
  60. *clr
  61. frost = 0
  62. minut += 30
  63. health += 10
  64. fat += 4
  65. energy += 70
  66. water += 70
  67. cumspclnt = 2
  68. gs 'cum_cleanup'
  69. fbreath = 0
  70. '<center><img src="images/pics/food.jpg"></center>'
  71. 'You gladly eat the fast food. You feel sated.'
  72. 'The large drink helps your thirst, but it is a bit sugary.'
  73. end
  74. if $ARGS[0] = 's_meal':
  75. cla
  76. *clr
  77. frost = 0
  78. minut += 20
  79. health += 10
  80. fat += 1
  81. energy += 40
  82. water += 40
  83. cumspclnt = 2
  84. gs 'cum_cleanup'
  85. fbreath = 0
  86. '<center><img src="images/pics/food.jpg"></center>'
  87. 'You gladly eat the cooked meal. You feel less hungry.'
  88. 'You wash it down with a cup of tea.'
  89. act 'Finish':gt $locM, $metkaM
  90. end
  91. if $ARGS[0] = 'm_meal':
  92. cla
  93. *clr
  94. frost = 0
  95. minut += 30
  96. health += 10
  97. fat += 2
  98. energy += 60
  99. water += 60
  100. cumspclnt = 2
  101. gs 'cum_cleanup'
  102. fbreath = 0
  103. '<center><img src="images/pics/food.jpg"></center>'
  104. 'You gladly eat the cooked meal. You feel sated.'
  105. 'You accompany it with a mug of tea.'
  106. act 'Finish':gt $locM, $metkaM
  107. end
  108. if $ARGS[0] = 'dyn_meal':
  109. cla
  110. *clr
  111. frost = 0
  112. minut += 30
  113. health += 10
  114. fat += 2
  115. energy += 60
  116. water += 60
  117. cumspclnt = 2
  118. gs 'cum_cleanup'
  119. fbreath = 0
  120. '<center><img src="images/pics/food.jpg"></center>'
  121. 'You gladly eat the cooked meal. You feel sated.'
  122. 'You accompany it with a mug of tea.'
  123. end
  124. if $ARGS[0] = 'l_meal':
  125. cla
  126. *clr
  127. frost = 0
  128. minut += 30
  129. health += 10
  130. fat += 4
  131. energy += 100
  132. water += 100
  133. cumspclnt = 2
  134. gs 'cum_cleanup'
  135. fbreath = 0
  136. '<center><img src="images/pics/food.jpg"></center>'
  137. if plcooked = 1:
  138. 'You gladly eat the cooked meal. You feel sated.'
  139. 'You accompany it with a mug of tea.'
  140. act 'Finish': killvar 'plcooked' & gt $locM, $metkaM
  141. end
  142. end
  143. if $ARGS[0] = 'bag_lunch':
  144. cla
  145. *clr
  146. frost = 0
  147. minut += 20
  148. health += 10
  149. fat += 1
  150. energy += 30
  151. water += 40
  152. cumspclnt = 2
  153. gs 'cum_cleanup'
  154. fbreath = 0
  155. '<center><img src="images/pics/food.jpg"></center>'
  156. 'You ate the lunch you packed from home. You feel less hungry.'
  157. 'You washed it down with some water.'
  158. end
  159. --- food ---------------------------------