See...I took 2 stupid pills instead of just one this morning. Thank G-d stupid doesn't hurt much....I'd be addicted to Morphine for years!

No problems with the wall, sViz. PM'd you.

Hey, Quentin! Thanks.

Murex, I was afraid that might happen. I'll set it to wrap text.

Jim, I'll have to check out your theme. That sounds really cool!

the link doesnt work

Awesome work sViz!

I like that dropin anims and sliders too.

Just one thing, ram use not correct if u have more than 2gb. Performance meters not show correctly.

So please use rabidrobot multiram script for that.

----------

'// Multi-Gig Memory Meter
'// Xander 'rabidrobot' Lih Jan 2007
'// http://feebdack.com
'// Please feel free to reuse in any form.


' Set Up Meter Refresher Object
Dim objWMIService, objRefresher, objRefreshItem
Set objWMIService = GetObject("winmgmts:root\cimv2")
Set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set objRefreshItem = objRefresher.AddEnum(objWMIService, "Win32_PerfRawData_PerfOS_Memory").ObjectSet
objRefresher.Refresh

' Important DX-Objects
Dim dxViewbox, dxPercentText

' How often to update the meter in milliseconds.
Const REFRESH_RATE = 1000

' This is good to know - total PC RAM
Dim totalMemory
' Adjust these to fit custom graphics
Const MARG_left = 0' Margin to left of zero on meter
Const MAX_width = 84 ' Total width of bar 100% used

'Called when the script is executed
Sub Object_OnScriptEnter
    ' I find it handy to nickname some objects - you can easily change these here.
    Set dxViewbox = DesktopX.Object("rr_RAM_Viewbox")
    Set dxPercentText = DesktopX.Object("rr_RAM_Percent_Text")
    ' Gather total memory available information
    Dim colItems, objItem
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
    totalMemory = 0
    For Each objItem In colItems
        totalMemory = totalMemory + objItem.TotalPhysicalMemory
    Next
    Set colItems = Nothing


    ' Start Monitor
    Object.SetTimer 111, REFRESH_RATE

End Sub

Sub Object_OnTimer111
    ' Update information in the refresher object
    objRefresher.Refresh
    ' The refresher is an enumeration, or list
    ' So we loop through it, even if it might have only one member
    Dim availableMemory, objItem, percentUsed
    availableMemory = 0
    For Each objItem In objRefreshItem
        ' Gather info - I only get AvailableBytes, but you could
        ' get any of the info listed in the OnLButtonUp sub too.
        availableMemory = availableMemory + objItem.AvailableBytes
    Next
    percentUsed = (totalMemory - availableMemory) / totalMemory
    ' Use handy nicknames
    dxViewbox.width = CInt(percentUsed * MAX_width + MARG_left)
    dxPercentText.Text = FormatNumber(percentUsed * 100, 0) & "%"
    ' Update other text objects you may have, e.g.
    ' DeaktopX.Object("FreeMemoryText").Text = FormatNumber(availableMemory / 1024^2, 1) & "MB Free"
    
End Sub



'Called when the script is terminated
Sub Object_OnScriptExit
    Set objWMIService = Nothing
    Set objRefresher = Nothing
    Set dxViewbox = Nothing
    Set dxPercentText = Nothing
End Sub
-----

Look my prowler widgy how is workin..

indeed very nice, usable theme, me like it!

no

I need to say thanks for nice theme!

I love it, and I didn't get the wall either,

You need choose wall-size first. 

Just click on left bottom flame object,set your wall size, wp will load...

Thanks for your input everyone. You've all been a great help. Much appreciated.   I'll probably upload tomorrow.

The final version will not load a wall until you select the size from the list (there will be a message box instructing this on startup.)

Thanks again, everybody.

Great theme sViz,

That little green falling drop looks really nice.. I wonder if it dripped in recycle bin...

And also the start menu is so glassy red... as its a beautiful (why do you call it dirty ) NrG theme..

Ah, damn. I could've sworn I uploaded the fixed version. The problem was that the objects weren't children of the startmenu circle. Will rectify and re-up.

Thanks for the heads up, Dr.J