void main()
{
object oPC;
oPC = GetPCSpeaker();
int nLvl;
nLvl= GetHitDice(oPC);
int dGold;
dGold = nLvl * 1000;

TakeGoldFromCreature(dGold, oPC, TRUE);
AdjustAlignment(oPC, ALIGNMENT_CHAOTIC, 50);
}