/* tp_next
 * by dluan on jan 2003 */

void main()
{
    int nCount = 0;

    if (!GetLocalInt(OBJECT_SELF, "TP_TYPE")) {

        object oPlayer = GetLocalObject(OBJECT_SELF, "TP_CHAR");
        while (GetIsObjectValid(oPlayer) && nCount < 6) {
            if (oPlayer != OBJECT_SELF) {
                nCount++;
                SetCustomToken(2000+nCount, GetPCPlayerName(oPlayer));
                SetLocalObject(OBJECT_SELF, "TP_CUSTOM"+IntToString(nCount), oPlayer);
            }
            oPlayer = GetNextPC();
        }
        if (GetIsObjectValid(oPlayer)) {
            //SetCustomToken(2006, "Next.");
            SetLocalObject(OBJECT_SELF, "TP_CHAR", oPlayer);
        } else DeleteLocalObject(OBJECT_SELF, "TP_CHAR");
        SetLocalInt(OBJECT_SELF, "TP_ITEM", nCount);

    } else {

        object oArea;
        int    nArea = GetLocalInt(OBJECT_SELF, "TP_AREA");
        string sCount;
        if (nArea < 10)       sCount = "00"+IntToString(nArea);
        else if (nArea < 100) sCount = "0"+IntToString(nArea);
        else                  sCount = IntToString(nArea);
        string sArea = GetLocalString(GetModule(), "TP_TAGAREA_"+sCount);

        while (sArea != "" && nCount < 6) {
            nCount++;
            oArea = GetObjectByTag(sArea);
            SetCustomToken(2000+nCount, GetName(oArea));
            SetLocalObject(OBJECT_SELF, "TP_CUSTOM"+IntToString(nCount), oArea);
            nArea++;
            if (nArea < 10)       sCount = "00"+IntToString(nArea);
            else if (nArea < 100) sCount = "0"+IntToString(nArea);
            else                  sCount = IntToString(nArea);
            sArea = GetLocalString(GetModule(), "TP_TAGAREA_"+sCount);
        }

        if (sArea != "") {
            SetLocalInt(OBJECT_SELF, "TP_AREA", nArea);
        } else DeleteLocalInt(OBJECT_SELF, "TP_AREA");
        SetLocalInt(OBJECT_SELF, "TP_ITEM", nCount);

    }
}