##use:runsub isitme;
##isitme:if $actor eq $target then person;
##person:if $init_obj's name like "(chaotic bob)" then alright else naughtyperson;
##naughtyperson:
say 'msg',"[$init_obj] grabs [$actor]";
say 'msg',"[$init_obj] hears a deep booming laughter and 'FOOLISH HUMAN! ONLY ONE IS WORTHY TO WIELD MY SCYTHE!!!'";
say 'msg',"[$actor] severely shocks [$init_obj]";
say 'msg',"[$init_obj] quickly drops [$actor]";
say 'msg',"[$init_obj] cries from the immense pain";
say 'msg',"Have you learned your lesson you naughty person?";
##alright:
say 'msg',"[$init_obj] laughs maniacally and starts swinging [$actor] around";
say 'msg',"After narrowly missing a few peoples' heads [$init_obj] stops swinging [$actor]";