chan.txt

prontera,155,165,3	script	Channel Create	123,{
	mes "Please input channel name";
	input .@name$;
	mes "Please input channel alias";
	input .@alias$;
	switch(select("simple","with password","make me owner")) {
		case 1:
			.@res = channel_create(.@name$,.@alias$);
			break;
		case 2:
			mes "Please input channel password";
			input .@pass$;
			.@opt = CHAN_OPT_BASE|CHAN_OPT_ANNOUNCE_JOIN|CHAN_OPT_ANNOUNCE_LEAVE|CHAN_OPT_AUTOJOIN;
			mes "delay in ms";
			input .@delay;
			.@color = 0x3399FF;
			.@res = channel_create(.@name$,.@alias$,.@pass$,.@opt,.@delay,.@color);
			break;
		case 3:
			mes "Please input channel password";
			input .@pass$;
			.@opt = CHAN_OPT_BASE|CHAN_OPT_ANNOUNCE_JOIN|CHAN_OPT_ANNOUNCE_LEAVE|CHAN_OPT_AUTOJOIN;
			mes "delay in ms";
			input .@delay;
			.@color = 0x339933;
			.@res = channel_create(.@name$,.@alias$,.@pass$,.@opt,.@delay,.@color,getcharid(0));
			break;
	}

	mes "Result:"+.@res;
	close;
}}

prontera,155,168,3	script	Channel Delete	123,{
	mes "Please input channel name";
	input .@name$;
	.@res = channel_delete(.@name$);
	mes "Result:"+.@res;
	close;
}

prontera,152,165,3	script	Channel Chat	123,{
	mes "Please input channel name";
	input .@name$;
	mes "Please input channel message";
	input .@msg$;
	close2;
	.@res = channel_chat(.@name$,.@msg$);
	mes "Result:"+.@res;
	end;
}

prontera,160,165,3	script	Channel Kick	123,{
	mes "Please input channel name";
	input .@name$;
	mes "player name";
	input .@pname$;

	.@res = channel_kick(.@name$,.@pname$);
	mes "Result:"+.@res;
	close;
}

prontera,160,160,3	script	Channel Ban	123,{
	mes "Please input channel name";
	input .@name$;
	mes "player char id";
	input .@cid;

	.@res = channel_ban(.@name$,.@cid);
	mes "Result:"+.@res;
	close;
}

prontera,160,162,3	script	Channel Unban	123,{
	mes "Please input channel name";
	input .@name$;
	mes "player char id";
	input .@cid;

	.@res = channel_unban(.@name$,.@cid);
	mes "Result:"+.@res;
	close;
}

prontera,144,166,3	script	Set group	123,{
	mes "Please input channel name";
	input .@name$;
	mes "group 1";
	input .@group1;
	mes "group 2";
	input .@group2;
	mes "group 3";
	input .@group3;

	.@res = channel_setgroup(.@name$,.@group1,.@group2,.@group3);
	mes "Result:"+.@res;
	close;
}

prontera,144,164,3	script	Set group2	123,{
	mes "Please input channel name";
	input .@name$;
	mes "group 1";
	input .@group1;
	mes "group 2";
	input .@group2;
	mes "group 3";
	input .@group3;

	setarray .@groupArr[0],.@group1,.@group2,.@group3;

	.@res = channel_setgroup2(.@name$,.@groupArr);
	mes "Result:"+.@res;
	close;
}

prontera,149,165,3	script	Set Opt	123,{
	mes "Please input channel name";
	input .@name$;
	mes "new delay";
	input .@delay;
	mes "can leave?";
	input .@canleave;
	mes "color override?";
	input .@override;

	.@res1 = channel_setopt(.@name$,CHAN_OPT_MSG_DELAY,.@delay);
	.@res2 = channel_setopt(.@name$,CHAN_OPT_CAN_LEAVE,.@canleave);
	.@res3 = channel_setopt(.@name$,CHAN_OPT_COLOR_OVERRIDE,.@override);
	mes "Result:"+.@res1;
	mes "Result:"+.@res2;
	mes "Result:"+.@res3;
	close;
}

prontera,152,156,3	script	Set Color	123,{
	mes "Please input channel name";
	input .@name$;
	mes "color";
	input .@color;

	.@res = channel_setcolor(.@name$,.@color);
	mes "Result:"+.@res;
	close;
}

prontera,147,163,3	script	Change Pass	123,{
	mes "Please input channel name";
	input .@name$;
	switch(select("set pass","remove")) {
		case 1:
			mes "new password";
			input .@pass$;
			break;
		case 2:
			.@pass$ = "";
			break;
	}

	.@res = channel_setpass(.@name$,.@pass$);
	mes "Result:"+.@res;
	close;
}

prontera,149,169,3	script	ToFloatNPC	123,{
	.@res = channel_chat("#global","Hi..");
	mes "Result:"+.@res;
	end;
}

-	script	FloatChan 	-1,{
	OnChanChat:
		.@res1 = channel_chat("#global","One");
		.@res2 = channel_chat("#map","Two");
		.@res3 = channel_chat("payon","Three");
		debugmes "Result:"+.@res1;
		debugmes "Result:"+.@res2;
		debugmes "Result:"+.@res3;
		end;

	OnInit:
		bindatcmd "floatchan",strnpcinfo(0)+"::OnChanChat",0,99;
		end;
}