[Windows Mobile Apps and Games] Djay64:
script

Well i don't seem to be getting any errors.......... only nothing is shown on the screen, and in the reg key it isn't showing the location i.e. storage card\weather\.gif

this is my script.... don't know what i'm missing.................................

# 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 http://developer.yahoo.com/weather/ on finding your location)

location="UKXXOO85"

# folder containing your weather wallpaper

wallpaperfolder = "\storage card\weather\"

# wallpaper type jpg or gif

wallpapertype= ".gif"

# desired units for temp, f or c

units="c"

# 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( "http://www.google.com"))

Sleep(30000)

Connect("The Internet")

Sleep(10000)

endif

# do we have internet?

#if (InternetConnected( "http://www.google.com"))

raw = ReadFile("http://weather.yahooapis.com/forecastrss?p="&location&"&u="&units)

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