#include "x4_inc_functions"

void main()
{
    object oPC = GetPCSpeaker();
    int iGold = GetCampaignInt(CharacterDB(oPC), "BARTAB", oPC);
    if (GetGold(oPC) < iGold)
    {
        SpeakOneLinerConversation("Not enough on me. I'll settle later.", oPC);
        return;
    }
    TakeGoldFromCreature(iGold, oPC, TRUE);
    SetCampaignInt(CharacterDB(oPC), "BARTAB", 0, oPC);
    SetLocalInt(GetModule(), "ZORCOTABSWRITE", 1);
    if (iGold > 9) AdjustAlignment(oPC, ALIGNMENT_LAWFUL, 1);
}