Scripts για LCDHype

FrOsT · Ιανουάριος 10, 2006

Με το παρακάτω είναι για να ενεργοποιείτε το script του winamp με το που πατάτε play και να απενεργοποιήτε και να συνεχίσει με τα άλλα scripts με το που το κλείνετε.

το παρακάτω το προσθέτετε στο winamp

%If((%WinAmp.Status() = -1)) Then{%Common.ChangeScreen(1, 3)}

στο

%Common.ChangeScreen(1, 3)

το 3 είναι ο αρηθμός του script που θέλετε να σας μεταφέρει με το που κλείσει το winamp

το παρακάτω το βάζετε σε όλα τα άλλα script που χρεισημοποιήτε

%If((%WinAmp.Status() = 0)) Then{%Common.ChangeScreen(1, 0)}

%If((%WinAmp.Status() = 1)) Then{%Common.ChangeScreen(1, 0)}

%If((%WinAmp.Status() = 2)) Then{%Common.ChangeScreen(1, 0)}

στο

%Common.ChangeScreen(1, 0)

το 0 είναι το script του winamp.

aristos87 · Ιανουάριος 10, 2006

Με media player το εψαξε κανενας?

FrOsT · Ιανουάριος 10, 2006

Αρχική απάντηση από aristos87
Με media player το εψαξε κανενας?

Ρε ανάποδε άνθρωπε, τσιράκι της M$ ξεκόλλα βαλε WinAmp!

aristos87 · Ιανουάριος 10, 2006

To ξερω το ξέρω... αλλά οσο και αν δοκίμασα δεν μπορώ να ξεκολλήσω!

Αντε τωρα στο θεμα μας!! Δεν φτιαχνεις κανενα? Η δωσε κανα λινκ να το παλέψω...

FrOsT · Ιανουάριος 10, 2006

Για δοκήμασε...

http://lcdhype.mod-extreme.info/lcdhypeforum/index.php?showtopic=1686

αν έχω ελεύθερο χρόνο αύριο και δεν έχεις βγάλει άκρη θα προσπαθήσω να σε κάνω ένα.

FrOsT · Ιανουάριος 11, 2006

Μπορεί κάποιος να φτιάξει Plugin για τα στατιστηκά του fgight@aids?

ή να φτιάξει ένα προγραμματάκι που να εξάγει σε ένα txt τα στατηστηκά ενώς χρήστη ανά γραμμή?

vpapanik · Ιανουάριος 15, 2006

Πήρε κανείς τις alphacool ? Ήθελα να ρωτήσω αν δουλεύει το on/off του backlight μέσω LCDHype. To κουμπί δηλαδή κάτω από το 'LCD Refresh Rate'.

Όσο για το plugin, δώσε μου περισσότερες πληροφοριές, είναι εύκολο αν εχει shared memory το fightAIDS@home, αλλιώς χρειάζεται plugin όχι το LCDhype αλλά το FightAIDS@home για να κάνει log τα στατιστικά σε τεχτ αρχείο το οποίο θα διαβάζει κάθε ν refreshes (setpriority time) το LCDHype.

Aκριβώς το ίδιο έχω κάνει για το PopTray 3.1 και δουλεύει τέλεια.

Επίσης μπορεί να γίνει εύκολα plugin το οποίο να διαβάζει ΟΠΟΙΑΔΗΠΟΤΕ ελεύθερη πληροφορία μέσω Internet. Για παράδειγμα το τραγούδι που παίζει το Live365, αυτό έχω κάνει μόνο. Για τη συνέχεια σκέφτομαι τα ποδοσφαιρικά αποτελέσματα του LiveScore !!!!

Ρίξτε καμια ιδέα ! Ζήτω η Delphi !

FrOsT · Ιανουάριος 15, 2006

Εδώ είναι η λίστα σύμφωνα με τους πόντους παραγωγής

http://www.pandasoftware.com/activescan/activescan/activescanfree.asp

αν θέλεις κατέβασε το προγραμματάκι και δεν πως είναι και πως λειτουργεί δυστηχώς δεν μπορώ να βοηθήσω και πολύ πάνω σε αυτό.

Join us!

street warrior · Ιανουάριος 20, 2006

Ρε παιδιά αντιγραψα κανονικά το scriptακι και το bmp για το winamp.Όλα κανονικά στην οθονίτσα μου βγάζει το menu αλλά όταν βάζω ένα τραγούδι δεν γίνεται τίποτα.Τι μου διαφεύγει?

chroma · Ιανουάριος 20, 2006

To plugin του winamp ίσως;

mauros · Ιανουάριος 20, 2006

ΟΤ....ξερός όπως πάντα....

καραλόλ @ chroma

FrOsT · Ιανουάριος 23, 2006

Καινούριο Winamp script v1.2

H βασική διαφορά είναι το cpu usage που στην προηγούμενη έκδοση ήταν πολύ υψηλό... εδώ διορθώθηκε σε μεγάλο βαθμό.

#Header
/set the fastest priority for script/
%CleanUp.ClearVRAM()
%Common.SetPriority(50)
%DefVar(t2=%System.Uptime()) /holds current uptime/
%DefVar(t1=%System.Uptime()) /holds uptime last frame/
%DefVar(diff=0) /holds t2-t1/
/set priority of blocks here , [ms]/
%DefVar(BlockA_Priority=180)/refresh time of artist and title scroll/
%DefVar(BlockB_Priority=1000)/referesh time of time and trackbar/
/set counter to priority value for correct display/
/on first screen/
%DefVar(BlockA_Counter=%BlockA_Priority())
%DefVar(BlockB_Counter=%BlockB_Priority())
%LCD.Gfx_LoadBitmap(logo.bmp,55,70,0,0,240,128,0,NONE)
%Param.RenderMode(Simple)
#EndHeader
#GfxMode
/for multiple priority blocks we have to delete all
areas on script start to ensure that blocks that
neednt to be refreshed are refreshed by existing
areas/
%CleanUp.TextArea(All)
/hold current uptime in t2 for correct time measurement/
%Assign(t2,%System.Uptime())
/calculate time difference between last frame and
current frame/
%Assign(diff,%Dec(%t2(),%t1()))
/save current uptime as uptime last frame so we can use
current uptime in next frame/
%Assign(t1,%t2())
/just increment block counters, if a counter rises above
the priority set in header the block is refreshed,
else its ignored/
%Assign(BlockA_Counter,%Inc(%BlockA_Counter(),%diff()))
%Assign(BlockB_Counter,%Inc(%BlockB_Counter(),%diff()))
/this is a block refreshed every frame, no condition/
%LCD.Gfx_SetOverlayMode()
%WinAmp.SpecAnalyzer(FFT,PeakedBarsFilled,42,60,2,10,2,5,1,1,67)
%Format.Bar(Horizontal,100,10,0,100,%WinAmp.VU(1,Left),1,1,136,34)
%Format.Bar(Horizontal,100,10,0,100,%WinAmp.VU(1,Right),1,1,136,54)
/the following block is enclose by a condition/
/that makes sure that the refresh is only done every
1 second by comapring the counter of this block with
the priority/
%If(%BlockA_Counter() >= %BlockA_Priority())Then
{
%LCD.Gfx_SetTextArea(0,0,167,14)
%LCD.Gfx_SetFont('Arial',10,1,Bold)
%Format.Offset(Horizontal01)
%Format.Offset(Vertical,-1)
%Param.EnableScrolling(Horizontal,Swing,1,167,0)
%WinAmp.RawTitle()
%Assign(BlockA_Counter,0)
}
Else
{
%If(%BlockB_Counter() >= %BlockB_Priority())Then
{
%Assign(BlockB_Counter,0)
%LCD.Gfx_SetTextArea(170,0,240,11)
%LCD.Gfx_SetFont('Arial',10,1,Bold)
%Common.CreateNewLine()
%Format.Offset(Horizontal,171)
%Format.Offset(Vertical,-17)
%Format.Time(%Mul(%WinAmp.TrackPos(),1000),'mm:ss')'/'
%Format.Time(%Mul(%WinAmp.TrackLength(),1000),'mm:ss')
%Format.Bar(Horizontal,238,10,0,%WinAmp.TrackLength(),%WinAmp.TrackPos(),1,1,1,15)
%LCD.Gfx_SetTextArea(0,27,128,64)
%Common.CreateNewLine()
%Format.Offset(Horizontal,50)
%Format.Offset(Vertical,4)
%LCD.Gfx_SetFont('Comic Sans MS',15,1,Bold)
%If((%WinAmp.Status() = 0)) Then{Playing}
%If((%WinAmp.Status() = 1)) Then{Paused}
%If((%WinAmp.Status() = 2)) Then{Stoped}
%If((%WinAmp.Status() = -1)) Then{%Common.ChangeScreen(1, 3)}
%Common.CreateNewLine()
%Format.Offset(Horizontal,10)
%Format.Offset(Vertical,-25)
%LCD.Gfx_SetFont('Comic Sans MS',11,1,Bold)
"Now: "
%Common.CreateNewLine()
%Format.Offset(Horizontal,1)
%Format.Offset(Vertical,11)
%LCD.Gfx_SetFont('Comic Sans MS',7,1,Bold)
"Repeat "
%If((%WinAmp.Repeat() = 0)) Then{OFF}
%If((%WinAmp.Repeat() = 1)) Then{ON}
" | "
"Shuffle "
%If((%WinAmp.Shuffle() = 0)) Then{OFF}
%If((%WinAmp.Shuffle() = 1)) Then{ON}
%LCD.Gfx_SetFont('Arial',9,1,Bold)
%Common.CreateNewLine()
%Format.Offset(Horizontal,123)
%Format.Offset(Vertical,-37)
"L:"
%Common.CreateNewLine()
%Format.Offset(Horizontal,123)
%Format.Offset(Vertical,5)
"R:"
%Common.CreateNewLine()
%Format.Offset(Horizontal,2)
%Format.Offset(Vertical,-21)
" "%WinAmp.BitRate() "kbps" " |"
" "%WinAmp.SampleFrequency()"khz"
}
}
#EndGfxMode

Doom · Ιανουάριος 23, 2006

το script σου εχει bug... δεν μετραει kbps/khz σε streaming αρχεια

chroma · Ιανουάριος 23, 2006

hw monitor για DFI NF4 και ΑΤΙ. Χρειάζεται ΜΒΜ5 και το custom data file για ΝF4 από εδώ (υπάρχουν οδηγίες και για setup με nv κάρτες). Για ΑΤΙ χρειάζεται το Ati Tray Tools εγκατεστημένο και το σχετικό plugin.

Το φτιάχνω για gaming script και είναι ακόμα πολύ χύμα, προτάσεις δεκτές.

#Header
%CleanUp.ClearVRAM()
%LCD.Gfx_SetTextArea(0,0,240,128)
%Common.SetPriority(1000)
#EndHeader

#TextMode
 /insert textmode script code here/
#EndTextMode

%LCD.Gfx_SetRefreshArea(100,0,200,10)
%Format.Bar(Horizontal,100,10,0,20,10,1,1,1,1)

#GfxMode
%LCD.Gfx_SetFont('Tahoma',8,1,Bold)
 %LCD.Gfx_SetOverlayMode()
 %Param.RenderMode(Simple)

/MBM5 section/

%Format.Offset(Vertical,-2)
A64" %UsePlugin('mbm\mbm.dll',mbmTemperature1)c 
%UsePlugin('mbm\mbm.dll',mbmVoltage1)v 
%Trunc(%Div(%UsePlugin('mbm\mbm.dll',mbmMHZ),1000),2)GHz 
%UsePlugin('mbm\mbm.dll',mbmFan1)RPM
%Format.Bar(Horizontal,50,9,0,100,%UsePlugin('mbm\mbm.dll',mbmUsageCPU1),1,0,190,0)
%Common.CreateNewLine()
%Format.Offset(Vertical,-3)
"LDT" %UsePlugin('mbm\mbm.dll',mbmVoltage2)v 
"NF4" %UsePlugin('mbm\mbm.dll',mbmTemperature3)c 
%UsePlugin('mbm\mbm.dll',mbmVoltage6)v 
%UsePlugin('mbm\mbm.dll',mbmFan3)RPM
%Common.CreateNewLine()
%Format.Offset(Vertical,-3)
"PWM" %UsePlugin('mbm\mbm.dll',mbmTemperature2)c 
%UsePlugin('mbm\mbm.dll',mbmFan2)RPM 
"DDR" %UsePlugin('mbm\mbm.dll',mbmVoltage7)v 
%Trunc(%Div(%UsePlugin('mbm\mbm.dll',mbmMHZ),10),1)MHz
%Common.CreateNewLine()
%Format.Offset(Vertical,-3)
PSU 3.3v: " %UsePlugin('mbm\mbm.dll',mbmVoltage3)v
|5v: " %UsePlugin('mbm\mbm.dll',mbmVoltage4)v
|12v: " %UsePlugin('mbm\mbm.dll',mbmVoltage5)v"
%Common.CreateNewLine()
%Format.Offset(Vertical,-3)
"HD" %UsePlugin('mbm\mbm.dll',mbmTemperature4)
%Common.CreateNewLine()
%Format.Offset(Vertical,-3)

/ATi Tray Tools section/

X800XT Fan %UsePlugin('att\att.dll','FanDuty')'%' 3D %If((%UsePlugin('att\att.dll','is3DActive') = 0)) 
Then{Disabled} Else{Enabled %UsePlugin('att\att.dll','fps')fps}

%Common.CreateNewLine()
%Format.Offset(Vertical,-3)

Env.Temp %UsePlugin('att\att.dll','EnvTemp', 1)
..%UsePlugin('att\att.dll','EnvTemp', 0)
..%UsePlugin('att\att.dll','EnvTemp', 2) 
GPU Temp %UsePlugin('att\att.dll','GPUTemp', 1)
..%UsePlugin('att\att.dll','GPUTemp', 0)
..%UsePlugin('att\att.dll','GPUTemp', 2)

%Common.CreateNewLine()
%Format.Offset(Vertical,-3)

Core %UsePlugin('att\att.dll','GPUSpeed')MHz - Mem %UsePlugin('att\att.dll','MemSpeed')MHz

%Common.CreateNewLine()
%Format.Offset(Vertical,-3)
Direct3D AA 
%If((%UsePlugin('att\att.dll','Direct3D',0) = 0))
 Then{NA} Else{%UsePlugin('att\att.dll','Direct3D',0)x} 
AF 
%If((%UsePlugin('att\att.dll','Direct3D',1) = 0)) Then{NA}
 Else{%UsePlugin('att\att.dll','Direct3D',1)x} 
OpenGL AA 
%If((%UsePlugin('att\att.dll','OpenGL',0) = 0))
 Then{NA} Else{%UsePlugin('att\att.dll','OpenGL',0)x} 
AF 
%If((%UsePlugin('att\att.dll','OpenGL',1) = 0)) Then{NA}
 Else{%UsePlugin('att\att.dll','OpenGL',1)x}
%Common.CreateNewLine()
%Format.Offset(Vertical,-3)

/system section/

total %Round(%Div(%System.Memory(MemorySize),1024)) 

free %Round(%Div(%System.Memory(MemoryFree),1024)) 

used %Round(%Div(%System.Memory(MemoryUsed),1024)) 

%System.Memory(MemoryLoad)'%'

%Common.CreateNewLine()
%Format.Offset(Vertical,-3)
%System.Display(Width)x%System.Display(Height)
@%System.Display(RefreshRate)Hz 
%System.Display(ColorDepth)bit

#EndGfxMode

FrOsT · Ιανουάριος 23, 2006

Αρχική απάντηση από Doom
το script σου εχει bug... δεν μετραει kbps/khz σε streaming αρχεια

Να σταματήσεις να ακούς streaming αρχεια

έχει και ένα μικρό prob με το scroling αλλά δεν γίνετε να φτιαχτεί έτσι όπως είναι γραμμένο

@Chroma βάλε man και καμιά εικονήτσα να δω πως είναι γιατι δεν είμαι σπίτι...

chroma · Ιανουάριος 23, 2006

Απλά έχω προσαρμόσει τις διάφορες ενδείξεις και η τακτοποίηση αρχίζει..

btw αφου σετάρετε το ΜΒΜ5, στο voltage configuration έχει ITE 8712F Standard 4 by default, στο δικό μου το Standard 2 ήταν σαφώς πιο σωστό.

aristos87 · Ιούνιος 16, 2006

Εdit σε ενα παλιό του Frost...

#Header

/set index of your network adapter here/

%DefVar(C =1)

%Common.SetPriority(1000)

%LCD.Gfx_SetRefreshArea(0,0,240,128)

%LCD.Gfx_SetTextArea(0,0,240,128)

/ Netzwerkkartenindex /

%DefVar(C=1)

%DefVar(Time=%System.Uptime())

#EndHeader

#GfxMode

%LCD.Gfx_SetOverlayMode()

%Param.RenderMode(Simple)

%Assign(RTime,%Dec(%Time(),%Start()))

%Common.Compare(%RTime() > 1000)Then{

/ Schriftart /

%LCD.Gfx_SetFont('Arial',7,1)

/ CPU - FSB - RAM /

" Athlon64 3700+@" %Format.Offset(Horizontal,1)

%Format.Offset(Vertical,0)

%UsePlugin('mbm\mbm.dll','mbmMHZ')Mhz

%LCD.Gfx_SetFont('Arial',7,1)" UpTime: "

%Format.Time(%System.Uptime(),'dd-hh:mm:ss')

%Common.CreateNewLine(1)

/ Voltages /

%Common.CreateNewLine()

%Format.Offset(Horizontal,1)

%Format.Offset(Vertical,-3)

"CPU "%UsePlugin('mbm\mbm.dll','mbmVoltage1')"volt" " +3,3 "%UsePlugin('mbm\mbm.dll','mbmVoltage3')"volt"

%Common.CreateNewLine()

%Format.Offset(Horizontal,1)

%Format.Offset(Vertical,-3)

"RAM "%UsePlugin('mbm\mbm.dll','mbmVoltage7')"volt" " +5 "%UsePlugin('mbm\mbm.dll','mbmVoltage4')"volt"

%Common.CreateNewLine()

%Format.Offset(Horizontal,1)

%Format.Offset(Vertical,-3)

"LDT "%UsePlugin('mbm\mbm.dll','mbmVoltage2')"volt" " +12 "%UsePlugin('mbm\mbm.dll','mbmVoltage5')"volt"

%Common.CreateNewLine()

%Format.Offset(Horizontal,1)

%Format.Offset(Vertical,-3)

"NF4 "%UsePlugin('mbm\mbm.dll','mbmVoltage6')"volt" " Bat "%UsePlugin('mbm\mbm.dll','mbmVoltage8')"volt"

%Common.CreateNewLine()" CPU NF4 PWMIC HDD"

/temps @ barz/

%Common.CreateNewLine(4)

%Format.Offset(Horizontal,9)

%Format.Offset(Vertical,4)

%UsePlugin('mbm\mbm.dll','mbmTemperature1')%LCD.CustomChar(176)"c "

%UsePlugin('mbm\mbm.dll','mbmTemperature3')%LCD.CustomChar(176)"c "

%UsePlugin('mbm\mbm.dll','mbmTemperature2')%LCD.CustomChar(176)"c "

%UsePlugin('mbm\mbm.dll','mbmTemperature4')%LCD.CustomChar(176)"c CPU RAM"

%Format.Bar(Vertical,20,35,0,65,%UsePlugin('mbm\mbm.dll','mbmTemperature1'),1,1,65,75)

%Format.Bar(Vertical,20,35,0,85,%UsePlugin('mbm\mbm.dll','mbmTemperature1'),1,1,5,75)

%Format.Bar(Vertical,20,35,0,60,%UsePlugin('mbm\mbm.dll','mbmTemperature2'),1,1,35,75)

%Format.Bar(Vertical,20,35,0,60,%UsePlugin('mbm\mbm.dll','mbmTemperature1'),1,1,95,75)

/Cpu usage/

%Format.Bar(Vertical,30,80,0,100,%System.CPU(Usage),1,1,145,23)

/Ram usage/

%Format.Bar(Vertical,30,80,0,100,%System.Memory(MemoryLoad) ,1,1,203,23)

%Common.CreateNewLine(5)

%Common.ChangeScreen(8000,3)

#EndGfxMode

ΚΑΙ........

3D AMD Logo

Unzip στον φάκελο Scripts

http://rapidshare.de/files/23248767/amd.zip.html

street warrior · Ιούνιος 17, 2006

Φίλε aristo ευχαριστούμε.Ερώτηση τώρα.Αφου αντιγράφουμε το script τι κάνουμε?Λογικά θέλει και mbm5 έτσι?

aristos87 · Ιούνιος 17, 2006

ε ναι...

totally_wired · Ιούνιος 17, 2006

Το winamp 1.2 του frost αν και είναι εξαιρετικό έχει μια καθυστέριση 0.2 έως 0.5sec σε σχέση με το τραγούδι... Δεν ξέρω τι μπορεί να φταίει και εάν είναι τα όρια αυτά. Όμως δεν νομίζω πως η αύξηση του prioriti δίνει λύση...

Sign In

Scripts για LCDHype

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Archived

Important Information