[Windows Mobile Apps and Games] hometownnerd:
The reg Key and the Mort Script I use currently

Here is the reg key that the saga uses for its battery percentage.

HKLM\System\State\Hardware\MITs\BatteryPercentage

I hope that helps. Thank you very much for attempting to help me!!!!

This is the script I am using currently

#ultimate writer 1.0.mscr

# i wrote these values in for test purposes. this is where the original scripts should write to.

# If reg settings don't exist initialize them
If ( NOT RegKeyExists("HKLM","Software\Mort's MortScript\Ultimate Writer" ) )
RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 5","reserved for xcast"
RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 6","reserved cDate"
RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 7","reserved for my profiles"
RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 8","extra 1"
RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 9","extra 2"
RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 10","extra 3"
EndIf

# start of the actual ... Ultimate Witer.mscr

n = 1

While (1)
GetTime(hour,min,sec,day,month,year)
date = TimeStamp()
year = (FormatTime("Y"))
month = (FormatTime("m"))
day = (FormatTime("d"))
weekday = (FormatTime( "w" ))
tomorrow = (FormatTime( "d" ) + 1)
hour = (FormatTime("H"))
strTime = %month% & "/" & %day% & "/" & %year% & " " & %hour% & ":" & %min% & ":" & %sec%
battery = RegRead ("HKLM", "System\State\Hardware\MITs", "BatteryPercentage", )
batterystring = "Battery Level = " & %battery% & "%"

signal = RegRead ("HKLM", "System\State\Phone", "Signal Strength" )
signalstring = "Signal Strength = " & %signal% & "%"

memory = (FreeMemory ())
Tmemory = %memory% * 1/1024
memorystring = "program memory = " & %tmemory% & "MB / " & (TotalMemory() * 1/1000) & "MB"

TAstatus = RegRead ("HKLM", "Software\Mort's MortScript\TREO ALERTS","STATUS" )
TAstatusstring = "Treo Alert Pro = " & %TAstatus%

RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 1",%strTime%
RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 2", %batterystring%
RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 3", %signalstring%
RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 4", %batterystring%
RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 5", %memorystring%
RegWriteString "HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 6", %batterystring%

L[1]= RegRead ("HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 1")
L[2]= RegRead ("HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 2")
L[3]= RegRead ("HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 3")
L[4]= RegRead ("HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 4")
L[5]= RegRead ("HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 5")
L[6]= RegRead ("HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 6")
L[7]= RegRead ("HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 7")
L[8]= RegRead ("HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 8")
L[9]= RegRead ("HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 9")
L[10]= RegRead ("HKLM", "Software\Mort's MortScript\Ultimate Writer", "line 10")

RegWriteString "HKLM","System\State\Phone","Current Operator Name", %L[n]%

RegWriteString "HKLM","Software\Microsoft\Ril","CarrierName", %L[n]%

# change y to how ever many lines you are using

y = 6

if (n < y)
n = n + 1
else
n = 1
endif

Sleep 2000

EndWhile

Thanks again,

Later