void main()
{

    object oPC=GetFirstPC();
    object oMod = GetModule();
    int nPC = 1;
    SetCustomToken(42001,"");
    SetCustomToken(42002,"");
    SetCustomToken(42003,"");
    SetCustomToken(42004,"");
    SetCustomToken(42005,"");
    SetCustomToken(42006,"");
    SetCustomToken(42007,"");
    SetCustomToken(42008,"");
    SetCustomToken(42009,"");
    SetCustomToken(42010,"");
    SetCustomToken(42011,"");
    SetCustomToken(42012,"");
    SetLocalLocation(oMod,"rezloc",GetLocation(GetPCSpeaker()));
    SetLocalInt(oMod,"dpc1",0);
    SetLocalInt(oMod,"dpc2",0);
    SetLocalInt(oMod,"dpc3",0);
    SetLocalInt(oMod,"dpc4",0);
    SetLocalInt(oMod,"dpc5",0);
    SetLocalInt(oMod,"dpc6",0);
    SetLocalInt(oMod,"dpc7",0);
    SetLocalInt(oMod,"dpc8",0);
    SetLocalInt(oMod,"dpc9",0);
    SetLocalInt(oMod,"dpc10",0);
    SetLocalInt(oMod,"dpc11",0);
    SetLocalInt(oMod,"dpc12",0);
    SetLocalObject(oMod,"odpc1",OBJECT_INVALID);
    SetLocalObject(oMod,"odpc2",OBJECT_INVALID);
    SetLocalObject(oMod,"odpc3",OBJECT_INVALID);
    SetLocalObject(oMod,"odpc4",OBJECT_INVALID);
    SetLocalObject(oMod,"odpc5",OBJECT_INVALID);
    SetLocalObject(oMod,"odpc6",OBJECT_INVALID);
    SetLocalObject(oMod,"odpc7",OBJECT_INVALID);
    SetLocalObject(oMod,"odpc8",OBJECT_INVALID);
    SetLocalObject(oMod,"odpc9",OBJECT_INVALID);
    SetLocalObject(oMod,"odpc10",OBJECT_INVALID);
    SetLocalObject(oMod,"odpc11",OBJECT_INVALID);
    SetLocalObject(oMod,"odpc12",OBJECT_INVALID);

    while (GetIsObjectValid(oPC))
    {
        if (GetTag(GetArea(oPC))=="FuguePlane")
        {
        switch (nPC)
        {
            case 1: SetCustomToken(42001,GetName(oPC)); SetLocalInt(oMod,"dpc1",1); SetLocalObject(oMod,"odpc1",oPC); break;
            case 2: SetCustomToken(42002,GetName(oPC)); SetLocalInt(oMod,"dpc2",1); SetLocalObject(oMod,"odpc2",oPC); break;
            case 3: SetCustomToken(42003,GetName(oPC)); SetLocalInt(oMod,"dpc3",1); SetLocalObject(oMod,"odpc3",oPC); break;
            case 4: SetCustomToken(42004,GetName(oPC)); SetLocalInt(oMod,"dpc4",1); SetLocalObject(oMod,"odpc4",oPC); break;
            case 5: SetCustomToken(42005,GetName(oPC)); SetLocalInt(oMod,"dpc5",1); SetLocalObject(oMod,"odpc5",oPC); break;
            case 6: SetCustomToken(42006,GetName(oPC)); SetLocalInt(oMod,"dpc6",1); SetLocalObject(oMod,"odpc6",oPC); break;
            case 7: SetCustomToken(42007,GetName(oPC)); SetLocalInt(oMod,"dpc7",1); SetLocalObject(oMod,"odpc7",oPC); break;
            case 8: SetCustomToken(42008,GetName(oPC)); SetLocalInt(oMod,"dpc8",1); SetLocalObject(oMod,"odpc8",oPC); break;
            case 9: SetCustomToken(42009,GetName(oPC)); SetLocalInt(oMod,"dpc9",1); SetLocalObject(oMod,"odpc9",oPC); break;
            case 10: SetCustomToken(42010,GetName(oPC)); SetLocalInt(oMod,"dpc10",1); SetLocalObject(oMod,"odpc10",oPC); break;
            case 11: SetCustomToken(42011,GetName(oPC)); SetLocalInt(oMod,"dpc11",1); SetLocalObject(oMod,"odpc11",oPC); break;
            case 12: SetCustomToken(42012,GetName(oPC)); SetLocalInt(oMod,"dpc12",1); SetLocalObject(oMod,"odpc12",oPC); break;
        }
        nPC=nPC+1;
        }
        oPC=GetNextPC();
    }
}