void main()
{
    object oPC = GetPCSpeaker();

    int i = GetLocalInt(oPC,"wizTPCtr");

    if(GetLocalInt(oPC,"wizTPBack"))
        i = i-4;

    int j;
    int b = FALSE;

    string color = GetLocalString(oPC,"wizTPColor");

    object wizTP = GetObjectByTag("wiztp_"+color,i);

    for(j = 791; j < 795; j++)
    {
        if(wizTP != OBJECT_INVALID)
        {
            SetLocalObject(oPC,"wizTP"+IntToString(j),wizTP);
            SetCustomToken(j,GetName(GetArea(wizTP)));
            b = TRUE;
        }

        SetLocalInt(oPC,"wizTP"+IntToString(j),b);

        i=i+1;
        b=FALSE;

        wizTP = GetObjectByTag("wiztp_"+color,i);
    }

    if((i%5) != 4)
        i=0;

    SetLocalInt(oPC,"wizTPCtr",i);

    return;
}