if second of put then checkit;
##checkit:
if $target's class = 'player' then quit else continue;
##continue:
$inf = $target's info;
if $inf = '' then wrong else continues1;
##continues1:
if $inf's class = 'player' then nope else continue2;
##continue2:
$orig = $target;
print "[$target] morphs into [$inf].";
set $target's name to $inf's name;
set $target's class to $inf's class;
set $target's colour to $inf's colour;
set $target's info to $inf's code;
set $target's extra to 'model';
unhost $target;
runsub printit;
##printit:
new a page;
set $new_id's name to $inf;
set $new_id's info to $inf's info;
set $new_id's extra to $inf's name;
print "There is a buzzing noise, and [$new_id] slides out of a slot in [$actor].";
foreach in $inf do copyit not player not doorway;
relook loc;
##copyit:
copy $for_id;
set $new_id's loc to $orig;
set $new_id's pwd to '';