Этот скрипт будет частью скриптринга и бара для управления винампом - спрашивайте в аптеках города. <!--emo&;)--><!--endemo-->
- Код: выделить все
;====================
; (c) Sane
;====================
; delete("pl") - удаление из плейлиста
; delete("pl",n) - удаление из плейлиста месни номер n
; delete("d") - удаления с диска с подтверждением
; delete("d",n) - удаление с диска с подтверждением песни номер n
; delete("dn") - удаление с диска без подтверждения
; delete("dn",n) - удаление с диска без подтверждения песни номер n
;====================
wa_Path = "C:Program FilesWinamp"
wa_Path_Exe = wa_Path ++ "winamp.exe"
if (not winamp.running) do
"&(wa_Path_Exe)"
endif
wa_Path_M3U = wa_Path ++ "winamp.m3u"
;runfile winampGlobal
if (arg(1)=="" or arg(1)=="0") Do
quit(1)
endif
cur = winamp.pls("flush")
if (arg(2)!="") Do
cur = arg(2)-1
endif
fh = File.Open(wa_Path_M3U , "r")
fd = File.Open(wa_Path_M3U++"_", "w")
i=0
if (fh > 0) Do
str = File.Readline(fh)
File.writeline(fd, str)
for ()
str = File.Readstring(fh)
if (File.Eof(fh)) do
break
endif
if (select(str,1)=="#" ) do
path=File.readstring(fh)
name=remove(str,index(str,","))
else
path=str
name=path
endif
if (i==cur) Do
if (arg(1)=="pl") Do
elseif (arg(1)=="d")
u = Messagebox ("yesno question","Delete '""++name++"'"? 'n'n"++path)
if (u == 6) Do
if (winamp.pls("length")==1) Do
winamp.playback("stop")
else
winamp.playback("next")
endif
file.delete(path)
else
if (str!=path) Do
file.writeline(fd,str)
endif
file.writeline(fd,path)
endif
elseif (arg(1)=="dn")
if (winamp.pls("length")==1) Do
winamp.playback("stop")
else
winamp.playback("next")
endif
file.delete(path)
else
if (str!=path) Do
file.writeline(fd,str)
endif
file.writeline(fd,path)
endif
else
if (str!=path) Do
file.writeline(fd,str)
endif
file.writeline(fd,path)
endif
i=i+1
endfor
file.closeall
file.delete(wa_path_m3u)
file.move(wa_Path_M3U++"_",wa_Path_M3U)
winamp.pls("clear")
winamp.pls("addfile",wa_path_m3u)
if (cur >= winamp.pls("length")) Do
cur = winamp.pls("length")-1
endif
winamp.pls("setcur",cur)
endif