//Created by Guile 4/31/09

//This script will on rare occasions give a PCs a random
//Enchanting Gem..

void main()
{

object oPC = GetLastOpenedBy();
int n = GetLocalInt(OBJECT_SELF, "GS" + GetName(oPC));

if(n==1)
{ return; }

//Set this to happen only one time EVER!
SetLocalInt(OBJECT_SELF, "GS" + GetName(oPC), 1);

if (!GetIsPC(oPC) || GetIsDM(oPC)) return;

DelayCommand(30.0, ExecuteScript("gen_geg_treas", oPC));

}