Second Life/Selfreplication

code

integer ttl = 3;

rez_child()
{
  if(ttl > 0)
  {
      integer ttl_child = ttl - 1;
      llRezObject("1000er", llGetPos()+<1.5,0,0>, <0,0,0>, llEuler2Rot(<0,90,0> * DEG_TO_RAD) , ttl_child);
  }
}

default
{

  touch_start(integer total_number)
  {
      rez_child();
  }

  object_rez(key child) 
  { 
      llGiveInventory(child, llKey2Name(child)); 
  } 

 
  on_rez(integer ttl_in)
  {
      ttl = ttl_in;
  }

  changed(integer change)
  {
      if(change == CHANGED_INVENTORY)
      {
          rez_child();        
      }
  }
}