//:: FileName pay1000
// PC pays 1000 gp to NPC

void main()
{

    // Remove some gold from the player
    TakeGoldFromCreature(1000, GetPCSpeaker(), TRUE);
    CreateItemOnObject("lcatkey", GetPCSpeaker(), 1);
}