ダンスボール(リンデンスクリプト Tips)

　クラブ等に良くあるダンスボールスクリプトを作ってみました。
ボールをタッチするとコンテンツの中にあるアニメーションをダイアログ表示し、
選んだアニメーションを実行します。
ダンスをストップするときは、ダイアログ右上の"STOP"ボタンを押します。
アニメーションは、ボールにドラッグするだけでＯＫです。

        

＜スクリプト内容＞
//
//   DanceBall script   v1.1
//                                                                 
//                                       Created by Zero2000 Kid     2007/11/10
//                                                                                    2007/12/08(modified)
//                                                             　　　　　　　　　　　　　
list list_anim;
string anim;
integer handle;

getAminlist() {
       list_anim=[];
       integer i;
       integer animct = llGetInventoryNumber(INVENTORY_ANIMATION);
       for (i = 0; i < animct; i++) {
               if (i<11) list_anim+=llGetInventoryName(INVENTORY_ANIMATION,i);
       }
       list_anim+="STOP";
}

stopAnimation() {
       list anims = llGetAnimationList(llGetPermissionsKey());
       integer aminct = llGetListLength(anims);
       integer i;
       for (i = 0; i < aminct; i++){
               llStopAnimation(llList2Key(anims, i));
       }
       // add 2007/12/8  -->
       llStartAnimation("stand");
      //