# food
!{Snacks: +20 pcs_energy,+6 fat
Fast Food: +70 pcs_energy, +12 fat (hamburgers, fried food, like the downtown diner)
Small Meal: +40 pcs_energy, +3 fat (soup and sandwiches, cafe light lunches, etc)
Medium Meal: +60 pcs_energy, +6 fat (home cooked dinners)
Large Meal: +100 pcs_energy, +12 fat (steak dinners, new years party dinner, etc)
Bagged Lunch: +30 pcs_energy, +3 fat (sandwich, cold leftovers, etc)
Health Meal: +50 pcs_energy, +1 fat (Diet food, Salads, rice cakes with peanut butter)
}
if $ARGS[0] = 'snack':
cla
*clr
gs 'stat'
minut += 15
pcs_health += 10
pcs_mood += 20
fat += 6
pcs_energy += 20
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath = 0
'
'
'You enjoy a small tasty, but somewhat fattening, snack. It wasn''t very much food, and<<$mtxt>>'
act 'Return':gt $locM, $metkaM
end
if $ARGS[0] = 'f_food':
cla
*clr
frost = 0
minut += 30
pcs_health += 10
fat += 12
pcs_energy += 70
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath = 0
gs 'food', 'aftermeal'
''
'You happily eat some fast food. The portions are quite generous and<<$mtxt>>'
act 'Finish':gt $locM, $metkaM
end
if $ARGS[0] = 's_meal':
cla
*clr
frost = 0
minut += 20
pcs_health += 10
fat += 3
pcs_energy += 40
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath = 0
gs 'food', 'aftermeal'
''
'You happily eat your meal. The portions are fairly small and'
if $ARGS[1] ! 'school': act 'Finish':gt $locM, $metkaM
end
if $ARGS[0] = 'm_meal':
cla
*clr
frost = 0
minut += 30
pcs_health += 10
fat += 6
pcs_energy += 60
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath = 0
gs 'food', 'aftermeal'
''
'You thoroughly enjoy the nicely cooked meal. The portions were moderate and<<$mtxt>>'
'You accompany it with a mug of tea.'
act 'Finish':gt $locM, $metkaM
end
if $ARGS[0] = 'l_meal':
cla
*clr
frost = 0
minut += 30
pcs_health += 10
fat += 12
pcs_energy += 100
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath = 0
gs 'food', 'aftermeal'
''
'You are almost overwhelmed by the delicious meal laid before you and enjoy it immensely. The meal was simply colossal and<<$mtxt>>'
if plcooked = 1: killvar 'plcooked'
act 'Finish': gt $locM, $metkaM
end
if $ARGS[0] = 'bag_lunch':
cla
*clr
frost = 0
minut += 20
pcs_health += 10
fat += 3
pcs_energy += 30
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath = 0
gs 'food', 'aftermeal'
''
'You eat the lunch you packed from home. There was nothing fancy about it and<<$mtxt>>'
end
if $ARGS[0] = 'h_meal':
cla
*clr
frost = 0
minute += 30
pcs_health += 20
fat += 1
pcs_energy += 50
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath = 0
gs 'food', 'aftermeal'
''
'You enjoy a crisp salad of fresh green and<<$mtxt>>'
act 'Finish': gt $locM, $metkaM
end
if $ARGS[0] = 'aftermeal':
if pcs_energy > 100:
$mtxt = ' you had to force yourself to finish and now you feel stuffed.'
elseif pcs_energy >= 80:
$mtxt = ' it was enough to leave you feeling full and satisfied.'
elseif pcs_energy >= 60:
$mtxt = ' while you no longer feel especially hungry, you don''t feel all that satisfied either.'
elseif pcs_energy >= 40:
$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.'
else
$mtxt = ' did nothing to appease your hunger, in fact, it only amde you want more.'
end
end
--- food ---------------------------------