eA.ws Reference
SQL
create table hourly_announcer (
id tinyint(4) unsigned primary key,
message varchar(211)
) engine = myisam;
eA script
prontera,154,188,5 script announcera 100,{
if ( getgmlevel() < 99 ) end;
set .@nb, query_sql("select * from hourly_announcer order by id", .@id, .@msg$);
if ( .@nb == 0 ) mes " ";
for ( set .@i, 0; .@i < .@nb; set .@i, .@i +1 )
mes "^FF0000"+ .@id[.@i] +". ^000000"+ .@msg$[.@i];
next;
set .@i, select("1:2:3:4:5:6:7:8:9:test");
if ( .@i == 10 ) goto OnMinute00;
do {
set .@tmp, .@tmp +1 ;
input getd(".@tmp"+ .@tmp +"$");
} while ( getstrlen( getd(".@tmp"+ .@tmp +"$") ) > 50 && .@tmp < 3 );
if ( .@tmp1$ == " " )
query_sql "delete from hourly_announcer where id = "+ .@i;
else
query_sql "replace into hourly_announcer values ( "+ .@i +", '"+ escape_sql(.@tmp1$) + escape_sql(.@tmp2$) + escape_sql(.@tmp3$) +"' )";
close;
OnMinute00:
announce "The Server Time is Now "+ gettime(3) + gettimestr(":%M %p",10), 16;
sleep 2500;
set .@nb, query_sql("select message from hourly_announcer order by id", .@msg$);
for ( set .@i, 0; .@i < .@nb; set .@i, .@i +1 ) {
announce .@msg$[.@i], 16;
sleep 2500;
}
end;
}
Problem is :
While I use the "Test" the window remains there.
I m not getting how to get the close button on it.
More enhancement to this if possible