Tribe/Clan System edit

STARTINGMAP,XXX,YYY,Z	script	Welcome to XXXX RO	100,{
set .@serv$,"XXX RO";// CHANGE THE SERVER NAME!!!!!
set .@n$,"^0000FF[ Welcome to "+.@serv$+" ]^000000";
set @charname$,""+strcharinfo(0)+"";
set @charid$,""+getcharid(0)+"";
if(tribechange==1) {
mes .@n$;
mes "Okay I'm going to warp you!";
next;
warp "belagio",91,41;
end;
close;
}
mes .@n$;
mes "Hello "+strcharinfo(0)+",welcome";
mes "to "+.@serv$+",have fun!";
next;
mes .@n$;
mes "You can choose a Clan,";
mes "which you want to join.";
next;
mes .@n$;
mes "Now choose the Clan,which";
mes "you want to join.";
next;
switch(select("Light Army:Dark Army")) {
	case 1:
	mes .@n$;
	mes "Okay,changing your name!";
	query_sql "UPDATE `char` SET name='[Light Army] "+ escape_sql(@charname$) + "' WHERE `char_id`="+escape_sql(@charid$)+"";
	next;
	mes .@n$;
	mes "Your name is changed.";
	mes "I'll kick you and after";
	mes "You login again,I'll warp you.";
	set tribechange,1;
	next;
	atcommand "@kick "+strcharinfo(0)+"";
	end;
	close;
	case 2:
	mes .@n$;
	mes "Okay,changing your name!";
	query_sql "UPDATE `char` SET name='[Dark Army] "+ escape_sql(@charname$) + "' WHERE `char_id`="+escape_sql(@charid$)+"";
	next;
	mes .@n$;
	mes "Your name is changed.";
	mes "I'll kick you and after";
	mes "You login again,I'll warp you.";
	set tribechange,1;
	next;
	atcommand "@kick "+strcharinfo(0)+"";
	end;
	close;
	}
}