ID=DM144GINK
//ScreenDef
Title=START
SpecCharFile=
#Header
/Scriptpriorität/
%DefVar(Priority,Global=200)

/Anpassungen Futuba DM144GINK/
%DefVar(LCD_X,Global=112)
%DefVar(LCD_Y,Global=16)
%DefVar(LCD_rec,Global=0)
%DefVar(LCD_mute,Global=1)
%DefVar(LCD_forward,Global=2)
%DefVar(LCD_pause,Global=3)
%DefVar(LCD_rewind,Global=4)
%DefVar(LCD_play,Global=5)
%DefVar(LCD_CD,Global=6)
%DefVar(LCD_Video,Global=7)
%DefVar(LCD_DVD,Global=8)
%DefVar(LCD_WLAN,Global=9)
%DefVar(LCD_Vol,Global=10)
/VolumeBalken=11-22, siehe Funktion LCD_Soundbar/

/Anpassung Netzwerkkarten-Nummer/
%DefVar(LanCard,Global=2)

%DefFunc(SysVolume,Global=
 /Faktor muss durch Testen oder Rechnen an die eigene Soundkarte angepasst werden/
 /Rückgabewert muss zwischen 0 und 100 liegen/
 %Mul(-1,%Dec(%Mul(%Plugin.VolumePeakmeter.GetVolumeMasterLevel(),-0.00000104166667),100))
)

%DefFunc(SysVolumeSet,Global=
 /Volume_Bar anzeigen/
 %LCD_Soundbar(%SysVolume() )
 /Mute-Status anzeigen/
 %If(%Plugin.VolumePeakmeter.GetMute() = 1)Then { %LCD.SetSymbol(%LCD_mute(), 1) } Else { %LCD.SetSymbol(%LCD_mute(), 0) }
 /LAN online status anzeigen/
 %If(%System.Network(%LanCard(),Connected)=1) Then { %LCD.SetSymbol(%LCD_WLAN(), 1) } Else { %LCD.SetSymbol(%LCD_WLAN(), 0) }
)

%DefFunc(LCD_Soundbar,Global,Volume=
 /Lautstärkewert muss zwischen 0 und 100 sein./
 /Vol=2/
 %If(%Volume() > 39.4) Then { %LCD.SetSymbol(11, 1) } Else { %LCD.SetSymbol(11, 0) }
 /Vol=10/
 %If(%Volume() > 63.7) Then { %LCD.SetSymbol(12, 1) } Else { %LCD.SetSymbol(12, 0) }
 /Vol=18/
 %If(%Volume() > 72.7) Then { %LCD.SetSymbol(13, 1) } Else { %LCD.SetSymbol(13, 0) }
 /Vol=26/
 %If(%Volume() > 78.7) Then { %LCD.SetSymbol(14, 1) } Else { %LCD.SetSymbol(14, 0) }
 /Vol=34/
 %If(%Volume() > 82.9) Then { %LCD.SetSymbol(15, 1) } Else { %LCD.SetSymbol(15, 0) }
 /Vol=42/
 %If(%Volume() > 86.3) Then { %LCD.SetSymbol(16, 1) } Else { %LCD.SetSymbol(16, 0) }
 /Vol=50/
 %If(%Volume() > 89.0) Then { %LCD.SetSymbol(17, 1) } Else { %LCD.SetSymbol(17, 0) }
 /Vol=58/
 %If(%Volume() > 91.3) Then { %LCD.SetSymbol(18, 1) } Else { %LCD.SetSymbol(18, 0) }
 /Vol=66/
 %If(%Volume() > 93.4) Then { %LCD.SetSymbol(19, 1) } Else { %LCD.SetSymbol(19, 0) }
 /Vol=74/
 %If(%Volume() > 95.2) Then { %LCD.SetSymbol(20, 1) } Else { %LCD.SetSymbol(20, 0) }
 /Vol=82/
 %If(%Volume() > 96.8) Then { %LCD.SetSymbol(21, 1) } Else { %LCD.SetSymbol(21, 0) }
 /Vol=92/
 %If(%Volume() > 98.6) Then { %LCD.SetSymbol(22, 1) } Else { %LCD.SetSymbol(22, 0) }

 /MDM166A hat zwei Linien mehr/
 %If(%Volume() > 200) Then { %LCD.SetSymbol(23, 1) } Else { %LCD.SetSymbol(22, 0) }
 %If(%Volume() > 200) Then { %LCD.SetSymbol(24, 1) } Else { %LCD.SetSymbol(22, 0) }
)

%Common.ChangeScreen(0, Clear_Symbols) //Script muss nur einmalig durchlaufen werden, dann Wechsel in die Schleife
#EndHeader
#TextMode
 %Common.SetPriority(%Priority())
 %SysVolumeSet() 
#EndTextMode
//EndDef

//ScreenDef
Title=Clear_Symbols
SpecCharFile=
#Header
#EndHeader
#GfxMode
 %Loop.For(Counter, 0, 10, 1) {%LCD.SetSymbol(%Counter(), 0)}
 %Common.ChangeScreen(0, UHR)
#EndGfxMode
//EndDef

//ScreenDef
Title=UHR
SpecCharFile=
#Header
 %Common.SetPriority(%Priority())
  %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
  %LCD.ContrastControl(1)
  
  %If((%System.GetDateTime(hh) >=20)
   OR (%System.GetDateTime(hh) <=07)) 
 Then {%LCD.Contrast(1)} Else {%LCD.Contrast(2)}
#EndHeader

#GfxMode
 %Format.AlignRight()
 %Graph.Font('Arial',%LCD_Y(),1,Bold)
 %Format.Offset(Vertical,-4)
 %Format.Offset(Horizontal,-58)
 %System.GetDateTime(hh:nn)
 %Common.CreateNewLine()
 %Format.Offset(Vertical,0)
 %Format.Offset(Horizontal,0)
 %Graph.Font('Arial',8,1,Bold)
 ':'%System.GetDateTime(ss)
 %Common.CreateNewLine()
 %Graph.Font('Small Fonts',6,1,)
 %Format.Offset(Vertical,-36)
 %Format.Offset(Horizontal,0)
 %System.GetDateTime(dddd)
 %Common.CreateNewLine()
 %Graph.Font('Small Fonts',7,1,Bold)
 %Format.Offset(Vertical,-1)
 %Format.Offset(Horizontal,0)
 %System.GetDateTime(dd.mm.yy)
 
 /Screenwechsel/
 %If(%WinAmp.Status() >= 0)Then{%Common.ChangeScreen(0,Winamp) }
 %Common.ChangeScreen(5000,Next)
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=System
SpecCharFile=
#Header
 %Common.SetPriority(%Priority())
 %LCD.Gfx_SetOverlayMode()
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %Param.FastWrite(1)
#EndHeader

#GfxMode
 %LCD.Gfx_SetFont('Lucida Console',8,1)
 %Format.Offset(Horizontal,0) 
 %Format.Offset(Vertical,-2)
 'CPU Used: '
 
 %Common.CreateNewLine()
 %Format.AlignRight()
 %Format.Offset(Horizontal,-0) 
 %Format.Offset(Vertical,-11)
 %System.CPU(Usage)'%'
 %Common.CreateNewLine()
 %Common.CreateNewLine()
 %Format.AlignLeft()
 %Format.Offset(Horizontal,0) 
 %Format.Offset(Vertical,-13)
'RAM Used: '
 %Common.CreateNewLine()
 %Format.AlignRight()
 %Format.Offset(Horizontal,0) 
 %Format.Offset(Vertical,-11)
 %System.Memory(MemoryLoad)'%'

 /Screenwechsel/
 %If(%WinAmp.Status() >= 0)Then{%Common.ChangeScreen(0,Winamp) }
 %Common.ChangeScreen(5000,Next)
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=RAM
SpecCharFile=
#Header
 %Common.SetPriority(%Priority())
 %LCD.Gfx_SetOverlayMode()
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %Param.FastWrite(1)

#EndHeader
#GfxMode
%LCD.Gfx_SetFont('Small Fonts',5,1)
 %Format.Offset(Horizontal,-1) 
 %Format.Offset(Vertical,-2)
 'RAM Used: '

 %Round(%Div(%System.Memory(MemoryUsed),1024))' MB / '
 %Round(%Div(%System.Memory(MemorySize),1024))' MB'
 %Common.CreateNewLine()
 %LCD.Gfx_SetFont('Small Fonts',6,1,Bold)
 %Format.AlignCenter()
 'RAM Free: '
 %Format.Offset(Horizontal,-1) 
 %Format.Offset(Vertical,0)
 %Dec(%Round(%Div(%System.Memory(MemorySize),1024)),%Round(%Div(%System.Memory(MemoryUsed),1024)))' MB'


 /Screenwechsel/
 %If(%WinAmp.Status() >= 0)Then{%Common.ChangeScreen(0,Winamp) }
 %Common.ChangeScreen(3000,Next)
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=Bildschirm
SpecCharFile=
#Header
 %Common.SetPriority(3000)
 %LCD.Gfx_SetOverlayMode()
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %Param.FastWrite(1)

#EndHeader
#GfxMode
 %LCD.Gfx_SetFont('Small Fonts',6,1)
 %Format.Offset(Vertical,-2)
 %Format.AlignCenter()
 'Auflösung: '
 %System.Display(Width)'X'%System.Display(Height)' Px.'

 %Common.CreateNewLine()
 %LCD.Gfx_SetFont('Small Fonts',6,1)

 'Farben: '
 %Format.Offset(Horizontal,-23) 
 %Format.Offset(Vertical,-1)
 %System.Display(ColorDepth)' Bit'
 %Common.CreateNewLine()
 %Format.AlignCenter()
 'Fps: '
 %Format.Offset(Horizontal,28) 
 %Format.Offset(Vertical,-10)
 %System.Display(RefreshRate)' Hz'

 /Screenwechsel/
 %If(%WinAmp.Status() >= 0)Then{%Common.ChangeScreen(0,Winamp) }
 %Common.ChangeScreen(2000,Next)
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=Internet IP
SpecCharFile=
#Header
 %Common.SetPriority(3000)
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
#EndHeader
#GfxMode
 %LCD.Gfx_SetFont('Small Fonts',6,1)
 %Format.AlignCenter()
 %Format.Offset(Vertical,-2)
 %System.GetInfo(ComputerName)
 %Common.CreateNewLine()
 %LCD.Gfx_SetFont('Arial',7,1)
 %Format.Offset(Vertical,-1)
 %Format.Offset(Horizontal,15)
 %Format.AlignCenter()
 'IP:'%System.Network(%LanCard(),IP)

 /Screenwechsel/
 %If(%WinAmp.Status() >= 0)Then{%Common.ChangeScreen(0,Winamp) }
 %Common.ChangeScreen(1000,Next)
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=Netzwerk
SpecCharFile=
 #Header
 %Common.SetPriority(50)
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %CleanUp.ClearVRAM() 

#EndHeader
#GfxMode
 %LCD.Gfx_SetFont('Small Fonts',6,1)
 %Format.Offset(Horizontal,-1)
 %Format.Offset(Vertical,-2)
 'Name:  '
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,23)
 %Format.Offset(Vertical,-10)
 %Param.EnableScrolling(Horizontal,Ticker,1,73,1,2000) %System.Network(%LanCard(),Name) ' +++ '  %Common.CreateNewLine()
 %LCD.Gfx_SetFont('Small Fonts',5,1)
 %Format.Offset(Horizontal,-1) 
 'IP:'
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,9) 
 %Format.Offset(Vertical,-8)
 %If(%System.Network(%LanCard(),IP) > 0.0.0.0)Then{%System.Network(%LanCard(),IP)} Else { 'Nicht Verb.'}
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,53) 
 %Format.Offset(Vertical,-8)
 'Speed:'
 %Common.CreateNewLine()
 %Format.AlignRight()
 %Format.Offset(Horizontal,0) 
 %Format.Offset(Vertical,-8)
 %If(%System.Network(%LanCard(),IP) > 0.0.0.0)Then{%System.Network(%LanCard(),Speed)'Mb'} Else { ' ?? Mb'}

 /Screenwechsel/
 %If(%WinAmp.Status() >= 0)Then{%Common.ChangeScreen(0,Winamp) }
 %Common.ChangeScreen(3000,Next)
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=Uptime
SpecCharFile=
 
 #Header
 %Common.SetPriority(%Priority())
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %Param.FastWrite(1)

#EndHeader
#GfxMode
 %LCD.Gfx_SetFont('Small Fonts',6,1)
 %Format.AlignCenter()
 %Format.Offset(Vertical,-2)
 'System Uptime:'
 %LCD.Gfx_SetFont('Arial',7,1,Bold)
 %Common.CreateNewLine()
 %Format.AlignCenter()
 %Format.Offset(Vertical,-2)
 %Format.Time(%System.Uptime(),'d')'Day  '
 %Format.Time(%System.Uptime(),'hh:mm:ss')

 /Screenwechsel/
 %If(%WinAmp.Status() >= 0)Then{%Common.ChangeScreen(0,Winamp) }
 %Common.ChangeScreen(3000,Next)
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=C:
SpecCharFile=
#Header
 %Common.SetPriority(%Priority())
 %LCD.Gfx_SetOverlayMode()
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %Param.FastWrite(1)

#EndHeader
#GfxMode
 %LCD.Gfx_SetFont('',7,1)
 %Format.AlignRight()
 /C/
 %Format.Offset(Horizontal,-87) 
 %Format.Offset(Vertical,-2)
 'C:' %Common.CreateNewLine()
 %Format.Offset(Horizontal,-63) 
 %Format.Offset(Vertical,-12)
 'Free:' %Common.CreateNewLine()
 %Format.Offset(Horizontal,1) 
 %Format.Offset(Vertical,-12)
 %Trunc(%Div(%System.Drive(C,Free),1048576))'GB/'
 %Trunc(%Div(%System.Drive(C,Size),1048576))'GB'
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,-63) 
 %Format.Offset(Vertical,-3)
 'Used:'
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,-30) 
 %Format.Offset(Vertical,-12)
 %Trunc(%Div(%System.Drive(C,Used),1048576))'GB'
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,-0) 
 %Format.Offset(Vertical,-12)
 %System.Drive(C, Load) '%'

 /Screenwechsel/
 %If(%WinAmp.Status() >= 0)Then{%Common.ChangeScreen(0,Winamp) }
 %Common.ChangeScreen(3000,Next)
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=D:
SpecCharFile=
#Header
 %Common.SetPriority(%Priority())
 %LCD.Gfx_SetOverlayMode()
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %Param.FastWrite(1)

#EndHeader
#GfxMode
 %LCD.Gfx_SetFont('',7,1)
 %Format.AlignRight()
/D/
 %Format.Offset(Horizontal,-87) 
 %Format.Offset(Vertical,-2)
 'D:' %Common.CreateNewLine()
 %Format.Offset(Horizontal,-63) 
 %Format.Offset(Vertical,-12)
 'Free:' %Common.CreateNewLine()
 %Format.Offset(Horizontal,1) 
 %Format.Offset(Vertical,-12)
 %Trunc(%Div(%System.Drive(D,Free),1048576))'GB/'
 %Trunc(%Div(%System.Drive(D,Size),1048576))'GB'
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,-63) 
 %Format.Offset(Vertical,-3)
 'Used:'
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,-30) 
 %Format.Offset(Vertical,-12)
 %Trunc(%Div(%System.Drive(D,Used),1048576))'GB'
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,-0) 
 %Format.Offset(Vertical,-12)
 %System.Drive(D, Load) '%'
 %If(%WinAmp.Status() >= 0)Then{%Common.ChangeScreen(0,Winamp) }
 %Common.ChangeScreen(3000,Next)
#EndGfxMode

//EndDef
//ScreenDef
Title=E:
SpecCharFile=
#Header
 %Common.SetPriority(%Priority())
 %LCD.Gfx_SetOverlayMode()
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %Param.FastWrite(1)
#EndHeader
#GfxMode
 %LCD.Gfx_SetFont('',7,1)
 %Format.AlignRight()
 /E/
 %Format.Offset(Horizontal,-87) 
 %Format.Offset(Vertical,-2)
 'E:' %Common.CreateNewLine()
  %Format.Offset(Horizontal,-63) 
 %Format.Offset(Vertical,-12)
 'Free:' %Common.CreateNewLine()
 %Format.Offset(Horizontal,1) 
 %Format.Offset(Vertical,-12)
 %Trunc(%Div(%System.Drive(E,Free),1048576))'GB/'
 %Trunc(%Div(%System.Drive(E,Size),1048576))'GB'
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,-63) 
 %Format.Offset(Vertical,-3)
 'Used:'
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,-30) 
 %Format.Offset(Vertical,-12)
 %Trunc(%Div(%System.Drive(E,Used),1048576))'GB'
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,-0) 
 %Format.Offset(Vertical,-12)
 %System.Drive(E, Load) '%'

 /Screenwechsel/
 %If(%WinAmp.Status() >= 0)Then{%Common.ChangeScreen(0,Winamp) }
 %Common.ChangeScreen(0,Next)
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=F:
SpecCharFile=
#Header
 %Common.SetPriority(%Priority())
 %LCD.Gfx_SetOverlayMode()
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %Param.FastWrite(1)
#EndHeader
#GfxMode
 %LCD.Gfx_SetFont('',7,1)
 %Format.AlignRight()
 /F/
 %Format.Offset(Horizontal,-87) 
 %Format.Offset(Vertical,-2)
 'F:' %Common.CreateNewLine()
 %Format.Offset(Horizontal,-63) 
 %Format.Offset(Vertical,-12)
 'Free:' %Common.CreateNewLine()
 %Format.Offset(Horizontal,1) 
 %Format.Offset(Vertical,-12)
 %Trunc(%Div(%System.Drive(F,Free),1048576))'GB/'
 %Trunc(%Div(%System.Drive(F,Size),1048576))'GB'
 %Common.CreateNewLine()
 %Format.Offset(Horizontal,-63) 
 %Format.Offset(Vertical,-3)
 'Used:'
 %Common.CreateNewLine()
  %Format.Offset(Horizontal,-30) 
 %Format.Offset(Vertical,-12)
 %Trunc(%Div(%System.Drive(F,Used),1048576))'GB'
 %Common.CreateNewLine()
  %Format.Offset(Horizontal,-0) 
 %Format.Offset(Vertical,-12)
 %System.Drive(F, Load) '%'
 %If(%WinAmp.Status() >= 0)Then{%Common.ChangeScreen(0,Winamp) }
 %Common.ChangeScreen(10,UHR)
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=Winamp
SpecCharFile=
#Header
 %Common.SetPriority(25)
 %LCD.Gfx_SetFont('Small Fonts',5,1)
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %LCD.ContrastControl(1){%LCD.Contrast(2)}
#EndHeader

#GfxMode
 %Common.ChangeScreen(8000,Next)
 %If(%WinAmp.Status() = 0) Then 
  {/THEN BEGIN/
  /Time/
  %Format.Offset(Horizontal,-1) 
  %Format.Offset(Vertical,-2)
  %Format.Time(%Mul(%WinAmp.TrackPos(),1000),'mm:ss') 
  %Common.CreateNewLine()
  /Bitrate/
  %Format.AlignRight()
  %Format.Offset(Vertical,-8)
  %Format.Offset(Horizontal,-56)
  %If(%WinAmp.BitRate() > 0) Then { %WinAmp.BitRate()} Else {' ?'}
  %Common.CreateNewLine()
  /SampleFrequenc/
  %Format.Offset(Vertical,-8)
  %Format.Offset(Horizontal,-32)
  %If(%WinAmp.SampleFrequency() > 0) Then { %Round(%Div(%WinAmp.SampleFrequency(),1000))} Else {' ?'}
  kHz
  %Common.CreateNewLine()

  /Channels/
  %Format.Offset(Vertical,-8)
  %Format.Offset(Horizontal,-16)
  %If( %WinAmp.Channels() > 0) Then {%WinAmp.Channels()} Else {' ?'}
  Ch
  %Common.CreateNewLine()

  /Tracknummer/
  %Format.AlignLeft()
  %Format.Offset(Vertical,-8)
  %Format.Offset(Horizontal,81)
  'Tr'
 
  %If(%WinAmp.AlbumTrackNo() > 0) Then { %WinAmp.AlbumTrackNo()} Else {' ?'}
  %Common.CreateNewLine()

  /Bar/
  / %Format.Bar(Horizontal,%LCD_X(),1,1,%WinAmp.TrackLength(),%WinAmp.TrackPos(),0,0,0,6)/
  %Common.CreateNewLine()

  /Titel/
  %LCD.Gfx_SetFont('Verdana',7,1,Bold)
  %Format.Offset(Vertical,-10)
  %Format.Offset(Horizontal,0)
  %Param.EnableScrolling(Horizontal,Ticker,1,%LCD_X(),1,2000)  %Format.AlignCenter() %WinAmp.RawTitle()' +++ ' 
 /THEN END/}
  
 %Common.CreateNewLine()
 %Format.Offset(Vertical,-6)
 %Format.Offset(Horizontal,0)
 %LCD.Gfx_SetFont('Verdana',7,1,Bold)
 %If(%WinAmp.Status() = 1) Then {%Format.AlignCenter()'Winamp Paused!'}
 %If(%WinAmp.Status() = 2) Then {%Format.AlignCenter()'Winamp Stopped!'}

 %If(%WinAmp.Status() = 0) Then { %LCD.SetSymbol(%LCD_play(), 1) } Else { %LCD.SetSymbol(%LCD_play(), 0) }
 %If(%WinAmp.Status() > 0) Then { %LCD.SetSymbol(%LCD_pause(), 1) } Else { %LCD.SetSymbol(%LCD_pause(), 0) }

 %If(%WinAmp.Status() = -1)Then{%Common.ChangeScreen(0,Clear_Symbols) }
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=Winamp_Spec
SpecCharFile=
#Header
 %Common.SetPriority(1)
 %Param.FastWrite(1)
  %LCD.ContrastControl(1)
{ %LCD.Contrast(2) }

#EndHeader
#GfxMode
 %Common.ChangeScreen(20000,Next)
 %If(%WinAmp.Status() = 0) Then {
  %Format.Offset(Vertical,-2)
  %LCD.Gfx_SetFont('Small Fonts',6,1)
  %Param.EnableScrolling(Horizontal,Ticker,1,%LCD_X(),1,2000)  %Format.AlignCenter() '+ '%WinAmp.RawTitle()' +' 
  %Param.OverlayMode(0,0,%LCD_X(),%LCD_Y())
  %WinAmp.SpecAnalyzer(FFT,Bars,%LCD_X(),%LCD_Y(),1,1,1,1,0,0,0)}
 Else { %Common.CreateNewLine()   %LCD.Gfx_SetFont('Verdana',7,1,Bold)
 %Format.Offset(Vertical,-14)
 %Format.Offset(Horizontal,0)

 %If(%WinAmp.Status() = 1) Then {%Common.ChangeScreen(0,Winamp) }
 %If(%WinAmp.Status() = 2) Then {%Common.ChangeScreen(0,Winamp) }
 %If(%WinAmp.Status() = -1)Then{%Common.ChangeScreen(0,Clear_Symbols) }
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=Winamp_BIG
SpecCharFile=
#Header
 %Common.SetPriority(20)
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())

#EndHeader
#GfxMode
 %Common.ChangeScreen(8000,Next)
 %If(%WinAmp.Status() = -1)Then{%Common.ChangeScreen(0,Clear_Symbols) }
 %If(%WinAmp.Status() = 1) Then {%Common.ChangeScreen(0,Winamp) }
 %If(%WinAmp.Status() = 2) Then {%Common.ChangeScreen(0,Winamp) }
 %LCD.Gfx_SetFont('Arial',12,1,Bold)
 %Format.Offset(Vertical,-1)
 %Format.Offset(Horizontal,0)
 %If(%WinAmp.Status() < 2) Then {%Param.EnableScrolling(Horizontal,Ticker,1,%LCD_X(),1,2000)  %Format.AlignCenter()    %WinAmp.RawTitle() ' +++ ' } Else  {%Common.ChangeScreen(0,Winamp)}
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=Winamp_psy
SpecCharFile=
#Header
 %Common.SetPriority(30)
 %DefVar(LCDWidth,Local=%LCD_X())
 %DefVar(LCDHight,Local=%LCD_Y())
 %DefVar(AmpVU,Local=1)
 %DefVar(AmpSpec,Local=230)
 %DefVar(Half,Local=%Div(%LCDWidth(),2))
 %DefVar(BandWidth,Local=%Round(%Dec(%Div(%Dec(%LCDWidth(),2),30),1)))
 %DefVar(BandSpace,Local=%Round(%Dec(%Div(%Dec(%LCDWidth(),2),30),%BandWidth())))
 %DefVar(Frame,Local=%Round(%Div(%Dec(%LCDWidth(),%Mul(%Inc(%BandWidth(),%BandSpace()),30)),2)))
/#EndHeader

#GfxMode
 %Common.ChangeScreen(15000,Winamp)
 %LCD.Gfx_SetOverlayMode()
 %Param.RenderMode(Simple)
 %CleanUp.InvertArea(All)
 %WinAmp.SpecAnalyzer(FFT,PeakedBarsFilled,30,%LCDHight(),%AmpSpec,2,0.3,%BandWidth(),%BandSpace(),%Frame(),0)
 %Graph.SetInvertArea(0,0,%WinAmp.VU(%AmpVU(),Left),%LCDHight())
 %Graph.SetInvertArea(%Inc(%Half(),%Dec(%Half(),%WinAmp.VU(%Amp(),Right))),0,%LCDWidth(),%LCDHight())
 %If(%WinAmp.Status() = -1)Then{%Common.ChangeScreen(0,Clear_Symbols) }
 %If(%WinAmp.Status() = 1) Then {%Common.ChangeScreen(0,Winamp) }
 %If(%WinAmp.Status() = 2) Then {%Common.ChangeScreen(0,Winamp) }
 %SysVolumeSet() 
#EndGfxMode

//EndDef
//ScreenDef
Title=Willkommen
SpecCharFile=
#Header
 %Common.SetPriority(5000)
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %LCD.ContrastControl(1)
 %If((%System.GetDateTime(hh) >=20)
  OR (%System.GetDateTime(hh) <=07)) 
   Then {%LCD.Contrast(1)} Else {%LCD.Contrast(2)}
#EndHeader
#GfxMode
 %Format.AlignCenter()
 %Format.Offset(Vertical, 1)
 %Loop.For(Counter, 0, 22, 1) {%LCD.SetSymbol(%Counter(), 1)}
 Hallo!
 /%Loop.For(Counter, 0, 22, 1) {%LCD.SetSymbol(%Counter(), 0)}/
#EndGfxMode

//EndDef
//ScreenDef
Title=Shutdown
SpecCharFile=
#Header
 %Common.SetPriority(5000)
 %Graph.SetTextArea(0, 0, %LCD_X(), %LCD_Y())
 %LCD.ContrastControl(1)
 %If((%System.GetDateTime(hh) >=20)
  OR (%System.GetDateTime(hh) <=07)) 
   Then {%LCD.Contrast(1)} Else {%LCD.Contrast(2)}
#EndHeader
#GfxMode
 %Format.AlignCenter()
 %Format.Offset(Vertical, 1)
 %Loop.For(Counter, 0, 22, 1) {%LCD.SetSymbol(%Counter(), 1)}
 Tschüß!
 %Loop.For(Counter, 0, 22, 1) {%LCD.SetSymbol(%Counter(), 0)}
#EndGfxMode

//EndDef
//ScreenDef
Title=Example Kodi Script (AV)
SpecCharFile=
#Header
  %Common.SetPriority(%Priority())
  
  %Plugin.Kodi.Connection.Open('127.0.0.1', 9090)
  
  %DefVar(i=0)
  %DefVar(TVShowID=0)
  
  %Param.RenderMode(Full)
#EndHeader

#TextMode
  %Common.CreateNewLine()
  %Plugin.Kodi.Connection.State()
  %Common.CreateNewLine()
  
  %If(%Plugin.Kodi.Connection.State() = 'Connected')
  { 
    'CurrentWindowID=' 
    %Plugin.Kodi.GUI.CurrentWindowID()
    %Common.CreateNewLine()
  
    'CurrentWindowLabel='
    %Plugin.Kodi.GUI.CurrentWindowLabel()
    %Common.CreateNewLine()
    %Common.CreateNewLine()
    
    'Application.Muted='%Plugin.Kodi.Application.Muted()
    %Common.CreateNewLine()
  
    'Application.Volume='%Plugin.Kodi.Application.Volume()'/100'
    %Common.CreateNewLine()
    
    %If(%Plugin.Kodi.ActivePlayer() = 'Audio')
    {
      %Assign(i, %Plugin.Kodi.AudioPlayer.CurrentItem.Index())

      'AP.State='%Plugin.Kodi.AudioPlayer.State()
      %Common.CreateNewLine()
      'AP.CI.Index='%i()
      %Common.CreateNewLine()
      'AP.CI.Position='%Plugin.Kodi.AudioPlayer.CurrentItem.Position()
      %Common.CreateNewLine()
        
      'AP.PL.Length='%Plugin.Kodi.AudioPlayer.Playlist.Length()
      %Common.CreateNewLine()
      
      'AP.PL['%i()']'%Common.CreateNewLine()
      '  Length='%Plugin.Kodi.AudioPlayer.Playlist.Item(%i(), Length)
      %Common.CreateNewLine()
      '  Title='%Plugin.Kodi.AudioPlayer.Playlist.Item(%i(), Title)  
      %Common.CreateNewLine()
      '  Album='%Plugin.Kodi.AudioPlayer.Playlist.Item(%i(), Album)
      %Common.CreateNewLine()
      '  Artist='%Plugin.Kodi.AudioPlayer.Playlist.Item(%i(), Artist)
      %Common.CreateNewLine()
      '  Comment='%Plugin.Kodi.AudioPlayer.Playlist.Item(%i(), Comment)
      %Common.CreateNewLine()
      '  Genre='%Plugin.Kodi.AudioPlayer.Playlist.Item(%i(), Genre)
      %Common.CreateNewLine()
      '  Filename='%Plugin.Kodi.AudioPlayer.Playlist.Item(%i(), Filename)
    }
    
    %If(%Plugin.Kodi.ActivePlayer() = 'Video')
    {
      %Assign(i, %Plugin.Kodi.VideoPlayer.CurrentItem.Index())

      'VP.State='%Plugin.Kodi.VideoPlayer.State()
      %Common.CreateNewLine()
      'VP.CI.Index='%i()
      %Common.CreateNewLine()
      'VP.CI.Position='%Plugin.Kodi.VideoPlayer.CurrentItem.Position()
      %Common.CreateNewLine()
      
      'VP.PL.Length='%Plugin.Kodi.VideoPlayer.Playlist.Length()
      %Common.CreateNewLine()
      
      %If(%i() >= 0)
      {
        'VP.PL['%i()']'%Common.CreateNewLine()
  
        %Assign(TVShowID, %Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), 'TVShowID'))
        %If(%TVShowID() > 0)
        {
          '  TVShow.Title='%Plugin.Kodi.TVShow.Detail(%TVShowID(), 'Title')
          %Common.CreateNewLine()
          '  TVShow.Season='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), 'Season')
          %Common.CreateNewLine()
          '  TVShow.Episode.Number='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), 'EpisodeNumber')
          %Common.CreateNewLine()
          '  TVShow.Episode.Title='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), 'Title')
          %Common.CreateNewLine()
        }
        Else
        {      
          '  Title='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Title)
          %Common.CreateNewLine()
        }
        
        '  Length='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Length)
        %Common.CreateNewLine()
        '  Genre='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Genre)  
        %Common.CreateNewLine()
        '  Director='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Director)
        %Common.CreateNewLine()
        '  Tagline='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Tagline)
        %Common.CreateNewLine()
        '  Plot='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Plot)
        %Common.CreateNewLine()
        '  Year='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Year)
        %Common.CreateNewLine()
        '  Writer='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Writer)
        %Common.CreateNewLine()
        '  MPAA='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), MPAA)     
        %Common.CreateNewLine()
        '  Filename='%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Filename)
      }
    }
    
    %If(%Plugin.Kodi.ActivePlayer() = 'Picture')
    {
      'Showing some pictures...'
    }
  }
#EndTextMode

#GfxMode
  %If(%Plugin.Kodi.ActivePlayer() = 'Audio' OR %Plugin.Kodi.ActivePlayer() = 'Video')
  {
    %Format.Bar(
   	  Horizontal,  /horizontal display/
   	  %Common.Config(LCDWidth),         /width/
   	  7,          /height/
   	  0,           /minimum/
   	  %Eval('%Plugin.Kodi.'%Plugin.Kodi.ActivePlayer()'Player.Playlist.Item(0, Length)'), /maximum/
   	  %Eval('%Plugin.Kodi.'%Plugin.Kodi.ActivePlayer()'Player.CurrentItem.Position()'), /current/  
   	  1,           /frame width/  
   	  1,           /frame border/  
     	0,          /xpos/  
     	0           /ypos/ 
    )
  }
#EndGfxMode

//EndDef
//ScreenDef
Title=Example Kodi Script (PVR)
SpecCharFile=
#Header
  %Common.SetPriority(%Priority())
  
  %Plugin.Kodi.Connection.Open('127.0.0.1', 9090)
  
  %DefVar(i=0)
#EndHeader

#TextMode
  %Common.CreateNewLine()
  %Plugin.Kodi.Connection.State()
  %Common.CreateNewLine()
  
  %If(%Plugin.Kodi.Connection.State() = 'Connected')
  { 
    'ActivePlayer='%Plugin.Kodi.ActivePlayer()
    %Common.CreateNewLine()
    
    'PVR.Available='%Plugin.Kodi.PVR.Available()
    %Common.CreateNewLine()
    
    %If(%Plugin.Kodi.PVR.Available())
    {   
      'PVR.Recording='%Plugin.Kodi.PVR.Recording()
      %Common.CreateNewLine()
      'PVR.Scanning='%Plugin.Kodi.PVR.Scanning()
      %Common.CreateNewLine()
      
      'PVR.Channel.Count='%Plugin.Kodi.PVR.Channel.Count()
      %Common.CreateNewLine()
      
      %Assign(i, 0)
      
      'PVR.Channel['%i()']'
      %Common.CreateNewLine()
      '  ID='%Plugin.Kodi.PVR.Channel.ByIndex(%i(), 'ID')
      %Common.CreateNewLine()
      '  Name='%Plugin.Kodi.PVR.Channel.ByIndex(%i(), 'Name')
      %Common.CreateNewLine()
      
      'PVR.CurrentProgram.State='%Plugin.Kodi.PVR.CurrentProgram.State()
      %Common.CreateNewLine()
      
      'PVR.CurrentProgram.ChannelID='%Plugin.Kodi.PVR.CurrentProgram.ChannelID()
      %Common.CreateNewLine()
      %If(%Plugin.Kodi.PVR.CurrentProgram.ChannelID() > 0)
      {
        'PVR.CurrentProgram.ChannelName='
        %Plugin.Kodi.PVR.Channel.ByID(
          %Plugin.Kodi.PVR.CurrentProgram.ChannelID(), 'Name')
        %Common.CreateNewLine()
      }
      
      'PVR.CurrentProgram.Name='%Plugin.Kodi.PVR.CurrentProgram.Name()
      %Common.CreateNewLine()
      'PVR.CurrentProgram.StartTime='%Plugin.Kodi.PVR.CurrentProgram.StartTime('dd.mm.yyyy, hh:mm:ss')
      %Common.CreateNewLine()
      'PVR.CurrentProgram.EndTime='%Plugin.Kodi.PVR.CurrentProgram.EndTime('dd.mm.yyyy, hh:mm:ss')
      %Common.CreateNewLine()
      'PVR.CurrentProgram.Position='%Plugin.Kodi.PVR.CurrentProgram.Position()
      %Common.CreateNewLine()
      'PVR.CurrentProgram.Length='%Plugin.Kodi.PVR.CurrentProgram.Length()
      %Common.CreateNewLine()
      'PVR.CurrentProgram.Genre='%Plugin.Kodi.PVR.CurrentProgram.Genre()
      %Common.CreateNewLine()
    }
  }
#EndTextMode

#GfxMode
  %If(%Plugin.Kodi.PVR.Available())
  {
    %Format.Bar(
   	  Horizontal, /horizontal display/
   	  %Common.Config(LCDWidth), /width/
   	  7, /height/
   	  0, /minimum/
   	  %Plugin.Kodi.PVR.CurrentProgram.Length(), /maximum/
   	  %Plugin.Kodi.PVR.CurrentProgram.Position(), /current/  
   	  1, /frame width/  
   	  1, /frame border/  
     	0, /xpos/  
     	0 /ypos/ 
    )
  }
#EndGfxMode

//EndDef
//ScreenDef
Title=Example Kodi Script (GUI)
SpecCharFile=
#Header
  %Common.SetPriority(%Priority())
  
  %Plugin.Kodi.Connection.Open('127.0.0.1', 9090)
#EndHeader

#TextMode
  %Plugin.Kodi.Connection.State()
  %Common.CreateNewLine()
  
  %If(%Plugin.Kodi.Connection.State() = 'Connected')
  { 
    'CurrentWindowID=' 
    %Plugin.Kodi.GUI.CurrentWindowID()
    %Common.CreateNewLine()
  
    'CurrentWindowLabel='
    %Plugin.Kodi.GUI.CurrentWindowLabel()
    %Common.CreateNewLine()
    
    'CurrentControl='
    %Plugin.Kodi.GUI.CurrentControl()
    %Common.CreateNewLine()
  }
#EndTextMode

#GfxMode
  / insert gfxmode script code here /
#EndGfxMode

//EndDef
//ScreenDef
Title=Start_Kpdi
SpecCharFile=
#Header
  %Common.SetPriority(%Priority())
  %Plugin.Kodi.Connection.Open('127.0.0.1', 9090)
  %DefVar(i=0)
  %Param.RenderMode(Full)
#EndHeader

#TextMode
#EndTextMode

#GfxMode
  %LCD.SetSymbol(00,00)
  %LCD.SetSymbol(01,00)
  %LCD.SetSymbol(10,00)
  %Format.AlignCenter()
  %Format.Offset(Vertical, 1)
  %Graph.Font('Arial',8,1,Bold)
  %Plugin.Kodi.Connection.State()
  /Screenwechsel/
  %If(%Plugin.Kodi.Connection.State() = 'Connected')Then{%Common.ChangeScreen(1000,1) }
  /EndScreenWechsel/
#EndGfxMode

//EndDef
//ScreenDef
Title=WindowLabel
SpecCharFile=
#Header
  %Common.SetPriority(%Priority())
  %Plugin.Kodi.Connection.Open('127.0.0.1', 9090)
  %DefVar(i=0)
  %Param.RenderMode(Full)
#EndHeader

#TextMode
  / insert textmode script code here /
#EndTextMode

#GfxMode
  %LCD.SetSymbol(00,00)
  %LCD.SetSymbol(01,00)
  %LCD.SetSymbol(10,01)
  %Format.AlignCenter() 
  %Format.Offset(Vertical, 1)
  %Graph.Font('Arial',8,1,Bold)
  %Param.EnableScrolling(Horizontal,Swing,2,94,1,500)
  %CleanUp.TextArea(All)
  
  %If(%Plugin.Kodi.GUI.CurrentWindowLabel() ! '')Then{ %Plugin.Kodi.GUI.CurrentWindowLabel() }Else{ %Plugin.Kodi.GUI.CurrentControl() }
    
  /Screenwechsel/
  %If(%Plugin.Kodi.Connection.State() ! 'Connected')Then{%Common.ChangeScreen(1000,0) }
  %If(%Plugin.Kodi.ActivePlayer() = 'Audio' OR %Plugin.Kodi.ActivePlayer() = 'Video' OR %Plugin.Kodi.ActivePlayer() = 'Picture')Then{ %Common.ChangeScreen(1000,2) }
  /EndScreenWechsel/

  %If(%Plugin.Kodi.PVR.Recording() = 'True')
    { %LCD.SetSymbol(02,01) }
    Else
    { %LCD.SetSymbol(02,00) }
    
  %If(%Plugin.Kodi.Application.Muted() = 'False' OR %Plugin.Kodi.Application.Volume() = 0)
    { %LCD.SetSymbol(05,00) }
    Else
    { %LCD.SetSymbol(05,01) }
    
  %If(%Plugin.Kodi.Application.Volume() > 1)
    { %LCD.SetSymbol(11,01) }
    Else
    { %LCD.SetSymbol(11,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 9)
    { %LCD.SetSymbol(12,01) }
    Else
    { %LCD.SetSymbol(12,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 16)
    { %LCD.SetSymbol(13,01) }
    Else
    { %LCD.SetSymbol(13,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 23)
    { %LCD.SetSymbol(14,01) }
    Else
    { %LCD.SetSymbol(14,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 30)
    { %LCD.SetSymbol(15,01) }
    Else
    { %LCD.SetSymbol(15,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 37)
    { %LCD.SetSymbol(16,01) }
    Else
    { %LCD.SetSymbol(16,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 44)
    { %LCD.SetSymbol(17,01) }
    Else
    { %LCD.SetSymbol(17,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 51)
    { %LCD.SetSymbol(18,02) }
    Else
    { %LCD.SetSymbol(18,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 58)
    { %LCD.SetSymbol(19,01) }
    Else
    { %LCD.SetSymbol(19,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 65)
    { %LCD.SetSymbol(20,01) }
    Else
    { %LCD.SetSymbol(20,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 72)
    { %LCD.SetSymbol(21,01) }
    Else
    { %LCD.SetSymbol(21,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 79)
    { %LCD.SetSymbol(22,01) }
    Else
    { %LCD.SetSymbol(22,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 86)
    { %LCD.SetSymbol(23,01) }
    Else
    { %LCD.SetSymbol(23,00) }
    
  %If(%Plugin.Kodi.Application.Volume() = 100)
    { %LCD.SetSymbol(24,02) }
    Else
    { %LCD.SetSymbol(24,00) }

#EndGfxMode

//EndDef
//ScreenDef
Title=Start_Kodi
SpecCharFile=
#Header
  %Common.SetPriority(%Priority())
  %Plugin.Kodi.Connection.Open('127.0.0.1', 9090)
  %Param.RenderMode(Full)
  
  %DefVar(i=0)
  %DefVar(t1=%System.Uptime())
  %DefVar(t2=%System.Uptime())
  %DefVar(LabelKind='Artist')
  %DefVar(TVShowID=0)
  %DefVar(TVShowLabel=%Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Title))
  %Graph.SetTextArea(0,0,96,15)
#EndHeader

#GfxMode
  %LCD.SetSymbol(10,01)
  %CleanUp.TextArea(All)
  %Format.AlignCenter()
  %Format.Offset(Vertical, -1)
  %Graph.Font('Arial Narrow',8,1,Bold)
  %Param.EnableScrolling(Horizontal,Swing,4,94,1,500)
  
  /Screenwechsel/
  %If(%Plugin.Kodi.Connection.State() ! 'Connected')Then{%Common.ChangeScreen(1000,0) }
  %If(%Eval('%Plugin.Kodi.'%Plugin.Kodi.ActivePlayer()'Player.State()') = 'Inactive' AND %Plugin.Kodi.ActivePlayer() ! 'Picture')Then{ %Common.ChangeScreen(1000,1) }
  /EndScreenWechsel/

  %If(%Plugin.Kodi.ActivePlayer() = 'Audio')Then{%Assign(i, %Plugin.Kodi.AudioPlayer.CurrentItem.Index())}
  %If(%Plugin.Kodi.ActivePlayer() = 'Video')Then{%Assign(i, %Plugin.Kodi.VideoPlayer.CurrentItem.Index())}
  
  %If(%Plugin.Kodi.ActivePlayer() = 'Audio')
  {
    %If(%Plugin.Kodi.AudioPlayer.Playlist.Item(%i(), Artist) ! '')
      { 
        %Assign(t2, %System.Uptime())
        %If(%Dec(%t2(), %t1()) >= 20000)
        {
          %If(%LabelKind() = 'Artist')
          { %Assign(LabelKind, 'Title') }
          Else
          { %Assign(LabelKind, 'Artist') }
            %Assign(t1, %t2())
        }
        %Plugin.Kodi.AudioPlayer.Playlist.Item(%i(), %LabelKind())
      }
      Else
      { %Plugin.Kodi.AudioPlayer.Playlist.Item(%i(), Title) }
  }
  Else
  { }
  
  %If(%Plugin.Kodi.ActivePlayer() = 'Video' AND %Plugin.Kodi.PVR.CurrentProgram.State() ! 'Playing')
    {
      %Assign(TVShowID, %Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), 'TVShowID'))
      %If(%TVShowID() > 0)
        {
          %Assign(t2, %System.Uptime())
          %If(%Dec(%t2(), %t1()) >= 20000)
          { 
            %If(%TVShowLabel() = %Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Title))
            { %Assign(TVShowLabel, %Plugin.Kodi.TVShow.Detail(%TVShowID(), 'Title')) }
            Else
            { %Assign(TVShowLabel, %Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Title)) }
              %Assign(t1, %t2())
          }
          Else
          { %If(%TVShowLabel() = '')
            { %Plugin.Kodi.TVShow.Detail(%TVShowID(), 'Title') }
            Else
            { %TVShowLabel() }
          }
        }
        Else
        { %Plugin.Kodi.VideoPlayer.Playlist.Item(%i(), Title) } 
    }
    Else
    { }

  %If(%Plugin.Kodi.ActivePlayer() = 'Video' AND %Plugin.Kodi.PVR.CurrentProgram.State() = 'Playing')THEN{%Plugin.Kodi.PVR.CurrentProgram.Name()}
  %If((%Plugin.Kodi.ActivePlayer() = 'Picture') AND %Plugin.Kodi.PicturePlayer.State() = 'Playing')
  {
    'Diashow'
  }
  Else
  { }
  
  %If(%Eval('%Plugin.Kodi.'%Plugin.Kodi.ActivePlayer()'Player.State()') = 'Paused')
    { %LCD.SetSymbol(01,01) }
    Else
    { %LCD.SetSymbol(01,00) }
    
  %If(%Eval('%Plugin.Kodi.'%Plugin.Kodi.ActivePlayer()'Player.State()') = 'Playing')
    { %LCD.SetSymbol(00,01) }
    Else
    { %LCD.SetSymbol(00,00) }

  %If(%Plugin.Kodi.PVR.Recording() = 'True')
    { %LCD.SetSymbol(02,01) }
    Else
    { %LCD.SetSymbol(02,00) }
    
  %If(%Plugin.Kodi.Application.Muted() = 'True' OR %Plugin.Kodi.Application.Volume() = 0)
    { %LCD.SetSymbol(05,01) }
    Else
    { %LCD.SetSymbol(05,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 1)
    { %LCD.SetSymbol(11,01) }
    Else
    { %LCD.SetSymbol(11,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 9)
    { %LCD.SetSymbol(12,01) }
    Else
    { %LCD.SetSymbol(12,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 16)
    { %LCD.SetSymbol(13,01) }
    Else
    { %LCD.SetSymbol(13,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 23)
    { %LCD.SetSymbol(14,01) }
    Else
    { %LCD.SetSymbol(14,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 30)
    { %LCD.SetSymbol(15,01) }
    Else
    { %LCD.SetSymbol(15,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 37)
    { %LCD.SetSymbol(16,01) }
    Else
    { %LCD.SetSymbol(16,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 44)
    { %LCD.SetSymbol(17,01) }
    Else
    { %LCD.SetSymbol(17,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 51)
    { %LCD.SetSymbol(18,02) }
    Else
    { %LCD.SetSymbol(18,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 58)
    { %LCD.SetSymbol(19,01) }
    Else
    { %LCD.SetSymbol(19,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 65)
    { %LCD.SetSymbol(20,01) }
    Else
    { %LCD.SetSymbol(20,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 72)
    { %LCD.SetSymbol(21,01) }
    Else
    { %LCD.SetSymbol(21,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 79)
    { %LCD.SetSymbol(22,01) }
    Else
    { %LCD.SetSymbol(22,00) }
    
  %If(%Plugin.Kodi.Application.Volume() > 86)
    { %LCD.SetSymbol(23,01) }
    Else
    { %LCD.SetSymbol(23,00) }
    
  %If(%Plugin.Kodi.Application.Volume() = 100)
    { %LCD.SetSymbol(24,02) }
    Else
    { %LCD.SetSymbol(24,00) }
    
  %If((%Plugin.Kodi.ActivePlayer() = 'Audio' OR %Plugin.Kodi.ActivePlayer() = 'Video') AND %Plugin.Kodi.PVR.CurrentProgram.State() ! 'Playing')
  {
    %Param.OverlayMode()
    %Format.Bar(
   	  Horizontal,                                                                                     /horizontal display/
   	  %Common.Config(LCDWidth),                                                                       /width/
   	  1,                                                                                              /height/
   	  0,                                                                                              /minimum/
   	  %Eval('%Plugin.Kodi.'%Plugin.Kodi.ActivePlayer()'Player.Playlist.Item(%i(), Length)'),          /maximum/
   	  %Eval('%Plugin.Kodi.'%Plugin.Kodi.ActivePlayer()'Player.CurrentItem.Position()'),               /current/
   	  0,                                                                                              /frame width/
   	  0,                                                                                              /frame border/
     	0,                                                                                              /xpos/
     	15                                                                                              /ypos/
    )
  }
  Else
  { }
  
  %If((%Plugin.Kodi.ActivePlayer() = 'Audio' OR %Plugin.Kodi.ActivePlayer() = 'Video') AND %Plugin.Kodi.PVR.CurrentProgram.State() = 'Playing')
  {    
    %Param.OverlayMode()
    %Format.Bar(
   	  Horizontal,                                                                                     /horizontal display/
   	  %Common.Config(LCDWidth),                                                                       /width/
   	  1,                                                                                              /height/
   	  0,                                                                                              /minimum/
   	  %Eval('%Plugin.Kodi.PVR.CurrentProgram.Length(0, Length)'),                                     /maximum/
   	  %Eval('%Plugin.Kodi.PVR.CurrentProgram.Position()'),                                            /current/
   	  0,                                                                                              /frame width/
   	  0,                                                                                              /frame border/
     	0,                                                                                              /xpos/
     	15                                                                                              /ypos/
    )
  }
  Else
  { }
  %If((%Plugin.Kodi.ActivePlayer() = 'Audio' OR %Plugin.Kodi.ActivePlayer() = 'Video')
   AND (%Eval('%Plugin.Kodi.'%Plugin.Kodi.ActivePlayer()'Player.Playlist.Item(0, Length)') > 0 OR %Plugin.Kodi.PVR.CurrentProgram.Length(0, Length) > 0))
    { 
    %Graph.SetPixel(0,14,1)
    %Graph.SetPixel(0,15,1)
    %Graph.SetPixel(47,14,1)
    %Graph.SetPixel(47,15,1)
    %Graph.SetPixel(95,14,1)
    %Graph.SetPixel(95,15,1)
    }
    Else
    { }
    
#EndGfxMode

//EndDef
//ScreenDef
Title=SpeedFan
SpecCharFile=
#Header
%LCD.Gfx_SetTextArea(0,0,%LCD_X(),%LCD_Y())
%Common.SetPriority(1000)
%DefVar(speedfan=
'CPU:' %UsePlugin('speedfan\speedfan.dll',getTemp,2) 'Cø'
%Common.CreateNewLine()
'SYS:' %UsePlugin('speedfan\speedfan.dll',getTemp,1) 'Cø'
%Common.CreateNewLine()
'HDD:' %UsePlugin('speedfan\speedfan.dll',getTemp,3) 'Cø'
%Common.CreateNewLine()
'CPU:' %UsePlugin('speedfan\speedfan.dll',getFan,0) 'RPM'
%Common.CreateNewLine()
'SYS:' %UsePlugin('speedfan\speedfan.dll',getFan,1) 'RPM')
#EndHeader

#GfxMode
%LCD.Gfx_SetFont('Terminal',6,1)
%Param.RenderMode(Simple)
%speedfan()
#EndGfxMode


//EndDef
//ScreenDef
Title=WinMediaPlayer
SpecCharFile=wmc.cd
#Header
%CleanUp.ClearVRAM()
%Common.SetPriority(1000)
%Param.AvoidPluginCleanUp()
%DefVar(MediumInfo,Local='')
%DefVar(Interpret,Local='')
%DefVar(Song,Local='')
%DefVar(Album,Local='')
%DefVar(Titel,Local='')
%DefVar(TitelGesamt,Local='')
%DefVar(Zeit,Local='')
%DefVar(ZeitGesamt,Local='')
%DefVar(Shuffle,Local='')
%DefVar(Repeat,Local='')
#EndHeader


#TextMode
%Assign(MediumInfo,"%UsePlugin('mce\lhplugin.dll',GetMediumInfo)")

%If(%MediumInfo() = 'EigeneMusik') Then
{
  %Format.AlignCenter()
  'Musikarchiv'
  %Common.CreateNewLine()
  %System.GetDateTime(hh:nn:ss)
  %Common.CreateNewLine()
  %System.GetDateTime(dddd)
   ' '
  %System.GetDateTime(dd)
  '. '
  %System.GetDateTime(mmmm)
  '  '
  %System.GetDateTime(yyy)
}

%If(%MediumInfo() = 'EigeneVideos') Then
{
  %Format.AlignCenter()
  'Filmarchiv'
  %Common.CreateNewLine()
  %System.GetDateTime(hh:nn:ss)
  %Common.CreateNewLine()
  %System.GetDateTime(dddd)
  ' '
  %System.GetDateTime(dd)
  '. '
  %System.GetDateTime(mmmm)
  ' '
  %System.GetDateTime(yyy)
}

%If(%MediumInfo() = 'Hauptmenü') Then
{
%Format.AlignCenter()
'MediaCenter HtpPc'
%Common.CreateNewLine()
'Hauptmen'%LCD.CustomChar(6)''
%Common.CreateNewLine()
%System.GetDateTime(hh:nn:ss)
%Common.CreateNewLine()
%System.GetDateTime(dddd)
' '
%System.GetDateTime(dd)
'. '
%System.GetDateTime(mmmm)
' '
%System.GetDateTime(yyy)
}

%If(%MediumInfo() = 'DVD') Then
{
%DefVar(DVDName,Local='')
%DefVar(Kapitel,Local='')
%DefVar(KapitelGesamt,Local='')
%DefVar(KapitelName,Local='')
%DefVar(KapitelSpielzeit,Local='')
%DefVar(Zeit,Local='')
%DefVar(ZeitGesamt,Local='')
%DefVar(Status,Local='')
%DefVar(gesTime,Local='')
%DefVar(actTime,Local='')
%DefVar(tmp1,Local='')
%DefVar(tmp2,Local='')
%DefVar(tmp3,Local='')
%DefVar(Status,Local='')
  %Assign(DVDName,"%UsePlugin('mce\lhplugin.dll',GetDVDName)")
  %Assign(Kapitel,"%UsePlugin('mce\lhplugin.dll',GetDVDKapitel)")
  %Assign(KapitelGesamt,"%UsePlugin('mce\lhplugin.dll',GetDVDKapitelGesamt)")
  %Assign(KapitelName,"%UsePlugin('mce\lhplugin.dll',GetDVDKapitelName)")
  %Assign(KapitelSpielzeit,"%UsePlugin('mce\lhplugin.dll',GetDVDKapitelSpielzeit)")
  %Assign(Zeit,"%UsePlugin('mce\lhplugin.dll',GetDVDZeit)")
  %Assign(ZeitGesamt,"%UsePlugin('mce\lhplugin.dll',GetDVDZeitGesamt)")
  %Assign(Status,"%UsePlugin('mce\lhplugin.dll',GetPlayerStatus)")
  
  %If(%String.Length(%ZeitGesamt()) > 5) Then {
    %Assign(tmp1,%String.Copy(%ZeitGesamt(),1,2))
    %Assign(tmp2,%String.Copy(%ZeitGesamt(),4,2))
    %Assign(tmp3,%String.Copy(%ZeitGesamt(),7,2))
  } Else {
    %Assign(tmp1,0)
    %Assign(tmp2,%String.Copy(%ZeitGesamt(),1,2))
    %Assign(tmp3,%String.Copy(%ZeitGesamt(),4,2))
    %Assign(ZeitGesamt, '     '%ZeitGesamt())
  }

  %Assign(gesTime, %Mul(%tmp1(), 3600))
  %Assign(gesTime, %Inc(%gesTime(),%Mul(%tmp2(), 60)))
  %Assign(gesTime, %Inc(%gesTime(),%tmp3()))

  %If(%String.Length(%Zeit()) > 5) Then {
    %Assign(tmp1,%String.Copy(%Zeit(),1,2))
    %Assign(tmp2,%String.Copy(%Zeit(),4,2))
    %Assign(tmp3,%String.Copy(%Zeit(),7,2))
  } Else {
    %Assign(tmp1,0)
    %Assign(tmp2,%String.Copy(%Zeit(),1,2))
    %Assign(tmp3,%String.Copy(%Zeit(),4,2))
    %Assign(Zeit, '     '%Zeit())
  }

  %Assign(actTime, %Mul(%tmp1(), 3600))
  %Assign(actTime, %Inc(%actTime(),%Mul(%tmp2(), 60)))
  %Assign(actTime, %Inc(%actTime(),%tmp3()))

  'Medium:   DVD '
  '  Status: '
  %If(%Status() = 'Play') Then {%LCD.CustomChar(4)}
  %If(%Status() = 'Pause') Then {%LCD.CustomChar(5)}  
  %If(%Status() = 'Stop') Then {%LCD.CustomChar(7)}
  
  %Common.CreateNewLine()
  'Kapitel:   '
  %If(%String.Length(%Kapitel()) < 2) Then {'0'}
  %Kapitel() "" %Zeit()
  %Common.CreateNewLine()
  'Spieldauer:    '
  %ZeitGesamt()
  %Common.CreateNewLine()
  %Format.Bar(Horizontal,27,0,%gesTime(),%actTime(),8,
  %LCD.CustomChar(0),
  %LCD.CustomChar(1),
  %LCD.CustomChar(2),
  %LCD.CustomChar(3))
}
  
%If(%MediumInfo() = 'EigeneMusikMP3') Then 
{
%DefVar(Song,Local='')
%DefVar(Album,Local='')
%DefVar(Titel,Local='')
%DefVar(TitelGesamt,Local='')
%DefVar(Zeit,Local='')
%DefVar(Laenge,Local='')
%DefVar(Medium,Local='')
%DefVar(Status,Local='')
  %Assign(Song,"%UsePlugin('mce\lhplugin.dll',GetMusicSong)")
  %Assign(Album,"%UsePlugin('mce\lhplugin.dll',GetMusicAlbum)")
  %Assign(Interpret,"%UsePlugin('mce\lhplugin.dll',GetMusicInterpret)")
  %Assign(Zeit,"%UsePlugin('mce\lhplugin.dll',GetMusicZeit)")
  %Assign(Titel,"%UsePlugin('mce\lhplugin.dll',GetMusicTitel)")
  %Assign(TitelGesamt,"%UsePlugin('mce\lhplugin.dll',GetMusicTitelGesamt)")
  %Assign(Laenge,"%UsePlugin('mce\lhplugin.dll',GetMusicZeitGesamt)")
  %Assign(Medium,"%UsePlugin('mce\lhplugin.dll',GetMusicMedium)")
  %Assign(Repeat,"%UsePlugin('mce\lhplugin.dll',GetMusicRepeat)")
  %Assign(Shuffle,"%UsePlugin('mce\lhplugin.dll',GetMusicShuffle)")
  %Assign(Status,"%UsePlugin('mce\lhplugin.dll',GetPlayerStatus)")
  
  %Interpret() ' mit '
  %Song() " " 
  'aus dem Album ' 
  %Album()
  '       '
  %Param.EnableScrolling(Horizontal,Ticker,2,27, 0)
  %Common.CreateNewLine() 
  '  Spieldauer: ' %Laenge() '  min.'  
 %Common.CreateNewLine()
  
  '  Gespielt:   '%Zeit() '  min.'
  
  %Common.CreateNewLine()
  
  '  Format:     '  
  %If(%Medium() = 'Audio') Then {'CD'}
  %If(%Medium() = 'mp3') Then {'MP3'}
  %If(%Medium() = 'wma') Then {'WMA'}
  
  %Common.CreateNewLine()
 
 %Format.Bar(Horizontal,27,0,%Laenge(),%Zeit(),8,
 %LCD.CustomChar(0),
 %LCD.CustomChar(1),
 %LCD.CustomChar(2),
 %LCD.CustomChar(3))
 }
#EndTextMode

//EndDef
//ScreenDef
Title=Testscript
SpecCharFile=
#Header
/ insert header code here /
#EndHeader
#GfxMode
%Graph.SetTextArea(5, 0, 112, 16)
%LCD.Gfx_SetFont('Small Fonts',5,1)
'IP:'%System.Network(2,IP)
 %Common.CreateNewLine()
 %SysVolume()
 %LCD_Soundbar(%SysVolume())
/%LCD.SetSymbol(%LCD_DVD(), 1)/
#EndGfxMode

//EndDef