'---Sub Gets This Parameters : ("TheNumberOfTheMenuItem/Off") As String
Public Sub TopMenuHighLight(OnOff)
	Select Case OnOff
		Case "Off" : document.all("ImgMenuHighLight").style.display="None"
					 document.all("ImgMenuHighLightIcon").style.filter=""
					 Exit Sub
		Case "1" : document.all("ImgMenuHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/Banner-Highlight-T.png');"
				   document.all("ImgMenuHighLightIcon").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/Banner-Highlight-Icon-01.png');"
		Case "2" : document.all("ImgMenuHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/Banner-Highlight-C.png');"
				   document.all("ImgMenuHighLightIcon").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/Banner-Highlight-Icon-02.png');"	
		Case "3" : document.all("ImgMenuHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/Banner-Highlight-C.png');"
				   document.all("ImgMenuHighLightIcon").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/Banner-Highlight-Icon-03.png');"	
		Case "4" : document.all("ImgMenuHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/Banner-Highlight-C.png');"	
				   document.all("ImgMenuHighLightIcon").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/Banner-Highlight-Icon-04.png');"	
		Case "5" : document.all("ImgMenuHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/Banner-Highlight-B.png');"
 				   document.all("ImgMenuHighLightIcon").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/Banner-Highlight-Icon-05.png');"	
	End Select 
	document.all("ImgMenuHighLight").style.posTop=(CInt(OnOff)-1) * 22.7
	document.all("ImgMenuHighLight").style.posLeft=-125
	document.all("ImgMenuHighLight").style.display=""
	document.all("ImgMenuHighLightIcon").style.display=""
	'document.all("soundd").src=document.all("soundd").src
End Sub
Public Sub GameIntroMenuHighLight(OnOff)
	Select Case OnOff
		Case "Off" : document.all("ImgGIMenuHighLight").style.display="None"
					 Exit Sub
		Case "1" : document.all("ImgGIMenuHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Menu-Highlight-R1.png');"
				   document.all("ImgGIMenuHighLight").style.posRight=98
		Case "2" : document.all("ImgGIMenuHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Menu-Highlight-R2.png');"
				   document.all("ImgGIMenuHighLight").style.posRight=172
		Case "3" : document.all("ImgGIMenuHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Menu-Highlight-C.png');"
				   document.all("ImgGIMenuHighLight").style.posRight=250
		Case "4" : document.all("ImgGIMenuHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Menu-Highlight-L1.png');"
				   document.all("ImgGIMenuHighLight").style.posRight=328
		Case "5" : document.all("ImgGIMenuHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Menu-Highlight-L2.png');"
				   document.all("ImgGIMenuHighLight").style.posRight=402
		Case Else : document.all("ImgGIMenuHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Menu-Highlight.png');"
				    document.all("ImgGIMenuHighLight").style.posRight=120 + ((CInt(OnOff)-2) * 68)
	End Select 
		document.all("ImgGIMenuHighLight").style.posTop=-1
		
		document.all("ImgGIMenuHighLight").style.display=""
	'document.all("soundd").src=document.all("soundd").src
End Sub
Public Sub GameIntroNextPrevHighLight(OnOff)
	Select Case OnOff
		Case "Off" : document.all("ImgNextPrevHighLight").style.display="None"
					 Exit Sub
		Case "1" : document.all("ImgNextPrevHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Story-NextPage-Highlight.png');"
				   document.all("ImgNextPrevHighLight").style.posRight=10
		Case "2" : document.all("ImgNextPrevHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Story-PrevPage-Highlight.png');"
				   document.all("ImgNextPrevHighLight").style.posRight=46
	End Select 
		document.all("ImgNextPrevHighLight").style.posTop=6
		document.all("ImgNextPrevHighLight").style.display=""
End Sub
Public Sub NextPrevHighLight(OnOff)
	Select Case OnOff
		Case "Off" : document.all("ImgNextPrevHighLight").style.display="None"
					 Exit Sub
		Case "1" : document.all("ImgNextPrevHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/ListItem-NextPage-Highlight.png');"
				   document.all("ImgNextPrevHighLight").style.posRight=9
		Case "2" : document.all("ImgNextPrevHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/ListItem-PrevPage-Highlight.png');"
				   document.all("ImgNextPrevHighLight").style.posRight=45
	End Select 
		document.all("ImgNextPrevHighLight").style.posTop=6
		document.all("ImgNextPrevHighLight").style.display=""
End Sub
Public Sub GameIntroSortHighLight(OnOff)
	Select Case OnOff
		Case "Off" : document.all("ImgGISortHighLight").style.display="none"
					 Exit Sub
		Case "1" : document.all("ImgGISortHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Sort-Highlight.png');"
				   document.all("ImgGISortHighLight").style.posRight=217
				   'document.all("ImgGISortHighLightSelected").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Sort-Highlight-Selected.png');"
				   'document.all("ImgGISortHighLightSelected").style.posRight=137
		Case "2" : document.all("ImgGISortHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Sort-Highlight.png');"
				   document.all("ImgGISortHighLight").style.posRight=276
		Case "3" : document.all("ImgGISortHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Sort-Highlight.png');"
				   document.all("ImgGISortHighLight").style.posRight=335
		Case "4" : document.all("ImgGISortHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Sort-Highlight.png');"
				   document.all("ImgGISortHighLight").style.posRight=394
		Case Else : document.all("ImgGISortHighLight").style.filter="progid:DXImageTransform.Microsoft.AlphaImageLoader(src='/NPWebSiteGame/Images/Other/GameIntro-Sort-Highlight.png');"
				   document.all("ImgGISortHighLight").style.posRight=120 + ((CInt(OnOff)-2) * 60)
	End Select 
		document.all("ImgGISortHighLight").style.posTop=-1
		document.all("ImgGISortHighLight").style.display=""
End Sub
'---Sub Gets This Parameters : ...
'...("SRCPath^Target_vArgIn^OP_M_ML^TopPos^LeftPos^WindowWidth^WindowHeight^ShowTitlebar_Center^ShowMenuBar_Hide^ShowToolBar_Edge^ShowLocation_Help^ShowStatusBar^ShowScrollBars^Resizable^Unadorned") As String
Public Sub NavigateURL(WindowProp)
	On Error Resume Next
	Target="_blank" : Mode="OP": TopPos=0 : LeftPos=0 : WindowWidth="" : WindowHeight=""
	ShowTitlebar_Center="Yes" : ShowMenuBar_Hide="Yes" : ShowToolBar_Edge="Yes" : ShowLocation_Help="Yes" : ShowStatusBar="Yes" : ShowScrollBars="Yes" : Resizable="Yes"
	Var = Split(WindowProp,"^")
	SRCPath = Var(0)
	If Len(SRCPath) < 3 Then Exit Sub
	If Var(1)  <> "*" Then Target_vArgIn = Var(1)
	If Var(2)  <> "*" Then Mode = Var(2)
	If Var(3)  <> "*" Then TopPos = Var(3)
	If Var(4)  <> "*" Then LeftPos = Var(4)
	If Var(5)  <> "*" Then WindowWidth = Var(5)
	If Var(6)  <> "*" Then WindowHeight = Var(6)
	If Var(7)  <> "*" Then ShowTitlebar_Center = Var(7)
	If Var(8)  <> "*" Then ShowMenuBar_Hide = Var(8)
	If Var(9)  <> "*" Then ShowToolBar_Edge = Var(9) '---(edge:{sunken | raised})
	If Var(10) <> "*" Then ShowLocation_Help = Var(10)
	If Var(11) <> "*" Then ShowStatusBar = Var(11)
	If Var(12) <> "*" Then ShowScrollBars = Var(12)
	If Var(13) <> "*" Then Resizable = Var(13)
	If Var(14) <> "*" Then Unadorned= Var(14)
	
	Features = "top=" & TopPos & ",left=" & LeftPos & ",width=" & WindowWidth & ",height=" & WindowHeight & ",titlebar=" & ShowTitlebar_Center &_
	",menubar=" & ShowMenuBar_Hide & ",toolbar=" & ShowToolBar & ",location=" & ShowLocation & ",status=" & ShowStatusBar &_
	",scrollbars=" & ShowScrollBars & ",resizable=" & Resizable
	'----------------------------------------------------------
	'Options = "dialogTop:" & TopPos  & ";dialogLeft:" & LeftPos & ";dialogWidth:" & WindowWidth & ";dialogHeight:" & WindowHeight &_
	'";center:" & ShowTitlebar_Center & ";dialogHide:" & ShowMenuBar_Hide & ";edge:" & ShowToolBar_Edge & ";help:" & ShowLocation_Help &_
	'";status:" & ShowStatusBar & ";scroll:" & ShowStatusBar & ";resizable:" & Resizable & ";unadorned" & Unadorned
	If UCase(Mode)="OP" Then window.open SRCPath,Target_vArgIn,Features
	If UCase(Mode)="M" Then window.showModelDialog SRCPath,Target_vArgIn, _
	"dialogTop:" & TopPos  & ";dialogLeft:" & LeftPos & ";dialogWidth:" & WindowWidth & ";dialogHeight:" & WindowHeight &_
	";center:" & ShowTitlebar_Center & ";dialogHide:" & ShowMenuBar_Hide & ";edge:" & ShowToolBar_Edge & ";help:" & ShowLocation_Help &_
	";status:" & ShowStatusBar & ";scroll:" & ShowStatusBar & ";resizable:" & Resizable & ";unadorned" & Unadorned
	If UCase(Mode)="ML" Then window.showModelessDialog SRCPath,Target_vArgIn, _ 
	"dialogTop:" & TopPos  & "px;dialogLeft:" & LeftPos & "px;dialogWidth:" & WindowWidth & "px;dialogHeight:" & WindowHeight &_
	"px;center:" & ShowTitlebar_Center & ";dialogHide:" & ShowMenuBar_Hide & ";edge:" & ShowToolBar_Edge & ";help:" & ShowLocation_Help &_
	";status:" & ShowStatusBar & ";scroll:" & ShowStatusBar & ";resizable:" & Resizable & ";unadorned" & Unadorned
End Sub
'---Sub Gets This Parameters : ("ImgID^EffectID^SourcePictureSRC^TargetPictureSRC") As String 
Private Sub ImgEffectOn(ImgEf)
	Var = Split(ImgEf,"^")
	document.all(Var(0)).style.borderStyle="Solid"
	document.all(Var(0)).style.borderWidth=1
	document.all(Var(0)).style.borderColor="#3300ff"
	If Var(1) = "*" Then 
		EffectID = Int((Rnd() * 18) + 1)
	Else
		EffectID = Var(1)
	End If
	If Var(2) <> "*" Then TargetPictureSRC = Var(2) Else TargetPictureSRC=document.all(Var(0)).src
	document.all(Var(0)).style.filter=FindEffectFilter(EffectID)
	document.all(Var(0)).filters.item(0).Apply()
	document.all(Var(0)).src = TargetPictureSRC
    document.all(Var(0)).filters.item(0).Play()
End Sub
'---Sub Gets This Parameters : ("ImgID^EffectID^SourcePictureSRC^TargetPictureSRC") As String 
Private Sub ImgEffectOff(ImgEf)
	Call Randomize
	Var = Split(ImgEf,"^")
	document.all(Var(0)).style.borderStyle="Solid"
	document.all(Var(0)).style.borderWidth=1
	document.all(Var(0)).style.borderColor="#696969"
	If Var(1) = "*" Then 
		EffectID = Int((Rnd() * 22) + 1)
	Else
		EffectID = Var(1)
	End If
	If Var(3) <> "*" Then SourcePictureSRC = Var(3) Else SourcePictureSRC=document.all(Var(0)).src
	document.all(Var(0)).style.filter=FindEffectFilter(EffectID)
	document.all(Var(0)).filters.item(0).Apply()
	document.all(Var(0)).src = SourcePictureSRC
    document.all(Var(0)).filters.item(0).Play()
End Sub
'---Sub Gets This Parameters : ("ImgID^EffectID") As String 
Private Sub ImgEffectFilter(ImgEf)
	Var = Split(ImgEf,"^")
	EffectID =  Var(1)
	document.all(Var(0)).style.filter=FindEffectFilter(EffectID)
	document.all(Var(0)).filters.item(0).Apply()
End Sub
'---Sub Gets This Parameters : ("ImgID^SourceX^SourceY^TargetX^TargetY^iRed^iGreen^iBlue^iStrength^iSpread") As String
'---Number Of Params = 10
Private Sub ImgLightFilter(ImgEf)
	Call Randomize
	SX=5 : SY=5 : SZ=3 : TX=Int((Rnd() * 500) + 100) : TY=Int((Rnd() * 500) + 100)
	iRed=Int((Rnd() * 255)) : iGreen=Int((Rnd() * 255)) : iBlue=Int((Rnd() * 255))
	iStrength=Int((Rnd() * 90) + 10) : iSpread=Int((Rnd() * 300) + 300) :
	Var = Split(ImgEf,"^")
	If Var(1) <> 0 Then SX = Var(1)
	If Var(2) <> 0 Then SY = Var(2)
	If Var(3) <> 0 Then TX = Var(3)
	If Var(4) <> 0 Then TY = Var(4)
	If Var(5) <> 0 Then iRed = Var(5)
	If Var(6) <> 0 Then iGreen = Var(6)
	If Var(7) <> 0 Then iBlue = Var(7)
	If Var(8) <> 0 Then iStrength = Var(8)
	If Var(9) <> 0 Then iSpread = Var(9)
	document.all(Var(0)).style.filter=FindEffectFilter(20)
	document.all(Var(0)).filters.item(0).Apply()
	'document.all(Var(0)).filters.item(0).clear()
	document.all(Var(0)).filters.item(0).addcone SX,SY,SZ,TX,TY,iRed,iGreen,iBlue,iStrength,iSpread
End Sub
'---This Function Returns Effect Filter String
Private Function FindEffectFilter(EffectID)
	If EffectID = 1 Then 
		Filters="progid:DXImageTransform.Microsoft.Blinds(Bands=10,direction=up); "
	ElseIf	EffectID = 2 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Checkerboard(Direction=right,SquaresX=2,SquaresY=10); "
	ElseIf	EffectID = 3 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=50); "
	ElseIf	EffectID = 4 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=10); "
	ElseIf	EffectID = 5 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Slide(slidestyle=SWAP,Bands=1); "
	ElseIf	EffectID = 6 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Slide(slidestyle=PUSH,Bands=30); "
	ElseIf	EffectID = 7 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Stretch(stretchstyle=PUSH); "
	ElseIf	EffectID = 8 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Stretch(stretchstyle=SPIN); "
	ElseIf	EffectID = 9 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.GradientWipe(GradientSize=1.00,wipestyle=0,motion=reverse); "
	ElseIf	EffectID = 10 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.GradientWipe(GradientSize=1.00,wipestyle=0,motion=reverse); "
	ElseIf	EffectID = 11 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Inset(); "
	ElseIf	EffectID = 12 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Iris(irisstyle=DIAMOND,motion=out); "
	ElseIf	EffectID = 13 Then
		'Filters=Filters & "progid:DXImageTransform.Microsoft.RadialWipe(wipestyle=RADIAL); "
		Filters=Filters & "progid:DXImageTransform.Microsoft.Alpha(Opacity=40, FinishOpacity=40,Style=1, StartX=0,  FinishX=100, StartY=0, FinishY=100); "
	ElseIf	EffectID = 14 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.RandomBars(); "
	ElseIf	EffectID = 15 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.RandomDissolve(); "
	ElseIf	EffectID = 16 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Fade(duration=3)"
	ElseIf	EffectID = 17 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Fade(Overlap=1.00); "
	ElseIf	EffectID = 18 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Spiral(GridSizeX=16,GridSizeY=16); "
	ElseIf	EffectID = 19 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Strips(motion=leftdown); "
	ElseIf	EffectID = 20 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Wheel(spokes=10); "
	'ElseIf	EffectID =  Then
		'Filters=Filters & "progid:DXImageTransform.Microsoft.Alpha(Opacity=80, FinishOpacity=80,Style=1, StartX=0,  FinishX=100, StartY=0, FinishY=100)"
	ElseIf	EffectID = 21 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Zigzag(GridSizeX=16,GridSizeY=8); "
	ElseIf	EffectID = 22 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.blur(pixelradius=0.7, makeshadow='True', ShadowOpacity=0.5); " 
	ElseIf  EffectID = 23 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(GradientType=1, startColorstr=#ff000000, endColorstr=#ffb222222); "
	ElseIf  EffectID = 24 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(GradientType=1, startColorstr=#00ffbb00, endColorstr=#ff696969); "
	ElseIf  EffectID = 25 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(GradientType=0, startColorstr=#ff696969, endColorstr=#00ffbb00); "
	ElseIf  EffectID = 26 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(GradientType=0, startColorstr=#00ffbb00, endColorstr=#ff696969); "
	ElseIf  EffectID = 27 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(startColorstr=#550000FF, endColorstr=#55FFFF00); "
	ElseIf  EffectID = 28 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(startColorstr=#550000FF, endColorstr=#55FFFF00); "
	ElseIf  EffectID = 29 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(startColorstr=#550000FF, endColorstr=#55FFFF00); "
	'---ImgLightFilter
	ElseIf	EffectID = 30 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Light(enabled=1); " 
	ElseIf	EffectID = 31 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Chroma(Color='black'); "
	ElseIf	EffectID = 32 Then 
		Filters=Filters & "alpha(opacity=100, finishopacity=70, style=2, startx=0, starty=0, finishx=50, finishy=50); " 
	ElseIf	EffectID = 33 Then 
		Filters=Filters & "mask(color=#ffffff); " 
	ElseIf	EffectID = 34 Then 
		Filters=Filters & "glow(color=#444444, strength=3); " 
	ElseIf	EffectID = 35 Then 
		Filters=Filters & "alpha(opacity=100, finishopacity=10, style=2, startx=0, starty=0, finishx=50, finishy=50); " 
	ElseIf	EffectID = 36 Then 
		Filters=Filters & "blur; " 
	ElseIf	EffectID = 37 Then 
		Filters=Filters & "shadow(color=#666666, direction=135); " 
	ElseIf	EffectID = 38 Then 
		Filters=Filters & "dropshadow(color=#444444, offx=-2, offy=2, positive=true); " 
	ElseIf	EffectID = 39 Then 
		Filters=Filters & "wave(strength=1); " 
	ElseIf	EffectID = 40 Then 
		'---------
	End If
	FindEffectFilter = Filters
End Function