// gold 500 + tome of ancient evil
void main()
{
   object oMod=GetModule();
   int nTOAEU=GetLocalInt(oMod,"nTomeUses");
   int nCost=500+(500*nTOAEU);
   SetCustomToken(4152004,IntToString(nCost));
   SetLocalInt(OBJECT_SELF,"nGoldCost",nCost);
   SetLocalString(OBJECT_SELF,"sSeek","rts_it_mag42");
}