; TempMon
; -------
; Download Weather page from Bureau of Meteorology and
; extract current temperature for the selected city. Note 
; the dependency on page layout to find temp.  Temp is
; display in mini banner just above system tray with
; Icon in system tray to allow exit when double clicked.
;
priority low
puttray TempMon,exit|menu,I,LD|RC
setfont verdana,8,
banner Retrieving temperature...
delay 15
banoff
setfont verdana,6,
setvar K,Melbourne
setvar G,56

:nextemp
geturl http://www.bom.gov.au,F
iferror noserver
setvar B,<h3>%K
setvar H,61
readline %F,A

:scanit
iferror notemp
srchstr %A,%B,J
iferror next
setvar C,%J
incvar C,%G
substr %A,%C,4,I
setvar C,%J
incvar C,%H
substr %A,%C,E,D
srchstr %D,<,B
delstr %D,%B,E,A
goto showtemp

:next
nextline %F,A
goto scanit

:noserver
msgbox Get Temp,Couldn't contact server,0
goto exit

:notemp
msgbox Get Temp,Couldn't read temperature,0
goto exit

:showtemp
getscrny B
decvar B,60
;banner %IC (%A),R|%B,80|30,2,A
banner %I C,R|%B,80|30,2,A
delfile %F
delay 1200
banner Wait...,R|%B,80|30,2,A
delfile %F
goto nextemp

:menu
Menubox Setup,Please select your city:,Adelaide|Brisbane|Darwin|Hobart|Melbourne|Perth|Sydney|Canberra
casemsg nextemp|doAdel|doBris|doDarw|doHoba|doMelb|doPert|doSydn|doCanb

:doAdel
setvar K,Adelaide
setvar G,55
goto nextemp

:doBris
setvar K,Brisbane
setvar G,55
goto nextemp

:doDarw
setvar K,Darwin
setvar G,53
goto nextemp

:doHoba
setvar K,Hobart
setvar G,53
goto nextemp

:doMelb
setvar K,Melbourne
setvar G,56
goto nextemp

:doPert
setvar K,Perth
setvar G,52
goto nextemp

:doSydn
setvar K,Sydney
setvar G,53
goto nextemp

:doCanb
setvar K,Canberra
setvar G,55
goto nextemp

:exit
banoff