|
Scritto da Dario
|
|
Lunedì 04 Giugno 2007 15:50 |
Questo script permette di farsi pagare...
integer totaldonated;
string owner;
default
{
state_entry()
{
owner = llKey2Name(llGetOwner());
llSetText( owner + "'s donation box.\nAll donations gratefully accepted.\n$0 donated so far.\nRight-click on me and select Pay to donate.",<1,1,1>,1);
}
on_rez( integer sparam )
{
llResetScript();
}
money(key id, integer amount)
{
totaldonated+=amount;
llSetText( owner + "'s donation box.\nAll donations gratefully accepted.\n$" + (string)totaldonated + " donated so far.\nRight-click on me and select Pay to donate.",<1,1,1>,1);
llInstantMessage(id,"Thanks very much for the tip!");
llInstantMessage(llGetOwner(),llKey2Name(id)+" donated $" + (string)amount);
}
}
|
