Library: Ceera's Westminster Clock: Scripts to make a three-prim analog clock.

// Ceera's Westminster Clock, with hour chimes
// Based on simple clock by Beverly Larkin
// Uses two linked message scripts in the hour hand and minute hand.
// Always displays current SL time (Pacific Coast Time)
integer H; //Hours
integer M; //Minutes
string chimeA = "95a691d0-21c0-21c2-5918-e18ed7e05b2e"; // First 10 sec of top-of-hour chimes
string chimeB = "f5ba3a09-5fa2-d4ac-92bc-4d0000a2e786"; // Second 10 sec of top-of-hour chimes
string chimeBong = "d87217bc-cb47-7d85-c2ea-b0e3d2e40a72"; // a two-second single bong
getTime()
{
integer T = (integer)llGetWallclock(); // Get time PST
if (T > 43200) //If it's after noon
{
T = T - 43200; //Subtract 12 hours
H = T / 3600; //get hours
M = (T - (H * 3600)) / 60; //get minutes
if(H == 0) //if the hour is 0
{
H = 12; // make the hour 12
}
}
else
{
H = T / 3600; //get the hour
M = (T - (H * 3600)) / 60; //get minutes
if(H == 0) //if the hour is 0
{
H = 12; // make the hour 12
}
}
}
chimeCheck()
{
if(M == 59) // preload chime sounds
{
llPreloadSound( chimeA ); // First 10 sec of top-of-hour chimes
llSleep(10);
llPreloadSound( chimeB ); // Second 10 sec of top-of-hour chimes
llSleep(10);
llPreloadSound( chimeBong ); // a two-second single bong
llSleep(2);
}

if(M == 0) // Time to strike the hour!
{
llSetSoundQueueing(FALSE); // Don't wait until sound is done before playing next sound
// Play the top of the hour bells
llPlaySound(chimeA,1.0);
llSleep(10);
llPlaySound(chimeB,1.0);
llSleep(10);
// Chime the hour
integer i = 0;
for (; i < H; ++i) // Loop for the number of hours
{
llPlaySound(chimeBong,1.0);
llSleep(2.0);
}
}
}
default
{
on_rez(integer start_param)
{
// Restarts the script every time the object is rezzed
llSetTimerEvent(60); // Activate the timer to get time every one minute
getTime();
llMessageLinked(LINK_SET, M, "minutes", NULL_KEY);
llMessageLinked(LINK_SET, H, "hour", NULL_KEY);
chimeCheck(); // Comment this out to silence the chimes
}
timer()
{
getTime();
llMessageLinked(LINK_SET, M, "minutes", NULL_KEY);
llMessageLinked(LINK_SET, H, "hour", NULL_KEY);
chimeCheck(); // Comment this out to silence the chimes
}
}

//Script for hour hand
default
{
link_message(integer sender_number,integer number,string message,key id)
{
if(message == "hour" {
float degrees=(360-30*number);
rotation handPos=llEuler2Rot(<0,0,degrees*DEG_TO_RAD>;
llSetLocalRot(handPos);
}
}
}

// Script for minute hand
default
{
link_message(integer sender_number,integer number,string message,key id)
{
if(message == "minutes" {
float degrees=(360-6*number);
rotation handPos=llEuler2Rot(<0,0,degrees*DEG_TO_RAD>;
llSetLocalRot(handPos);
}
}
}

Modified from OP,

// Ceera's Westminster Clock, with hour chimes
// Based on simple clock by Beverly Larkin
// Modified slightly by Ivanonva Shostakovich to provide proportional hour hand movement
// Uses two linked message scripts in the hour hand and minute hand.
// Always displays current SL time (Pacific Coast Time)
integer H; //Hours
integer M; //Minutes
float HF; //For giving the hour hand its angle information - I.S.
integer HS; //For passing HF through messagelinked - I.S.
string chimeA = "95a691d0-21c0-21c2-5918-e18ed7e05b2e"; // First 10 sec of top-of-hour chimes
string chimeB = "f5ba3a09-5fa2-d4ac-92bc-4d0000a2e786"; // Second 10 sec of top-of-hour chimes
string chimeBong = "d87217bc-cb47-7d85-c2ea-b0e3d2e40a72"; // a two-second single bong
getTime()
{
integer T = (integer)llGetWallclock(); // Get time PST
if (T > 43200) //If it's after noon
{
T = T - 43200; //Subtract 12 hours
H = T / 3600; //get hours
HF = (float) T / 3600; //Gets HF - I.S.
M = (T - (H * 3600)) / 60; //get minutes
if(H == 0) //if the hour is 0
{
H = 12; // make the hour 12
}
}
else
{
H = T / 3600; //get the hour
HF = (float) T / 3600; //Gets HF - I.S.
M = (T - (H * 3600)) / 60; //get minutes
if(H == 0) //if the hour is 0
{
H = 12; // make the hour 12
}
}
}
chimeCheck()
{
if(M == 59) // preload chime sounds
{
llPreloadSound( chimeA ); // First 10 sec of top-of-hour chimes
llSleep(10);
llPreloadSound( chimeB ); // Second 10 sec of top-of-hour chimes
llSleep(10);
llPreloadSound( chimeBong ); // a two-second single bong
llSleep(2);
}

if(M == 0) // Time to strike the hour!
{
llSetSoundQueueing(FALSE); // Don't wait until sound is done before playing next sound
// Play the top of the hour bells
llPlaySound(chimeA,1.0);
llSleep(10);
llPlaySound(chimeB,1.0);
llSleep(10);
// Chime the hour
integer i = 0;
for (; i < H; ++i) // Loop for the number of hours
{
llPlaySound(chimeBong,1.0);
llSleep(2.0);
}
}
}
default
{
on_rez(integer start_param)
{
// Restarts the script every time the object is rezzed
llSetTimerEvent(60); // Activate the timer to get time every one minute
getTime();
HS = (integer) HF * 10000;
llMessageLinked(LINK_SET, M, "minutes", NULL_KEY);
llMessageLinked(LINK_SET, HS, "hour", NULL_KEY);
chimeCheck(); // Comment this out to silence the chimes
}
timer()
{
getTime();
HF = HF * 10000; //Preserves the resolution of HF for integer conversion - I.S.
HS = (integer) HF; //Converts HF to integer HS for sending through llMessageLinked - I.S.
llMessageLinked(LINK_SET, M, "minutes", NULL_KEY);
llMessageLinked(LINK_SET, HS, "hour", NULL_KEY);
chimeCheck(); // Comment this out to silence the chimes
}
}

Hello,
Has anyone tested this on Havoc 4? im having many issues and jsut cant get it to run right thanks for any help anyone may have...

Sparkin

This is not really the right way to put my question, but, I'll try to explain. lol
As soon as I link the 3 prims together, the hour prim and the minute prim get in an ackward position. So is there any way to rotate the prims so that the face where the hands are on, keep on the top and rotate in a clockwise movement? Or do the textures for the hands have to be on a specific side of the prim?
I was a bit embrrased to ask this, but I have been trying to get it right, and it seems I'm just a dumbass in linking things and as I only started 2 weeks ago with the scripting languages, I'm lost.

// Ceera's Westminster Clock, with hour chimes
// Based on simple clock by Beverly Larkin
// Modified slightly by Ivanonva Shostakovich to provide proportional hour hand movement
//Modified Slightly by Ruthven Willenov to add Time Zone Adjustment
// Uses two linked message scripts in the hour hand and minute hand.
integer H; //Hours
integer M; //Minutes
float HF; //For giving the hour hand its angle information - I.S.
integer HS; //For passing HF through messagelinked - I.S.
string chimeA = "95a691d0-21c0-21c2-5918-e18ed7e05b2e"; // First 10 sec of top-of-hour chimes
string chimeB = "f5ba3a09-5fa2-d4ac-92bc-4d0000a2e786"; // Second 10 sec of top-of-hour chimes
string chimeBong = "d87217bc-cb47-7d85-c2ea-b0e3d2e40a72"; // a two-second single bong
getTime()
{
integer LocalT = -2; //how many hours ahead/behind PST?
integer diff = LocalT*3600;//how many seconds in the hour difference?
integer T = (integer)llGetWallclock()+diff; // Get time PST
if (T > 43200) //If it's after noon
{
T = T - 43200; //Subtract 12 hours
H = T / 3600; //get hours
HF = (float) T / 3600; //Gets HF - I.S.
M = (T - (H * 3600)) / 60; //get minutes
if(H == 0) //if the hour is 0
{
H = 12; // make the hour 12
}
}
else
{
H = T / 3600; //get the hour
HF = (float) T / 3600; //Gets HF - I.S.
M = (T - (H * 3600)) / 60; //get minutes
if(H == 0) //if the hour is 0
{
H = 12; // make the hour 12
}
}
}
chimeCheck()
{
if(M == 59) // preload chime sounds
{
llPreloadSound( chimeA ); // First 10 sec of top-of-hour chimes
llSleep(10);
llPreloadSound( chimeB ); // Second 10 sec of top-of-hour chimes
llSleep(10);
llPreloadSound( chimeBong ); // a two-second single bong
llSleep(2);
}
if(M == 0) // Time to strike the hour!
{
llSetSoundQueueing(FALSE); // Don't wait until sound is done before playing next sound
// Play the top of the hour bells
llPlaySound(chimeA,1.0);
llSleep(10);
llPlaySound(chimeB,1.0);
llSleep(10);
// Chime the hour
integer i = 0;
for (; i < H; ++i) // Loop for the number of hours
{
llPlaySound(chimeBong,1.0);
llSleep(2.0);
}
}
}
default
{
on_rez(integer start_param)
{
llResetScript();
}
state_entry()
{
// Restarts the script every time the object is rezzed
llSetTimerEvent(60); // Activate the timer to get time every one minute
getTime();
HS = (integer) HF * 10000;
llMessageLinked(LINK_SET, M, "minutes", NULL_KEY);
llMessageLinked(LINK_SET, HS, "hour", NULL_KEY);
chimeCheck(); // Comment this out to silence the chimes
}
timer()
{
getTime();
HF = HF * 10000; //Preserves the resolution of HF for integer conversion - I.S.
HS = (integer) HF; //Converts HF to integer HS for sending through llMessageLinked - I.S.
llMessageLinked(LINK_SET, M, "minutes", NULL_KEY);
llMessageLinked(LINK_SET, HS, "hour", NULL_KEY);
chimeCheck(); // Comment this out to silence the chimes
}
}

Thanks, Ruthven; wouldn't, though, llGetGMTclock() be a better idea than llGetWallclock() for doing time zone adjustment, since, as GMT is, in the words of the script wiki, "an absolute and international measure of time that does not change throughout the year", you only have to change the scripts when your own local daylight savings start and stop and don't need to worry about what's happening in California, too?

i am working on a dialog script to work with this one actually, so that users can choose the time zone instead of having to edit the script

In the clocks I have made I use GMT by default and allow the user to put a time zone and offset in the description field.

If the user wanted SL time the description reads PDT
if they are east coast it reads PDT+4 (just guessing)
in my case GMT+2 as we are 2 hours ahead and dont have Daylight saving at all.

i'm assuming you used some sort of substring command to use GMT/ PDT in the description field? never worked with substrings before, so no clue how it would work

// Ceera's Westminster Clock, with hour chimes
// Based on simple clock by Beverly Larkin
// Modified slightly by Ivanonva Shostakovich to provide proportional hour hand movement
// Modified Slightly by Ruthven Willenov to add Time Zone Adjustment
// Modified by Very Keynes to fetch Time zone from Description Field
// Modified by Harmony Deschanel to include a second hand.
// Uses two linked message scripts in the hour hand, minute, and second hand. (HD)
integer H; //Hours
integer M; //Minutes
integer S; //Seconds (HD)
float HF; //For giving the hour hand its angle information - I.S.
integer HS; //For passing HF through messagelinked - I.S.
string chimeA = "95a691d0-21c0-21c2-5918-e18ed7e05b2e"; // First 10 sec of top-of-hour chimes
string chimeB = "f5ba3a09-5fa2-d4ac-92bc-4d0000a2e786"; // Second 10 sec of top-of-hour chimes
string chimeBong = "d87217bc-cb47-7d85-c2ea-b0e3d2e40a72"; // a two-second single bong

getTime()
{
string TimeZone = llGetObjectDesc();//format examples GMT-6 or PST+4
integer LocalT = (integer)llGetSubString(TimeZone,3,-1); //how many hours ahead/behind?
integer diff = LocalT*3600;//how many seconds in the hour difference?
integer T = (integer)llGetWallclock()+diff; // Get time PST
if("GMT" == llToUpper(llGetSubString(TimeZone,0,2)))
T = (integer)llGetGMTclock()+diff; // Get time GMT
if (T > 43200) //If it's after noon
{
T = T - 43200; //Subtract 12 hours
H = T / 3600; //get hours
HF = (float) T / 3600; //Gets HF - I.S.
M = (T - (H * 3600)) / 60; //get minutes
S = T - ((H * 3600) + (M * 60)); // get seconds (HD)
if(H == 0) //if the hour is 0
{
H = 12; // make the hour 12
}
}
else
{
H = T / 3600; //get the hour
HF = (float) T / 3600; //Gets HF - I.S.
M = (T - (H * 3600)) / 60; //get minutes
S = T - ((H * 3600) + (M * 60)); // get seconds (HD)
if(H == 0) //if the hour is 0
{
H = 12; // make the hour 12
}
}
}

chimeCheck()
{
if(M == 59) // preload chime sounds
{
llPreloadSound( chimeA ); // First 10 sec of top-of-hour chimes
llSleep(10);
llPreloadSound( chimeB ); // Second 10 sec of top-of-hour chimes
llSleep(10);
llPreloadSound( chimeBong ); // a two-second single bong
llSleep(2);
}
if(M == 0) // Time to strike the hour!
{
llSetSoundQueueing(FALSE); // Don't wait until sound is done before playing next sound
// Play the top of the hour bells
llPlaySound(chimeA,1.0);
llSleep(10);
llPlaySound(chimeB,1.0);
llSleep(10);
// Chime the hour
integer i = 0;
for (; i < H; ++i) // Loop for the number of hours
{
llPlaySound(chimeBong,1.0);
llSleep(2.0);
}
}
}

default
{
on_rez(integer start_param)
{
llResetScript();
}

state_entry()
{
// Restarts the script every time the object is rezzed
llSetTimerEvent(59); // Activate the timer to get time every one minute
// Note from HD: If you use 60 as the time in the timer event
// the second hand won't correct it's position. I have no idea why.
getTime();
HS = (integer) HF * 10000;
llMessageLinked(LINK_SET, M, "minutes", NULL_KEY);
llMessageLinked(LINK_SET, HS, "hour", NULL_KEY);
llMessageLinked(LINK_SET, S, "seconds", NULL_KEY); // (HD)
chimeCheck(); // Comment this out to silence the chimes
}

timer()
{
getTime();
HF = HF * 10000; //Preserves the resolution of HF for integer conversion - I.S.
HS = (integer) HF; //Converts HF to integer HS for sending through llMessageLinked - I.S.
llMessageLinked(LINK_SET, M, "minutes", NULL_KEY);
llMessageLinked(LINK_SET, HS, "hour", NULL_KEY);
llMessageLinked(LINK_SET, S, "seconds", NULL_KEY); // (HD)
chimeCheck(); // Comment this out to silence the chimes
}
}

//Script for hour hand
default
{
link_message(integer sender_number,integer number,string message,key id)
{
if(message == "hour" {
float degrees=((360-30*number) / 10000); //Extracts accurate hour hand angle through division - I.S.
rotation handPos=llEuler2Rot(<0,0,degrees*DEG_TO_RAD>;
llSetLocalRot(handPos);
}
}
}

// Script for minute hand
default
{
link_message(integer sender_number,integer number,string message,key id)
{
if(message == "minutes" {
float degrees=(360-6*number);
rotation handPos=llEuler2Rot(<0,0,degrees*DEG_TO_RAD>;
llSetLocalRot(handPos);
}
}
}

// Script for second hand added by Harmony Deschanel
default
{
state_entry()
{
llTargetOmega(<0,0,-1>,PI/30,1);
}
link_message(integer sender_number,integer number,string message,key id)
{
if(message == "seconds" {
float degrees=-6*number;
rotation handPos=llEuler2Rot(<0,0,degrees*DEG_TO_RAD>;
llSetLocalRot(handPos);
}
}
}

The second hand only corrects it's rotation if the timer is NOT set to 60 seconds ... I set it to 59, 55, 47, and it would correct it's position. Anyone know why?

default
{
state_entry()
{
llSetTimerEvent(1);
}

timer()
{
float second = llGetWallclock();

llPlaySound("single tick",1.0);

rotation hand_rot = llEuler2Rot(<0, 6 * second * DEG_TO_RAD, 0>;

llSetLocalRot(hand_rot);
}
}

I think that is because the sim only send an update to the viewer if the rotation changes by more than 0.1 radians (?). As far as the sim is concerned, llTargetOmega isn't rotating the prim, and it is resting at the last rotation you set it to. If you always set the same rotation (every 60 seconds,) it thinks the viewer doesn't need to be informed about it.

The second hand only corrects it's "position" if the timer is NOT set to 60 seconds ... I set it to 59, 55, 47, and it would correct it's position. Anyone know why?