OnTouchSelectTexture

From Second Life Wiki

IMPORTANT NOTE: This menus control REQUIRED Nargus Dialog Control script. You MUST have all both the script and this one in the same prim for it to work.

Scripts

OnTouchSelectTexture.lsl

 
// ********** DIALOG FUNCTIONS **********
// Dialog constants
integer lnkDialog = 14001;
integer lnkDialogNotify = 14004;
integer lnkDialogResponse = 14002;
integer lnkDialogTimeOut = 14003;
 
integer lnkDialogReshow = 14011;
integer lnkDialogCancel = 14012;
 
integer lnkMenuClear = 15001;
integer lnkMenuAdd = 15002;
integer lnkMenuShow = 15003;
 
string seperator = "||";
integer dialogTimeOut = 0;
// ********** END DIALOG FUNCTIONS **********
 
string texturesDialog;
 
initTextures(){
// Please me reminded that Nargus Dialog script autometicly add Back/Next buttons for you.
// Optimised dialog generator script. Much more memory efficient than usage of Dialog+Menus control function
 
    llOwnerSay("Inventory change detected; re-initializing...");
 
    texturesDialog = "Click BACK/NEXT to change page.\n" +
        "Click a texture button to choose." +
        seperator + (string)dialogTimeOut;
 
    integer count = llGetInventoryNumber(INVENTORY_TEXTURE);
    integer i;
    for(; i<count; ++i){
        string name = llGetInventoryName(INVENTORY_TEXTURE, i);
        texturesDialog += seperator + name + seperator + llGetSubString(name, 0, 15);
    }
    texturesDialog += seperator + "CLOSE" + seperator;
 
    llOwnerSay("Initializing completed.");
}
 
default{
    state_entry(){
        initTextures();
    }
 
    changed(integer changes){
        if(changes & CHANGED_INVENTORY) initTextures();
    }
 
    link_message(integer sender_num, integer num, string str, key id){
        if(num == lnkDialogResponse){
            if(llGetInventoryType(str) == INVENTORY_TEXTURE) llSetTexture(str, ALL_SIDES);
        }
    }
 
    touch_start(integer num_detected){
        llMessageLinked(LINK_THIS, lnkDialog, texturesDialog, llDetectedOwner(0));
    }
}