' --------------------------------------------------------------------------------------
'	Modified by  Валерий Апарышев
' --------------------------------------------------------------------------------------
On error resume next

Dim aMyGolos(3)

Const vLeft=-1,vUp=0, vRight=1
Const vEndTableLook=145,vMaxCaps=9,vCol=3

Const null00=0,sColor1="#ff0000",sColor2="#000000"
SNull0=Asc("0")
ch=Chr(34)

sAport=""
NulLine=""
For i1=1 to 120
	NulLine=NulLine+"-"
Next

Start=0

'------------------------------------------------------

Sub dw (st)
	document.write(st)
End Sub

Function Parameters()
	Parameters=0
	ss=window.location.href
	For ii=Len(ss) to 1 step -1
		lg=mid(ss,ii,1)
		IF lg="?" Then 
			sTemp=mid(ss,ii+1)
			If IsNumeric(sTemp) Then Parameters=CInt(sTemp)
			Exit For
		End If
	Next
End Function

Function Chislo(nInpt)
	sChislo=CStr(nInpt)
	Select Case Len(sChislo)
	Case 1 Chislo="00"+sChislo
	Case 2 Chislo="0"+sChislo
	Case Else Chislo=sChislo
	End Select
End Function

Function sPic(nInpt)
	If WhoCaps=0 Then
		PlusCap nInpt ' подсчёт к конкретной Caps
		sPic=" src='litle/char_"+Chislo(nInpt)+".gif' "
	Else
		PlusAnime nInpt ' подсчёт к конкретной Anime
		sPic=" src='http://www.allpokemons.chat.ru/anime/"+Chislo(nInpt)+".GIF' width='160' height='160' "
	End if
End Function

Function sNom(nInpt)
	If  WhoLang=0 Then
		sNom="#"+Chislo(nInpt)+"-"+aPok(nInpt)
	Else
		sNom="#"+Chislo(nInpt)+"-"+aPok0(nInpt)
	End if
End Function

Function sJpg(nInpt)
	sJpg="<a Title='"+GenAltInfHref(nInpt)+"' href='"+html+"?"+Chislo(nInpt)+"''>"
End Function


Function sHref(iGo)
	sHref="<a href=caps.htm?"+CStr(iGo)+">"
End Function

Function sTire(iG1,sG2,iG3)
	sTire="#"+Chislo(iG1)+sG2+"#"+Chislo(iG3)
End Function

Function wTD2(sTD,c)
	wTD2= "<td colspan='2'><p class="+c+">"+sTD+"</p></td>"
End Function

Function wTD(sTD)
	wTD= "<td>"+sTD+"</td>"
End Function

Function wTDr(sTD)
	wTDr= "<td align='right'>"+sTD+"</td>"
End Function

Function wTD33(sTD)
	wTD= "<td >"+sTD+"</td>"
End Function

Function wTDc(sTD)
	wTDc= "<td><p class='black'>"+sTD+"</p></td>"
End Function

Function wTDs(sTD,c)
	wTDs= "<td class="+c+">"+sTD+"</td>"
End Function

Sub WriteTableBegin()
	dw "<table border='1' width='100%' id='MainTable' style='text-align: Center'><tr>"
	For ib=1 To vCol*2
		For ii=1 To vCol
			dw wTD("&nbsp;")
		Next
	dw "</tr>"
	Next
	dw "</table>"
End Sub

Sub WriteMainTable(nR,nC,sInf) ' Write Information in Main Table
		document.all.MainTable.rows(nR).cells(nC).innerHTML=sInf
End Sub

Sub UpTable()
	sTemp=""
	If  Start>=vEndTableLook Then
		sTemp=sTire(Start,"  -  ",vMaxPok)
	Else
		sTemp=sTire(Start,"  -  ",Start+vMaxCaps-1)
	End If
	sTemp="Покемон "+sTemp+"."
	document.all.MainPok.innerText=sTemp
'	window.title=sTemp
	iss=Start
	For ib=0 To 2*(vCol-1)  step 2
		For ii=0 To vCol-1
			if  iss=<vMaxPok then
				WriteMainTable ib,ii, sJpg(iss)+"<img border='0' "+sPic(iss)+GenAlt(iss)+"></a>"
				WriteMainTable ib+1,ii,  "<p class=tabl>"+sJpg(iss)+sNom(iss)+"</a>"
			else
				WriteMainTable ib,ii, "&nbsp;"
				WriteMainTable ib+1,ii,  "&nbsp;"
			end if
			iss=iss+1
		Next
	Next
	Plus "CapCount"
End Sub

Function GenAltInfHref(iii)
	tempAlt=fnNomName(iii)+vbCrLf+_
		"Рост : "+aPok4(iii)+" (см)      Вес : "+aPok5(iii)+" (кг)"+vbCrLf+_
		NulLine+vbCrLf+"Описание :   "+aPok1(iii)+vbCrLf+_
		NulLine+vbCrLf+"Тип : "+aPok3(iii)+"    / "+aPok2(iii)+" / "+_
		"   Элемент : "+wPok67(iii)+vbCrLf+"Рейтинг : "+aReiting(iii)
	if aPokTrener(iii,2)<>"" Then
		tempAlt=tempAlt+"  Тренер : "+aPokTrener(iii,2)
	End if
	tempAlt=tempAlt+vbCrLf+NulLine+vbCrLf+"Комментарий :   "+fnGetComent(iii)+NulLine+vbCrLf
	tempAlt=tempAlt+Space(30)+"Количество и последнее обращение"+vbCrLf+_
		"Big: "+fnLookPic(iii)+"  Caps: "+fnLookCap(iii)+"  Anime: "+fnLookAnime(iii)
	GenAltInfHref=tempAlt
End Function

Function GenAlt(iii1)
	GenAlt="alt='"+GenAltInfHref(iii1)+"'"
End Function

Function wPok67(iCh)
	if aPok7(iCh)<>"" then 
		wPok67=aPok6(iCh)+", "+aPok7(iCh)
	else
		wPok67=aPok6(iCh)
	end if
End Function

'------------------------------------------------
' Generate Table

Sub MainTable()
	ij=1
	sTemp1="<thead><tr>"+wTDc("№№")+wTDc("Имя /Ing/")+wTDc("Имя /рус/")+wTDc("Рост&nbsp;см")+wTDc("Вес&nbsp;кг")+wTDc("Рейтинг")+wTDc("Тренер")+wTDc("Caps")+"</tr></thead>"
	dw "<table border='1' width='100%'  id=myTable CLASS='rowover'>"
	dw sTemp1
	For ii=1 To vMaxPok
		dw "<tr>"+wTDs( sJpg(ii)+"#"+Chislo(ii)+"</a>","decor")
		dw wTDs( sJpg(ii)+aPok(ii)+"</a>","tabl")+wTDs( sJpg(ii)+aPok0(ii)+"</a>","tabl")+wTDr(aPok4(ii))+wTDr(aPok5(ii))
		dw wTDr(aReiting(ii))+wTDs(aPokTrener(ii,1),"tabl")
		if ii=ij then 
			iTemp1=0: iTemp2=0
			if  ii <vEndTableLook then
				iTemp1=vMaxCaps: iTemp2=ii+vMaxCaps-1
			else
				iTemp1=vMaxPok-vEndTableLook+1: iTemp2=vMaxPok
			end if
			dw "<td class=tabl rowspan='"+CStr(iTemp1)+"'>"+sHref(ii)+sTire(ii,"<br>", iTemp2)+"</a></td>"
			ij=ij+vMaxCaps
		end if
		dw "</tr>"
	Next
	dw sTemp1
	dw "</table>"
	GoInTabl(true)
End Sub

Sub MainTableIndex
	ij=1
	sTemp1="<thead><tr>"+wTDc("п/п")+wTDc("№№")+wTDc("Имя /Ing/")+wTDc("Имя /рус/")+wTDc("Рост&nbsp;см")+wTDc("Вес&nbsp;кг")+wTDc("Рейтинг")+wTDc("Тренер")+"</tr></thead>"
	dw "<table border='1' width='100%'  id=myTable CLASS='rowover'>"
	dw sTemp1
	For itemp=1 To vMaxPok
		ii=aIndex(itemp)
		dw "<tr>"+wTDr(Cstr(itemp))+wTDs(sJpg(ii)+"#"+Chislo(ii)+"</a>","tabl")

		If  tipSite=1 Then 		
			dw wTDs( sJpg(ii)+aPok(ii)+"</a>","decor")
		Else
			dw wTDs( sJpg(ii)+aPok(ii)+"</a>","tabl")
		End If

		If  tipSite=2 Then 		
			dw wTDs( sJpg(ii)+aPok0(ii)+"</a>","decor")
		Else
			dw wTDs( sJpg(ii)+aPok0(ii)+"</a>","tabl")
		End If

		If  tipSite=3 Then 		
			dw wTDs(aPok4(ii),"rdecor")
		Else
			dw wTDr(aPok4(ii))
		End If

		If  tipSite=4 Then 		
			dw wTDs(aPok5(ii),"rdecor")
		Else
			dw wTDr(aPok5(ii))
		End If

		If  tipSite=5 Then 		
			dw wTDs(aReiting(ii),"rdecor")
		Else
			dw wTDr(aReiting(ii))
		End If

		dw wTDs(aPokTrener(ii,1),"tabl")
		dw "</tr>"
	Next
	dw sTemp1
	dw "</table>"
	GoInTabl(false)
End Sub

Sub GoInTabl(lTip)
	Start=Parameters()
	Const  vYbegin=120,vYStep=40 
	Ystart=0
	if Start<>0 then
	 	if  lTip Then 
			Ystart=Start
		Else
			For itemp=1 To vMaxPok
				If Start=aIndex(itemp) Then Ystart=itemp
			Next
		End If
		window.scroll 0,vYStep*(Ystart)+vYbegin
	End If
End Sub

Sub MainTableForm
	SsroolObj1="<OBJECT classid=CLSID:DFD181E0-5E2F-11CE-A449-00AA004A803D height=14 width=150 id='"
	SsroolObj2="'width=100><PARAM NAME='Min' VALUE='0'><PARAM NAME='Max' VALUE='100'><PARAM NAME='Orientation' VALUE='1'></OBJECT>"
	its="Pan"
	sScript1="<SCRIPT LANGUAGE=javascript FOR='"
	sScript2="' EVENT=Change>"
	sScript3=")  </"+"SCRIPT>"
	sFunc="Chan1("

	sTemp1="<thead><tr>"+wTDc("№№")+wTDc("Имя /Ing/")+wTDc("Имя /рус/")+wTDc("Рейтинг")+wTD2("Ваш Рейтинг","black")+"</tr></thead>"
	sTScr1=sScript1+its : sTScr2=sScript2+sFunc : sTScr3=sScript3+SsroolObj1+its

	dw "<table border='1' width='100%'  id=myTable CLASS='rowover'>"
	dw sTemp1
	For ii=1 To vMaxPok
		sTemp2=Cstr(ii)
		TColos=RetColos(ii)
		sColos=Cstr(TColos) ' Вообщето это ни к чему просто из старой программы	
		dw "<tr>"+wTDs( sJpg(ii)+"#"+Chislo(ii)+"</a>","decor")
		dw wTDs( sJpg(ii)+aPok(ii)+"</a>","tabl")+wTDs( sJpg(ii)+aPok0(ii)+"</a>","tabl")+wTDr(aReiting(ii))
		dw wTDr("<input name='TT"+sTemp2+"' size='3' value='"+sColos+"' class='rdecor' readOnly>")
		dw wTD(sTScr1+sTemp2+sTScr2+sTemp2+sTScr3+sTemp2+SsroolObj2)
		If Tcolos<>"0" then 
			ColorTT ii,sColor1
			Execute "form1.Pan"+CStr(ii)+".Value="+sColos
		End If
		dw "</tr>"
	Next
	dw sTemp1
	dw "</table>"
	GoInTabl(true)
End Sub

Sub ColorTT(par,sColor)
	Execute "form1.TT"+CStr(par)+".style.color="+ch+sColor+ch
End Sub

Sub resetForm_onclick
	For ii=1 to vMaxPok
		Execute "form1.TT"+CStr(ii)+".Value=null00"
		Execute "form1.Pan"+CStr(ii)+".Value=null00"
		ColorTT ii,sColor2
	Next
End Sub

Sub outForm_onclick
	' Передача информации на сервер.
	delColos
	window.location.replace("index.htm")
End Sub

Sub Chan1(par)
    Execute "form1.TT"+CStr(par)+".Value=form1.Pan"+CStr(par)+".Value"
	temp2=Eval("form1.Pan"+Cstr(par)+".Value")
	If temp2<>null00 then
		ColorTT par,sColor1
	Else
		ColorTT par,sColor2
	End if
	SaveGolos temp2,par
End Sub

'  End Generator
'------------------------------
Sub RunBegin
	Start =Parameters()
	If  Start =0 then window.location.replace("first.htm")
	Start=First_Cap(Start)
End Sub

Sub UpTable20
	WriteMainTable 2,0,sNom(Start)
End Sub

Function fnNomName(par)
	fnNomName="# "+Chislo(par)+" "+aPok(par)+" /"+aPok0(par)+"/"
End Function

Sub UpTable2()
	PlusPok Start
	WriteMainTable 1,0, "<img border='0' src=big/"+Chislo(start)+".gif width='528' height='356'"+GenAlt(start)+">"
	UpTable20
	WriteMainTable 4,1, aPok(Start)+" /"+aPok0(Start)
	WriteMainTable 4,3, aPok4(Start)+" см / "+aPok5(Start)+" кг"
	WriteMainTable 6,1, aPok1(Start)
	WriteMainTable 8,1, aPok3(Start)+" /"+aPok2(Start)+"/"
	WriteMainTable 8,3, wPok67(Start)
	WriteMainTable 9,1, aReiting(Start)
	WriteMainTable 9,3, aPokTrener(Start,1)
	WriteMainTable 11,1,fnGetComent(Start)
	Plus "PicCount"
End Sub

Sub RunBegin2
	Start =Parameters()
	If  Start =0 then window.location.replace("first.htm")
End Sub

Function First_Cap(iCap)
	iTemp=Int(iCap/vMaxCaps)
	if ((iCap/vMaxCaps)-iTemp)=0 then  
		First_Cap=(iTemp-1)*vMaxCaps+1
	else
		First_Cap=iTemp*vMaxCaps+1
	end if
End Function 

Sub Go_Caps(iGo)
	Start=First_Cap(Start)
	window.location.replace("caps.htm?"+CStr(Start))
End Sub

Sub N1(iN1)
	Start=iN1
	window.location.replace("#gostart")
	document.all.aport.innerHTML=sAport
	big_baner_write()
	UpTable
End Sub

Sub N2(iN2)
	Start=iN2
	window.location.replace("#gostart")
	document.all.aport.innerHTML=sAport
	big_baner_write()
	UpTable2
End Sub

Function fnLitleImg(par)
	fnLitleImg="<img border=0 src='http://www.allpokemons.chat.ru/anime/"+Chislo(par)+".GIF' width=80 height=80 Title='"+fnNomName(par)+"'>"
End Function