- Code:
#Header
%Param.AvoidPluginCleanUp()
%Common.SetPriority(100)
%Graph.Font('Small Fonts',6,1)
%LCD.Gfx_SetOverlayMode()
%CleanUp.ClearVRAM()
/%Param.OverlayMode()/
%Graph.SetTextArea(0,0,128,32) / defines an area you can write text /
%Param.RenderMode(Full) / mode of operation, see LCDHype Help /
%Assign(vInfo, 0)
#EndHeader
#GfxMode
/ Appel des fonctions principales /
%Core()
%Gaming()
/ Allume le LCD et le touchpad au cas ou /
%LCD.LightControl(1)
%TpLedOn()
/ Retour au dernier ecran en cas de plugin desactivé ou stop /
/ %If((%WinAmp.Status() = -1) OR (%WinAmp.Status() = 2))
Then{ %Common.ChangeScreen(0,%Page()) } /
/%Graph.LoadBitmap('Gfx\player.bmp',-1,-1,0,0,256,32,1,OR)/
%Common.CreateNewLine(0,0)
%Graph.Font('Aial',7,1,Bold)
%WinAmp.Artist()
%Common.CreateNewLine()
%Graph.Font('Small Fonts',6,1)
%WinAmp.Title()
%Common.CreateNewLine()
%Graph.Rect(127,0,255,31,0,0)
/%If(%Debug = '1')Then{%Graph.Rect(127,0,255,31,1,0)}/
%WinAmp.SpecAnalyzer(FFT,PeakedBars,42,25,50,5,0.5,2,1,129,1)
%Format.Bar(Horizontal,129,5,0,%WinAmp.TrackLength(),%WinAmp.TrackPos(),1,1,127,27)
%Graph.LoadBitmap('gfx\wstat'%WinAmp.Status()'.bmp',0,24,0,0,7,7,0,NONE)
%Graph.LoadBitmap('gfx\wchanel'%WinAmp.Channels()'.bmp',8,24,0,0,13,7,0,NONE)
%Graph.LoadBitmap('gfx\wschuffle.bmp',22,24,0,0,16,7,%Dec(1,%WinAmp.Shuffle()),NONE)
%Graph.LoadBitmap('gfx\wrepeat.bmp',39,24,0,0,16,7,%Dec(1,%WinAmp.Repeat()),NONE)
/ %Common.ChangeScreen(5000,'Popup.Winamp.2' ) /
#EndGfxMode
Ecran MSN (qui est en fait le tien un peu retouché)
- Code:
***********************************
* ASUS G-Series Menu Messenger *
* par Sanka *
***********************************
Inspiré du script :
***********************************
* ASUS G-Series Messenger *
* by Predator_MF *
***********************************
#Header / Les chats s'affichent seulement si l'OLED MSN est affiché AVANT d'ouvrir les chats, problème réglable avec AvoidPluginCleanUp, mais engendre encore plus de bugs /
%Param.RenderMode(Full)
%LCD.Gfx_SetOverlayMode()
%CleanUp.ClearVRAM()
%Common.SetPriority(500)
%LCD.Gfx_SetTextArea(0,0,256,32)
%CleanUp.ClearInputBuffer(All)
%Graph.Font('Arial',8,1,Bold)
%Graph.SetInvertArea(0,0,255,10)
/ On définit une fonction qui regardera si MSN est démarré en cherchant son processus dans le gestionnaire des tâches /
%DefFunc(MSN_running=
%If(%System.GetProcessID('msnmsgr.exe') ! 0)
Then{1}
Else{0}
)
/ On définit la variable qui servira à parcourir la boucle LoopFor plus bas /
%DefVar(i=0)
#EndHeader
#GfxMode
/ Détermine si MSN est connecté ou pas en comptant le nombre de contacts - S il y en a 0 on considère que MSN n est pas connecté /
%If(%UsePlugin('MSN\MSN.dll',ClientCount) ! 0)
Then
{
/ Affiche le Pseudo /
%Common.CreateNewLine(,1,-2)
%Graph.Font('Arial',8,1,Bold, )
%Param.EnableScrolling(Horizontal,Ticker,5,90,1,0)
%UsePlugin('MSN\MSN.dll',MyInfo, Name)' '
/ affiche le nombre de fenetres de chat ouvertes /
%Common.CreateNewLine(,97,0)
%Graph.Font('Arial',7,1)
/ CUSTOM : Ici vous pouvez choisir le texte que vous souhaitez afficher (en vert entre les guillemets) /
'Chats : '
%UsePlugin('MSN\MSN.dll',ChatCount)
/ affiche les mails non lus /
%Common.CreateNewLine(,150,0)
'Mails : '%UsePlugin('MSN\MSN.dll',UnreadEmails)
/ affiche le statut MSN /
%Common.CreateNewLine(,-1,-1)
%Format.AlignRight()
%Graph.Font('Arial',7,1,Italic)
%UsePlugin('MSN\MSN.dll',MyInfo, Status)
/ On trace la ligne de séparation /
%Graph.Pen(0,20,1)
%Graph.LineTo(255,20,0)
/ affiche l adresse mail du compte MSN /
%Common.CreateNewLine(,0,10)
%Format.AlignLeft()
/ %Param.EnableScrolling(Horizontal,Ticker,5,100,1,0) /
%Graph.Font('Small Fonts',6,1)
%UsePlugin('msn\msn.dll',MyInfo, Email)
/ On affiche le dernier message reçu dans la messagerie instantanée /
%Loop.For(i,0,%Dec(%UsePlugin('msn\msn.dll',ChatTextLines),1),1)
{
%Common.CreateNewLine(,-3,19)
%Param.EnableScrolling(Horizontal,Ticker,14,256,1,0)
/ Affiche l avant dernière ligne du chat en cours /
' '%UsePlugin('msn\msn.dll',ChatLine, 0, %Dec(%UsePlugin('msn\msn.dll',ChatTextLines),2) , %i())' '
/ Affiche la dernière ligne du chat en cours /
%UsePlugin('msn\msn.dll',ChatLine, 0, %Dec(%UsePlugin('msn\msn.dll',ChatTextLines),1) , %i())' '
%If(%bAnswered() > 0)
Then
{
%Assign(firstlineset, 1)
%Assign(firstline, '')
%Assign(bAnswered, 0)
}
}
}
Else
{
/ On appelle la fonction définie dans le header /
%If(%MSN_running() = 0)
Then
{
%Common.CreateNewLine(,0,9)
%Graph.Font('Arial',7,1,Bold)
%Format.AlignCenter()
/ CUSTOM : Ici vous pouvez choisir le texte que vous souhaitez afficher (en vert entre les guillemets) /
'...Veuillez démarrer MSN...'
%CleanUp.ClearVRAM() / Permet de rafraîchir l image et d enlever le trait qui sépare l écran /
}
Else
{
%Common.CreateNewLine(,0,9)
%Graph.Font('Arial',7,1,Bold)
%Format.AlignCenter()
/ CUSTOM : Ici vous pouvez choisir le texte que vous souhaitez afficher (en vert entre les guillemets) /
'...Veuillez vous connecter à MSN...'
%Common.ChangeScreen(5000,21) / Permet de rafraîchir l image et d enlever le trait qui sépare l écran /
}
}
#EndGfxMode