##tickhour2:
runsub breakitdown;

##breakitdown:
$destructee = $actor's host;
if $destructee's class = player then nocando else chkbdwn1;
##chkbdwn1:
if $destructee's pwd = '' then chkbdwn2 else nocando;
##chkbdwn2:
if $destructee's info = '' then chkbdwn3 else nocando;
##chkbdwn3:
if $destructee's code = '' then chkhlth else nocando;
##chkhlth:
if $destructee's health < 1 then destructit else breakdownnow;
##destructit:
set $destructee's name to '';
set $destructee's class to 'pile of dust';
set $destructee's pclass to 'piles of dust';
set $destructee's info to 'All that remains of this item is a pile of dust';
##breakdownnow:
$dhlth = $destructee's health;
take 1 from $dhlth;
set $destructee's health to $dhlth;