#include "database_inc"

void main()

{

object pres4PC = GetPCSpeaker();

if(GetGold(pres4PC)>4999)
{
TakeGoldFromCreature(5000, pres4PC, TRUE);
SetLocalInt(pres4PC, "X1_AllowHarper", 0);
DBSetPrestigePermisson (pres4PC,CLASS_TYPE_HARPER);
SendMessageToPC(pres4PC, "You have unlocked the Harper Scout Prestige Class. Please note that players with the Harper Scout prestige class are not necessarily considered members of the Harpers");
}
else
{
}
}