if target of use then checkit;
if target of touch then checkit2;
##checkit2:
if $init_obj = $actor's host then resetit else end;
##resetit:
$baseob = 71226;
code $actor as $baseob;
set $actor's material to $baseob's material;
set $actor's extra to $baseob's extra;
set $actor's health to $baseob's health;
set $actor's mana to $baseob's mana;
print "[$actor] morphs back into its original shape.";
##checkit:
if $init_obj = $actor's host then checkmat else end;
##checkmat:
if $second's material like '_living_' then noway else checkmat2;
##checkmat2:
if $second's material like '_player_' then noway else checkvals;
##noway:
sayto $init_obj,"You can only use this on objects!";
##checkvals:
$thlth = $second's health;
$tmana = $second's mana;
$tcode = $second's code;
runsub setvals;
##setvals:
$what = (rippling,bubbling,steaming,boiling,flowing);
print "[$actor] glows brightly, its surface $what!";
print "[$actor] takes on [$second]'s shape!";
set $actor's material to $second's material;
set $actor's health to $thlth;
set $actor's mana to $tmana;
set $actor's colour to $second's colour;
code $actor as $second;
set $actor's extra to 'The rod is now in the shape of $second';