2009年9月10日木曜日

Tip Jar

なるほど普通良く見るのがこれですかね?!
TIPをもらった時だけ、これ使えばいいんだっ。
ってことは、頻繁にもらうわけもないでしょうし、モジュールでTIP部分はこれでいいんですね。

あと、アクション部分のパーティクル関連行は消しました。

integer totaldonated=0;
integer max=0;
string max_donor="";
string owner;
 
set_text(string donor, integer amount)
{
string text=owner+"'s Tip Jar";
if (max > 0) //Max
{
text+="\nMax donation:";
text+=" L$"+(string)max;
text+=" from "+max_donor;
}
if (amount > 0) //last
  {
text+="\nLast donation:";
text+=" L$"+(string)amount;
text+=" from "+donor;
}
text+="\nTotal donated: L$"+(string)totaldonated; //Total
llSetText(text,<1,1,1>,1.0);
}
 
default
{
state_entry()
{
owner=llKey2Name(llGetOwner());
integer i=llSubStringIndex(owner," ");
owner=llGetSubString(owner,0,i-1); // change"First name"only
set_text("",0);
}
 
money(key id, integer amount)
{
string donor=llKey2Name(id); // av name
totaldonated+=amount; // Total donation
if (max < amount) { // Max
max=amount; //
max_donor=donor; //Max av name
}
set_text(donor,amount);
 
                //Action
 
llInstantMessage(id,"Thanks for the tip! I really appreciate it.");
}
}

0 件のコメント:

コメントを投稿