[Windows Mobile Apps and Games] AGY:
Brock

Thanks alot for your help:D

# Get the path to the files needed

# your location (see http://developer.yahoo.com/weather/ on finding your location)

location="CAXX0126" <----- LOCATION FROM WP DATA FILE

# folder containing your weather wallpaper

wallpaperfolder = "\storage card\My Documents\wallpaper\" <-----CHANGED

# wallpaper type jpg or gif

wallpapertype= ".jpg"

# how often to try and get the weather

delayHours = .5

# slideforecast is only if you are running s2u2 v 1.02 and up (otherwise do not change this)

# if you want no change to be made to the slide bar text then set slideforecast = 0 (default)

# if you want the daily forecast to be displayed on the slide bar then set slideforecast = 1

# if you want the current condition to be displayed on the slide bar then set slideforecast = 2

slideforecast = 0

wpPath = RegRead( "HKCU", "\software\MarsWare\WeatherPanel", "ProgramPath" )

script = SystemPath("ScriptPath") & "\" & SystemPath("ScriptName") & SystemPath("ScriptExt")

logfile = SystemPath("ScriptPath") & "\" & "Current Weather Log.TXT"

# avoid registry writes if no change

curweather = RegRead("HKCU", "\Software\A_C\S2U2\", "UserWeather")

currlweather = RegRead("HKCU", "\Software\emerym\", "Weather")

curpic= RegRead("HKCU", "\Software\A_C\S2U2\", "wallpaper")

curforecast = SubStr(curpic,-6,2)

oldmax =SubStr(curweather,-23,2)

oldmin =SubStr(curweather,-18,2)

oldS2Utext= RegRead("HKCU", "\Software\A_C\S2U2\", "S2Utext")

oldupdatetime = SubStr(curweather,-5,5)

weather = ""

rlweather = ""

##

GetTime(hour,min,sec,day,month,year)

##

today = ( day & "/" & month & "/" & year )

##

Runtime = "Updated: " & day & "/" & month & "/" & year & " - " & hour & ":" & min & "^NL^"

FullHour=hour

If (FullHour<10)

FullHour= "0"&FullHour

endif

CurrentTime = Fullhour&":"&min

##

#message( runtime , "" )

##

#WriteFile (logfile, %runtime% , TRUE)

# set up for next notification

utime = TimeStamp() + (delayHours*60)*60

mort = SystemPath("ScriptExe") & "\MortScript.exe"

script = SystemPath("ScriptPath") & "\" & SystemPath("ScriptName") & SystemPath("ScriptExt")

# kill any lingering notification

RemoveNotifications(mort, script)

# set notify for myself at next time

RunAt( utime, mort, script)

# Quietly ignore all errors

ErrorLevel("off")

hourlyfile= wpPath\"data\"&location&"-hourly"

currentfile= wpPath\"data\"&location&"-current"

##

forecastfile = wpPath\"data\"&location&"-forecast"

#Find High / Low temps & forecast icon

forecastdata = ReadFile(forecastfile)

for line = 1 to 170

segment[line] = Part( forecastdata, "^NL^", line )

Next

for count=0 to 9

If (count=0)

ind=1

Else

ind=((count*17)+1)

EndIf

day_no=((segment[ind]-25569)*86400)

daystring = Format( day_no, 6)

Day_no=FormatTime( "d/m/Y", daystring)

if (day_no eq today)

forecast_code_day = segment[ ind + 5 ]

forecast_code_night = segment[ ind + 11 ]

maxtempf = segment[ ind + 1 ]

mintempf = segment[ ind + 2 ]

forecastsummary = segment[ ind + 6]

maxtemp=((maxtempf-32)*5)/9

mintemp=((mintempf-32)*5)/9

#

If ( maxtempf = -9999)

maxtempf = oldmax

maxtemp = oldmax

EndIf

#

If ( mintempf = -9999)

mintempf = oldmin

mintemp = oldmin

EndIf

#

If ( hour > 6 AND hour < 18 )

forecast_code = forecast_code_day

Else

forecast_code = forecast_code_night

EndIf

#Message (forecast_code , hour )

# message( day_no , count)

# message( maxtemp, mintemp )

EndIf

next

##

#Find current location

find_location = ReadFile( currentfile )

location_length = find( find_location , "," )

location_name = substr( find_location , 1 , ( location_length - 1 ) )

endofcurrenthour = FormatTime( "d/m/Y H", (timestamp() + 3600))

##Check last update time

currentdata = ReadFile( currentfile )

Updatetime = ((SubStr( currentdata, 27, 12 )-25569)*86400)

updatetimestring = Format( updatetime, 0)

onehourago = ( timestamp() - 3600 )

#If ( onehourago Lt updatetimestring )

If ( onehourago eq onehourago )

filedata = ReadFile( currentfile )

for line = 1 to 17

segment[line] = Part( filedata, "^NL^", line )

Next

tempf = segment [ 3 ]

feeltempf = segment[ 4 ]

ccode = segment[ 7 ]

summary = segment[ 8 ]

humidity = segment[ 12 ]

temp=((tempf-32)*5)/9

feeltemp=((feeltempf-32)*5)/9

display1 = " Feels: "& feeltemp&"°"

display2 = " " & summary & " -Feels: "& feeltemp & "°"

display3 = " " & location_name & ": " & summary & " -Feels:" & feeltemp & "°"

display4 = " " & location_name & ": " & summary & " -High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"

display5 = " " & location_name & ": " & "High:" & maxtemp & "°" & " -Feels:" & feeltemp & "°"

display6 = " " & summary & " -High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"

display7 = " High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"

Else

filedata = ReadFile( hourlyfile )

for line = 1 to 239

segment[line] = Part( filedata, "^NL^", line )

Next

for count=0 to 22

If (count=0)

ind=1

Else

ind=((count*10)+1)

EndIf

convertdate=((segment[ind]-25569)*86400)

datestring = Format( convertdate, 6)

Day=FormatTime( "d/m/Y", datestring)

Hour=FormatTime( "H", datestring)

Min=FormatTime( "i", datestring)

if (Min <> 00)

Min = "00"

Hour = (Hour + 1)

If (Length(Hour)<>2

Hour = ("0" & Hour)

EndIf

EndIf

periodtime =(Day & " " & Hour )

If (endofcurrenthour eq periodtime)

tempf = segment[ind + 1 ]

feeltempf = segment[ind + 2 ]

ccode = segment[ind + 3 ]

summary = segment[ind + 4 ]

temp=((tempf-32)*5)/9

feeltemp=((feeltempf-32)*5)/9

display1 = " Feels: "& feeltemp&"°"

display2 = " " & summary & " -Feels: "& feeltemp & "°"

display3 = " " & location_name & ": " & summary & " -Feels:" & feeltemp & "°"

display4 = " " & location_name & ": " & summary & " -High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"

display5 = " " & location_name & ": " & "High:" & maxtemp & "°" & " -Feels:" & feeltemp & "°"

display6 = " " & summary & " -High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"

display7 = " High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"

EndIf

next

EndIf

#Choose what to display:

#display1 = " Feels: 21°"

#display2 = " Sunny - Feels: 21°"

#display3 = " London: Sunny - Feels: 21°"

#display4 = " London: Sunny - High: 26° - Feels: 21°"

#display5 = " London: - High: 26° - Feels: 21°"

#display6 = " Sunny - High: 26° - Feels: 21°"

#display7 = " High: 26° - Feels: 21°"

#

#change to display1 through 7 as required

weather="C|"&forecast_code&"| "&tempc&"º H"&maxtempf&"º\L"&mintempf&"º"&" Updated: "&oldupdatetime

if (slideforecast ne 0)

if (slideforecast eq 1)

S2Utext = forecastsummary

endif

if (slideforecast eq 2)

S2Utext = summary

endif

if (S2Utext eq -9999)

S2Utext = oldS2Utext

endif

endif

if (curweather ne weather)

weather="C|"&forecast_code&"| "&tempf&"º H"&maxtempf&"º\L"&mintempf&"º"&" Updated: "&CurrentTime

RegWriteString("HKCU", "\Software\A_C\S2U2\", "UserWeather", weather)

if (ccode ne curforecast)

wallpaper=wallpaperfolder&ccode&wallpapertype

RegWriteString("HKCU", "\Software\A_C\S2U2\", "Wallpaper", wallpaper)

Run("\Program Files\S2U2\iLock2.exe","-refresh")

endif

if (slideforecast ne 0)

RegWriteString("HKCU", "\Software\A_C\S2U2\", "S2Utext", S2Utext)

Run("\Program Files\S2U2\iLock2.exe","-refresh")

endif

endif

and here is a pic of my S2U2