integer page = 0;
integer index = 0;
list    image_list = [];
key     buttonTexture = NULL_KEY;
key Self_Scan = "770b3ba8-7614-40d5-2eb7-5bb45d9fae51";
key Scan= "a7f1db5e-ce0d-9fc3-6a38-865cfe05cfde";
key Option= "665e2c15-95ac-7b96-1f33-cae4df3eec98";
key Raid= "665e2c15-95ac-7b96-1f33-cae4df3eec98";


default
 {
     changed(integer change)
    {
        if (change & CHANGED_OWNER | CHANGED_INVENTORY)
        {
            llResetScript();
        }
    }

    touch_start(integer detected)
    {
         if(llDetectedLinkNumber(0) == 5)
                {
                    integer mindex = llGetListLength(image_list)-1;
                    if(index == mindex)
                    {
                        index = 0;
                    }
                    else
                    {
                        index++;
                    }
                    llSetLinkTexture(LINK_THIS, llList2String(image_list, index), 2);
                    buttonTexture = llList2String(image_list, index);
                }
                else if (llDetectedLinkNumber(0) == 6)
                {
                    integer mindex = llGetListLength(image_list)-1;
                    if(index == 0)
                    {
                        index = mindex;
                    }
                else
                    {
                        index--;
                    }
                    llSetLinkTexture(LINK_THIS, llList2String(image_list, index), 2);
                    buttonTexture = llList2String(image_list, index);
                }

    }
}