Erro Teleport guild

[admstyow]

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?

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;
        }
}

Edited January 3, 2015 by Emistry
codebox