get $target;
if $target > 0 then moveobj else fail;
##moveobj:
var $temp to $target's loc;
msg $temp,$target,0,0,'leaves',"[$target] goes all wobbly then dissapears";
set $target's loc to $actor's loc;
msg $temp,$actor,0,0,'force',"force:look $temp";
clear $target,all;
refresh $target;
say 'arrives',"[$actor] summoned [$target]";
msg $loc,$actor,0,0,'force',"force:look $loc";

##fail:
say 'getfailed',"[$actor] pines for $cmd_text";
look $loc;
##sample_full_msg:
msg $loc,$actor,$target,$second,'getfailed',"[$actor] could not get [$target]";