var Messages = new Array('［日米がＴＰＰ初協議］訪米した政府の代表団は日本の環太平洋連携協定（ＴＰＰ）交渉参加に向け、米国と初の事前協議。','［雪まつりで負傷の女性は骨盤骨折］「さっぽろ雪まつり」会場で、雪像が崩れて負傷した女性は骨盤骨折の重傷だったことが分かった。','［ギリシャ、ユーロ圏離脱も］ギリシャがユーロ圏から離脱しても、単一通貨ユーロは崩壊しないとＥＵ欧州委員会の副委員長。','［シリアで９７人以上死亡］シリアのアサド政権治安部隊は西部ホムスなどで攻撃を加え、死者は少なくとも９７人に達した。','［雪まつりの雪像崩れ女性軽傷］「さっぽろ雪まつり」関係者によると、大通公園の会場で小型の雪像が崩れ女性が腰を打って軽傷。');
var MsgID=0;
var ScrlPoint=0;
var ScrlInc=4;
var ScrlInterval=1000;
var MsgInterval=5000;
var TID;
function dispatch(Msg) {
var nextMsg;
var interval=ScrlInterval;
if ( TID ) clearTimeout( TID );
if ( Msg == 'SetMsgID' ) {
MsgID = MsgID % Messages.length;
interval=0;
nextMsg = 'SetMsg';
}
else if ( Msg == 'IncMsgID' ) {
MsgID++;
interval=0;
nextMsg = 'SetMsgID';
}
else if ( Msg == 'SetMsg' ) {
setMessage(Messages[MsgID]);
interval = MsgInterval;
nextMsg = 'Scroll';
}
else if ( Msg = 'Scroll' ) {
setMessage(Messages[MsgID].substring(ScrlPoint,Messages[MsgID].length));
if ( ScrlPoint < Messages[MsgID].length ) {
ScrlPoint+=ScrlInc;
nextMsg = 'Scroll';
}
else {
ScrlPoint = 0;
nextMsg = 'IncMsgID';
}
}
TID = setTimeout("dispatch('"+nextMsg+"')",interval);
}
function Init() {ScrlInc=1;ScrlInterval=300;MsgInterval=2000;dispatch('SetMsgID');}
function setMessage(msg) {document.bar_form.flash_letter.value = msg;}