ATM Money Skript LSL - Druckversion

PHP-Code:
/* Money Giver Script with Daily Limit by Manfred Aabye.
Track the User’s Total Daily Amount: Keep track of the cumulative amount received by each user within a 24-hour period.
Enforce the Limit: If the user’s total for the day would exceed 250 with the requested amount, display a message instead of giving them more money.
Reset the Daily Total After 24 Hours: If 24 hours have passed since their last interaction, reset their total.
*/
list buttons = ["150", "200", "250", "50", "75", "100", "1", "5", "10"];
string dialogInfo = "\nPlease choose an amount:";

key ToucherID;                  // Stores the key of the user interacting with the object
integer dialogChannel;          // Channel for dialog communication
integer listenHandle;           // Handle for the llListen function to capture dialog choices

// List to store user keys, last interaction times, and cumulative amounts received
list userTimes;

// Define the number of seconds in a day (24 hours) and daily limit
integer ONE_DAY = 86400;
integer DAILY_LIMIT = 250;

default
{
    state_entry()
    {
        // Request debit permissions from the object owner to allow giving money
        llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);

        // Set a unique dialog channel based on the object's key
        dialogChannel = -1 - (integer)("0x" + llGetSubString((string)llGetKey(), -7, -1));
    }

    touch_start(integer num_detected)
    {
        ToucherID = llDetectedKey(0); // Get the key of the person who touched the object

        integer idx = llListFindList(userTimes, [ToucherID]); // Find user's index in userTimes list
        integer currentTime = llGetUnixTime(); // Get the current Unix timestamp

        if (idx != -1)
        {
            // User has interacted before; get their last time and cumulative amount
            integer lastTime = llList2Integer(userTimes, idx + 1);
            integer cumulativeAmount = llList2Integer(userTimes, idx + 2);

            // Check if 24 hours have passed since the last interaction
            if (currentTime - lastTime >= ONE_DAY)
            {
                // Reset daily count if 24 hours have passed
                cumulativeAmount = 0;
                userTimes = llListReplaceList(userTimes, [ToucherID, currentTime, cumulativeAmount], idx, idx + 2);
            }
            else if (cumulativeAmount >= DAILY_LIMIT)
            {
                // If user has already reached the daily limit
                llSay(0, "You have reached your daily limit of 250. Please try again tomorrow.");
                return;
            }
        }
        else
        {
            // If the user is new, add them to the list with a zero cumulative amount
            userTimes += [ToucherID, currentTime, 0];
        }

        // Display dialog for amount selection
        llDialog(ToucherID, dialogInfo, buttons, dialogChannel);
        
        // Start listening on the dialog channel for this user’s response
        listenHandle = llListen(dialogChannel, "", ToucherID, "");
    }

    listen(integer channel, string name, key id, string message)
    {
        integer amount = (integer)message; // Convert the dialog choice to an integer for amount

        // Validate that the selected amount is in the buttons list
        if (llListFindList(buttons, [message]) != -1)
        {
            integer idx = llListFindList(userTimes, [ToucherID]);
            integer currentTime = llGetUnixTime();
            integer cumulativeAmount = llList2Integer(userTimes, idx + 2); // Retrieve user's current cumulative amount

            // Check if the new request would exceed the daily limit
            if (cumulativeAmount + amount > DAILY_LIMIT)
            {
                llSay(0, "This amount would exceed your daily limit of 250. Please choose a smaller amount.");
                llListenRemove(listenHandle); // Remove listener to avoid unused listeners
                return;
            }

            // Update cumulative amount and timestamp in the list
            cumulativeAmount += amount;
            userTimes = llListReplaceList(userTimes, [ToucherID, currentTime, cumulativeAmount], idx, idx + 2);

            // Inform in chat about the money given and transfer the specified amount
            llSay(0, "Give " + message + " Money");
            llGiveMoney(ToucherID, amount);
        }
        else if (message == "-")
        {
            // Redisplay the dialog if the user selects the "-" option
            llDialog(ToucherID, dialogInfo, buttons, dialogChannel);
        }
        else
        {
            // Handle any invalid selection
            llSay(0, "Invalid selection.");
        }

        // Remove the listen handle to avoid accumulating unnecessary listeners
        llListenRemove(listenHandle);
    }
}