VRM Station

執筆時点でVRM5/Onlineに用意されている乱数関連の命令をリストアップしておきます。

• rnd, irnd
• rndseed
• rndex, irndex
• rndexseed
• GetUnixTime

irnd,irndex（頭にiが付いている）は整数=integerの乱数、rnd,rndexは少数の乱数を拾ってきます。GetUnixTimeは乱数と直接関係はありませんがあとで使います。

ついでに、関連するI.MAGIC Blogの記事です。

• VRM ONLINE アップデート (Ver.5.0.5.48)
• アップデータ (Ver.5.0.6.57)

（関係ないけど、もうちとマトモな記事タイトル付けといてくれよな…）

マニュアルにも記述がありますが、乱数列（シード値）の初期値が同じなので何回ビュワーを再起動しても同じ乱数列が生成されたのでした。

rndseedおよびrndexseed命令は、乱数列をリセットして新たな初期値を設定します。ビュワー起動直後に、GetUnixTime命令を使用して得られた国際標準時刻をもとに初期値を設定してやります。これが、「たしかにランダムな乱数」の基本原理となります。

サンプルコードは次のようになります。レイアウトスクリプトの先頭にでも書いておきましょう。

これで、rnd,irnd命令で取得する乱数列が、UnixTimeにもとづいてビュワー起動毎に異なるものになります。従来行われていた、「開始キーを設定して、それが押されるまで乱数列を無意味に進める」方法より簡単ですね。無駄なタイマーイベントも削減できます。

途中、and命令でUnixTimeを1023までに丸める（1024で割った余りに直す）処理が入っていますが、これは生のUnixTimeの値が大きすぎてシードに使えないためです。（マニュアルに書いとけよ…。）こうすると乱数列が1024通りに制限されてしまいますがこれだけあれば十分でしょう。（ちなみに適当な数では意味がなくて、2^n-1にする）

【rndex, irndexと、rndexseedはどうするのか】

ここまでexのついた連中には触れてきませんでしたが、コイツらはどう使ったらよいのでしょうか。

rndex,irndexは、0～7の8つの独立した乱数列から自由に選んで乱数を拾いに行くことが出来ます。

（今後の説明の簡単のため、rndおよびirndが使っている乱数列をR、rndex、irndexが使っている乱数列8本をR0,R1,...,R7と名前をつけることにします。）

しかし、乱数列R,R0～R7をDrawVarで順繰りに見ていくと、まったく同じ乱数列であることが分かります。

ここで一瞬疑問に感じる、rndexの「それぞれの数列は互いに独立」の意味は、拾いに行った数列は1進むが、拾いに行かなかった数列はそのまま、ということです。（8人とも全く同じ順番でグーチョキパーを出すことが分かっている8人がいて、その誰かを一人ずつ選んでじゃんけんをしに行くイメージ。）

R0～R7をそのまま使えば、「ビュワーを再起動しても同じように振る舞う個性のない8人」として使うことになります。

R0～R7に1～8のシード値（0～7でもいい）を設定してやれば、「個性があるが、それぞれはビュワーを再起動するとまた同じように振る舞う8人」（１～８が、もとの乱数列の何番目に来るかは不明であることがミソ。）

R0～R7にUnixTimeベースの「同じ」シード値を与えれば、「ビュワーを再起動すると異なる振る舞いをするが、その都度８人の個性は似ている」

R0～R7にそれぞれUnixTimeの１～８倍のシード値を設定してやれば、「個性があり、ビュワー起動毎に毎回違う振る舞いをする８人」ということになります。しかし、これをすることに全く意味が無いことが分かりますか？８人が別々の「正体不明数列」になってしまったので、１人の「正体不明数列」とじゃんけんをするのとランダムさに変わりはありませんね？

ということで乱数のお話でした。疑問があったらぜひコメント欄にどうぞ。今回は抽象的に話を進めましたが、具体的なケースに即していたほうが説明が簡単なので。