// This script is from http://xahlee.org/sl/ . Copyright © 2007 Xah Lee. Permission is granted for use or modification provided this note is intact and the script has permissions for copy, mod, and resell.

// description: On touch, change the prim's texture by cycling thru the textures in the prim.

integer ii=0; // the index to textureNames that is the current texture used.

default
{
  touch_start(integer total_number)
    {
      integer numberOfTextures = llGetInventoryNumber(INVENTORY_TEXTURE);

      integer i = 0;
      for(i; i<total_number; ++i)
        {
          llSetTexture(llGetInventoryName(INVENTORY_TEXTURE, ii), ALL_SIDES);
          ii = ((ii+2) % numberOfTextures) - 1;
        }
    }
}