// pelben_c_complet
void main()
{
   object oPC=GetPCSpeaker();
   object oMod=GetModule();
   int nQuests=GetLocalInt(oPC,"nQuests");
   object oOb;
   nQuests++;
   GiveGoldToCreature(oPC,5000);
   SetLocalInt(oPC,"nQuests",nQuests);
   AddJournalQuestEntry("portelben",3,oPC,FALSE,FALSE);
   oOb=GetFirstPC();
   while(oOb!=OBJECT_INVALID)
   { // journal
     if (oOb!=oPC) AddJournalQuestEntry("portelben",5,oOb,FALSE,FALSE);
     oOb=GetNextPC();
   } // journal
   SetLocalInt(oMod,"bPelbenQuestCleared",TRUE);
   oOb=GetItemPossessedBy(oPC,"rts_plotear");
   DestroyObject(oOb);
}