fractalTreeMain.lsl

   1 //////////////////////////////////////////////////////////
   2 //Base Fractal Tree Code
   3 //Created By Ming Chen
   4 //You can sell this code as long as you leave this line, sell it with FULL permissions, and
   5 //modify the code just a little to make it different
   6 //
   7 //By the way, these are the only comments you'll see mainly through the script (because
   8 //usually im the only one to read my code)
   9 ////////////////////////////////////////////////////////
  10
  11 //Modified by Davide Byron
  12 // no comments of mine here since it's not made by me...
  13 //dedicated to Mealea, thanks for the passion you put into things and for being able to pass it on to me :)
  14
  15 string TREE_BRANCH_NAME;
  16
  17 integer totalBranches = 2;
  18 integer minAngle = 15;
  19 integer maxAngle = 60;
  20 float posOffset = 1;
  21
  22 float MIN_POS_OFFSET = 0;
  23 float MAX_POS_OFFSET = 2;
  24
  25 integer MIN_TOTAL_BRACHES = 2;
  26 integer MAX_TOTAL_BRACHES = 4;
  27
  28 integer MIN_MINIMUM_ANGLE = 5;
  29 integer MAX_MINIMUM_ANGLE = 89;
  30
  31 integer MIN_MAXIMUM_ANGLE = 5;
  32 integer MAX_MAXIMUM_ANGLE = 89;
  33
  34 float REGEN_TIME = 540.0; //9m mins
  35
  36
  37
  38
  39 integer checkLimits(float min, float max, float val)
  40 {
  41     if(val >= min && val <= max)
  42         return TRUE;
  43     else
  44         return FALSE;
  45 }
  46
  47
  48
  49
  50 default
  51 {
  52
  53     state_entry()
  54     {
  55         //determine the branch name based on the inventory content
  56         TREE_BRANCH_NAME = llGetInventoryName(INVENTORY_OBJECT, 0);
  57         if( TREE_BRANCH_NAME == llGetObjectName() )
  58         {
  59             TREE_BRANCH_NAME = llGetInventoryName(INVENTORY_OBJECT, 1);
  60         }
  61         //start the timer for sprouting
  62         llSetTimerEvent(REGEN_TIME);
  63     }
  64
  65
  66
  67
  68     on_rez(integer param)
  69     {
  70         llResetScript();
  71     }
  72
  73
  74
  75
  76     timer()
  77     {
  78         llRezObject(TREE_BRANCH_NAME,llGetPos(),<0,0,0>,ZERO_ROTATION,1);
  79         llSleep(.2);
  80         llSay(1, llDumpList2String([totalBranches,0,minAngle,maxAngle,posOffset],"|"));
  81     }
  82
  83
  84
  85
  86     object_rez(key id)
  87     {
  88         llGiveInventory(id,TREE_BRANCH_NAME);
  89     }
  90
  91 }