[Windows Mobile Apps and Games] MrEous:
Awesome Work!

This is such a wonderful job you've done and the graphics (from screenshots) look great.

Though: I feel like such a noob...

-No animation at all

-Weather slider works

-'current' weather and forcast works above slider.

I have the .gifs in "\Storage Card\weather\"...here is my code.

# fetch weather from Yahoo, Parse, Update registry.
# Run every XX Hours
# Version 2.2 using Notification Queue, System Paths
# USER SETTINGS, CHANGE AS DESIRED
# how often to try and get the weather
delayHours = .5
# your location (see [URL]http://developer.yahoo.com/weather/[/URL] on finding your location)
location="75041"
# folder containing your weather wallpaper
wallpaperfolder = "\Storage Card\weather\"
# wallpaper type jpg or gif
wallpapertype= ".gif"
# desired units for temp, f or c
units="f"
# 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

GetTime(hour,min,sec,day,month,year)
# 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")
# 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)
oldS2Utext= RegRead("HKCU", "\Software\A_C\S2U2\", "S2Utext")
weather = ""
rlweather = ""
# only bother if cellular radio is on
radio = RegRead("HKLM", "\System\State\Phone", "Cellular System Available")
if (radio > 0)
# try to connect
if (not InternetConnected( "[URL]http://www.google.com[/URL]"))
Sleep(30000)
Connect("The Internet")
Sleep(10000)
endif
# do we have internet?
#if (InternetConnected( "[URL]http://www.google.com[/URL]"))
raw = ReadFile("[URL]http://weather.yahooapis.com/forecastrss?p="&location&"&u="&units[/URL])

if (Length(raw) < 20)
# something wrong!
Exit
endif
# find current and today forcast
notDone = 0
# get tomorrow's weather if hour past 4pm (>15)
if (hour > 15)
notDone = -1
endif
cond = ""
code = ""
ccond = ""
ccode = ""
temp = ""
lotemp = ""
hitemp = ""
tempat = ""
day = ""
wallpaper = ""
ForEach line in split(raw,"^LF^",1)
#<yweather:condition text="Mostly Cloudy" code="28" temp="39" date="Fri, 21 Dec 2007 7:53 am PST" />
if (notDone < 1)
if (Find(line,"<yweather:condition"))
CallFunction("getValue", ccond, line, "text")
CallFunction("getValue", ccode, line, "code")
CallFunction("getValue", temp, line, "temp")
else
#<yweather:forecast day="Fri" date="21 Dec 2007"low="34" high="55" text="Mostly Sunny" code="34" />
if (Find(line,"<yweather:forecast"))
notDone=notDone+1
CallFunction("getValue", cond, line, "text")
CallFunction("getValue", code, line, "code")
CallFunction("getValue", hitemp, line, "high")
CallFunction("getValue", lotemp, line, "low")
CallFunction("getValue", day, line, "day")
endif
endif
endif
EndForEach
if (notDone ne 1)
weather="W|0|Data|Error"
rlweather="Data Error"
else
weather="C|"&code&"| "&temp&"º H"&hitemp&"º\L"&lotemp&"º"
if (hour > 15)
rlweather=ccond&" "&temp&" " &day&": " & cond & " "&hitemp
else
rlweather=ccond&" "&temp&" Today: " & cond & " "&hitemp
endif
endif
else
# we must be in a black hole
weather="W|0|No|Network"
rlweather="No Network"
endif
if (slideforecast ne 0)
if (slideforecast eq 1)
S2Utext = cond
endif
if (slideforecast eq 2)
S2Utext = ccond
endif
if (S2Utext eq -9999)
S2Utext = oldS2Utext
endif
endif

if (curweather ne weather)
#for s2u2 UserWeather
RegWriteString("HKCU", "\Software\A_C\S2U2\", "UserWeather", weather)
if (ccode ne curforecast)
wallpaper=wallpaperfolder&ccode&wallpapertype
RegWriteString("HKCU", "\Software\A_C\S2U2\", "Wallpaper", wallpaper)
endif
if (slideforecast ne 0)
if (S2Utext ne oldS2Utext)
RegWriteString("HKCU", "\Software\A_C\S2U2\", "S2Utext", S2Utext)
endif
endif
endif
if (ccode ne curforecast)
Run("\Program Files\S2U2\iLock2.exe","-refresh")
if (WndActive("S2U2") = True)
Run("\Program Files\S2U2\s2u2.exe")
endif
else
if (slideforecast ne 0)
if (s2utext ne olds2utext)
Run("\Program Files\S2U2\iLock2.exe","-refresh")
if (WndActive("S2U2") = True)
Run("\Program Files\S2U2\s2u2.exe")
endif
endif
endif
endif

# subroutine to pull value out of XML
Sub getValue
offset = Find(argv[1],argv[2]) + Length(argv[2])+2
endoff = find(argv[1], """", offset)
return(SubStr(argv[1], offset, endoff-offset))
EndSub