COWbrowse

You are looking at a german shephard :this is a guard dog that will shred apart any unwelcome visiters

this fierce dog will shred an who get in its path less i stop him

Created by planet bob, last updated 24 Dec 2006

Code

##arrives:runsub whattodo;

##whattodo:
var $dest to 5913;
if $init_obj's name like "(josh|wolis|xiii|Jemilly|planet bob|jacqui|neb_1010|superblah)" then allowthem else kickthem;

##kickthem:
say 'say',"[$actor] chases [$init_obj] out of [$loc] to [$dest]";
set $init_obj's loc to $dest;
var $loc to $dest;
msg $dest,$actor,$init_obj,0,'say',"[$actor] growls angrily 'Grrrrrr...' and chases [$init_obj] away";

##allowthem:
say 'say',"[$actor] looks at [$init_obj] gladly - you can stay here they won't send you away";