skrypt do Winamp na LCD


#Header
/Priorität setzten/
%Common.SetPriority(50)
#EndHeader

#GfxMode

/Grafische Anzeige löschen/
%CleanUp.ClearVRAM()
/Schriftart/
%LCD.Gfx_SetFont('Verdana',8,1, Bold)

/Zeile scrollen mit Tracknummer und Interpret und Titel/
/Textausgabe/
%Param.EnableScrolling(Horizontal,Ticker,1,96)
%Inc(%WinAmp.TrackNo(), 1)'. '%WinAmp.RawTitle()' *** '

/neue Zeile/
%Common.CreateNewLine()

/Equalizer/
/Equalizer zeichnen/
%WinAmp.SpecAnalyzer(FTT,PeakedBars,35,18,100,2,0.7,1,0,0,14)

/Abfrage Status Zeit/
%LCD.Gfx_SetFont('Verdana', 9, 3, Bold)
%Common.Compare(%WinAmp.TrackPos() < 60)
Then
{
%Common.Compare(%WinAmp.TrackPos() < 10)
Then
{
' 00:0'%WinAmp.TrackPos()
}
Else
{
' 00:'%WinAmp.TrackPos()
}
}
Else
{
%Common.Compare(%Div(%WinAmp.TrackPos(), 60) < 10)
Then
{
' 0'
}
Else
{
' '
}
%Common.Compare(%Mod(%WinAmp.TrackPos(), 60) < 10)
Then
{
%Trunc(%Div(%WinAmp.TrackPos(), 60)):0%Mod(%WinAmp.TrackPos(), 60)
}
Else
{
%Trunc(%Div(%WinAmp.TrackPos(), 60)):%Mod(%WinAmp.TrackPos(), 60)
}
}

#EndGfxMode

Wyszukiwarka