2006/11/8

ちょっとだけリアルな信号機  VRMスクリプト禅問答
昨日、ちょっと出かけようと駅へ向かったら、丁度電車が出ていくところで悔しい思いをいたしました。そのとき、何気なく電車を見送っていて、あることに気づき、帰宅後に試してみたところ思ったよりも良さげな感じだったので、紹介しておきます。

*     *     *

とりあえず、VRM4第2号収録の信号部品を1つレイアウト上に配置し、以下のスクリプトを書き込んでみてください。

[信号スクリプト]
//初期設定
SetSignal 1
//キー設定
Var IDKey
SetEventKey this Step1 IDKey z

//青になるメソッドその1
BeginFunc Step1
KillEvent IDKey
Var IDTmp
SetEventAfter this Step2 Tmp 500
SetSignal 0
EndFunc

//青になるメソッドその2
BeginFunc Step2
Var Tmp
SetEventAfter this Step3 Tmp 10000
SetSignal 6
EndFunc

//赤になるメソッドその1
BeginFunc Step3
Var Tmp
SetEventAfter this Step4 Tmp 500
SetSignal 0
EndFunc

//赤になるメソッドその2
BeginFunc Step4
SetSignal 1
SetEventKey this Step1 IDKey z
EndFunc

で、この信号機が見える位置に編成を配置してビュワーを起動し、[z]キーを押して信号の遷移する様子を見てください。ちょっとだけリアルじゃないですか?

続きを読む
0


teacup.ブログ “AutoPage”
AutoPage最新お知らせ