自動ドアを作るLS(練習版）

自動ドアをLSLで作るには、まず自動ドアの仕様（？）を決めなければなりません。

今回はこんな仕様でいきます。

１．自動ドアオブジェクトの前に誰かが立つと

２．自動ドアオブジェクトが移動して

３．一定時間が経つと元に戻る

*作り方

まずオブジェクトが、人がいることを判断しないといけません。それにはllsensorを使います。

llsensorとはある範囲内に何かがあることをチェックするためのものです。流れとしては下記のとおり。

１．オブジェクトが起動したときに呼ばれるdefaultでチェックルーチンを呼ぶ。

２．llsensorでチェックする対象や範囲を指定しておく。

３．その範囲に対象が入ってくるとsensorハンドラが呼ばれるので、そこに処理を書く。

=５ｍ以内にアバターがいると、その名前を表示して終了するサンプルプログラム

default
{
 state_entry(){
  llSay(DEBUG_CHANNEL,"check start!");
  llSensor("","",AGENT,5.0,PI); // どんな名前のアバターでもいいので半径５ｍの球に入った場合。
 }

// Sensor handler
 sensor(integer total_number)
 {
  llSay(DEBUG_CHANNEL, (string)total_number + " avatars in 5m around" );
 }
}

llSensorの詳しい説明はこちら。
http://rpgstats.com/wiki/index.php?title=LlSensor

これをオブジェクトに張っておくと、誰かがそのオブジェクトの５ｍ以内に近づくと、５ｍ以内にいる人数を表示します。

TIP!!
llSay(DEBUG_CHANNEL,"check start!");
のように書いておくとデバックチャンネルだけで表示されるのでテストに便利です。
-----------------------------------------------------------

次はオブジェクトを移動してみます。テストのため触るとX軸の方向に３ｍ右移動し、もう一度触ると元に戻るようにしてみます。
移動するにはllSetPosを、今の位置を得るにはllGetLocalPos()を使います。

流れは以下になります。

１．オブジェクトを触ると
２．今の位置を保存します
３．どちらに移動するかをチェックし
３．３ｍ移動させます。

=触ると３ｍ移動し、もう一度触ると元の位置に戻るサンプルプログラム

float ibias = 3;
vector vbias = <0,0,0>;

default
{
 touch(integer total_number)
 { //触ったら
  vector foo = llGetLocalPos();　//今の場所
  vbias.x = ibias; // 移動方向
  ibias = -ibias;   //元に戻すための処理
  llSetPos(foo + vbias); //移動
 }
}

llSetPosの詳しい説明はこちら。
http://wiki.secondlife.com/wiki/LlSetPos

-----------------------------------------------------------
最後に３秒経過すると何かのアクションをするスクリプトです。これにはllSetTimerEventを使います。
llSetTimerEvent(秒数）と指定しておくと、その秒数毎にtimer()という関数が呼ばれます。

=一度触ると５秒おきに"5 seconds counted."と表示し、もう一度触ると止まるサンプルプログラム

float ftiming = 5;

default
{
 
 touch(integer total_number)
 {
         llSetTimerEvent(timing);
  if ( ftiming > 0 )
  {
   ftiming = 0;
  } else {
   ftiming = 5;
  }
 }

 timer()
     {
         llOwnerSay("5 seconds counted.");
     }
}

llSetTimerEventの詳しい説明はこちら。
http://rpgstats.com/wiki/index.php?title=LlSetTimerEvent

-----------------------------------------------------------
さて、これら３つを組み合わせれば自動ドアができます。誰かをはさまないようにもなっています。

float ibias = 3; //移動距離
vector vbias = <0,0,0>;
float ftiming = 3; // 閉じるまでの時間
string sobject_status = "close";

default
{
 state_entry(){
         llSetTimerEvent(0);  //閉じるタイマーを止めておく。
  // どんな名前のアバターでもいいので半径５ｍの球に入った場合
  llSensorRepeat("","",AGENT,5.0,PI,1);
 }

 // Sensor handler
 sensor(integer total_number)
 {
  if ( sobject_status == "close")
  {
   llSensorRepeat("","",AGENT,5.0,PI,0);
    vector foo = llGetLocalPos();
  vbias.x = ibias;
  ibias = -ibias;
  llSetPos(foo + vbias);
   sobject_status = "open";
          llSetTimerEvent(ftiming);
  }
 }

 no_sensor()
 {
  if ( sobject_status == "open")
  {
          llSetTimerEvent(0); 

    vector foo = llGetLocalPos();
  vbias.x = ibias;
  ibias = -ibias;
  llSetPos(foo + vbias);
     sobject_status = "close";
   llSensorRepeat("","",AGENT,5.0,PI,1);
  }
 }
 
 timer()
     {
  // ftimingおきにセンサーを起動し、誰かいないかをチェックする
  llSensor("","",AGENT,5.0,PI); //センサー起動
     }
}