void SetAlphaName(object oPC);

void main()
{

object oPC = GetModuleItemAcquiredBy();

object oItem;
oItem = GetModuleItemAcquired();


if (GetLocalInt(oPC, "aq_"+GetTag(oItem))) return;

SetLocalInt(oPC, "aq_"+GetTag(oItem), TRUE);

if(GetItemPossessedBy(oPC, "guildpass")!=OBJECT_INVALID)
{
 DelayCommand(0.1, SetAlphaName(oPC));
}
//If they don't have a guild pass...
else
{
 object oTag;
 oTag = GetFirstItemInInventory(oPC);
 while(GetIsObjectValid(oTag))
 {
  if(GetTag(oTag)=="guildstone")
  {
   DestroyObject(oTag,0.0f);
  }
  oTag = GetNextItemInInventory(oPC);
 }

}

}

void SetAlphaName(object oPC)
{

//Define Variables..
int a, b, c, d, e;
string nAlpha;
string nAlpha1;
string nAlpha2;
string nAlpha3;
string nAlpha4;
int l;
int m;
int n;
int o;
int p;
int nNumeric;
string sString;
string sSaved;
string sNew;
object oTarget = GetItemPossessedBy(oPC, "guildstone");

if(GetStringLeft(GetName(oTarget),2)!="ID")
{
 //Define the vairables in the loop..
 a = Random(25);
 b = Random(25);
 c = Random(25);
 d = Random(25);
 e = Random(25);

  //Random # to use
 l = d8(1);
 m = d8(1);
 n = d8(1);
 o = d8(1);
 p = d8(1);

//The Alphabet..
switch (a)
{
 case 0: nAlpha = "a"; break;
 case 1: nAlpha = "b"; break;
 case 2: nAlpha = "c"; break;
 case 3: nAlpha = "d"; break;
 case 4: nAlpha = "e"; break;
 case 5: nAlpha = "f"; break;
 case 6: nAlpha = "g"; break;
 case 7: nAlpha = "h"; break;
 case 8: nAlpha = "i"; break;
 case 9: nAlpha = "j"; break;
 case 10: nAlpha = "k"; break;
 case 11: nAlpha = "l"; break;
 case 12: nAlpha = "m"; break;
 case 13: nAlpha = "n"; break;
 case 14: nAlpha = "o"; break;
 case 15: nAlpha = "p"; break;
 case 16: nAlpha = "q"; break;
 case 17: nAlpha = "r"; break;
 case 18: nAlpha = "s"; break;
 case 19: nAlpha = "t"; break;
 case 20: nAlpha = "u"; break;
 case 21: nAlpha = "v"; break;
 case 22: nAlpha = "w"; break;
 case 23: nAlpha = "x"; break;
 case 24: nAlpha = "y"; break;
 case 25: nAlpha = "z"; break;
}

//The Alphabet..
switch (a)
{
 case 0: nAlpha = "a"; break;
 case 1: nAlpha = "b"; break;
 case 2: nAlpha = "c"; break;
 case 3: nAlpha = "d"; break;
 case 4: nAlpha = "e"; break;
 case 5: nAlpha = "f"; break;
 case 6: nAlpha = "g"; break;
 case 7: nAlpha = "h"; break;
 case 8: nAlpha = "i"; break;
 case 9: nAlpha = "j"; break;
 case 10: nAlpha = "k"; break;
 case 11: nAlpha = "l"; break;
 case 12: nAlpha = "m"; break;
 case 13: nAlpha = "n"; break;
 case 14: nAlpha = "o"; break;
 case 15: nAlpha = "p"; break;
 case 16: nAlpha = "q"; break;
 case 17: nAlpha = "r"; break;
 case 18: nAlpha = "s"; break;
 case 19: nAlpha = "t"; break;
 case 20: nAlpha = "u"; break;
 case 21: nAlpha = "v"; break;
 case 22: nAlpha = "w"; break;
 case 23: nAlpha = "x"; break;
 case 24: nAlpha = "y"; break;
 case 25: nAlpha = "z"; break;
}
//The Alphabet..
switch (b)
{
 case 0: nAlpha1 = "a"; break;
 case 1: nAlpha1 = "b"; break;
 case 2: nAlpha1 = "c"; break;
 case 3: nAlpha1 = "d"; break;
 case 4: nAlpha1 = "e"; break;
 case 5: nAlpha1 = "f"; break;
 case 6: nAlpha1 = "g"; break;
 case 7: nAlpha1 = "h"; break;
 case 8: nAlpha1 = "i"; break;
 case 9: nAlpha1 = "j"; break;
 case 10: nAlpha1 = "k"; break;
 case 11: nAlpha1 = "l"; break;
 case 12: nAlpha1 = "m"; break;
 case 13: nAlpha1 = "n"; break;
 case 14: nAlpha1 = "o"; break;
 case 15: nAlpha1 = "p"; break;
 case 16: nAlpha1 = "q"; break;
 case 17: nAlpha1 = "r"; break;
 case 18: nAlpha1 = "s"; break;
 case 19: nAlpha1 = "t"; break;
 case 20: nAlpha1 = "u"; break;
 case 21: nAlpha1 = "v"; break;
 case 22: nAlpha1 = "w"; break;
 case 23: nAlpha1 = "x"; break;
 case 24: nAlpha1 = "y"; break;
 case 25: nAlpha1 = "z"; break;
}
//The Alphabet..
switch (c)
{
 case 0: nAlpha2 = "a"; break;
 case 1: nAlpha2 = "b"; break;
 case 2: nAlpha2 = "c"; break;
 case 3: nAlpha2 = "d"; break;
 case 4: nAlpha2 = "e"; break;
 case 5: nAlpha2 = "f"; break;
 case 6: nAlpha2 = "g"; break;
 case 7: nAlpha2 = "h"; break;
 case 8: nAlpha2 = "i"; break;
 case 9: nAlpha2 = "j"; break;
 case 10: nAlpha2 = "k"; break;
 case 11: nAlpha2 = "l"; break;
 case 12: nAlpha2 = "m"; break;
 case 13: nAlpha2 = "n"; break;
 case 14: nAlpha2 = "o"; break;
 case 15: nAlpha2 = "p"; break;
 case 16: nAlpha2 = "q"; break;
 case 17: nAlpha2 = "r"; break;
 case 18: nAlpha2 = "s"; break;
 case 19: nAlpha2 = "t"; break;
 case 20: nAlpha2 = "u"; break;
 case 21: nAlpha2 = "v"; break;
 case 22: nAlpha2 = "w"; break;
 case 23: nAlpha2 = "x"; break;
 case 24: nAlpha2 = "y"; break;
 case 25: nAlpha2 = "z"; break;
}
//The Alphabet..
switch (d)
{
 case 0: nAlpha3 = "a"; break;
 case 1: nAlpha3 = "b"; break;
 case 2: nAlpha3 = "c"; break;
 case 3: nAlpha3 = "d"; break;
 case 4: nAlpha3 = "e"; break;
 case 5: nAlpha3 = "f"; break;
 case 6: nAlpha3 = "g"; break;
 case 7: nAlpha3 = "h"; break;
 case 8: nAlpha3 = "i"; break;
 case 9: nAlpha3 = "j"; break;
 case 10: nAlpha3 = "k"; break;
 case 11: nAlpha3 = "l"; break;
 case 12: nAlpha3 = "m"; break;
 case 13: nAlpha3 = "n"; break;
 case 14: nAlpha3 = "o"; break;
 case 15: nAlpha3 = "p"; break;
 case 16: nAlpha3 = "q"; break;
 case 17: nAlpha3 = "r"; break;
 case 18: nAlpha3 = "s"; break;
 case 19: nAlpha3 = "t"; break;
 case 20: nAlpha3 = "u"; break;
 case 21: nAlpha3 = "v"; break;
 case 22: nAlpha3 = "w"; break;
 case 23: nAlpha3 = "x"; break;
 case 24: nAlpha3 = "y"; break;
 case 25: nAlpha3 = "z"; break;
}
//The Alphabet..
switch (e)
{
 case 0: nAlpha4 = "a"; break;
 case 1: nAlpha4 = "b"; break;
 case 2: nAlpha4 = "c"; break;
 case 3: nAlpha4 = "d"; break;
 case 4: nAlpha4 = "e"; break;
 case 5: nAlpha4 = "f"; break;
 case 6: nAlpha4 = "g"; break;
 case 7: nAlpha4 = "h"; break;
 case 8: nAlpha4 = "i"; break;
 case 9: nAlpha4 = "j"; break;
 case 10: nAlpha4 = "k"; break;
 case 11: nAlpha4 = "l"; break;
 case 12: nAlpha4 = "m"; break;
 case 13: nAlpha4 = "n"; break;
 case 14: nAlpha4 = "o"; break;
 case 15: nAlpha4 = "p"; break;
 case 16: nAlpha4 = "q"; break;
 case 17: nAlpha4 = "r"; break;
 case 18: nAlpha4 = "s"; break;
 case 19: nAlpha4 = "t"; break;
 case 20: nAlpha4 = "u"; break;
 case 21: nAlpha4 = "v"; break;
 case 22: nAlpha4 = "w"; break;
 case 23: nAlpha4 = "x"; break;
 case 24: nAlpha4 = "y"; break;
 case 25: nAlpha4 = "z"; break;
}

int nTimes = Random(4);

//Randomnize an order..
if(nTimes ==0)
{
 sNew = nAlpha + IntToString(l);
 sNew += nAlpha1 + IntToString(m);
 sNew += nAlpha2 + IntToString(n);
 sNew += nAlpha3 + IntToString(o);
 sNew += nAlpha4 + IntToString(p);
}
else if(nTimes==1)
{
 sNew = nAlpha4 + IntToString(p);
 sNew += nAlpha3 + IntToString(o);
 sNew += IntToString(n) + nAlpha2;
 sNew += nAlpha1 + IntToString(m);
 sNew += IntToString(l) + nAlpha;
}
else if(nTimes==2)
{
 sNew = nAlpha1 + IntToString(l);
 sNew += IntToString(o) + nAlpha4;
 sNew += IntToString(p) + nAlpha3 ;
 sNew += nAlpha2 + IntToString(m);
 sNew += nAlpha + IntToString(n) ;
}
else
{
 sNew = nAlpha1 + IntToString(l);
 sNew += IntToString(m) + nAlpha3;
 sNew += IntToString(n) + nAlpha;
 sNew += nAlpha4 + IntToString(o);
 sNew += nAlpha2 + IntToString(o);
}

//Set the name of the guild stone one time!
 SetName(oTarget, "ID" + sNew);
}

//END PROTOTYPE
}