@create Food Parent=10
&PIECES Food Parent=10
&EAT Food Parent=$eat:@remit loc(%#)=[name(%#)] takes a bite out of [name(me)].;&Pieces me=sub(v(pieces),1);@switch v(pieces)=0,{@remit loc(%#)=[name(%#)] finished off the [name(me)]!; @tel me=#10; @destroy me},<0,{@remit loc(%#)=[name(%#)] finished off the [name(me)]!; @tel me=#10; @destroy me}
&MUNCH Food Parent=$munch:@remit loc(%#)=[name(%#)] takes a relatively large bite out of [name(me)].;&pieces me=sub(v(pieces),2);@switch v(pieces)=0,{@remit loc(%#)=[name(%#)] finished off the [name(me)]!; @tel me=#10; @destroy me},<0,{@remit loc(%#)=[name(%#)] finished off the [name(me)]!; @tel me=#10; @destroy me}
&GOBBLE Food Parent=$gobble:@remit loc(%#)=[name(%#)] wolfs down about half of this [name(me)].;&pieces me=sub(v(pieces),5);@switch v(pieces)=0,{@remit loc(%#)=[name(%#)] finished off the [name(me)]!; @tel me=#10; @destroy me},<0,{@remit loc(%#)=[name(%#)] finished off the [name(me)]!; @tel me=#10; @destroy me}
&FINISH Food Parent=$finish:@remit loc(%#)=[name(%#)] puts the rest of the [name(me)] in %p mouth and finishes it off.;@tel me=#10; @destroy me
@set Food Parent=PARENT_OK