/****************************************************************************\
  Project     : AL-QURSU for WWW
  Language    : JavaScript Pur
  Autor       : (c) 1997, imam mujib
  Last Update : 12-08-1997
\****************************************************************************/

var WIN_AQ_JAVA = 'win_aqjava' // MainWindowName
var noCase = true

var maxSeq  = new MakeArray(
	0,7,293,493,669,789,954,1160,1235,1364,1473,
	1596,1707,1750,1802,1901,2029,2140,2250,2348,2483,
	2595,2673,2791,2855,2932,3159,3252,3340,3409,3469,
	3503,3533,3606,3660,3705,3788,3970,4058,4133,4218,
	4272,4325,4414,4473,4510,4545,4583,4612,4630,4675,
	4735,4784,4846,4901,4979,5075,5104,5126,5150,5163,
	5177,5188,5199,5217,5229,5241,5271,5323,5375,5419,
	5447,5475,5495,5551,5591,5622,5672,5712,5758,5800,
	5829,5848,5884,5909,5931,5948,5967,5993,6023,6043,
	6058,6079,6090,6098,6106,6125,6130,6138,6146,6157,
	6168,6176,6179,6188,6193,6197,6204,6207,6213,6216,
	6221,6225,6230,6236
);

var maxAyat = new MakeArray(
	7,286,200,176,120,165,206,75,129,109,
	123,111,43,52,99,128,111,110,98,135,
	112,78,118,64,77,227,93,88,69,60,
	34,30,73,54,45,83,182,88,75,85,
	54,53,89,59,37,35,38,29,18,45,
	60,49,62,55,78,96,29,22,24,13,
	14,11,11,18,12,12,30,52,52,44,
	28,28,20,56,40,31,50,40,46,42,
	29,19,36,25,22,17,19,26,30,20,
	15,21,11,8,8,19,5,8,8,11,
	11,8,3,9,5,4,7,3,6,3,
	5,4,5,6
);

//-----------------------------------------------------------------------------
function ClassiSeq2Verse()
{  this.Srt  = 1;
   this.Ayt  = 1;
   this.iSeq2Verse = iSeq2Verse;
}

function iSeq2Verse(iSeq)
{  for(var k=1;k<=114; k++)
     if(maxSeq[k] >= iSeq)
     {	this.Srt = k;
        this.Ayt = iSeq - maxSeq[k-1];
        break;
     }
}

//-----------------------------------------------------------------------------
function ON_CHANGE_LBSURAT()
{ LBS.iCurSel = LBS.GetCurSel();
  InsertLBA( maxAyat[LBS.iCurSel] );
  ON_CHANGE_LBAYAT();
  TSRT.value = DreiForm(LBS.iCurSel+1);
}

function ON_CHANGE_LBAYAT()
{ LBA.iCurSel = LBA.GetCurSel();
  TAR.value   = TXTAYAT[ maxSeq[LBS.iCurSel] + LBA.iCurSel];
  TAYT.value  = DreiForm(LBA.iCurSel+1);
}

//-----------------------------------------------------------------------------
function GO_DOWN()
{ if(LBA.iCurSel>0)
  {  LBA.SetCurSel(LBA.iCurSel-1,true);
     TAR.value   = TXTAYAT[ maxSeq[LBS.iCurSel] + LBA.iCurSel];
     TAYT.value  = DreiForm(LBA.iCurSel+1);
  } 
}

function GO_UP()
{ if(LBA.iCurSel < LBA.iCount - 1)
  {  LBA.SetCurSel(LBA.iCurSel+1,true);
     TAR.value   = TXTAYAT[ maxSeq[LBS.iCurSel] + LBA.iCurSel];
     TAYT.value  = DreiForm(LBA.iCurSel+1);
  }
}

//-----------------------------------------------------------------------------
function ShowTextAyat(srt,ayt)
{ if(srt<1) srt=1;
  else if(srt>114) srt=114;
  if(ayt<1) ayt=1;
  else if(ayt>maxAyat[srt-1]) ayt=maxAyat[srt-1];
  TSRT.value = DreiForm(srt);
  TAYT.value = DreiForm(ayt);
  if(LBS.iCurSel!=srt-1)
    InsertLBA(maxAyat[srt-1]);
  TAR.value  = TXTAYAT[ maxSeq[srt-1] + ayt - 1];
  LBA.SetCurSel(ayt-1,true);
  LBS.SetCurSel(srt-1,true);
}

//-----------------------------------------------------------------------------
function GO_INPUT()
{ ShowTextAyat(parseInt(TSRT.value),parseInt(TAYT.value)); }


//-----------------------------------------------------------------------------
function InsertLBA(max)
{ LBA.SetCount(max);
  for(var i=1;i<=max;i++)
    LBA.LBitem.options[i-1].text = '' + i;
  LBA.SetCurSel(0,true);
}


//-----------------------------------------------------------------------------
function SEARCH_TEXT(i_start)
{  TAR.value = MSG_TEXT[1];
   if(noCase) st = SCT.value.toLowerCase()
   for(iStart = i_start; iStart < DEFMAX_AYAT; iStart++ )
   {  dt = TXTAYAT[iStart]
      if(noCase) dt = dt.toLowerCase()
      if(dt.lastIndexOf(st) != -1)
      {  CSV.iSeq2Verse(iStart+1);  
         ShowTextAyat(CSV.Srt,CSV.Ayt);
         break;
      }
   }
  
  if(iStart >= DEFMAX_AYAT)
  { alert(MSG_TEXT[0]);
    ON_CHANGE_LBAYAT();
  }
}