void main()
{
   object oPC=GetPCSpeaker();
   object oMe=OBJECT_SELF;
   int nGoldGiven=GetLocalInt(oPC,"nGoldGiven");
   if (nGoldGiven<0)
   { // take gold
     nGoldGiven=-nGoldGiven;
     AssignCommand(oPC,TakeGoldFromCreature(nGoldGiven,oMe));
   } // take gold
   else if (nGoldGiven>0)
   { // give gold
     AssignCommand(oMe,TakeGoldFromCreature(nGoldGiven,oPC));
   } // give gold
   DeleteLocalInt(oPC,"nGoldGiven");
   DeleteLocalInt(oMe,"nStartingGold");
}