User:Jack Abraham

Lantern by day, filler of blank (personal) pages.

Code Snippets

What am I looking at?

A function I just threw in to replace phantom bullets for quickly acquiring a point of interest -- whatever your camera's focused on (in this sim, within 20m) is returned, allowing quicker, more intuitive targeting of other objects. PERMISSION_TRACK_CAMERA must be previously set. Requires llCastRay.

<lsl>key camPing() {

   // End points at the camera and 20m in front of it
   vector camPos = llGetCameraPos();

   // Clamp the end position to within the sim
   // From an SLUniverse post by Chalice Yao
   // http://www.sluniverse.com/php/vb/scripting/46344-llcastray-available-testing-maybe-only.html#post969497
   float xSteps;
   float ySteps;
   vector camRot = llRot2Fwd(llGetCameraRot());
   fXSteps = llAbs( ( 256.0 * !!camRot.x ) - camPos.x ) / camRot.x;
   fYSteps = llAbs( ( 256.0 * !!camRot.y ) - camPos.y ) / camRot.y;
   if(xSteps > ySteps)
       xSteps = ySteps;
   if ( xSteps > 20.0 )
       xSteps = 20.0

   // Cast the ray; ignore hits on land, otherwise get the root key
   list contacts = llCastRay( camPos, camPos + ( camRot * xSteps ), 
       RC_REJECT_LAND,
       RC_GET_ROOT_KEY );

   // Return values
   if ( llList2Integer( contacts, -1 ) > 0 ) { // Got a return
       return llList2Key( contacts, 0 );
   }
   return NULL_KEY;

} </lsl>

Donation System

System for tracking total donations to an avatar via payment kiosks. It requires Latif Khalifa's Grid URL Persister; you can find instructions for setting up your own copy here.

Client

This goes in the payment kiosks. If you don't set the recipient variable to an avatar's key, your money will go nowhere and clowns will laugh at you.

<lsl> // ========================================================================= // Network giving client \ // By Jack Abraham \__ // =========================================================================

// Change these three for your application --------------------------------- // Key for the avatar who actually gets paid // If you don't change this I'm not giving you your money back key recipient =

   NULL_KEY;

// 40 character password string PASSWORD = "neduW4AME57UD5m6zudAJEkA6HExet6UyerU6wEw"; // UUID for your application key gridURLkey = "6365ef00-a48b-44cb-a852-9495c2c136a9";

// -------------------------------------------------------------------------

string gridURL = // Latif Khalifa Grid URL Persister

   "http://gridURL.appspot.com/";

integer total = 0; // Systemwide total integer myTotal = 0; // Total this terminal

update_total( string body ) {

   total = (integer)body;
   llSetText( "L$ " + body + " collected\nL$ " + (string)myTotal + " here",
       <1, 0.6, 0.6>, 1.0 );

}

string transmitURL = ""; key txRequest; key send( string message ) {

   if ( transmitURL ) {
       return llHTTPRequest( transmitURL, [ HTTP_METHOD, "POST" ], PASSWORD + 
           message );
   }
   return NULL_KEY;

}

key hostRequest;

key get_Grid_URL() {

   return llHTTPRequest( gridURL, [], "" );

}

default {

   state_entry()
   {
       llSetText( "Setting up", <1, 0.8, 0.8>, 1.0 );
       llSetClickAction( CLICK_ACTION_TOUCH );
       llSetPayPrice( 2000, [ 250, 500, 1000, 2000 ] );
       llRequestPermissions( llGetOwner(), PERMISSION_DEBIT );
   }
   
   run_time_permissions( integer perm )
   {
       if ( perm & PERMISSION_DEBIT ) {
           llOwnerSay( "Connecting to server..." );
           hostRequest = get_Grid_URL();
       }
   }

   on_rez( integer p )
   {
       llResetScript();
   }
   
   http_response(key request_id, integer status, list metadata, string body)
   {
       if ( request_id == hostRequest ) {
           hostRequest == NULL_KEY;
           transmitURL = body;
           llOwnerSay( "Sending updates to " + transmitURL );
           state payme;
       } else if (request_id == txRequest ) {
           txRequest == NULL_KEY;
           if ( status != 200 && status != 202 ) {
               llOwnerSay( "Sending failed with status " + (string)status
                   + " to " + transmitURL );
           }
       }
   }

}

state payme {

   on_rez( integer p )
   {
       llResetScript();
   }
   
   state_entry()
   {
       llSetClickAction( CLICK_ACTION_PAY );
       llSetText( "Ready", <1, 0.8, 0.8>, 1.0 );
       txRequest = send( "0" );
       llSetTimerEvent( 300 );
   }
   
   changed( integer change )
   {
       if ( change & CHANGED_REGION_START ) {
           hostRequest = get_Grid_URL();
       }
   }
           
   timer()
   {
       hostRequest = get_Grid_URL();
   }
   
   touch_end( integer d )
   {
       key who = llDetectedKey(0);
       txRequest = send( "0" );
   }
   
   money( key who, integer amount )
   {
       llGiveMoney( recipient, amount );
       myTotal += amount;
       llRegionSayTo( who, 0, "Thank you for your donation."
           );

       list inventoryItems;
       integer inventoryNumber = llGetInventoryNumber(INVENTORY_ALL);
       string this = llGetScriptName();
       integer index;
       do
       {
           string itemName = llGetInventoryName(INVENTORY_ALL, index);

           if ( ( llGetInventoryPermMask(itemName, MASK_OWNER) & PERM_COPY ) 
               && ( itemName != this ) )
           {
               inventoryItems += itemName;
           }
       }
       while(++index < inventoryNumber);
       if ( inventoryItems != [] ) {
           llGiveInventoryList(who, llGetObjectName(), inventoryItems);
       }
       
       txRequest = send( (string)amount );
   }
   
   http_response(key request_id, integer status, list metadata, string body)
   {
       if ( request_id == hostRequest ) {
           hostRequest == NULL_KEY;
           if ( body != transmitURL ) {
               transmitURL = body;
               llOwnerSay( "Sending updates to " + transmitURL );
           }
           txRequest = send( "0" );
       } else if (request_id == txRequest ) {
           txRequest == NULL_KEY;
           if ( status != 200 && status != 202 ) {
               llOwnerSay( "Sending failed with status " + (string)status
                   + " to " + transmitURL );
               llSleep( 60 );
               hostRequest = get_Grid_URL();
           } else {
               update_total( body );
           }
       }
   }

} </lsl>

Server

Install this script in exactly one object; if there's more than one the system will get confused.

<lsl> // ========================================================================= // Network giving total \ // By Jack Abraham \__ // =========================================================================

// Change these two for your application ----------------------------------- // 40 character password string PASSWORD = "neduW4AME57UD5m6zudAJEkA6HExet6UyerU6wEw"; // UUID for your application key gridURLkey = "6365ef00-a48b-44cb-a852-9495c2c136a9";

// -------------------------------------------------------------------------

string gridURL = // Latif Khalifa Grid URL Persister

   "http://gridURL.appspot.com/";

integer total = 0; // Total collected

record_payment( integer paid ) {

   total += paid;
   llSetObjectDesc( (string)total );
   llSetText( "L$" + (string)total + " collected", <1.0, 0.6, 0.6>, 1.0 );

}

// -------------------------------------------------------------------------

integer renewInterval = 604800; string myURL; key urlRequest;

// Get a new URL key get_URL() {

   llReleaseURL( myURL );
   llSetLinkColor( LINK_ROOT, <0.5, 0.5, 0.5>, ALL_SIDES );
   myURL = "";
   return llRequestURL();

}

// Register URL with name service register() {

   string send = gridURL + "reg?service=" + (string)gridURLkey + "&url=" +
       llEscapeURL( myURL );
   llHTTPRequest( send, [], "" );
   llSay( 0, "/me updating registration at " + gridURL 
       + "get/" + (string)gridURLkey + " to " + myURL );
   send = gridURL + "reg?service=" + (string)gridURLkey + "&url=" +
       llEscapeURL( myURL );
   llHTTPRequest( send, [], "" );

}

// =========================================================================

default {

   state_entry()
   {
       llSay(0, "/me activated.");
       llSetTouchText( "Reset" );
       llSetLinkColor( LINK_ROOT, <0.5, 0.5, 0.5>, ALL_SIDES );
       llSetText( "Initializing", <1.0, 1.0, 1.0>, 1.0 );
       total = (integer)llGetObjectDesc();
       urlRequest = get_URL();
   }
   
   on_rez( integer d )
   {
       llResetScript();
   }

   http_request(key id, string method, string body)
   {
       if ( urlRequest == id) {                // New URL handling
           urlRequest = NULL_KEY;
           if (method == URL_REQUEST_GRANTED) {
               myURL = body;
               llSetLinkColor( LINK_ROOT, <1.0, 0.6, 0.6>, ALL_SIDES );
               llSetText( "Active\n" + (string)llGetFreeMemory() 
                   + " bytes free", 
                   <1.0, 1.0, 1.0>, 1.0 );
               register();
           } else if (method == URL_REQUEST_DENIED) {
               myURL = "";
               llSetText( "Communications down", <1.0, 0., 0.>, 1.0 );
               llSetTouchText( "Reset" );
           }
       } else if ( method == "POST" ) {
           // Validate sender
           if ( llGetSubString( body, 0, 39 ) == PASSWORD ) {
               body = llGetSubString( body, 40, -1 );
           } else {
               llHTTPResponse( id, 403, "Not authorized." );
               return;
           }
           integer amount = (integer)body;
           record_payment( amount );
           llHTTPResponse( id, 200, (string)total );
       }
   }

   changed( integer change )
   {
       if ( change & CHANGED_REGION_START ) {
           llResetScript();
       }
   }

} </lsl>