Basic Sim Status Button Indicator HUD

<lsl> // Generic Sim Status Button Indicator // HUD / 1 prim // by Ackley Bing // // A HUD button for remote monitoring of sims. // Color indicates the sim status // Green = SIM available // When the sim goes down it turns red/black // // To use put this in a prim and attach to your preferred HUD location. // Go to the sim you want to monitor and and click the prim // Click and HOLD the hud button to choose another sim. // // Modify // Attach / Connect this to your HUD/Vehicle/etc any way you like.

string homeregion; integer listenhandle; SimStutusButtonColor(string data) {

   vector simstatuscolor;
   if (data=="") simstatuscolor = <0.0,0.0,0.0>;  // set color to black
   else
   {
       if ( data == "up" ) simstatuscolor = <0.0,1.0,0.0>;  // set color to green
       else if ( data == "down" ) simstatuscolor = <1.0,0.0,0.0>;  // set color to red
       else if ( data == "starting" || data == "stopping" ) simstatuscolor = <1.0,1.0,0.0>;  // set color to yellow
       llOwnerSay(": http://maps.secondlife.com/secondlife/"+(llEscapeURL(homeregion))+" is "+data+".");
   }
   llSetPrimitiveParams( [ PRIM_COLOR, 4, simstatuscolor, 1.0 ] );
   llSetText(homeregion, simstatuscolor, 1.0*(homeregion!="") );

} string VecXY2String(vector Pos){return "/"+(string)((integer)Pos.x)+"/"+(string)((integer)Pos.y);} default {

   state_entry()
   {
       llRequestPermissions(llGetOwner(), PERMISSION_TAKE_CONTROLS);
       SimStutusButtonColor("");
   }
   touch_start(integer n)
   {
       llResetTime();
   }
   touch_end(integer n)
   {
       if(llGetTime()<5.0 && homeregion != "") llRequestSimulatorData(homeregion,DATA_SIM_STATUS);
       else
       {
           llSetTimerEvent(30.0);
           llListenRemove(listenhandle);
           listenhandle = llListen(1, "", llGetOwner(), "");
           llDialog(llGetOwner(), "Monitor Sim Status for "+llGetRegionName()+"?", ["Yes","No","Reset"], 1);
       }
   }
   listen(integer channel, string name, key id, string message)
   {
       if (message=="Yes") llRequestSimulatorData(homeregion=llGetRegionName(),DATA_SIM_STATUS);
       if (message=="No" && homeregion=="") SimStutusButtonColor("");
       if (message=="Reset") llResetScript();
   }
   timer()
   {
       llListenRemove(listenhandle);
       if (homeregion!="") llRequestSimulatorData(homeregion,DATA_SIM_STATUS);
       else llSetTimerEvent(0.0);
   }
   dataserver(key requested, string data)
   {
       SimStutusButtonColor(data);
   }
   run_time_permissions(integer perms)
   {
       llTakeControls((perms && PERMISSION_TAKE_CONTROLS)*CONTROL_BACK, TRUE, TRUE);
   }

} </lsl>