// Daily Money Giver v0.1 by djphil

integer AMOUNT = 100;                   // Donner de l'argent
integer STASH = 1000000;                // Total a donner (banque).
integer time_to_delete_liste = 86400;   // Effacer la liste après une journée
list avatar_list;                       // Liste des visiteurs

update()
{
    if(STASH >= AMOUNT)
        llSetText("J'ai/I have AS$"+(string)STASH + " à donner/ to give!", <1,1,1>, 1);
    else
        llSetText("Je n'ai pas de AS$ à donner/
I have no AS$ to give :(", <1,1,1>, 1);
}

// Help commands
sayHelp(integer is_owner)
{
    if(is_owner)
    {
        llSay( 0, "This object gives the money to avatars/Cet objet donne de l'argent aux avatars");
        llSay( 0, "
All the world can play and win/Tous le monde peut payer et gagner");
        llSay( 0, "'help' or 'aide' - Shows these instructions./Montre ces instructions." );
        llSay( 0, "'list' - Says the names of all visitors on the list.");
        llSay( 0, "'reset' - Removes all the names from the list." );
    }
    else {llSay( 0, "Sorry, only the owner can use this object." );}
}


default
{

    on_rez(integer number) {llResetScript();}

    state_entry()
    {
        llRequestPermissions(llGetOwner(), PERMISSION_DEBIT );
        llSensorRepeat("","",AGENT,10.0,PI,3.0);
    }

    run_time_permissions (integer perm)
    {
        if(perm & PERMISSION_DEBIT)
        {
            state ready;
        }
    }
}

state ready
{
    state_entry()
    {
        update();
        llListen(0, "", NULL_KEY, "");
    }

    listen(integer channel, string name, key id, string message)
    {
        if(id != llGetOwner()) {return;}

        if( message == "aide") {sayHelp(TRUE);}
        if( message == "help") {sayHelp(TRUE);}
        else if (message == "list")
        {
            llSay(0, "Avatar List:" );
            integer len = llGetListLength( avatar_list );
            integer i;

            for( i = 0; i < len; i++ )
            {
                llSay( 0, llList2String(avatar_list, i) );
            }
            llSay( 0, "Total = " + (string)len );
        }

        if( message == "reset")
        {
            llSay(0,"Suppression de la liste/Deletion of the list");
            avatar_list=[];
        }
    }

    sensor(integer num)
    {
        integer i = 0;

        for(;i<num;i++)
        {
            string name = llDetectedName(i);
            if(llListFindList(avatar_list,[name])==-1)
            {
                avatar_list += [name];
                llSay(0, "Bonjour/Hello " + name + ", voici " + AMOUNT + " pour faire ton shopping chez nous / to do your shopping with us :)");

                if(STASH >= AMOUNT)
                {
                    llSetTimerEvent(time_to_delete_liste);
                    llGiveMoney(llDetectedKey(0), AMOUNT);
                    STASH -= AMOUNT;
                    update();
                }

                else
                {
                    llWhisper(0, "Plus d'argent à donner / More money to give :(");
                }
                return;
            }
        }
    }

    money(key id, integer m)
    {
        STASH += m;
        update();
    }

    timer()
    {
        llSay(0,"Suppression de la liste / Deletion of the list");
        avatar_list=[];
    }
}