Powerpoint Script

Here's the script needed to create a powerpoint presentation in SL. I'll show you how to use it on Tuesday. You need to copy it exactly from the first   //  to the word owner.



// PPT script, advances pages on touch

// Retrieved from Free SL Scripts on www.gendersquare.org/sl

integer access=1; //Change the value of access. Access=0 means owner only to advance the pages, Access=1 means all can
integer choice;
integer number;
default
{
    state_entry()
    {
        llSetText(llGetObjectName(), <0,1,0>,1);
        number = llGetInventoryNumber(INVENTORY_TEXTURE);
        choice = 0;
    }    
    on_rez(integer param)
    {
        llResetScript();    
    }
    touch_start(integer numbert)
    {
        if(access || llDetectedKey(0)==llGetOwner())
        {
            if (choice>=number)
            {
                choice =0;
            }
            string name = llGetInventoryName(INVENTORY_TEXTURE, choice);
            if (name != "")
            {
                llSetTexture(name, ALL_SIDES);
                llSetText(llGetObjectName()+"\n"+(string)(choice+1)+"/"+(string)number+" name: "+name, <0,1,0>,1);
                ++choice;
            }
        }
    }
    changed(integer change)
    {
        if(change & CHANGED_INVENTORY)
        {
            llResetScript();
        }
    }
}
// This script was modified by spiderONE (spider Corleone - owner of Spider's Web). Please Do not delete my credit.
// This script was further modified by Eloise Pasteur to take out the need to reset, tidy up some messy code and offer an option to restrict clicking on the slide to just the owner.