rem eating.agt

command eat any
nounpresent
nounisedible
destroynoun
turncounteroff [need to eat]
printmessage "AHH...That hits the spot!  Refreshed, you carry on."
donewithturn
end_command

command get pillow
atlocation [quarters]
nouninroom
flagoff [make rations]
turnflagon [make rations]
putincurrentroom [ration bar]
printmessage "Behind the pillow you see a small ration bar."
end_command