COWbrowse

You are looking at the command called eat

eat {object}
eat from {object}

If you simply eat something, it it similar to get and it is placed in our inventory.
create an apple
eat the apple
You can only eat something that is not locked or you created.

If you eat from something, you take a bit of it, leaving it where it is.
eat from the birthday cake

You can eat from something you are carrying in your inventory. quite handy as you dont have to drop it to eat from it then get it again.

Hopefully the thing you are eating from will react to being eaten in some way.

scripting notes:
A simple eat is the same as get so a 'get' trigger word is sent out
Eat from sends outan 'eat' trigger word so you can script a cake thusly:


if target of eat then takeabite;
##takeabite:
print "[$actor] looks grumply at [$init_obj]";

Created by wolis, last updated 03 Jan 2012

Code

get $text,$target in $actor;
if $target > 0 then eatfrom else checkloc;

##checkloc:
get $text,$target in $loc;
if $target > 0 then eatfrom else checkone;

##eatfrom:
$ac = (takes,has);
$how = (delicate,large,wholesom,healthy,hearty,megre,small,large,great);
$bit = (bite,mouthful,morsel,portion);

say 'eat',"[$actor] $ac $how $bit of [$target]";

##checkone:
get $target in $loc;
if $target > 0 then chklock else fail;

##chklock:
if $pw like $target's pwd then moveobj else itslocked;

##moveobj:
unhost $target;
clear $target,all;
set $target's loc to $actor;
set $target's pose to "hidden";
say 'get',"[$actor] eats [$target]";
msg $actor,0,0,0,'arrives',"[$target] appears from nowhere";
relook $loc;
relook $actor;

##fail:
if $counter > 0 then exit else listall;
##listall:
var $click_cmd to 'eat';
var $desc_intro to 'Click on the object you want to eat:

';
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";

##itslocked:
say 'getfailed',"[$actor] could not eat [$target] because it's locked";

##sample_full_msg:
msg $loc,$actor,$target,$second,'getfailed',"[$actor] could not eat [$target]";