#include "rd_questinc"

void main()
{
TakeGoldFromCreature(1000, GetPCSpeaker(), TRUE);
SetPartyInt(GetPCSpeaker(),"GrayDepths",1);
SetPartyString(GetPCSpeaker(),"P3Exit",GetTag(OBJECT_SELF));
}