Report button.lsl
Revision as of 16:34, 25 September 2007 by Vektor Linden (talk | contribs) (New page: <pre> // Global Variables integer avaliable = 1; integer toAllChannel = -255; // general channel - linked message default { state_entry() { //on a reset...)
// Global Variables integer avaliable = 1; integer toAllChannel = -255; // general channel - linked message default { state_entry() { //on a reset or statup this test button can not be used avaliable = 0; //set color to unavaliable //llSetColor( <255,0,0>, ALL_SIDES); //llSetTextureAnim( ANIM_ON | LOOP , ALL_SIDES, 5, 5, 24, 1, 10 ); llSetTexture( "alpha", ALL_SIDES); } touch_start(integer total_number) { if(avaliable) { avaliable = 0; llMessageLinked(LINK_ALL_OTHERS, toAllChannel, "ActivateReport", NULL_KEY); //set color to busy llSetColor( <255,255,255>, ALL_SIDES); llSetTexture( "busy_anim v5_9", ALL_SIDES); llSetTextureAnim( ANIM_ON | LOOP , ALL_SIDES, 5, 5, 0, 23, 10 ); } } /////////////////////////////////////////////////////// // Link Message of default state // /////////////////////////////////////////////////////// link_message(integer sender_number, integer number, string message, key id) { //if link message is on the correct channel if(number == toAllChannel) { if(llSubStringIndex( message, "RegistrationComplete") != -1) { //set color to unavaliable //llSetColor( <255,0,0>, ALL_SIDES); //llSetTextureAnim( ANIM_ON | LOOP , ALL_SIDES, 5, 5, 24, 1, 10 ); llSetTexture( "alpha", ALL_SIDES); avaliable = 0; } if(llSubStringIndex( message, "TestComplete") != -1) { //set color to avaliable llSetColor( <0,255,0>, ALL_SIDES); llSetTexture( "busy_anim v5_9", ALL_SIDES); llSetTextureAnim( ANIM_ON, ALL_SIDES, 5, 5, 24, 1, 10 ); avaliable = 1; } if(llSubStringIndex( message, "ReportComplete") != -1) { //set color to avaliable llSetColor( <0,255,0>, ALL_SIDES); llSetTexture( "busy_anim v5_9", ALL_SIDES); llSetTextureAnim( ANIM_ON, ALL_SIDES, 5, 5, 24, 1, 10 ); avaliable = 1; } if(llSubStringIndex( message, "ActivateRegistration") != -1) { //set color to unavaliable //llSetColor( <255,0,0>, ALL_SIDES); //llSetTextureAnim( ANIM_ON | LOOP , ALL_SIDES, 5, 5, 24, 1, 10 ); llSetTexture( "alpha", ALL_SIDES); avaliable = 0; } if(llSubStringIndex( message, "ActivateTest") != -1) { //set color to unavaliable //llSetColor( <255,0,0>, ALL_SIDES); //llSetTextureAnim( ANIM_ON | LOOP , ALL_SIDES, 5, 5, 24, 1, 10 ); llSetTexture( "alpha", ALL_SIDES); avaliable = 0; } if( message == "reset" ) { llResetScript(); } } } //end of link message }