##tixckloc:runsub whattodo;
##use:runsub isitme;
##sxhout:runsub suckit;
##txhink:runsub suggestit;

##isitme: if $target eq $actor then suckit else end;

##whattodo:runsub sxuckit/3 or suggestit/10;

##suggestit:
var $man to (monkey,man,elephant,possum,worm);
var $ms to (All new users shoud,You might want to,You can learn something if you,A wise $man once said,If you are new to cow,Some of the answers can be found if);
say 'msg',"$ms type: go to the training shed";
call "ping shed";

##suckit:
rem say 'msg',"[$actor] begins moving very quickly";
foreach in $loc do chkit not doorway not locked;

##chkit:
if $for_id's info eq "" then grabit else end;

##grabit:
clear $for_id,all;
set $for_id's loc to $actor;
say 'msg',"[$actor] sucks up [$for_id]";
say 'force',"force:look $loc";

##push:runsub wasipushed;

##wasipushed:
if $target eq $actor then hitmeoverride else end;

##hitmeoverride:
var $act to (wobbles,quivvers,spins,whirls,dances);
var $ton to (on its axis,around you,backwards,out of the way,behind you,towards you);
var $way to (hypnotic,scary,beguiling,windy,whirly,mystical,troubling);
say 'msg',"[$actor] $act $ton in a $way way";

##hxitme:if $target eq $actor then spewit else end;
##sxpewit:
say 'msg',"[$actor] slows down a bit";
var $dest to $actor's loc;
rem foreach in $actor do dropit;
say 'force',"force:look $loc";
##dxropit:
var $how to (spills,tumbles,rolls,falls,plops,);
set $for_id's loc to $dest;
say 'msg',"[$for_id] $how out";