##drop:
runsub isitme;
##isitme:
if $target eq $actor then check3 else end;
##check3:
if $actor's slot1 eq "inplayer" then nocando else end;
##nocando:
set $actor's loc to $init_obj;
clear $actor,all;
msg $loc,$actor,0,0,'force',"force:look $loc";
var $loc to $target;
msg $loc,$actor,0,0,'force',"force:look $loc";
set $target's pose to "hidden";
clear $target,xyz;
set $actor's host to $actor;
set $actor's hosthow to "on";
msg $loc,$actor,0,0,'force',"force:look $loc";
##think:
runsub exithost;
##wish:
runsub getaway;
##ticxkhour:
runsub exithost;
##ticxkhour2:
runsub getaway;
##ticxkloc:
runsub getaway;
##exithost:
if $actor's slot1 eq "inplayer" then test1 else end;
##check1:
var $loc to $shell;
var $host to $loc's loc;
set $actor's loc to $host;
if $loc > 0 then moveme else end;
##test1:
if $loc = 19949 then end else check1;
##moveme:
clear $actor, all;
say 'leaves',"[$actor] erupts through [$shell]'s chest!";
msg $loc,$actor,0,0,'force',"force:look $loc";
msg $host,$actor,0,0, 'arrives',"[$actor] explodes from [$shell]'s chest!";
msg $host,$actor,0,0,'force',"force:look $host";
set $actor's slot1 to "outandabout";
say 'msg',"[$shell] looks in amazement as the hole in their chest heals instantly!";
##getaway:
find $loc, random doorway;
if $loc > 0 then check2 else getaway;
##check2:
if $actor's slot1 like "outandabout" then fleefast else end;
##fleefast:
find $loc,random doorway;
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
var $how to (scurries, flees, runs, flits);
var $does to (screeches, growls, pauses);
say 'leaves',"[$actor] $does and $how away through [$found_id]";
clear $actor,all;
say 'force',"force:look";
set $actor's loc to $tloc;
var $loc to $tloc;
say 'arrives',"[$actor] $how in from [$tlink] and $does";
say 'force',"force:look";