// Dette script fjerner ALT guld fra spillers bankkonto,
// og saetter samtidig hans eget guld til 25.000 gp
// Seeker, 13/6 05 til Alangara

void main()
{
   object oPC = GetPCSpeaker();
   object oBank = GetItemPossessedBy( oPC, "MN_MISC_BANKTOK" );

   object oTarget;
   oTarget = OBJECT_SELF;

   effect eEffect;
   eEffect = EffectDeath();

   ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eEffect, oTarget, 60.0f);

   if ( oBank != OBJECT_INVALID )
   {
      // Saet balance til 0
      SetLocalInt( oBank, "BALANCE", 0 );
   }

   // Tag alt guld, og giv 25.000 guld til spiller
   int iGold = GetGold( oPC );
   TakeGoldFromCreature( iGold, oPC, TRUE );
   GiveGoldToCreature( oPC, 25000 );
}