Chararina 開発サンプルの "タイヤネコ"では、毎分 0秒に "分"のカウンタを進めています。
毎分 0秒のトリガは MinDrive アクションによって行われ、UpdateMin() 関数で処理されます。
プロパティ TIME_WorkTime に保存されている時刻を取り出し、１加算し、再度 TIME_WorkTime に保存します。
つまり、"分" の数を数えているわけです。
これが Chararinaキャラクタの時間認識になります。
Main.aya
// 時間イベント駆動系(毎分0秒の時に呼ばれる)
// 但しなにかしらの処理を実行中の場合はこの処理は呼ばれない
action MinDrive@( Second() == 0 )
{
UpdateMin();
// 最後にチェックした時間を記録しておく
PutProperty( "TIME_LastMinChecked", itoa( Time() ) );
}
// 毎分0秒の処理を行う
void UpdateMin()
{
DM( 5, "UpdateMin" );
// ** その他の処理 **
// 稼働時間の加算処理
int worktime = atoi( GetProperty( "TIME_WorkTime" ) ) + 1;
PutProperty( "TIME_WorkTime", itoa( worktime ) );
… 以下略…
}
この TIME_WorkTime を使って、終了時にメッセージを表示するわけです。
動くかどうか分かりませんが、だいたいこんな具合でしょう。
Greeting.aya
// 終了時あいさつ(主にMain.ayaのShutDownアクションから呼ばれる)
void Greeting_ShutDown()
{
// 稼動時間を取得(分)
int worktime = atoi( GetProperty("TIME_WorkTime") );
// フキダシをクリア
Talk( "\e" );
// 稼動時間に応じて台詞を変える
if( worktime < 60 ){
// 稼働開始から1時間未満の時は不満をたれる
Talk( "え、もう終わっちゃうの？\w" );
}
if( worktime >= 60 * 3 ){
// 稼動開始から3時間以上たっている場合のみ表示する
{
string sMessage = "";
int iHour;
int iMin;
iHour = worktime / 60;
iMin = worktime % 60;
sMessage = itoa( iHour ) + "時間";
if( 0 < iMin ) {
sMessage = sMessage + itoa( iMin ) + "分";
}
Talk( sMessage + "も頑張ったね。\w" );
}
}
// 稼働時間に関係ない共通台詞(ランダムに分岐)
int rnd = Random( 2 );
if( rnd == 0 ){
Talk( "お疲れさまでした。" );
} else {
Talk( "それじゃ、またね。" );
}
// 終了時間を記録
PutProperty( "TIME_Last_ShutDown", itoa( Time() ) );
}
稼働時間が短いと、文句を言う輩もいます。
この例だと、worktime < 60、つまり 60分未満だと文句をタレます。
例えば PC の時計を 1時間進めても、「毎分 0秒」を 60回通過しているわけではないので、やっぱり文句を言われます。
別に無視してりゃいいんですが、仕組みが分かっているのに対策が取れないと言うのは気分が悪いものです。
要するに、最速で毎分 0秒を作り出せれば、時間を掛けずに恨み言を言われないようにできます。
そこで、こんなツールを作ってみました。
Chararina用加速試験ツールですね。
機能はとてもシンプル。
システム時刻を変化させますので、色々と支障が出る可能性があります。
また、TimeAccel 自身の原因により、何か問題が起こる可能性もあります。
お定まりですが、完全に自己責任で使用してください。
何人も一切の保証や補償は行いません。
TimeAccel.exe を適当なフォルダに置いて、好きな方法で起動してください。
Exitボタンか、タイトルバー右端の×を押下すると終了します。
このプログラムは Microsoft VisualBasic 6.0 (SP6) で作られているため、実行するには runtime が必要です。
Windows2000 や WindowsXP では最初から runtime が入っていますが、そうでない場合は VB6 用の runtime を入手してインストールする必要があります。
また、VB6JP.DLL が無いと日本語が文字化けします。
こちらは Windows2000 や WindowsXP でも別途インストールする必要があります。
いろんな所で配布されています。
例えば Vector のソフトライブラリから入手すればよいでしょう。
