

//--------------------------------
//07-06-14 ޸ѡֵжϷʽǷԵļ¼ʽ by ع(infixman)
//06-28-08 ʾʱ
//06-27-08 Ƿж
//06-26-08 

//˵
//	$used[]		--	ʹcharid	--ȫ
//	$message_name$[]--		--ȫִ
//	$message$[]	--			--ȫִ
//	$aa$[]		--		--ȫִ
//	$m_year[]	--	 		--ȫ
//	$m_month[]	--	     		--ȫ
//	$m_day[]	--	     		--ȫ
//	$m_hour[]	--	     ʱ		--ȫ
//	$m_min[]	--	     		--ȫ
//	$m_num[]	--	ڼ	--ȫ
//	@w		--	ڼ	--ݴɫ(Ȧ
//	@line[]		--		--ݴɫ
//	$boardmax(1~127)--	Դ	--ȫ
//	$boardmoney	--	շ		--ݴȫ
//	$gm_charid	--	GMʺID	--ȫ

prontera.gat,156,185,4	script	԰	857,{

//----------------
set $boardmax,30;	//޸1~127
set $boardmoney,1000;	//˴޸շѼǮ
set $gm_charid,2000001;	//˴޸GMʺID
//----------------

mes "===ӭʹ԰===";
mes "һǹ";
mes "ʹýܴ";
mes "һʺֻܱһ";
mes "ġÿ " + $boardmoney + " Zeny";
for ( set @w,1; @w<=$boardmax; set @w,@w+1 ){
	if (getcharid(3)==$gm_charid) {
		menu "ۿ",look,"",MMM,"ɾҵ",del,"ɾָ",delnum,"ɾȫ",Alldel;
	} else if ($used[@w]==getcharid(3)) {
		menu "ۿ",look,"ɾҵ",del;
	} else {
		menu "ۿ",look,"",MMM;
	}
}

//
MMM:
	next;
	if( zeny < $boardmoney ){
		mes "ϲǮ";
		goto ok;
	}
	set zeny,zeny-$boardmoney;
	set @ty,select("","");
	set @t,1;
	for ( set @w,1; @w<=$boardmax; set @w,@w+1 ){

		if( $message_name$[@w] == ""){ 
  			mes "";
			input $message$[@w];
  			next;
  			setarray $m_year[@w],gettime(7);
  			setarray $m_month[@w],gettime(6);
  			setarray $m_day[@w],gettime(5);
  			setarray $m_hour[@w],gettime(3);
  			setarray $m_min[@w],gettime(2);
  			setarray $message_name$[@w],strcharinfo(0);
  			setarray $m_num[@w],@w;

  			if (@ty == 1) setarray $aa$[@w],"^339933^000000]";
  			if (@ty == 2) setarray $aa$[@w],"]";

  			mes "[" + $m_num[@w] + "]^3355FF[" + $message_name$[@w] + "]^000000";
  			mes "[" + $aa$[@w] + $message$[@w];
  			announce $message_name$[@w] + "һ",15; 
  			setarray $used[@w],getcharid(3);
  			goto ok;
  		}else{
  			set @t,@t+1;
  		}
	}

	if (@t >= $boardmax) mes "Ŀǰ԰"; close;

ok:
	close;

//ۿ

look:
	next;
	set @t,0;
	for ( set @w,1; @w<=$boardmax; set @w,@w+1 ){

  		if( $message_name$[@w] != ""){

			if (getcharid(3,$message_name$[@w]) <= 0){	//ж?
	  			setarray @line$[@w],"^FF0000Offline^000000";
			}else{
	  			setarray @line$[@w],"^0000FFOnline^000000";
			}
  			mes "[" + $m_num[@w] + "]^3355FF[" + $message_name$[@w] + "]^000000" + @line$[@w] ;
  			mes "[" + $aa$[@w] +$message$[@w];
  			mes "^FF0000--" + $m_year[@w] + "/" + $m_month[@w] + "/" + $m_day[@w] + " " + $m_hour[@w] + ":" + $m_min[@w] + "--^000000";
 		}else{
  			set @t,@t+1;
		}
	}

	if ( @t >= $boardmax ) mes "Ŀǰ"; close;

close;

//ɾԼ

del:
	next;
	for ( set @w,1; @w<=$boardmax; set @w,@w+1 ){

		if( $used[@w] == getcharid(3) ){
			mes "Ƿɾ?";
			mes "[" + $m_num[@w] + "]^3355FF[" + $message_name$[@w] + "]^000000";
			mes "[" + $aa$[@w] +$message$[@w];
			mes "^FF0000--" + $m_year[@w] + "/" + $m_month[@w] + "/" + $m_day[@w] + " " + $m_hour[@w] + ":" + $m_min[@w] + "--^000000";

			menu "",nono,"",-;

			setarray $m_year[@w],"";
			setarray $m_month[@w],"";
			setarray $m_day[@w],"";
			setarray $m_hour[@w],"";
			setarray $m_min[@w],"";
			setarray $message_name$[@w],"";
			setarray $message$[@w],"";
			setarray $aa$[@w],"";
			setarray $m_num[@w],0;
			setarray $used[@w],0;
			mes "ɾ";
			break;
  		}
	}
nono:
close;

//ɾָ

delnum:

	mes "ɾ";
	mes "0뿪";
	next;
	input @delnumber;
	next;
  
	if ( @delnumber==0 ) goto en;

	mes "Ƿɾ?";
	mes "[" + $m_num[@delnumber] + "]^3355FF[" + $message_name$[@delnumber] + "]^000000";
	mes "[" + $aa$[@delnumber] +$message$[@delnumber];
	mes "^FF0000--" + $m_year[@delnumber] + "/" + $m_month[@delnumber] + "/" + $m_day[@delnumber] + " " + $m_hour[@delnumber] + ":" + $m_min[@delnumber] + "--^000000";

	menu "",-,"",ddel;
en:
	close;
ddel:
	setarray $m_year[@delnumber],"";
	setarray $m_month[@delnumber],"";
	setarray $m_day[@delnumber],"";
	setarray $m_hour[@delnumber],"";
	setarray $m_min[@delnumber],"";
	setarray $message_name$[@delnumber],"";
	setarray $message$[@delnumber],"";
	setarray $aa$[@delnumber],"";
	setarray $m_num[@delnumber],0;
	setarray $used[@delnumber],0;
	mes "ɾ";
	close;





//ȫ

Alldel:
for ( set @w,1; @w<=$boardmax; set @w,@w+1 ){
	setarray $m_year[@w],"";
	setarray $m_month[@w],"";
	setarray $m_day[@w],"";
	setarray $m_hour[@w],"";
	setarray $m_min[@w],"";
	setarray $message_name$[@w],"";
	setarray $message$[@w],"";
	setarray $aa$[@w],"";
	setarray $m_num[@w],0;
	setarray $used[@w],0;
}
announce "԰",15; 
close;
end;

}