##talk:runsub isitme1;
##gives:runsub isitme2;

##isitme1:
var $counter to 1;
if $target eq $actor then findobj else end;

##isitme2:if $second eq $actor then takeit else end;

##takeit:
set $target's pose to "hidden";
if $target's owner eq $actor then reward else ownit;

##ownit:
set $target's owner to $actor;
var $how to (Why thankyou,Oh my,That is so nice,You are so kind);
say 'say',"[$actor] says '$how' and accepts your give of [$target]";

##reward:
var how to (Ah ha!,Brilliant!,Your wonderful!,Oh thankyou!);
say 'say',"[$actor] says '$how Thankyou for finding me [$target]";
var $rew to (a cupcake,a crystal,a coin,a bottle,a whistle,a wooden peg);
new $rew;
var $wth to random 100;
set $new_id's worth to $wth;
set $new_id's colour to "white";
set $new_id's owner to $init_obj;
say 'say',"[$actor] offers you [$new_id] as a reward and says 'feel free to paint and decorate it as you like'";


##findobj:
find $actor,random not player not doorway; rem find an object in the actor;
if $found_id > 0 then finddest else saynoquest;

##saynoquest:
add 1 to $counter;
if $counter > 5 then saynoquest1 else findobj;
##saynoquest1:
var $how to ('Im sorry..,Please excuse me..,'er um..,Oh hello there..);
var $task to (Im looking for something,Im feeling a little confused,what is the world coming to?,I.. hmm.. nothing interesting happening here,what was that buzzing sound?);
say 'say',"[$actor] says '$how $task'";

##finddest:
var $itm to $found_id; rem the quest object;
var $rob to random max; rem find a random object in the world;
var $dest to $rob's loc; rem find its location so we know its somewhere;
rem say 'msg',"random $rob = [$rob] in [$dest] max = $max_id";
if $dest > 0 then findexit else saynoquest;

##findexit:
find $dest,random doorway;
if $found_id > 0 then moveit else saynoquest;

##nodoor:var $door to 'some cheese';

##moveit:
getname $found_id,full; rem the quest object;
var $door to "$this_name";
if $found_id eq $rob then nodoor;
getname $itm,full; rem the quest object;
var $iname to "$this_name";
set $itm's loc to $dest;
set $itm's pose to "hidden";
set $itm's info to "Please return this to the quest maker";
getname $rob,full; rem $this_name becomes the random objects name;
var $intro to (Can you help me please..,Oh dear me,You would never belive it but,Quickly quickly);
var $how to (I have lost my,I cant find my,I long for,I wish I had);
say 'say',"[$actor] emplors you '$intro $how $iname .'";
say 'mumble',"[$actor] mumbles something about $this_name and $door";
say 'think',"[$init_obj] . o 0 ( I should make a note of this )";