void main()
{

object oPC = GetEnteringObject();

if (!GetIsPC(oPC)) return;

int DoOnce = GetCampaignInt("money_remove",GetTag(OBJECT_SELF),oPC);
if (DoOnce==1) return;

  int iGold = GetGold(oPC);
  if(iGold>1000000)
  {
  AssignCommand(oPC, TakeGoldFromCreature(iGold-1000000, oPC, TRUE));
  SendMessageToPC(oPC,"Excess funds removed.");
  SetCampaignInt("money_remove",GetTag(OBJECT_SELF),1,oPC);
  }
  else return;
}