' --------------------------------------------------------------------------------------
'	Modified by  Валерий Апарышев
' --------------------------------------------------------------------------------------
'YesPic=false
YesCok=window.navigator.cookieEnabled
Dim aMyLook(3)
For ii=0 to 2
	aMyLook(ii)=""
Next

Sub window_onload
	MainOnLoad()

	R1(1).disabled=False
	R1(0).disabled=False

	If YesCok Then
	
		R2(1).disabled=False
		R2(0).disabled=False

		R3.disabled=False
		R4.disabled=False
	
		If YesSave Then R3.checked=True
		If  (YesPic And YesSave) Then 
			R1(0).checked=True
			AddPic
		Else 
			YesPic=false
		End If			

		If YesSave1 Then R4.checked=True
		If  (YesLook And YesSave1) Then 
			R2(0).checked=True
			LookThis
		Else 
			YesLook=false
		End If

	End if
End Sub


Sub clck(npar)
	Select case npar
	Case 0
		if  Not YesPic Then AddPic
	Case 1
		if  YesPic Then DelPic
	Case 2
		LookThis
	Case 3
		LookThisNot
	Case 4
		YesSave=not YesSave
		If  YesSave Then setCook "YesPicMy", YesPic
		setCook "YesSaveMy", YesSave
	Case 5
		YesSave1=not YesSave1
		If  YesSave1 Then setCook "YesLookMy", YesLook
		setCook "YesSaveMy1", YesSave1
	End Select
End Sub

Sub DelPic
	YesPic=false
	setCook "YesPicMy", YesPic
	cellTable=myTable.rows.length-1
	 iAdd=1
	If tipSite=0 Then iAdd=0
	For i=0 To cellTable
		DelCells=document.all.myTable.rows(i).deleteCell(iAdd) 
	Next
End Sub

Sub AddPic
	YesPic=true
	setCook "YesPicMy", YesPic
	cellTable=myTable.rows.length-1
	tp01="<a href="+html+"?"
	tp02="><img  border='0' src='iconpok/"
	tp03="' width='32' height='32'"
	 iAdd=1
	If tipSite=0 Then iAdd=0
	For i=0 To cellTable
		NewCell=document.all.myTable.rows(i).insertCell(iAdd)
		If (i=0) or (i=cellTable) Then
			document.all.myTable.rows(i).cells(iAdd).innerHTML=_
				"<p class=black1>[</P>"
		Else
			temp1=myTable.rows(i).cells( iAdd+1).innerText
			temp2=myTable.rows(i).cells( iAdd+2).innerText
			temp3=mid(temp1,2)
			temp4=CInt(temp3)
			document.all.myTable.rows(i).cells(iAdd).innerHTML=_
				tp01+temp3+tp02+temp3+".gif' '"+tp03+GenAlt(temp4)+"></a>"
		End If
	Next
End Sub

Function fYesLookPok(par1)
	temp1=fnLookPic(par1) ' in cok.js
	If temp1="" then
		fYesLookPok=False
	Else
		fYesLookPok=True
	End If
End Function

Sub LookThis
	YesLook=true
	setCook "YesLookMy",YesLook

	cellTable=myTable.rows.length-1
	iAdd=1
	If (tipSite=0) Then iAdd=0
	If YesPic Then iAdd=iAdd+1
	For i=1 To cellTable-1
			temp1=myTable.rows(i).cells(iAdd).innerText
			temp3=mid(temp1,2)
			temp4=CInt(temp3)
			temp4=fYesLookPok(temp4)
			For ii=iAdd to iAdd+2 
				document.all.myTable.rows(i).cells(ii).style.textDecorationLineThrough=temp4
			Next
	Next
End Sub

Sub LookThisNot
	YesLook=false
	setCook "YesLookMy",YesLook

	cellTable=myTable.rows.length-1
	iAdd=1
	If (tipSite=0) Then iAdd=0
	If YesPic Then iAdd=iAdd+1
	For i=1 To cellTable-1
			For ii=iAdd to iAdd+2 
				document.all.myTable.rows(i).cells(ii).style.textDecorationLineThrough=false
			Next
	Next
End Sub