Add(MainForm,2953706,77,56)
{
 Caption="Playlist loader"
}
Add(VBJScript,5988569,182,112)
{
 WorkPoints=#6:doWork|
 EventPoints=#10:onPlayList|11:onClearList|
 Script=#43:Set WMPlayer = CreateObject("WMPlayer.OCX")|35:WMPlayer.Settings.AutoStart = False|44:WMPlayer.Settings.EnableErrorDialogs = False|0:|23:Sub doWork(Data, Index)|35:        sys.onClearList nil        |89:        WMPlayer.CurrentPlaylist = WMPlayer.newPlaylist ("User", Data)                   |52:    For i = 0 to WMPlayer.CurrentPlaylist.Count - 1 |89:        sys.onPlayList (i+1) & " - " & WMPlayer.CurrentPlaylist.Item(i).Name & ";" &_    |64:        WMPlayer.CurrentPlaylist.Item(i).durationString & ";" &_|59:        WMPlayer.CurrentPlaylist.Item(i).sourceURL & ";" &_|69:        WMPlayer.CurrentPlaylist.Item(i).getItemInfo("Name") & ";" &_|71:        WMPlayer.CurrentPlaylist.Item(i).getItemInfo("author") & ";" &_|70:        WMPlayer.CurrentPlaylist.Item(i).getItemInfo("Title") & ";" &_|70:        WMPlayer.CurrentPlaylist.Item(i).getItemInfo("Album") & ";" &_|74:        WMPlayer.CurrentPlaylist.Item(i).getItemInfo("copyright") & ";" &_|71:        WMPlayer.CurrentPlaylist.Item(i).getItemInfo("Artist") & ";" &_|70:        WMPlayer.CurrentPlaylist.Item(i).getItemInfo("Genre") & ";" &_|72:        WMPlayer.CurrentPlaylist.Item(i).getItemInfo("Bitrate") & ";" &_|73:        WMPlayer.CurrentPlaylist.Item(i).getItemInfo("Abstract") & ";" &_|76:        WMPlayer.CurrentPlaylist.Item(i).getItemInfo("duration")            |8:    Next|7:End Sub|
 UseName=0
 link(onPlayList,14819094:doAdd,[])
 link(onClearList,14819094:doClear,[])
}
Add(StringTable,14819094,238,112)
{
 Left=200
 Top=21
 Width=353
 Height=257
 Align=5
 Font=[MS Sans Serif,8,0,8421504,1]
 Layout="vert"
 HeightScale=100
 Columns=#8:Name=300|7:Time=50|8:Path=300|8:Name=100|10:author=100|9:Title=100|9:Album=100|13:copyright=100|10:Artist=100|8:Genre=50|10:Bitrate=50|11:Abstract=50|12:duration=100|
 Redaction=1
}
Add(ODialog,5963182,126,112)
{
 Filter="Playlist File(*.asx;*.m3u;*.pl;*.wpl;*.cbs;*.cl3;*.cl4;*.cl5;*.nra;*.pls;*.pya;*.rcl;*.rmp;*.rxp;*.wax;*.wvx)|*.asx;*.m3u;*.pl;*.wpl;*.cbs;*.cl3;*.cl4;*.cl5;*.nra;*.pls;*.pya;*.rcl;*.rmp;*.rxp;*.wax;*.wvx|Mp3 File (*.mp3)|*.mp3"
 StartDir=""
 link(onExecute,5988569:doWork,[])
}
Add(Button,5135839,77,112)
{
 Left=180
 Top=90
 Align=2
 Caption="Open PlayList"
 link(onClick,5963182:doExecute,[])
}