里々ゴーストに天気予報機能を付加する簡易スクリプトです。~
使用改造などご自由にどうぞ。

#br

**仕様 [#zae88785]
-情報取得元 http://feedproxy.google.com/tenkirss?format=xml

更新履歴

-2013/6/19 次の日の降水確率の後ろに消し忘れ文字列が付く問題を修正
-2011/2/9 コマンドの使用ミスで情報処理ルーチンが狂ってたのを修正&新スクリプト公開
-2011/1/18 未使用変数・消し忘れ変数を削除
-2011/1/16 スクリプトの抜本的な修正を行いました
-2010/11/7 リンク切れにつき情報取得先を変更しました

#br

**導入に必要なもの [#d91f2916]
-httpc.dll [[satoriya-shiori>http://code.google.com/p/satoriya-shiori/]] から [[httpc-phase7a>http://code.google.com/p/satoriya-shiori/downloads/detail?name=httpc-phase7a.zip]] にてDL

導入前にエントリやセーブデータ用の変数が被っていないか一応チェックして下さい。~
同じ名称のものが辞書内に存在すると正常に動作しません。


**導入方法 [#k1d52dac]

***SAORIを登録 [#n7be7db5]
通常のSAORI登録方法と同じくhttpcを登録して下さい。~
(&color(Red){satori_conf.txt};の「@SAORI」行の下に以下を追記し、ghost/master/saoriフォルダに&color(Red){httpc.dll};をコピーして下さい)

 httpc,saori/httpc.dll

***選択肢を付加 [#l7e807c5]
ダブルクリックメニューなどに↓のように「天気予報を調べる」へジャンプする選択肢を作って下さい。~
あとはスクリプトをコピペするだけです。

 _天気予報を調べる


#br

**新スクリプト全文 [#k72f0a5c]
-フォント色変更コマンド部分のみSSPしか適応できません

 @天気予報の情報取得先
 http://feedproxy.google.com/tenkirss?format=xml
 
 @b1
 (sprintf,%c,1)
 
 *天気予報を調べる
 :\*\_q接続中...\n
 ※サーバ混雑時は完了まで時間がかかります\n 情報取得中は動けないので暫くお待ち下さい\w9\w9
 \![raise,天気予報情報取得開始]
 
 *天気予報情報取得開始
 $天気情報【タブ】(httpc(b1)(天気予報の情報取得先)(b1)<item>(b1)</rss>)
 >天気予報判別【タブ】(変数「天気情報」の存在)&&(変数「天気予報場所」の存在)
 >天気予報地域【タブ】(変数「天気情報」の存在)
 :\_q※取得失敗\_q
 
 *天気予報地域
 :\*\_q\b[2]φ
 \f[color,50,50,250]<北海道>\f[color,default] \q[旭川,天気予報表示] \q[釧路,天気予報表示] \q[帯広 ,天気予報表示] \q[札幌,天気予報表示]
 \f[color,50,50,250]< 東北 >\f[color,default] \q[青森,天気予報表示] \q[秋田,天気予報表示] \q[仙台 ,天気予報表示] \q[盛岡,天気予報表示]
 \f[color,50,50,250]< 関東 >\f[color,default] \q[千葉,天気予報表示] \q[東京,天気予報表示] \q[宇都宮,天気予報表示] \q[横浜,天気予報表示]
 \f[color,50,50,250]< 中部 >\f[color,default] \q[新潟,天気予報表示] \q[長野,天気予報表示] \q[金沢 ,天気予報表示] \q[静岡,天気予報表示] \q[名古屋,天気予報表示]
 \f[color,50,50,250]< 近畿 >\f[color,default] \q[京都,天気予報表示] \q[大阪,天気予報表示] \q[和歌山,天気予報表示]
 \f[color,50,50,250]< 中国 >\f[color,default] \q[岡山,天気予報表示] \q[松江,天気予報表示] \q[広島 ,天気予報表示]
 \f[color,50,50,250]< 四国 >\f[color,default] \q[高松,天気予報表示] \q[高知,天気予報表示]
 \f[color,50,50,250]< 九州 >\f[color,default] \q[福岡,天気予報表示] \q[熊本,天気予報表示] \q[鹿児島,天気予報表示] \q[那覇,天気予報表示] \q[石垣島,天気予報表示]
 \_q
 >天気予報表示部【タブ】(変数「天気今日の日付」の存在)
 \_q\n\n\n\n\n\n\n\n\n[half]\![*]\q[終了      ,天気予報セクション終了]\_q
 
 *天気予報表示部
 \0\_q▼【\f[color,120,140,0]\f[bold,1](天気予報場所)\f[bold,default]\f[color,default]】 予想気温 \f[color,0,0,255](天気今日の気温)\f[color,default]
 \n[half](天気今日の日付) ... \f[color,200,0,0](天気今日の予報)\f[color,default]
 \f[color,120,120,120]降水確率 ~12:00 - \f[color,default]\f[color,0,50,200](天気降水確率1)\f[color,default]
 \f[color,120,120,120]     ~18:00 - \f[color,default]\f[color,0,50,200](天気降水確率2)\f[color,default]
 \f[color,120,120,120]     ~24:00 - \f[color,default]\f[color,0,50,200](天気降水確率3)\f[color,default]
 \n[half](天気明日の日付) ... \f[color,200,0,0](天気明日の予報)\f[color,default]
 \f[color,120,120,120]     ~ 6:00 - \f[color,default]\f[color,0,50,200](天気降水確率4)\f[color,default]
 \n[half]\![*]\q[終了      ,天気予報セクション終了]\_q
 
 *天気予報表示
 $天気予報場所【タブ】(erase(b1)(選択ラベル)(b1) )
 >天気予報判別
 
 *天気予報判別
 $temp【タブ】(replace(b1)(天気情報)(b1)(天気予報場所)(b1)∇)
 $temp【タブ】(nop(b1)(split(b1)(temp)(b1)∇))(S1)
 $temp【タブ】(substr(b1)(temp)(b1)0(b1)300)
 $temp【タブ】(erase(b1)(temp)(b1) )
 $temp【タブ】(erase(b1)(temp)(b1)気温)
 $temp【タブ】(erase(b1)(temp)(b1)雨12時まで)
 $temp【タブ】(erase(b1)(temp)(b1)雨18時まで)
 $temp【タブ】(erase(b1)(temp)(b1)雨24時まで)
 $temp【タブ】(erase(b1)(temp)(b1)雨06時まで)
 $temp【タブ】(replace(b1)(temp)(b1)くもり(b1)曇り)
 $temp【タブ】(replace(b1)(temp)(b1)%(b1)%)
 $temp【タブ】(replace(b1)(temp)(b1)月(b1)φ(月φ))
 $temp【タブ】(replace(b1)(temp)(b1)火(b1)φ(火φ))
 $temp【タブ】(replace(b1)(temp)(b1)水(b1)φ(水φ))
 $temp【タブ】(replace(b1)(temp)(b1)木(b1)φ(木φ))
 $temp【タブ】(replace(b1)(temp)(b1)金(b1)φ(金φ))
 $temp【タブ】(replace(b1)(temp)(b1)土(b1)φ(土φ))
 $temp【タブ】(replace(b1)(temp)(b1)日(b1)φ(日φ))
 $temp【タブ】(replace(b1)(temp)(b1)<description>(b1)・)
 $temp【タブ】(replace(b1)(temp)(b1)</description>(b1)・)
 $temp【タブ】(replace(b1)(temp)(b1)&lt;br/&gt;(b1)・)
 $temp【タブ】(split(b1)(temp)(b1)・)
 $天気今日の日付【タブ】(S1)
 $天気今日の予報【タブ】(S2)
 $天気今日の気温【タブ】(S3)
 $天気降水確率1【タブ】(S4)
 $天気降水確率2【タブ】(S5)
 $天気降水確率3【タブ】(S6)
 $天気明日の日付【タブ】(S7)
 $天気明日の予報【タブ】(S8)
 $temp【タブ】(S9)
 $temp【タブ】(split(b1)(temp)(b1)&lt)
 $天気降水確率4【タブ】(S0)
 >天気予報地域
 
 
 #(天気予報場所)は次回のデフォルト表示に使用するため消さない。
 
 *天気予報セクション終了
 $天気情報【タブ】
 $temp【タブ】
 $天気今日の日付【タブ】
 $天気今日の予報【タブ】
 $天気今日の気温【タブ】
 $天気降水確率1【タブ】
 $天気降水確率2【タブ】
 $天気降水確率3【タブ】
 $天気明日の日付【タブ】
 $天気明日の予報【タブ】
 $天気降水確率4【タブ】


#br


トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS