* king-pay
if ( greater(owed(%aname%),0),
    {
    pay(%aname%,owed(%aname%));
    addowed(%aname%,sub(0,owed(%aname%)));
    do({:pays a reward.});
    do({'Your service to the crown is amiably noted, %aname%.});
    history(%aname%,{%aname% is rewarded by the king for service to the crown.});
   }
 );
