void main()
{
object oPC = GetItemActivator();

if (!GetIsPC(GetItemActivatedTarget())
){

SendMessageToPC(GetItemActivator(), "Improper use of item!");
return;}

if (GetGold(oPC) >= 100000)
   {
   oPC = GetItemActivatedTarget();

   CreateItemOnObject("freeborntelering", oPC);

   oPC = GetItemActivator();

   AssignCommand(oPC, TakeGoldFromCreature(99999, oPC, TRUE));

   }
}