Magic Blocks
March 4th, 2011
A fun toy and made by Philip Linden! Hours of very fun, and pleasure.
Click and drag the block to position. Block will snap into position when near other blocks.
Click and quickly release to make a new block above the old.
SOUND UUID 's color = 8e9a7375-2a49-6e81-ec26-c6140891333d off = bac3e333-9624-4b1a-ade2-d2b01d5960aa on = 271e6a0f-0a76-230b-011e-f78a55e80c36 pulse = 21b2d9ef-8329-bb72-9eaf-35702e876797
NOTE: You will need to re-assemble this all and edit the scripts because I cannot include sounds in this post ;)
vector pos;
vector found_pos;
vector start_touch_pos;
vector diff;
vector scale;
string name_detected;
vector PULSE_COLOR = <1,1,1>;
float GRAB_ALPHA = 0.5;
float INC = 2.0; // Grid spacing for snap, scale
float MAX_INC = 2.5; // Biggest dimension
list colors = [<1,0,0>, <0,1,0>, <0,0,1>,
<0,1,1>, <1,0,1>, <1,1,0>];
//list tones = ["piano_1", "piano_3", "piano_5"];
vector color;
integer color_index = 0;
integer CHANNEL = 3442;
integer pulse = FALSE;
integer inhibit = FALSE;
float INHIBIT_DELAY = 2.0;
float DECAY_FACTOR = 0.5;
send_pulse()
{
// Change color briefly and transmit a neural 'pulse'
inhibit = TRUE;
llSetTimerEvent(INHIBIT_DELAY);
//integer tone = llRound(llFrand((float)(llGetListLength(tones) - 1)));
//llTriggerSound(llList2String(tones, tone), 1.0);
llSetColor(PULSE_COLOR, ALL_SIDES);
llSetObjectName("Magic Block P");
llWhisper(CHANNEL, "pulse");
}
vector vec_round(vector vec, float inc)
{
// Rounds vector components to the nearest units of inc
vec *= 1.0/inc;
vec.x = ((float)llRound(vec.x));
vec.y = ((float)llRound(vec.y));
vec.z = ((float)llRound(vec.z));
vec *= inc;
return vec;
}
set_pos()
{
//
// On finding a neighbor, snap relative to neighbor
//
pos = llGetPos();
llSetColor(color*0.5, ALL_SIDES);
diff = pos - found_pos;
diff = vec_round(diff, INC/2.0);
diff += found_pos;
llSetPos(diff);
llTriggerSound("on", 1.0);
llSetColor(color, ALL_SIDES);
}
vector new_color()
{
integer num_colors = llGetListLength(colors);
color_index++;
if (color_index >= num_colors) color_index = 0;
return llList2Vector(colors, color_index);
}
snap()
{
// Issues the sensor to look for nearby blocks to snap to
float range = 3.0;
llSensor("Magic Block", "", PASSIVE | SCRIPTED, range, 2.0*PI);
}
default
{
state_entry()
{
scale = llGetScale();
color = new_color();
llSetColor(color, ALL_SIDES);
llSetStatus(STATUS_BLOCK_GRAB, FALSE);
llSetBuoyancy(1.0);
llListen(CHANNEL, "", "", "pulse");
}
on_rez(integer param)
{
found_pos = llGetPos();
set_pos();
snap();
}
timer()
{
llSetObjectName("Magic Block");
llSetTimerEvent(0.0);
inhibit = FALSE;
llSetColor(color, ALL_SIDES);
}
changed(integer change)
{
if (change == CHANGED_SCALE)
{
scale = llGetScale();
scale = vec_round(scale, INC);
if (scale.x == 0.0) scale.x = INC;
if (scale.y == 0.0) scale.y = INC;
if (scale.z == 0.0) scale.z = INC;
if (scale.x > MAX_INC) scale.x = MAX_INC;
if (scale.y > MAX_INC) scale.y = MAX_INC;
if (scale.z > MAX_INC) scale.z = MAX_INC;
llSay(0, "new scale = " + (string)scale);
llSetScale(scale);
// Choose a new color for the block
snap();
}
}
touch_start(integer total_number)
{
start_touch_pos = llGetPos();
llSetAlpha(GRAB_ALPHA, ALL_SIDES);
llTriggerSound("on", 1.0);
llResetTime();
llSetStatus(STATUS_PHYSICS, FALSE);
}
touch_end(integer total_number)
{
llSetStatus(STATUS_PHYSICS, FALSE);
llSetAlpha(1.0, ALL_SIDES);
vector moved = llGetPos() - start_touch_pos;
if (llGetTime() < 0.3)
{
// Cycle colors on short click
llSetPos(start_touch_pos);
llTriggerSound("color", 1.0);
color = new_color();
llSetColor(color, ALL_SIDES);
}
else if (llVecMag(moved) < (INC/10.0))
{
llSetPos(start_touch_pos);
send_pulse();
}
else
{
// Try to find a block to stick to!
llSetColor(color, ALL_SIDES);
snap();
}
llSetRot(<0,0,0,1>);
}
listen(integer channel, string name, key id, string message)
{
// Received neural pulse, so sense sender's distance
if (!inhibit)
{
pulse = TRUE;
llSensor("Magic Block P", id, PASSIVE | SCRIPTED, 10.0, 2.0*PI);
}
}
no_sensor()
{
pulse = FALSE;
}
sensor(integer num_detected)
{
if (!pulse)
{
//
// Rotate/snap to nearest box
//
// Issue scale request to this box
//
found_pos = llDetectedPos(0);
set_pos();
}
else
{
//
// Gauge distance to nearest box, decide whether to 'fire'
//
pulse = FALSE;
pos = llGetPos();
found_pos = llDetectedPos(0);
diff = pos - found_pos;
// probability of neural firing is related to distance
float distance = llVecMag(diff);
if (distance > 0.0)
{
if (distance < INC)
//if (llFrand(1.0) < ((INC/(distance*distance))*DECAY_FACTOR))
{
send_pulse();
}
}
}
}
}