COWbrowse

You are in a cat

this is an example cat.
It has an object inside it, use readall the cat to see what it contains.

If an object matches the 'givematch' object it will be accepted by the cat when you give the cat an object. eg give the cat the ball

Created by wolis, last updated 24 Dec 2006

Code

##gives:runsub give01;

##give01: if $actor eq $second then give02 else end;
##give02: if $target's class like $actor's givematch then give03 else giveno;
##give03: if $target's owner eq $actor then giveyes else giveno;
##giveyes: say 'say',"[$actor] thanks you";
##giveno: say 'say',"[$actor] did not want [$target]";
set $target's loc to $loc;

a givematch