if target of examines then examineme;
if target of talk then quest;
if second of gives then checkgift;

##checkgift:
if $target's code like 54321 then reward else no;

##no:
$stare = (stares,examines,looks);
print "[69657] $stare intently at [$target].";
print "Im sorry, but thats not my brooch.";
call "drop $target";

##reward:
print "Thank you very much! Here is your reward.";
call "create coin worth 250";

##examineme:
$bits = (chunks,cubes,pieces,bits,portions,hunks,lumps,slices);
$food = (bread,pizza,marshmellow,apple,hotdog,hamburger,peach,pear,cheese,chocolate);
$swan = 69604;
print "[$init_obj] watches as [$actor] feeds [$swan] with $bits of $food.";

##quest:
print "Please help me [$init_obj]! A demon just stole my diamond brooch, it's a family heirloom. He ran into [70457] with it. I will reward you greatly if you return it to me.";