// set tome of rebirth cost
void main()
{
   int nParm=GetLocalInt(GetPCSpeaker(),"nParm");
   object oMod=GetModule();
   int nAmount=500;
   if (nParm==1) nAmount=1000;
   else if (nParm==2) nAmount=750;
   else if (nParm==4) nAmount=200;
   else if (nParm==5) nAmount=100;
   else if (nParm==6) nAmount=50;
   SetLocalInt(oMod,"nTOMEREBIRTH",nAmount);
}