for文の利用例

今回は、ネットワーク更新時の表示を少し変更してみます。
実際はスクリプトを書く必要はないのですが、ある程度は表示があったほうが、見た目としては良いかもしれません。
今回は、MD5チェックなどのスクリプトを省いたものを作ります。
ネットワーク更新は、1ファイルごとにOnUpdate.OnDownloadBeginというイベントが通知されます。
その中に、スクリプトを書くと、ファイル受信ごとに実行されます。
このイベントでは、（Ｒ０）にファイルの名前、（Ｒ１）にファイルの番号（０から）、（Ｒ２）にファイル個数-1の数字が入っています。

＊OnUpdate.OnDownloadBegin
：\_q更新中...
（for、０、（Ｒ２）、１、
	（when、（Ｒ１）＞＝（Ｃ０）、◆、◇）
）\_q

---

実行結果


「Ｒポストと狛犬」のスクリプトを改造する場合は以下です。
打ち消し線が引かれているスクリプトは削除してください。
dic02_Event.txt

＊OnUpdate.OnDownloadBegin
：（Ｒ０）をダウンロード中です。

＃ \_qはメッセージを一瞬で表示する「さくらスクリプト」。
：\_q更新中...
（for、０、（Ｒ２）、１、
	（when、（Ｒ１）＞＝（Ｃ０）、◆、◇）
）\_q

＊OnUpdate.OnMD5CompareBegin
：\_q（Ｒ０）のMD5照合を行います。\_q

＊OnUpdate.OnMD5CompareComplete
：君\_q　（Ｒ１）\_q
僕\_q　（Ｒ２）\_q
一致。

＊OnUpdate.OnMD5CompareFailure
：君\_q　（Ｒ１）\_q
僕\_q　（Ｒ２）\_q
不一致……あれ？

---

ネットワーク更新の場合、ファイル数はシェル更新などがなければ50以内に収まるので困りませんが、上限が大きいものだと困るかもしれません。
これを踏まえて、上限を自動的に30個にして表示する機能を作ります。
HPとか経験値とか、最大値がある数字に使えるかもしれません。

＊
：まずは表示する値を入れる。
＄表示値＝２７１
＄表示最大値＝６８３
＄表示幅＝３０
表示テスト。
（表示値）／（表示最大値）
＄バー表示値＝（表示値）＊１００
＄バー表示最大＝（表示最大値）＊１００
＄バー表示刻み＝（表示最大値）＊１００／（表示幅）
\_q（for、（バー表示刻み）、（バー表示最大）、（バー表示刻み）、
	（when、（バー表示値）＞（Ｃ０）、|、-）
）\_q
＄バー表示値＝
＄バー表示最大＝
＄バー表示刻み＝

---

実行結果