void main()
{
    if(GetXP(GetPCSpeaker()) < 189999)
    {
        if(GetGold(GetPCSpeaker()) > 4000)
        {
            object oItem = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, GetPCSpeaker());
            if(!GetWeaponRanged(oItem))
            {
                object oRight = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, GetPCSpeaker());
                if(GetIsObjectValid(oRight))
                {
                    object oPc = GetPCSpeaker();
                    object oBuffer = GetObjectByTag("bq_bufswf");
                    DelayCommand(0.1, AssignCommand(oBuffer, ActionCastSpellAtObject(SPELL_DARKFIRE, oPc, METAMAGIC_ANY, TRUE, 20, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));
                    DelayCommand(0.1, TakeGoldFromCreature(4000, oPc, TRUE));
                }
                else
                {
                    SendMessageToPC(GetPCSpeaker(), "You use fists or don't wield weapon... I can't help you.");
                }
            }
            else
            {
                    SendMessageToPC(GetPCSpeaker(), "You wield ranged weapon...");
            }
        }
        else
        {
            SendMessageToPC(GetPCSpeaker(), "You don't have enough money...");
        }
    }
    else
    {
        SendMessageToPC(GetPCSpeaker(), "You are too high level...");
    }
}