rltodayで天気予報を作成してみる。（公開編）

■rltoday＋天気予報スキンの改造方法を公開。

rltodayで天気予報を作成してみる。で公開しているTodayスキンが、
それなりにページビューあるようですので改造方法とスキンを公開します。

ある程度いじれる人向けになりますのでご注意を。

■インストール・設定

1.rltoday・MortScriptをインストールする

　それぞれ下記Linkより導入。

　rlToday at Rotlaus Software
　http://rotlaus-software.de/projects/rltoday/

　MortScript
　http://home.att.ne.jp/wave/deox_pop/mortscript.html
　

2.Todayスキンのダウンロード

　weather.zipを展開するとweatherフォルダが出来るので、
　これを「\Program Files\rlToday\」配下にコピーする。

　weather.zip　→ http://snugplace.s271.xrea.com/weather.zip

　※iconは、http://liquidweather.net/icons.phpから、Grzankaをリサイズして使用しています。
　　（Today用180*180、Weekly用64*64にしてそれぞれ保存。）

3.天気予報スクリプトをダウンロード。

　myopen.jpさんの記事、「最小パケットの詳細天気予報 MortScript + rlTodayスキン」から、
　todayスキンとMortScriptをダウンロードさせて頂く。

　myweather.mscrとicon.iniをweatherフォルダにコピーする。

　※myweather.mscrは、修正が入っているので最新のものと差し替えましょう。
　
4.myweather.mscrを修正する。（ごめんなさいy.mikomeさん・・）

　d346prtさんの記事「■HTC Home風rltodayスキン その4（お披露目）」を参考に。
　1day分だけ、違うサイズアイコンを使うのでちょびっと修正します。
　
　内容としては、254行目の「for day = 1 to 7」を、
　「day = 1」 ～ 「for day = 2 to 4」の内容と置き換えます。

　○変更前（254行目）

for day = 1 to 7

　○書き換え後 （ for day = 1 to 7 に上書きで書いてください。）

day = 1
  if (formattime("H", now) < 17 or day > 1)
   section = "hiru"
  else
   section = "yoru"
  endif
  if (yoho[day] ne "")
   icon_file = iniRead(skin_dir\"icons\icons.ini", section, icon[day]) 
  
  if (icon_file eq "")
    icon_file = iniRead(skin_dir\"icons.ini", section, icon[day])
   endif   
   copy(skin_dir\"L_icons"\icon_file, skin_dir\"weather"&day&".png", TRUE)
  else
   delete(skin_dir\"weather"&day&".png")
  endif
 for day = 2 to 4  

5.myweather.mscrを実行してみる。

　一番最初の起動時は、地域の設定画面が出ると思います。
　その後、weatherフォルダにweather1.pngが出力されれば完了です。

---

天気予報の取り込みタイミングなどは、すべてmyweather.mscrによる動作になります。  

 

更新時にハングアップなどしていると、古い情報のままになることがあるので、
その時は、myweather.mscrを直接実行するか、画面の右下の■をクリックしてみて下さい。

■おまけ

この画面に使っているTodayスキンです
http://snugplace.s271.xrea.com/hana3.tsk

 ■スクリーンショット

　　     

---

【Bluelounge Design社】The SanctuaryとCable Box。

ガジェット使いにオススメです。