##tickloc:runsub randomstuff;
##randomstuff:
runsub dosomething/20;
##dosomething:
if $actor's health > 0 then dosomething2;
##dosomething2:
$some = (Part,The tip,The end);
$verb = (slithers,crawls,snakes);
$how = (towards,up to);
find $loc,random;
getgender $found_id;
$feels = (touches,feels,rubs against,brushes against,taps);
$recoils = (recoils,withdraws,backs off);
msg 'touch',"$some of [$actor] $verb $how [$found_id] and $feels $himher, then $recoils.";

##whyattack:
$attackdelay = 60;
print "[$actor] hovers over [$target] aggressively, as if about to attack";