huntEWGSeedFood.lsl

   1 //originally written by Davide Byron
   2 //this code is released under the GPLv3
   3 //
   4 // Produces R_MOD_ENERGY, when a seed is eaten, the energy level
   5 // is increased by notifying the energy manager script
   6 //
   7 // Reacts to E_SCRIPTED_POSITION and E_ACTIVE_POSITION when a target is found,
   8 // the script checks if it's edible and in case eats it.
   9 //
  10 // this will only have a real effect if also the energy manager is in the creature,
  11 // otherwise all the eating efforts will be useless.
  12 // for eating the creature used the EWG standard, wich for now has proven good and
  13 // well developed but might be improved in the future to assure more freedom
  14 // from the life constrains as we know it.
  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 //wich version of the EcoComm standard is in use, see
  19 // http://www.slecosystem.com/wiki/index.php?title=Main_Page
  20 //for details
  21 string ECO_COMM_VERSION = "0x1";
  22 //foods i like, seeds
  23 //this is a seed with seed food
  24 integer PREY_MASK = 0x00100002;
  25 //creature request for food, it eats seed
  26 integer ECO_COMM_V1_EAT_MSG_SEED = 0x10010102;
  27 //separator char in conformity with EcoCommV1
  28 string ECO_COMM_V1_SEPARATOR = "|";
  29 //reposnse from a prey, seed, it's a mask
  30 integer ECO_COMM_V1_FOOD_MSG_SEED = 0x10010202;
  31
  32 //standard stuffs
  33 integer R_MOD_ENERGY = 11;
  34 integer E_SCRIPTED_POSITION = 2;
  35 integer E_ACTIVE_POSITION = 4;
  36
  37
  38
  39
  40 //how much vitality the creature gains for eating
  41 integer EatVitalityRequested = 10;
  42
  43
  44
  45
  46 //credits for this function goes to Sera Rawley and her cannon plant script, thanks.
  47 //calculates the channel used to talk to this creature, pretty much unique.
  48 integer getEcoCommChannel(string Version, key SourceKey)
  49 {
  50     return (integer)(Version + llGetSubString(SourceKey, 0, 6));
  51 }
  52
  53
  54
  55
  56 default
  57 {
  58
  59     on_rez(integer param)
  60     {
  61         llResetScript();
  62     }
  63
  64
  65
  66
  67     state_entry()
  68     {
  69         //listen for eating messages
  70         llListen( getEcoCommChannel( ECO_COMM_VERSION, llGetKey() ), "", "", "" );
  71     }
  72
  73
  74
  75
  76     link_message( integer sender_num, integer num, string str, key id )
  77     {
  78         //a scripted object has been sensed
  79         if(num == E_SCRIPTED_POSITION || num == E_ACTIVE_POSITION )
  80         {
  81             //get some info
  82             string targetName = llGetSubString( llKey2Name(id), 0, 9 );
  83
  84             //and check if it's edible food for us
  85             if( ((integer)targetName & PREY_MASK) == PREY_MASK )
  86             {
  87                 //the creature reached the prey, so ask for food
  88                 integer preyChannel = getEcoCommChannel( ECO_COMM_VERSION, id );
  89                 llSay(preyChannel, (string)ECO_COMM_V1_EAT_MSG_SEED + ECO_COMM_V1_SEPARATOR + (string)EatVitalityRequested );
  90             }
  91         }
  92     }
  93
  94
  95
  96
  97     listen( integer channel, string name, key id, string message )
  98     {
  99         //if a prey has answered our message
 100         integer request = (integer)llGetSubString( message, 0, 10 );
 101         if( (integer)(request & ECO_COMM_V1_FOOD_MSG_SEED) != 0 )
 102         {
 103             //take vital energy from received food and signal it to the energy script
 104             llMessageLinked(LINK_THIS, R_MOD_ENERGY, llGetSubString(message, 11, -1 + llStringLength(message)), "");
 105         }
 106     }
 107
 108 }