[Windows Mobile Themes] oldoldstone:
Nice theme！

I have a suggestion, the neomix.mscr need not run in the background all time, just use system notifications.

such like this

[HKEY_LOCAL_MACHINE\System\Notifications\NeoAlarm]
"Application"="\\Windows\\Mortscript.exe \"\\Program Files\\Neo Mix\\NeoAlarm.mscr\""
"Key"="\\System\\State\\Shell\\Alarms"
"Value Name"="Next"
"HKEY"=dword:80000001
"Message"=dword:00000000
"Flags"=dword:00000000
"Trust"=dword:00000002

[HKEY_LOCAL_MACHINE\System\Notifications\NeoAppointmentDay]
"Application"="\\Windows\\Mortscript.exe \"\\Program Files\\Neo Mix\\NeoAppointment.mscr\""
"Key"="\\System\\State\\Appointments\\Event"
"Value Name"="Subject"
"HKEY"=dword:80000001
"Message"=dword:00000000
"Flags"=dword:00000000
"Trust"=dword:00000002

[HKEY_LOCAL_MACHINE\System\Notifications\NeoAppointmentRecent]
"Application"="\\Windows\\Mortscript.exe \"\\Program Files\\Neo Mix\\NeoAppointment.mscr\""
"Key"="\\System\\State\\Appointments\\HomeScreen"
"Value Name"="Subject"
"HKEY"=dword:80000001
"Message"=dword:00000000
"Flags"=dword:00000000
"Trust"=dword:00000002

[HKEY_LOCAL_MACHINE\System\Notifications\NeoAppointmentList]
"Application"="\\Windows\\Mortscript.exe \"\\Program Files\\Neo Mix\\NeoAppointment.mscr\""
"Key"="\\System\\State\\Appointments\\List"
"Value Name"="OIDs"
"HKEY"=dword:80000001
"Message"=dword:00000000
"Flags"=dword:00000000
"Trust"=dword:00000002

[HKEY_LOCAL_MACHINE\System\Notifications\NeoClock]
"Application"="\\Windows\\Mortscript.exe \"\\Program Files\\Neo Mix\\NeoClock.mscr\""
"Key"="\\System\\State\\DateTime"
"Value Name"="Time"
"HKEY"=dword:80000002
"Message"=dword:00000000
"Flags"=dword:00000000
"Trust"=dword:00000002

[HKEY_LOCAL_MACHINE\System\Notifications\NeoPhone]
"Application"="\\Windows\\Mortscript.exe \"\\Program Files\\Neo Mix\\NeoStatus.mscr\""
"Key"="\\System\\State\\Phone"
"Value Name"="Radio Ready State"
"HKEY"=dword:80000002
"Message"=dword:00000000
"Flags"=dword:00000000
"Trust"=dword:00000002

[HKEY_LOCAL_MACHINE\System\Notifications\NeoWiFi]
"Application"="\\Windows\\Mortscript.exe \"\\Program Files\\Neo Mix\\NeoStatus.mscr\""
"Key"="\\System\\State\\Hardware"
"Value Name"="Wifi"
"HKEY"=dword:80000002
"Message"=dword:00000000
"Flags"=dword:00000000
"Trust"=dword:00000002

[HKEY_LOCAL_MACHINE\System\Notifications\NeoBluetooth]
"Application"="\\Windows\\Mortscript.exe \"\\Program Files\\Neo Mix\\NeoStatus.mscr\""
"Key"="\\System\\State\\Hardware"
"Value Name"="Bluetooth"
"HKEY"=dword:80000002
"Message"=dword:00000000
"Flags"=dword:00000000
"Trust"=dword:00000002

[HKEY_LOCAL_MACHINE\System\Notifications\NeoData]
"Application"="\\Windows\\Mortscript.exe \"\\Program Files\\Neo Mix\\NeoStatus.mscr\""
"Key"="System\\State\\Connections\\Cellular"
"Value Name"="Count"
"HKEY"=dword:80000002
"Message"=dword:00000000
"Flags"=dword:00000000
"Trust"=dword:00000002

when system time changes（every miniunte），NeoClock.mscr will be executed to update clock imgs.

when phone states changes ( such as wifi、bluetooth), NeoStatus.mscr will be executed to update ccom status.

the idea is from Manila CHome

Neostatus.mscr

NeoEnabled=RegRead("HKLM","Software\Microsoft\CHome\CNeoMix\Settings","Enabled")
If(NeoEnabled eq 1)
SkinIcons=RegRead("HKLM","Software\Microsoft\CHome\CNeoMix\Settings","SkinIcons")
# Update phone status
RadioState=RegRead("HKLM", "System\State\Phone", "Radio Ready State")
BlueToothState = RegRead("HKLM", "System\State\Hardware", "Bluetooth" )
WifiState = RegRead("HKLM", "System\State\Hardware", "Wifi" )
OperatorName=RegRead("HKLM","System\State\Phone","Current Operator Name")
WifiName=RegRead("HKLM", "System\State\Connections\Network", "Descriptions" )
PhoneState = RegRead("HKLM", "System\State\Phone", "Cellular System Available" )
DataState = RegRead("HKLM","System\State\Connections\Cellular", "Count")
RingType=RegRead("HKCU","ControlPanel\Sounds\RingTone0","Sound")
RegWriteString("HKLM","Software\Microsoft\CHome\CNeoMix\Page1","OperImg",SkinIcons&"OperatorOn.png")
If(PhoneState eq 0)

If (RadioState=0)
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","OperName", "No carrier")
RegWriteString("HKLM","Software\Microsoft\CHome\CNeoMix\Page1","OperImg",SkinIcons&"OperatorOff.png")
Elseif(RadioState>0 && RadioState<=11)
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","OperName","Searching...")
Elseif(RadioState>15)
sleep(5000)
OperatorName=RegRead("HKLM","System\State\Phone","Current Operator Name")
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","OperName", OperatorName)
EndIf
Else
OperatorName=RegRead("HKLM","System\State\Phone","Current Operator Name")
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","OperName", OperatorName)
Endif

If (WifiState=1 || WifiState=0 || WifiState=5)
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","WiFi", SystemPath( "ScriptPath" )\"CComm-Wifi_off.png")
ElseIf (WifiState = 3)
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","WiFi", SystemPath( "ScriptPath" )\"CComm-Wifi_no.png")
ElseIf (WifiState=11 || WifiState=7 || WifiState=4)
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","WiFi", SystemPath( "ScriptPath" )\"CComm-Wifi_no.png")
ElseIf (WifiState > 18)
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","WiFi", SystemPath( "ScriptPath" )\"CComm-Wifi_on.png")
EndIf

If (BlueToothState = 8)
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","Bluetooth", SystemPath( "ScriptPath" )\"CComm-Bluetooth_Off.png")
ElseIf(BlueToothState =9)
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","Bluetooth", SystemPath( "ScriptPath" )\"CComm-Bluetooth_on.png")
ElseIf(BlueToothState =11)
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","Bluetooth", SystemPath( "ScriptPath" )\"CComm-Bluetooth_dis.png")
EndIf

If (RadioState eq 0 AND BlueToothState eq 8 AND WifiState eq 1)
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","Flight", SystemPath( "ScriptPath" )\"CComm-Flight_on.png")
Else
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","Flight", SystemPath( "ScriptPath" )\"CComm-Flight_off.png")
EndIf

If (DataState = 0)
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","Data", SystemPath( "ScriptPath" )\"CComm-data_off.png")
Else
RegWriteString("HKLM", "Software\Microsoft\CHome\CNeoMix\Page1","Data", SystemPath( "ScriptPath" )\"CComm-data_on.png")
IniWrite("\Windows\CProgram.pnx", "Settings","image4","\Windows\Data.mscr")
Endif

RegWriteDword("HKLM","Software\Microsoft\CHome\CNeoMix","Updated","0")
RegWriteDword("HKLM","Software\Microsoft\CHome\CNeoMix","Updated","1")
Endif