reproduceExactCopyOnTouchEventV1.lsl

   1 //originally written by Davide Byron
   2 //this code is released under the GPLv3
   3 //
   4 // Reacts to E_TOUCH_ID event
   5 // spawns a new child with the first object in inventory as the body
   6 // and sends to him all his scripts (but not objects, etc...)
   7 //
   8 // if there are no objects in the creature inventory it will ask for one
   9 //
  10 //dedicated to Mealea, thanks for the passion you put into things and for being able to pass it on to me :)
  11
  12 //standard stuffs
  13 integer E_TOUCH_ID = 7;
  14 integer PIN = 123456;
  15 //cage boundaries expressed in region absolute coords
  16 integer CAGE_MIN_X = 1;
  17 integer CAGE_MAX_X = 249;
  18 integer CAGE_MIN_Y = 1;
  19 integer CAGE_MAX_Y = 249;
  20 integer CAGE_MIN_Z = 1;
  21 integer CAGE_MAX_Z = 100;
  22
  23
  24
  25
  26 //deny moving out of a definite cage
  27 //mostly used for debug
  28 vector checkCageLimit( vector pos )
  29 {
  30     if( pos.x < CAGE_MIN_X )
  31         pos.x = CAGE_MIN_X;
  32     if( pos.x > CAGE_MAX_X )
  33         pos.x = CAGE_MAX_X;
  34     if( pos.y < CAGE_MIN_Y )
  35         pos.y = CAGE_MIN_Y;
  36     if( pos.y > CAGE_MAX_Y )
  37         pos.y = CAGE_MAX_Y;
  38     if( pos.z < CAGE_MIN_Z )
  39         pos.z = CAGE_MIN_Z;
  40     if(  llGround( pos - llGetPos() ) > pos.z )
  41         pos.z = llGround( pos - llGetPos() ) + 0.1;
  42     if( pos.z > CAGE_MAX_Z )
  43         pos.z = CAGE_MAX_Z;
  44
  45     return pos;
  46 }
  47
  48
  49
  50
  51 //generates a random float number ranging from -range to range
  52 float myRand( float range )
  53 {
  54     float sign = llFrand(2.1);
  55     float random = llFrand( range + 0.1 );
  56     if( sign >= 1.0 )
  57         return random;
  58     else
  59         return -random;
  60 }
  61
  62
  63
  64
  65 default
  66 {
  67
  68     on_rez(integer param)
  69     {
  70         llResetScript();
  71     }
  72
  73
  74
  75
  76     state_entry()
  77     {
  78         //this should attract users, maybe...
  79         llSetText("Don't touch me, absolutely!", <llFrand(1.1), llFrand(1.1), llFrand(1.1)>, 1.0 );
  80         //this should help humans knows what this creature can do
  81         llSetObjectDesc( llGetObjectDesc() + "touch for me to reproduce-" );
  82     }
  83
  84
  85
  86
  87
  88     //if this state needs to know something from the other states
  89     //this is the right place.
  90     link_message(integer sender_num, integer num, string msg, key id)
  91     {
  92         //if an avatar has touched us
  93         if( num == E_TOUCH_ID )
  94         {
  95             //and we don't have an object into our inventory
  96             if( llGetInventoryNumber(INVENTORY_OBJECT) == 0 )
  97             {
  98                 llShout(0, "Please put a full perm object into my inventory and touch me again");
  99             }
 100             //and we have an object into our inventory
 101             else
 102             {
 103                 vector pos = llGetPos() + <myRand(2.0), myRand(2.0), myRand(2.0)>;
 104                 pos = checkCageLimit( pos );
 105                 //spawn it!
 106                 llRezAtRoot(llGetInventoryName(INVENTORY_OBJECT, (integer)llFrand(llGetInventoryNumber(INVENTORY_OBJECT))), pos, llGetVel(), llGetRot(), 0);
 107             }
 108         }
 109     }
 110
 111
 112
 113
 114     //after the new creature has been spawned we send all our scripts to it
 115     object_rez(key id)
 116     {
 117         integer scriptCount = llGetInventoryNumber(INVENTORY_SCRIPT);
 118         integer i = 0;
 119         string script;
 120         integer isRunning = TRUE;
 121
 122         llGiveInventory(id, llGetInventoryName(INVENTORY_OBJECT, 0) );
 123
 124         for( ; i < scriptCount; i++ )
 125         {
 126             script = llGetInventoryName(INVENTORY_SCRIPT, i);
 127             llRemoteLoadScriptPin(id, script, PIN, isRunning, 0 );
 128         }
 129     }
 130
 131 }