* king-pay
%o% owed(%name%);
if ( greater(%o%,0),
    {
    pay(%actor%,%o%);
    addowed(%name%,sub(0,%o%));
    do({:pays a reward of %o% gold.});
    do({'Your service to the crown is amiably noted, %name%.});
    history(%name%,{%name% is rewarded by the king for service to the crown.});
   },
   {
     goto(inform);
   }
 );
goto(end);
label(inform);
wait(30);
do({look %name%});
wait(50);
do({'To seek a reward, find and slay the rogue king Hardial Bains.});
wait(10);
do({'Perhaps only then will his reign of bullduggery will bother us no longer!  He is wanted for treason and attempted murder on myself, Lord Coranos Rygor!});
label(end);