Slot Machine Commision Script

Hi All,

I've put together a simple slot machine and looking to add a commision script to it... I have searched the forum but unable to find any info...

This is what I want to do

1. Give my slot away for free for people to use in their casino's
2. Every certain amount people spend on the machine will give me a set percentage of the profit.

Any idea's you fantasic people...

Thanks
Iain

The giving of commision has been covered several times.
Basically your script will need to contain your hard coded key and then after a preset amount of commission has been built up pay you.

There is an obvious drawback to this approach though, you could be defrauded by simply switching owners before the payout limit is reached.

Also how you calculate what constitutes profit would need to be worked out seperately.

Here is a simple script based on direct payment rather than profit

key MyKey = "xcxcxcxcx-xcxcxcx-xcxcxc-xcxcxcxcx";
integer currentCommision = 0;
integer PayOutLimit  =10;
float Percentage = 10.0;

default
{
   state_entry()
   {
        llRequestPermissions(llGetOwner()  , PERMISSION_DEBIT   ); 
   }

    money(key id, integer amt) 
    { 
        integer iPaid = (integer)((amt  * Percentage) / 100.0); 
        currentCommision += iPaid; 
        if (currentCommision  > PayOutLimit) 
        { 
            llGiveMoney(MyKey, currentCommision); 
            currentCommision = 0;
        }             
    } 

    changed(integer change) 
    { 
        // something changed 
        if (change & CHANGED_OWNER) 
        { 
           llResetScript(); 
        } 
    } 
}

Thanks for all your help... it is appreciated

Just another question, sorry... new to all of this... but getting there. How do I get/create a hard coded key?

Regards
LS

Everything in SL has a Key, textures, prims, sounds etc. They all have keys. So do Avatars and Groups. Keys are assigned by SL. More specifically obejct keys are assigned when objects are rezzed.

Your Key was assigned when your Avatar was created, To obtain it put the following script in to a prim.

default 
{ 
    state_entry() 
    { 
         key id = llGetOwner();
         string name = llKey2Name(id);
         llOwnerSay("Hi " + name + ". Your key is " + (string)id);
    } 
}

Object keys change each time they are rezzed, unless they are no copy.

Great thanks for your help