void main()
{
        object oTarget = GetPCSpeaker();
        int nLevels   = 5;
        int nOrigXP   = GetXP(oTarget);
        int nOrigHD   = GetHitDice(oTarget);
        int nTargetHD = nOrigHD - nLevels;
        SetXP(oTarget, ((nTargetHD * (nTargetHD - 1)) / 2) * 1000);
        // Schedule the OnLevelDown virtual event to be run right away
        SetLocalInt(oTarget, "PRC_OnLevelDown_OldLevel", nOrigHD);
        DelayCommand(0.0f, ExecuteScript("prc_onleveldown", oTarget));
        SetXP(oTarget, nOrigXP);
        TakeGoldFromCreature (25000, oTarget);
}