SHOP ZERO

　今日は、お友達の依頼で募金箱を作ってみました。
機能としては、入金額上位３名の名前、金額と累計金額を表示します。
こんなかんじｗ


<スクリプト内容>

//
//   Fund-raising box SCRIPT   Ver1.0
//
//                                       Created by Zero2000 Kid     2007/10/7
　string msg;
list moneylist = [0,"",0,"",0,"",0,""];
integer total=0;
　setText () {
       integer i;
       msg=llUnescapeURL("%2e%3a%2a%e3%83%81%e3%83%83%e3%83%97%ef%bc%a2%ef%bc%af%ef%bc%b8%2a%3a%2e") + "\n";
       for (i = 0; i < 3; i++) {
               msg+=llUnescapeURL("%e5%85%a5%e9%87%91%e9%a1%8d") +" No." + (string)(i+1) + " "
                         + llList2String(moneylist,2*i+1) + llUnescapeURL("%e3%81%95%e3%82%93") 
                         + "(" + llList2String(moneylist,2*i) + "L$)\n";
                         
       }
       msg+= llUnescapeURL("%e7%b4%af%e8%a8%88%e9%87%91%e9%a1%8d") + ":"+ (string)total + "L$";
       llSetText(msg,<1.0, 1.0, 1.0>, 1.0);
}
　
default {
       state_entry() {
               setText();
       }
       
       money(key id, integer amount) {
               moneylist = llListReplaceList(moneylist,[amount,llKey2Name(id)],6,7);
               moneylist = llListSort(moneylist ,2, FALSE); 
               total+=amount;
               setText();
       }
　}


リンデンスクリプト Tips Intexへ