Erro Teleport guild

[admstyow 0]

This NPC was to teleport only players in the main castle of Prontera , more if the players have no guild he teleports also someone knows how to do it tranporta only mebros the guild main castle of Prontera?

Quote

 

prontera,150,150,5 script Guild Point 729,{

 

//------- NAME NPC -------------------------

set @name$,"[^ff0000 Guild Point ^000000]";

//------------------------------------------

//------- SET WARP CASTLES -----------------

set .@GID, getcastledata("prtg_cas01",1);

set .@GID2, getcastledata("prtg_cas04",1);

//------------------------------------------

 

mes @name$;

mes "Olá "+strcharinfo(0)+", tudo certo?";

mes "Para onde você quer ser levado?";

next;

switch(select("- Guild Point:- Guild Point Baby:- Cancelar")) {

 

        case 1:

        mes @name$;

        mes "Deixe-me checar se você pertence a guild dona do castelo";

        mes "Krienhild antes de te levar para lá...";

        next;

        if (getcharid(2) == getcastledata("prtg_cas01",1)) {

        mes @name$;

        mes "Tudo certinho "+strcharinfo(0)+", irei te";

        mes "teleportar agora...";

        sleep2 1000;

        warp "quiz_02",249,375;

        dispbottom "[Guild Point]: Bem Vindo(a) ao Point da Guild " + getguildname(.@GID) + ".";

        close2;

}

 

        else {

                mes @name$;

                mes "Lamento, somente os membros do clã";

                mes "^ff0000" + getguildname(.@GID) + "^000000.";

                mes "Tem direito de acessar a sala do clã. ";

                next;

                mes @name$;

                mes "Se você deseja ter acesso a sala,";

                mes "conquiste ^ff0000Krienhild^000000 e faça seu nome ser lembrado!";

                close;

        }

 

        case 2:

        if(Upper!=2) goto NOBABY;

        mes @name$;

        mes "Deixe-me checar se você pertence a guild dona do castelo";

        mes "Skoegul antes de te levar para lá...";

        next;

        if (getcharid(2) == getcastledata("prtg_cas04",1)) {

        mes @name$;

        mes "Tudo certinho "+strcharinfo(0)+", irei te";

        mes "teleportar agora...";

        sleep2 1000;

        warp "quiz_02",147,381;

        dispbottom "[Guild Point]: Bem Vindo(a) ao Point da Guild Baby "+getguildname(.@GID2)+".";

        close2;

}

        else {

                mes @name$;

                mes "Lamento, somente os membros do clã";

                mes "^ff0000" + getguildname(.@GID2) + "^000000.";

                mes "Tem direito de acessar a sala do clã. ";

                next;

                mes @name$;

                mes "Se você deseja ter acesso a sala,";

                mes "conquiste ^ff0000Skoegul^000000 e faça seu nome ser lembrado!";

                close;

}

        NOBABY:

        mes @name$;

        mes "Desculpe mas eu estou encarregada de ajudar somente jogadores baby !";

        close;

       

        case 3:

        close;

        }

}