// ***********************************************************************************************************************************
// News Flash Javascript Module
// Version 2.0.0
//
// Date Created:  2002-06-01 - appx
// Last Modified: 2009-06-16
//
// Requires: Common v1.1+
//
// Created by MeMSO of A Far Site Better
// (c) Copyright 2002 - 2009
if(typeof(INCLUDES)=='undefined')alert('Error! Common v1.1.0 or higher is required!');else if(VersionCompare('1.1.0',INCLUDES.common)==2)alert('Error! Common v1.1.0 or higher is required!');INCLUDES.pages_newsflash='2.0.0';var pgnFN='NewsFlashArticle';var NewsFlash;NewsFlash={Articles:[],ArticlesNum:0,NumPerPage:1,OuterID:'NewsFlashOuter',ClassItem:'NewsFlashItem',DisplayDelay:5000,FadeDelay:50,FadeSteps:10,DisplayFlags:0x0000,Internal:null};NewsFlash.Internal={MainTimeout:0,FirstArticle:0,ArticlesNumShown:0};var pgnFR1=0;ExecuteOnLoad(NewsFlash_Initialize);ExecuteOnUnLoad(NewsFlash_DeInitialize);function NewsFlash_Initialize(){pgnFR1|=0x02;NewsFlash.ArticlesNum=NewsFlash.Articles.length;if(!NewsFlash.ArticlesNum||(NewsFlash.ArticlesNum<=NewsFlash.NumPerPage&&!(NewsFlash.DisplayFlags&0x01))){pgnFR1&=~0x02;return ;}if(NewsFlash.DisplayFlags&0x04&&NewsFlash.ArticlesNum>NewsFlash.NumPerPage)NewsFlash.Internal.FirstArticle=Random(Math.floor(NewsFlash.ArticlesNum/NewsFlash.NumPerPage))*NewsFlash.NumPerPage;NewsFlash.Internal.ArticlesNumShown=((NewsFlash.ArticlesNum-NewsFlash.Internal.FirstArticle)>NewsFlash.NumPerPage)?NewsFlash.NumPerPage:(NewsFlash.ArticlesNum-NewsFlash.Internal.FirstArticle);if(User.InIE||User.DOM)pgnFR1|=0x0200;var _,_pw;for(_=0;_<NewsFlash.ArticlesNum;_++){if(NewsFlash.Articles[_][4]=='')continue;_pw='<a href="'+FormFix(NewsFlash.Articles[_][2])+'"';if(NewsFlash.Articles[_][3]!='')_pw+=' target="'+FormFix(NewsFlash.Articles[_][3])+'"';_pw+=' onclick="return PreventDefault(event);">'+NewsFlash.Articles[_][1]+'</a>';NewsFlash.Articles[_][1]=_pw;}pgnFR1|=0x01;pgnFR1&=~0x02;if(NewsFlash.DisplayFlags&0x01)NewsFlash_SwitchToNewsFinal();else if(NewsFlash.ArticlesNum>NewsFlash.NumPerPage)NewsFlash_MainTimeoutStart();}function NewsFlash_DeInitialize(){pgnFR1&=~0x01;NewsFlash_MainTimeoutKill();}function NewsFlash_SwitchToNewNews(_X){NewsFlash.Internal.MainTimeout=0;if(!(pgnFR1&0x01))return ;if(typeof(_X)!='number')_X=0;if(NewsFlash.ArticlesNum<=NewsFlash.NumPerPage){pgnFR1&=~0x01;return ;}if(_X&0x01){NewsFlash.Internal.FirstArticle-=NewsFlash.NumPerPage;if(NewsFlash.Internal.FirstArticle<0)NewsFlash.Internal.FirstArticle=NewsFlash.ArticlesNum-(NewsFlash.ArticlesNum%NewsFlash.NumPerPage)-1;}else {NewsFlash.Internal.FirstArticle+=NewsFlash.NumPerPage;if(NewsFlash.Internal.FirstArticle>=NewsFlash.ArticlesNum)NewsFlash.Internal.FirstArticle=0;}if((pgnFR1&0x0200)&&!(_X&0x02)){pgnFR1|=0x40;Effect_Start(NewsFlash.OuterID,EFFECT_CONTENTTYPE_CONTENT,EFFECT_DOFADEOUT,NewsFlash.FadeDelay,NewsFlash.FadeSteps,{oncomplete:NewsFlash_SwitchToNewsFinal});}else {pgnFR1|=0x10;NewsFlash_SwitchToNewsFinal();}}function NewsFlash_GetNewLink(_WQ,_Xrw){var _KlS;_KlS='<div id="'+pgnFN+_WQ+'" class="'+NewsFlash.ClassItem;if(!_Xrw)_KlS+=' First';_KlS+='"'+' onmouseover="SmartMouse(event, this, \'NewsFlash_ArticleMO('+_WQ+', 1);\', 1);"'+' onmouseout="SmartMouse(event, this, \'NewsFlash_ArticleMO('+_WQ+', 0);\', 0);"'+' onclick="NewsFlash_ArticleClick('+_WQ+');"'+'>';_KlS+=NewsFlash.Articles[_WQ][1];_KlS+='</div>';return _KlS;}function NewsFlash_SwitchToNewsFinal(){if(!(pgnFR1&0x01))return ;var _r2,_BvS='';if(NewsFlash.DisplayFlags&0x01)NewsFlash.DisplayFlags&=~0x01;pgnFR1&=~0x40;NewsFlash.Internal.ArticlesNumShown=0;for(_r2=0;_r2<NewsFlash.NumPerPage;_r2++){if(NewsFlash.Internal.FirstArticle+_r2>=NewsFlash.ArticlesNum)break;NewsFlash.Internal.ArticlesNumShown++;_BvS+=NewsFlash_GetNewLink(NewsFlash.Internal.FirstArticle+_r2,_r2);}if(pgnFR1&0x0200)SetStyle(NewsFlash.OuterID,'opacity',0);SetContent(NewsFlash.OuterID,_BvS);if((pgnFR1&0x0200)&&!(pgnFR1&0x10)){pgnFR1|=0x40;Effect_Start(NewsFlash.OuterID,EFFECT_CONTENTTYPE_CONTENT,EFFECT_DOFADEIN,NewsFlash.FadeDelay,NewsFlash.FadeSteps,{oncomplete:NewsFlash_MainTimeoutStart});}else {pgnFR1&=~0x10;NewsFlash_MainTimeoutStart();}}function NewsFlash_ArticleMO(_fbF,_KsG){if(NewsFlash.Articles[_fbF][4]=='')return ;var _sJs=NewsFlash.ClassItem;if(_KsG)_sJs+='MO';if(_fbF==NewsFlash.Internal.FirstArticle)_sJs+=' First';SetClass(pgnFN+_fbF,_sJs);}function NewsFlash_ArticleClick(_YH,_W){if(NewsFlash.Articles[_YH][4]=='')return ;SmartEval(NewsFlash.Articles[_YH][4]);}function NewsFlash_ButtonPress(_0j){if(!(pgnFR1&0x0100))return ;switch(_0j){case 0:if(pgnFR1&0x40)return ;NewsFlash_MainTimeoutKill();NewsFlash_SwitchToNewNews((NewsFlash.DisplayFlags&0x02)?0x03:0x01);break;case 1:if(pgnFR1&0x40)return ;NewsFlash_MainTimeoutKill();NewsFlash_SwitchToNewNews((NewsFlash.DisplayFlags&0x02)?0x02:0x00);break;case 2:if(!(pgnFR1&0x40))NewsFlash_MainTimeoutKill();pgnFR1^=0x20;if(!(pgnFR1&0x20)&&!(pgnFR1&0x40))NewsFlash_MainTimeoutStart();break;}}function NewsFlash_MainTimeoutKill(){if(!NewsFlash.Internal.MainTimeout)return ;clearTimeout(NewsFlash.Internal.MainTimeout);NewsFlash.Internal.MainTimeout=0;}function NewsFlash_MainTimeoutStart(){if(pgnFR1&0x20)return ;pgnFR1&=~0x40;var _n=0,_=0,_TCK,_W;_W=NewsFlash.Internal.FirstArticle;for(_TCK=0;_TCK<NewsFlash.NumPerPage&&_W<NewsFlash.ArticlesNum;_TCK++,_W++){_=NewsFlash.Articles[_W][5];if(!_)_=NewsFlash.DisplayDelay;_n+=_;}if(_n>0)NewsFlash.Internal.MainTimeout=setTimeout('NewsFlash_SwitchToNewNews();',_n);}