シーリングファン作成中

宿題がたまっていってますが、１つのことを悩むよりいいかな？
と思ってます。

シーリングファンは、Modifyなので白色で発売しようと思ってます。

スクリプトは、ダイアログでスピードを制御させるぐらいでいいかな？と思ってます。

list Speed = 
[ 
   "Speed1","Speed2","Speed3","Stop" 
]; 
 
integer Handle; 
 
default 
{ 
  touch_start(integer total_number) 
  { 
    Handle = llListen(7, "", "", ""); 
    llDialog(llDetectedKey(0), "Select speed", Speed , 7); 
  } 
  listen(integer channel, string name, key id, string message) 
  { 
    if(message == "Speed1") 
    { 
      llTargetOmega(<0,0,1>, 1, 1);
    } 
    else if(message == "Speed2") 
    { 
      llTargetOmega(<0,0,1>, 3, 1);
    } 
    else if(message == "Speed3") 
    { 
      llTargetOmega(<0,0,1>, 6, 1);
    }
    else if(message == "Stop") 
    { 
      llTargetOmega(<0,0,1>, 0, 1);
    }
    llListenRemove(Handle); 
  } 
}