##wish:runsub chkinards;
##tickhour:runsub chkinards;
##chkinards:
var $noice1 to (pops,dings,fuzzes,wheezes,ting-a-lings,puffs,smokes,jiggles,bobbles);
var $noice2 to (pops,dings,fuzzes,wheezes,ting-a-lings,puffs,smokes,jiggles,bobbles);

say 'msg',"[$actor] $noice1 and $noice2";
find $actor,cheese;
var $cheese to $found_id;
find $actor,bread;
var $bread to $found_id;
if $cheese > 0 then chkbread else nocheese;

##chkbread:
if $bread > 0 then makesandwich else nobread;

##nocheese:
say 'msg',"you here a familiar voice in the distance saying 'No cheese grommit'";

##nobread:
say 'msg',"someone says 'the peasants have no bread', 'let them eat cake' a regal voice replies";

##makesandwich:
var $newval to 2;
var $method to (poorly,boringly,averagely,ho-humly,sorrowfully,mechanically);
var $how to (slapped together,made,cobbled together);
var $tp to (simple,plain,tasteless,stale,iky);
var $money to $cheese's worth;
add $bread's worth to $money;
if $money > 0 then increaseworth else continuemaking;

##increaseworth:
var $newval to 40;
var $method to (meticulously,brilliantly,lovingly,impressivly,beautifuly);
var $how to (crafted,presented,finished,created);
var $tp to (gourmet,exquisit,purfect,magnificent,popular,delicious);
runsub continuemaking;

##continuemaking:
add $newval to $money;
set $cheese's worth to $money;
set $cheese's class to '$tp cheese sandwich';
set $cheese's pclass to '$tp cheese sandwiches';
set $cheese's qty to 1;
set $cheese's info to "a $method $how $tp cheese sandwich";
set $cheese's extra to "which is $method $how";
set $cheese's loc to $actor's loc;
set $cheese's owner to $actor;
say 'msg',"[$actor] creates [$cheese]";
set $bread's loc to 0; rem send it to the void;
msg $loc,$actor,0,0,'force',"force:look $loc";



##talk:runsub talkingtome;
##talkingtome:
if $actor eq $target then startplaying else end;
##startplaying:
load $actor's memory;
loop playmsg;
##playmsg:
say 'playback',"[$actor] says '$listitem '";