Enumeration 
 #Window_0=100
 #Web
 #img:#img2
 #Link:#descr
EndEnumeration
UseJPEGImageDecoder()
UsePNGImageDecoder()

fon= RGB(10,10,10)

Dim Series.s(29)

Series(0) ="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874397&hash=7492b88c0f155148&hd=1"
Series(1) ="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874397&hash=7492b88c0f155148&hd=1"
Series(2) ="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874416&hash=00e4d8eaf2571ede&hd=1"
Series(3) ="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874422&hash=ec1983173937fd03&hd=1"
Series(4) ="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874432&hash=d4e8d10ddbc26053&hd=1"
Series(5) ="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874444&hash=783f9dfec59ae29b&hd=1"
Series(6) ="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874453&hash=93d36d0c64f6b047&hd=1"
Series(7) ="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874459&hash=01a42eb841f946b1&hd=1"
Series(8) ="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874494&hash=c1891e07f0c66ada"
Series(9) ="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874501&hash=a0bc06354dca26f4&hd=1"
Series(10)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874507&hash=f21dfcdfb6166246&hd=1"
Series(11)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874519&hash=4a00440f3f854b9e&hd=1"
Series(12)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874529&hash=e6501c6298a999d0&hd=1"
Series(13)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874537&hash=4febe8f66d40fa8d&hd=1"
Series(14)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874602&hash=dbe2a38ca8c7a231&hd=1"
Series(15)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874610&hash=1a54f6ce83c3fad6&hd=1"
Series(16)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154875283&hash=a9c5f895a8b08eef&hd=1"
Series(17)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874640&hash=6c14b6b70199ebb9&hd=1"
Series(18)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874652&hash=46b67232b16d2045&hd=1"
Series(19)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154874667&hash=e1ff327618b8fb85&hd=1"
Series(20)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=152351566&hash=9f9fc50bf57ef770&hd=1"
Series(21)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=152351275&hash=14f78d18b1f4017c"
Series(22)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=152826374&hash=1e12e96990edcb7d"
Series(23)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=153331477&hash=a44b1420bb15362d"
Series(24)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154023682&hash=69a668a4f689d88c&hd=1"
Series(25)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154432266&hash=d402e632ee3b2084&hd=1"
Series(26)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=154872777&hash=656e03d8df55150b&hd=1"
Series(27)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=155413098&hash=f81ad74059a60e74&hd=1"
Series(28)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=155949179&hash=17b27c48fdb0fe98&hd=1"
Series(29)="http://vkontakte.ru/video_ext.php?oid=-19279687&id=156683934&hash=3558c19f78b8fa86&hd=1"

Procedure Logo() ; перезаписываем код видео файла 
Htm.s=""
;----------------------------------------
OpenFile(1, "111.htm") 
 WriteStringN(1, Htm)
CloseFile(1)
SetGadgetText(#Web,"file://localhost/"+GetPathPart(ProgramFilename())+"111.htm" )
EndProcedure


Procedure JS_PB(ret.s) ; перезаписываем код видео файла 
Htm.s=""
Htm + ""
;----------------------------------------
OpenFile(1, "111.htm") 
 WriteStringN(1, Htm)
CloseFile(1)
SetGadgetText(#Web,"file://localhost/"+GetPathPart(ProgramFilename())+"111.htm" )
EndProcedure

OpenWindow(#Window_0,0,0,550,581,"Звездные врата: Вселенная.",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_Invisible) 
 SetWindowColor(#Window_0,fon)
 WebGadget(#Web,35,0,600,280,"")
 
 Logo()
 
 HyperLinkGadget(0, 10,290+(16*0), 150,15,"1 Воздух (Air, Part 1)",RGB(255, 255, 255))
 HyperLinkGadget(1, 10,290+(16*1), 150,15,"2 Воздух (Air, Part 2)",RGB(255, 255, 255))
 HyperLinkGadget(2, 10,290+(16*2), 150,15,"3 Воздух (Air, Part 3)",RGB(255, 255, 255))
 HyperLinkGadget(3, 10,290+(16*3), 150,15,"4 Тьма (Darkness)",RGB(255, 255, 255))
 HyperLinkGadget(4, 10,290+(16*4), 150,15,"5 Свет (Light)",RGB(255, 255, 255))
 HyperLinkGadget(5, 10,290+(16*5), 150,15,"6 Вода (Water)",RGB(255, 255, 255))
 HyperLinkGadget(6, 10,290+(16*6), 150,15,"7 Земля (Earth)",RGB(255, 255, 255))
 HyperLinkGadget(7, 10,290+(16*7), 150,15,"8 Время (Time)",RGB(255, 255, 255))
 HyperLinkGadget(8, 10,290+(16*8), 150,15,"9 Жизнь (Life)",RGB(255, 255, 255))
 HyperLinkGadget(9, 10,290+(16*9), 150,15,"10 Правосудие (Justice)",RGB(255, 255, 255))
 
 HyperLinkGadget(10,170,290+(16*0),150,15,"11 Космос (Space)",RGB(255, 255, 255))
 HyperLinkGadget(11,170,290+(16*1),150,15,"12 Раскол (Divided)",RGB(255, 255, 255))
 HyperLinkGadget(12,170,290+(16*2),150,15,"13 Вера (Faith)",RGB(255, 255, 255))
 HyperLinkGadget(13,170,290+(16*3),150,15,"14 Человек (Human)",RGB(255, 255, 255))
 HyperLinkGadget(14,170,290+(16*4),150,15,"15 Потерянные (Lost)",RGB(255, 255, 255))
 HyperLinkGadget(15,170,290+(16*5),150,15,"16 Cаботаж (Sabotage)",RGB(255, 255, 255))
 HyperLinkGadget(16,170,290+(16*6),150,15,"17 Cтрадание (Pain)",RGB(255, 255, 255))
 HyperLinkGadget(17,170,290+(16*7),150,15,"18 Диверсия (Subversion)",RGB(255, 255, 255))
 HyperLinkGadget(18,170,290+(16*8),150,15,"19 Вторжение (Incursion, P1)",RGB(255, 255, 255))
 HyperLinkGadget(19,170,290+(16*9),150,15,"20 Вторжение (Incursion, P2)",RGB(255, 255, 255))
 
 For f=0 To 19
 SetGadgetColor(f, #PB_Gadget_BackColor, fon) 
 SetGadgetColor(f, #PB_Gadget_FrontColor, RGB(137, 127, 98)) 
 Next


 ImageGadget(#img,325,300,0,0,LoadImage(#img2, "series/1.jpg")) 
 HyperLinkGadget(#Link,360,434,180,15,"1 Воздух (Air, Part 1)",RGB(255, 255, 255),#PB_HyperLink_Underline)
 SetGadgetColor(#Link, #PB_Gadget_BackColor, fon) 
 SetGadgetColor(#Link, #PB_Gadget_FrontColor, RGB(137, 127, 98)) 


 TextGadget(#descr,10,480,530,80,"Во время официального визита сенатора Армстронга, на совершенно секретную базу Икар было совершено нападение, вынуждая персонал эвакуироваться. Прежде, чем они покидают внеземную базу, доктор Николас Раш набирает девятый шеврон, посылая команду на Судьбу, Древний корабль бороздящий просторы Вселенной на миллиардах световых лет от Земли.")
 SetGadgetColor(#descr, #PB_Gadget_BackColor, fon) 
 SetGadgetColor(#descr, #PB_Gadget_FrontColor, RGB(137, 127, 98)) 
 
HideWindow(#Window_0, 0)
Repeat
Event = WaitWindowEvent() 
Window = EventWindow() 
Gadget = EventGadget()
 Select Event
 Case #PB_Event_Gadget
 Select EventGadget()
 Case 0 To 19
 If EventType()= #PB_EventType_LeftClick 
 SetGadgetState(#img,LoadImage(#img2, "series/"+Str(Gadget+1)+".jpg"))
 SetGadgetText(#Link,GetGadgetText(Gadget))
 If OpenPreferences("описание.txt")
 text.s= ReadPreferenceString(Str(Gadget+1), "") 
 SetGadgetText(#descr,text)
 EndIf 
 EndIf
 Case #Link
 SetWindowTitle(#Window_0, GetGadgetText(#Link)) 
 namber.s=Series(Val(Left(GetGadgetText(#Link),2))-1)
 JS_PB(namber) 
 EndSelect
 EndSelect 
If Event = #PB_Event_CloseWindow
DeleteFile("111.htm")
Break 
EndIf
ForEver