// https://rathena.org/board/topic/117458-channel-controller/#comment-353969

prontera,155,181,5	script	Sample	4_F_KAFRA1,{
	doevent "channel_setting_main::OnTalk";
}

-	script	channel_setting_main	-1,{
	
	OnInit:
		setarray .channel_list_name$, "#main", "#support";
		setarray .channel_list$, "#main", "#support";
		
		.channel_size = getarraysize(.channel_list$);
		end;
	
	OnTalk:
		mes "Hello "+strcharinfo(0);
		mes "Select the Chat Channel you wish to be in.";
		for (.@i = 0; .@i < .channel_size; .@i++)
			.@menu$ = .@menu$ + .channel_list_name$[.@i] + (#CHANNEL_SETTINGS & (1 << .@i) ? "[On]":"[Off]")  + (1 >> .@i) + ":";
		.@i = select(.@menu$) - 1;
		if (#CHANNEL_SETTINGS & (1 << .@i)) 
			#CHANNEL_SETTINGS -= (1 << .@i);
		else 
			#CHANNEL_SETTINGS |= (1 << .@i);
		mes "Setting updated.";
		close;
	
	OnPCLoginEvent:
		// sleep2 1000;
		while (.@i < .channel_size) {
			if (#CHANNEL_SETTINGS & (1 >> .@i))
				atcommand "@channel leave "+.channel_list$[.@i];
			.@i++;
		}
		end;

}