changeSculptedShapeOnNewTextureEvent.lsl

   1 //originally written by Davide Byron
   2 //this code is released under the GPLv3
   3 //
   4 // Reacts to E_NEW_INVENTORY_TEXTURE event
   5 // When a new texture is received it's immediately used
   6 // as a shape
   7 //
   8 // when a creature has this script it gains the ability to change the shape by apllying a sculpted texture.
   9 // this is useful to have complex shaped creatures that uses just one prim, but it has the shortcoming of
  10 // creatures with multi prims that can acquire this script via evolution. In that case results are unpredictable
  11 // and untested. Be careful and please report back any discovery :)
  12 //
  13 // WARNING!!! this causes your creature to have very weird shapes if the texture passed is not a sculpted.
  14 //            until a standard for naming texture or something is not in place it should be avoided
  15
  16 //dedicated to Mealea, thanks for the passion you put into things and for being able to pass it on to me :)
  17
  18 //standard related
  19 integer E_NEW_INVENTORY_TEXTURE = 15;
  20
  21
  22
  23
  24 default
  25 {
  26
  27     on_rez(integer param)
  28     {
  29         llResetScript();
  30     }
  31
  32
  33
  34
  35     state_entry()
  36     {
  37         //this should help humans knows what this creature can do
  38         llSetObjectDesc( llGetObjectDesc() + "drop sculpted textures into inventory-");
  39                 //no need to init the object as sculpted right now, the first texture received will turn it
  40                 //into a sculpted and apply immediately the texture received.
  41     }
  42
  43
  44
  45
  46
  47     link_message( integer sender_num, integer num, string str, key id )
  48     {
  49         //if a message of a new texture arrives, put the texture on as a skin
  50         if(num == E_NEW_INVENTORY_TEXTURE )
  51         {
  52             //turn the object into a sculpted and apply the sculpted texture
  53             llSetPrimitiveParams([PRIM_TYPE, PRIM_TYPE_SCULPT, str, PRIM_SCULPT_TYPE_SPHERE]);
  54         }
  55     }
  56
  57 }