Bot-Babes/Boys

Avatar Biorythm

Page history last edited by Codie 2 yrs ago

Avatar Biorythm 0.01 LSL Script

Author: CodeBastard "Codie" Redgrave <cbredgrave@gmail.com>

Date: 19/05/2007

Codie is a member of Bot Babes and Optimal Prim Corporation

This is my first entry as a fresh new BotBabe as an attempt to apply a very old algorythm to a brave new world. Biorythms are a quite old theory about the biological cycles of a living being as being continuous waves of ups and down. I absolutely realize the irony of applying this algorythmic principle to an avatar but it only made it more amusing to try. Since we only wanted to demonstrate usage of an algorythm in a LSL script, entering RL data into the script seemed undesirable and laborious. So instead I opted tu push the joke even further and apply biorythmy according to the avatar's age in-game. The biorythmic calculations are quite simple and requires only 1 parameter: the lifespan of of the subject calculated in seconds. Since LSL provides avatar age and timestamp in minimaly managable formats, we needed to convert both into seconds and substract them. For this I used a commonly used LSL date converter picked up directly from LSLWiki in the time related function pages.

Once we have our total lifetime in seconds, we only needed to apply this to those 3 simple formulas, the t variable of course being the lifetime in seconds:

physical: $sin(2π t / 23)$
emotional: $sin(2π t / 28)$
intellectual: $sin(2π t / 33)$

BE WARNED: THIS SCRIPT IS SHITTY. I am very not satisfied with it. The algos are okay and im basically satisfied of the syntax, but was tired and had several blockages when writing this script. I'm still struggling with certain aspects of global variable scopes when using certain events like dataserver. I also had problems actually returning any results from the neato set of function I made for this script, so ended up ditching the functions to pack most of the code inside some unique function. Again, this is one of my first more advanced script, still learning, so bear with me. I'm just 4 month old after all, ask your 4 month old daughter to do that. This code needs a complete rewrite, notecard support and many enhancements cam be made. It's a first jet, not too bad for a PHP programmer struggling with LSL variable type declarations.

Anyways I had fun learning doing that script, have fun fiddling with it.

Instructions:

1. Create a prim

2. Create a new script in the prim

3. Copy and paste this in the emptyied script

Usage:

Click it beyoch!

Here's the code:

// Avatar Biorythm 0.01
// CodeBastard Redgrave - Proud member of BotBabes AND Optimal Prim Corporation
// cbredgrave@gmail.com
// 19/05/2007
string age;
string todaydate;
float diffInSecs;
integer seconds;
integer agepass;
float secsBetween(string t1, string t2) {
// Stolen from LSL [Codie]
// Parses the timestamps into a two-element list consisting of
// [date, time] where date is a string in the form "YYYY-MM-DD"
// and time is a string in the form "hh:mm:ssZ" (Note: ss is a float value)
list parsed1 = llParseString2List(t1, ["T"], []);
list parsed2 = llParseString2List(t2, ["T"], []);
// Date1 and Date2 are lists in the form of [year, month, day]
list date1 = llParseString2List(llList2String(parsed1, 0), ["-"], []);
list date2 = llParseString2List(llList2String(parsed2, 0), ["-"], []);
// Time1 and Time2 are lists in the form of [hours, minutes, seconds]
// Taking into account the one-letter "Z" suffix on the end of the time element 
// by deleting it.
list time1 = llParseString2List(llDeleteSubString(llList2String(parsed1, 1), -1, -1), [":"], []);
list time2 = llParseString2List(llDeleteSubString(llList2String(parsed2, 1), -1, -1), [":"], []);
// Stamp* lists are in the form [year, month, day, hour, min, sec]
list stamp1     = date1 + time1;
list stamp2     = date2 + time2;
// SECONDS_CONVERSION is a list containing the number of seconds in:
// one year, one month, one day, one hour, one minute and one second,
// respectively.
// TODO: Provide accurate leap-year and month-day-count correction.
// Im assuming 365.25 days in a year and 30 days in a month :(
list SECONDS_CONVERSION = [31557600, 2592000, 86400, 3600, 60, 1];
float diffInSecs = 0;
integer i;
for (i = 0; i < 6; ++i) {
// TODO: See if extracting elements as floats here is a reasonable 
// accuracy tradeoff.
// Thought: Perhaps we could multiply the seconds
// value by some power of ten at the beginning of this function
// and simply work with it like you would an integer, since its the only 
// floating point value.
float element1             = (float) llList2String(stamp1, i);
float element2             = (float) llList2String(stamp2, i);
float conversionFactor     = (float) llList2String(SECONDS_CONVERSION, i);
diffInSecs += llFabs(element1 - element2) * conversionFactor;
}
// Hello Avatar
llSay(0,"Avatar Biorythm");
llSay(0,"by CodeBastard 'Codie' Redgrave for BotBabes\n");
// Actually calculates the biorythms from the diffInSecs var [Codie]
float physical = llSin(2 * PI * diffInSecs / 23);
llSay(0, "Physical:" + (string)physical);
float emotionnal = llSin(2 * PI * diffInSecs / 28);
llSay(0, "Emotionnal:" + (string)emotionnal);
float intellectual = llSin(2 * PI * diffInSecs / 33);
llSay(0, "Intellectual:" + (string)emotionnal + "\n");
// Open your bit mouth and yap
if (physical >= 0.0)
llSay(0, "Physical: Your avatar is top shape!");
else
llSay(0, "Physical: Your avatar is ruthed, unrezzed and you got attachments up your ass.");
if (emotionnal >= 0.0)
llSay(0, "Emotionnal: Your avatar is bubbling with happiness.");
else
llSay(0, "Emotionnal: Your avatar wants to suicide with the Delete Account button.");
if (intellectual >= 0.0)
llSay(0, "Intellectual: Your avatar got more mojo than Philip Linden.");
else
llSay(0, "Intellectual: Your avatar forgot where it place it's invent.");
return diffInSecs;
}
default
{
dataserver(key queryid, string age) {
string agepass = age;
string todaydate = llGetSubString(llGetTimestamp(), 0,9);
secsBetween(todaydate, agepass);
} 
state_entry() {
llSay(0, "Started");
}
touch_start(integer total_number) {
llRequestAgentData(llDetectedKey(0), DATA_BORN); // request creation date
}
}

Comments (0)

You don't have permission to comment on this page.

Anonymous Create an account or Log in

Bot-Babes/Boys

Avatar Biorythm

Avatar Biorythm

Page Tools

Insert links

Comments (0)

Join this workspace

Navigator

SideBar

Recent Activity