* missus-gets
if ( cmp(word(%astr%,1),{squirrel}),{ goto({success}); },  { goto({fail}); } );
goto({end});
label(success);
wait(5);
do({'Oh, %name% thank you!});
wait(15);
do({'Let me see what I have to give you in return for your good deed...});
wait(20);
do({:rummages around in the cupboards for a gift.});
wait(30);
dispense(%actor%,{7380});
echo(%actor%,{Missus Frallad gives you your reward.});
goto({end});
label(fail);
wait(5);
do({:examines it.});  
wait(20);
do({give %astr% %name%}); 
label(end);