Second Life Wiki - User contributions [en]

User:Craftish Resident/php/SLRequestData

2015-04-18T09:30:38Z

Craftish Resident:

Optimized Second Life HTTP request header-reading class for php

Doesn't process headers unless they are used

slrequestdata.php
<source lang="php">
<?php

/* *** -------------------------------------------------- *** */
/* *** Copyright (c) 2013 by Craftish Resident *** */
/* *** Attribution-ShareAlike 3.0 Unported (CC BY-SA 3.0) *** */
/* *** http://creativecommons.org/licenses/by-sa/3.0/ *** */
/* *** -------------------------------------------------- *** */

class SLRequestData{
private static $object_grid=FALSE;
private static $object_name=FALSE;
private static $object_key=FALSE;
private static $object_pos=FALSE;
private static $object_vel=FALSE;
private static $object_rot=FALSE;
private static $owner_key=FALSE;
private static $owner_name=FALSE;
private static $region_data=FALSE;
private static $region_name=FALSE;
private static $region_pos=FALSE;
//
private static $apachecheck=FALSE;
private static $apache=FALSE;
private static $headers;
//
private static function header_get($x){
return array_key_exists($x,self::$headers)?self::$headers[$x]:'';
}
public static function header($x) {
if(self::$apachecheck===FALSE){
self::$apache=function_exists('apache_request_headers');
self::$headers=self::$apache?apache_request_headers():$GLOBALS['HTTP_ENV_VARS'];
self::$apachecheck=TRUE;
}
switch($x):default:
return '';
break;case 'object_grid':
return (self::$object_grid!==FALSE)?(self::$object_grid):(self::$object_grid=self::header_get(self::$apache?'X-SecondLife-Shard':'HTTP_X_SECONDLIFE_SHARD'));
break;case 'object_name':
return (self::$object_name!==FALSE)?(self::$object_name):(self::$object_name=self::header_get(self::$apache?'X-SecondLife-Object-Name':'HTTP_X_SECONDLIFE_OBJECT_NAME'));
break;case 'object_key':
return (self::$object_key!==FALSE)?(self::$object_key):(self::$object_key=self::header_get(self::$apache?'X-SecondLife-Object-Key':'HTTP_X_SECONDLIFE_OBJECT_KEY'));
break;case 'object_pos':
if(self::$object_pos!==FALSE)return self::$object_pos;
$temp1=self::header_get(self::$apache?'X-SecondLife-Local-Position':'HTTP_X_SECONDLIFE_LOCAL_POSITION');
$temp2;
preg_match_all('#$([\d.]+), ([\d.]+), ([\d.]+)$#i',$temp1,$temp2);
return self::$object_pos=@array('x'=>(float)$temp2[1][0],'y'=>(float)$temp2[2][0],'z'=>(float)$temp2[3][0]);
break;case 'object_vel':
if(self::$object_vel!==FALSE)return self::$object_vel;
$temp1=self::header_get(self::$apache?'X-SecondLife-Local-Velocity':'HTTP_X_SECONDLIFE_LOCAL_VELOCITY');
$temp2;
preg_match_all('#$([\d.]+), ([\d.]+), ([\d.]+)$#i',$temp1,$temp2);
return self::$object_vel=@array('x'=>(float)$temp2[1][0],'y'=>(float)$temp2[2][0],'z'=>(float)$temp2[3][0]);
break;case 'object_rot':
if(self::$object_rot!==FALSE)return self::$object_rot;
$temp1=self::header_get(self::$apache?'X-SecondLife-Local-Rotation':'HTTP_X_SECONDLIFE_LOCAL_ROTATION');
$temp2;
preg_match_all('#$([\d.]+), ([\d.]+), ([\d.]+), ([\d.]+)$#i',$temp1,$temp2);
return self::$object_rot=@array('x'=>(float)$temp2[1][0],'y'=>(float)$temp2[2][0],'z'=>(float)$temp2[3][0],'s'=>(float)$temp2[4][0]);
break;case 'owner_key':
return (self::$owner_key!==FALSE)?(self::$owner_key):(self::$owner_key=self::header_get(self::$apache?'X-SecondLife-Owner-Key':'HTTP_X_SECONDLIFE_OWNER_KEY'));
break;case 'owner_name':
return (self::$owner_name!==FALSE)?(self::$owner_name):(self::$owner_name=self::header_get(self::$apache?'X-SecondLife-Owner-Name':'HTTP_X_SECONDLIFE_OWNER_NAME'));
break;case 'region_data':
return (self::$region_data!==FALSE)?(self::$region_data):(self::$region_data=self::header_get(self::$apache?'X-SecondLife-Region':'HTTP_X_SECONDLIFE_REGION'));
break;case 'region_name':
if(self::$region_name!==FALSE)return self::$region_name;
$temp1=self::header('region_data');
$temp2;
preg_match_all('#([\w ]*)\s$(\d+), (\d+)$#i',$temp1,$temp2);
self::$region_pos=@array('x'=>(float)$temp2[2][0],'y'=>(float)$temp2[3][0]);
return self::$region_name=@$temp2[1][0];
break;case 'region_pos':
if(self::$region_pos!==FALSE)return self::$region_pos;
$temp1=self::header('region_data');
$temp2;
preg_match_all('#([\w ]*)\s$(\d+), (\d+)$#i',$temp1,$temp2);
self::$region_name=@$temp2[1][0];
return self::$region_pos=@array('x'=>(float)$temp2[2][0],'y'=>(float)$temp2[3][0]);
break;case 'print_r':
return print_r(array(
'object_grid'=>self::header('object_grid'),
'object_name'=>self::header('object_name'),
'object_key'=>self::header('object_key'),
'object_pos'=>self::header('object_pos'),
'object_vel'=>self::header('object_vel'),
'object_rot'=>self::header('object_rot'),
'owner_key'=>self::header('owner_key'),
'owner_name'=>self::header('owner_name'),
'region_data'=>self::header('region_data'),
'region_name'=>self::header('region_name'),
'region_pos'=>self::header('region_pos'),
),TRUE);
break;case 'headers':
return print_r(self::$headers,TRUE);
break;endswitch;
return '';
}
}

?>
</php>

Example:

<php>
<?php

header('Content-Type: text/plain');

include 'slrequestdata.php';

echo "Hello " . SLRequestData::header('owner_name') . "\n";

// Outputs: Hello Craftish Resident

$pos = SLRequestData::header('object_pos');
echo SLRequestData::header('object_name') . "'s z position is {$pos['z']}";

// Outputs: Object's z position is 1400.5

?>
</source>

MultiSoundWalker

2015-04-18T09:23:48Z

Craftish Resident: Extended walker script

{{LSL Header}}

Script to have multiple sounds strung together in a walker.

<source lang="lsl2">

list soundlengths=[7.000,6.716]; // lengths of all the sounds in seconds; leave empty for automatic 10 second sounds
float lastsoundlength=10.0; // used for the last sound only if not all lengths are set

integer smooth_looping=1; // this will loop sounds smoothly, but the lengths must be perfect
integer preload_sounds=1; // this will preload sounds when switching regions

/* *** ------------------------------------------- *** */
/* *** Copyright (c) 2015 by Craftish Resident *** */
/* *** Attribution 3.0 Unported (CC BY 3.0) *** */
/* *** http://creativecommons.org/licenses/by/3.0/ *** */
/* *** ------------------------------------------- *** */
/* *** - - - - - - Walker script 1.1 - - - - - - *** */
/* *** ------------------------------------------- *** */

// advanced settings

list activate=["Walking","Running","Turning Left","Turning Right","CrouchWalking"];
float interval=0.2;
float volume_decay=0.12;
float full_volume=1.0;

//

list sounds=[];
integer totalsounds;
integer at=0;

integer playing=0;
integer walking=0;
integer wasplaying=0;
integer stopping=0;
float currentsoundlen;
float currentplayed;
float volume=1.0;

integer hasanimation=0;
integer cananimate=0;
string animationname;
key animationkey;

preload(){
if(preload_sounds){
integer i=0;
for(;i<totalsounds;++i){
llPreloadSound(llList2String(sounds,i));
}
llSleep(2.0);
}
}
start_animation(){
if(hasanimation && cananimate){
llStartAnimation(animationname);
animationkey=llList2Key(llGetAnimationList(llGetPermissionsKey()), -1);
fixanim();
}
}
start(){
at=0;
currentplayed=0.0;
if(totalsounds>1){
currentsoundlen=llList2Float(soundlengths,0);
llPlaySound(llList2String(sounds,0),full_volume);
}else{
llLoopSound(llList2String(sounds,0),full_volume);
}
stopping=0;
if(volume<full_volume){
volume=full_volume;
llAdjustSoundVolume(volume);
}
playing=1;
}
next(){
at++;
if(at==totalsounds)at=0;
currentsoundlen=llList2Float(soundlengths,at);
llPlaySound(llList2String(sounds,at),full_volume);
}
stop_animation(){
if(hasanimation && cananimate){
llStopAnimation(animationname);
}
}
stop(){
llStopSound();
currentplayed=0.0;
stop_animation();
playing=0;
}
fixanim(){
if(hasanimation && cananimate){
list anims=llGetAnimationList(llGetPermissionsKey());
integer len=llGetListLength(anims);
integer i=0;
for (;i<len;++i){
if(llList2Key(anims,i)!=animationkey){
llStopAnimation(llList2Key(anims,i));
}
}
}
}

default {
state_entry(){
llStopSound();
llSetSoundQueueing(smooth_looping);
sounds=[];
integer i=0;
totalsounds=llGetInventoryNumber(INVENTORY_SOUND);
for(i=0;i<totalsounds;++i){
sounds+=[llGetInventoryName(INVENTORY_SOUND,i)];
}
for(i=llGetListLength(soundlengths)-1;i<totalsounds;++i){
if(i==totalsounds-1){soundlengths+=[10.0];}else{soundlengths+=[lastsoundlength];}
}
if(llGetInventoryNumber(INVENTORY_ANIMATION)){
hasanimation=1;
animationname=llGetInventoryName(INVENTORY_ANIMATION,0);
llRequestPermissions(llGetOwner(),PERMISSION_TRIGGER_ANIMATION);
}
volume=full_volume;
preload();
llSetTimerEvent(interval);
}
changed(integer x){
if (x & CHANGED_INVENTORY){
llSleep(3.0);
llResetScript();
}
if(x & CHANGED_REGION){
llSleep(1.5);
preload();
}
}
run_time_permissions(integer x){
if (x & PERMISSION_TRIGGER_ANIMATION){
cananimate=1;
}else{
cananimate=0;
}
}
attach(key id){
if(id){
cananimate=0;
if(hasanimation){
llRequestPermissions(llGetOwner(),PERMISSION_TRIGGER_ANIMATION);
preload();
}
}
}
timer(){
currentplayed+=interval;
//
string anim=llGetAnimation(llGetOwner());
walking=~llListFindList(activate,[anim]);
//
if(wasplaying!=walking){
wasplaying=walking;
if(walking){
start_animation();
if(playing){
if(volume<full_volume){
volume=full_volume;
llAdjustSoundVolume(volume);
}
stopping=0;
}else{
start();
}
}else{
stopping=1;
stop_animation();
}
}
if(playing){
if(totalsounds>1){
if(smooth_looping){
if(currentplayed>currentsoundlen/2){
currentplayed-=currentsoundlen;
next();
}
}else{
if(currentplayed>currentsoundlen-(interval/2)){
currentplayed=0;
next();
}
}
}
if(walking){
fixanim();
}else{
if(stopping){
volume-=volume_decay;
llAdjustSoundVolume(volume);
if(volume<0.0){
stop();
}
}
}
}
}
on_rez(integer x){
llResetScript();
}
}

</source>

MultiTimer

2015-04-18T09:12:48Z

Craftish Resident:

{{LSL Header}}

Small library to simplify the use of multiple timers in a script.

<source lang="lsl2">

/* *** ------------------------------------------- *** */
/* *** Copyright (c) 2013 by Craftish Resident *** */
/* *** Attribution 3.0 Unported (CC BY 3.0) *** */
/* *** http://creativecommons.org/licenses/by/3.0/ *** */
/* *** ------------------------------------------- *** */
float c_check_interval=0.5;
integer s_running_timers=0;
list s_timers_nexts=[];
list s_timers_intervals=[];
startTimer(integer x_id,float x_interval){
integer shift=1<<x_id;
if(s_running_timers==0)llSetTimerEvent(c_check_interval);
if(!(s_running_timers&shift)){
while(llGetListLength(s_timers_nexts)<=x_id){s_timers_nexts+=0.0;s_timers_intervals+=60.0;}
s_timers_nexts=llListReplaceList(s_timers_nexts,[llGetTime()+x_interval],x_id,x_id);
s_timers_intervals=llListReplaceList(s_timers_intervals,[x_interval],x_id,x_id);
s_running_timers=s_running_timers|shift;
}
}
stopTimer(integer x){
integer shift=1<<x;
if(s_running_timers&shift)s_running_timers=s_running_timers&(~shift);
if(s_running_timers==0)llSetTimerEvent(0);
}
quickTimer(integer x){
s_timers_nexts=llListReplaceList(s_timers_nexts,[llGetTime()],x,x);
}
restartTimer(integer x){
if(s_running_timers&(1<<x)){
stopTimer(x);
startTimer(x,llList2Float(s_timers_intervals,x));
}
}
integer checkTimer(integer x_timer){
if(s_running_timers&(1<<x_timer)){
float now=llGetTime();
float next=llList2Float(s_timers_nexts,x_timer);
if(now>next){
float interval=llList2Float(s_timers_intervals,x_timer);
next=next+interval;
if(now>next+interval)next=now+interval;
s_timers_nexts=llListReplaceList(s_timers_nexts,[next],x_timer,x_timer);
return 1;
}
}
return 0;
}
/* *** ------------------------------------------- *** */

// Timers can be set from 0 to 31

default
{
state_entry()
{
startTimer(0, 10.0); //Set timer 0 to happen every 10 seconds
startTimer(1, 5.0); //Set timer 1 to happen every 5 seconds
quickTimer(1); //Tell timer 1 to happen right away
}
timer()
{
if(checkTimer(0)) //Check if timer 0 is ready to go off
{
llOwnerSay("10!");
stopTimer(0); //Stop timer 0
}
if(checkTimer(1)) //Check if timer 1 is ready to go off
{
llOwnerSay("5!");
}
}
touch_end(integer x)
{
restartTimer(1); //Restart timer 1
}
}

/* Output:
5! (Because we told timer 1 to go off right away)
[pause for 5 seconds]
5!
[pause for 5 seconds]
10! (Only happens once because the timer is stopped here)
5!
[pause for 5 seconds]
5!
[pause for 5 seconds]
...
*/

</source>

User:Craftish Resident/php/SLRequestData

2013-02-16T11:01:28Z

Craftish Resident: PHP script for reading SL http request headers

Optimized Second Life HTTP request header-reading class for php

Doesn't process headers unless they are used

slrequestdata.php
<php>
<?php

/* *** -------------------------------------------------- *** */
/* *** Copyright (c) 2013 by Craftish Resident *** */
/* *** Attribution-ShareAlike 3.0 Unported (CC BY-SA 3.0) *** */
/* *** http://creativecommons.org/licenses/by-sa/3.0/ *** */
/* *** -------------------------------------------------- *** */

class SLRequestData{
private static $object_grid=FALSE;
private static $object_name=FALSE;
private static $object_key=FALSE;
private static $object_pos=FALSE;
private static $object_vel=FALSE;
private static $object_rot=FALSE;
private static $owner_key=FALSE;
private static $owner_name=FALSE;
private static $region_data=FALSE;
private static $region_name=FALSE;
private static $region_pos=FALSE;
//
private static $apachecheck=FALSE;
private static $apache=FALSE;
private static $headers;
//
private static function header_get($x){
return array_key_exists($x,self::$headers)?self::$headers[$x]:'';
}
public static function header($x) {
if(self::$apachecheck===FALSE){
self::$apache=function_exists('apache_request_headers');
self::$headers=self::$apache?apache_request_headers():$GLOBALS['HTTP_ENV_VARS'];
self::$apachecheck=TRUE;
}
switch($x):default:
return '';
break;case 'object_grid':
return (self::$object_grid!==FALSE)?(self::$object_grid):(self::$object_grid=self::header_get(self::$apache?'X-SecondLife-Shard':'HTTP_X_SECONDLIFE_SHARD'));
break;case 'object_name':
return (self::$object_name!==FALSE)?(self::$object_name):(self::$object_name=self::header_get(self::$apache?'X-SecondLife-Object-Name':'HTTP_X_SECONDLIFE_OBJECT_NAME'));
break;case 'object_key':
return (self::$object_key!==FALSE)?(self::$object_key):(self::$object_key=self::header_get(self::$apache?'X-SecondLife-Object-Key':'HTTP_X_SECONDLIFE_OBJECT_KEY'));
break;case 'object_pos':
if(self::$object_pos!==FALSE)return self::$object_pos;
$temp1=self::header_get(self::$apache?'X-SecondLife-Local-Position':'HTTP_X_SECONDLIFE_LOCAL_POSITION');
$temp2;
preg_match_all('#$([\d.]+), ([\d.]+), ([\d.]+)$#i',$temp1,$temp2);
return self::$object_pos=@array('x'=>(float)$temp2[1][0],'y'=>(float)$temp2[2][0],'z'=>(float)$temp2[3][0]);
break;case 'object_vel':
if(self::$object_vel!==FALSE)return self::$object_vel;
$temp1=self::header_get(self::$apache?'X-SecondLife-Local-Velocity':'HTTP_X_SECONDLIFE_LOCAL_VELOCITY');
$temp2;
preg_match_all('#$([\d.]+), ([\d.]+), ([\d.]+)$#i',$temp1,$temp2);
return self::$object_vel=@array('x'=>(float)$temp2[1][0],'y'=>(float)$temp2[2][0],'z'=>(float)$temp2[3][0]);
break;case 'object_rot':
if(self::$object_rot!==FALSE)return self::$object_rot;
$temp1=self::header_get(self::$apache?'X-SecondLife-Local-Rotation':'HTTP_X_SECONDLIFE_LOCAL_ROTATION');
$temp2;
preg_match_all('#$([\d.]+), ([\d.]+), ([\d.]+), ([\d.]+)$#i',$temp1,$temp2);
return self::$object_rot=@array('x'=>(float)$temp2[1][0],'y'=>(float)$temp2[2][0],'z'=>(float)$temp2[3][0],'s'=>(float)$temp2[4][0]);
break;case 'owner_key':
return (self::$owner_key!==FALSE)?(self::$owner_key):(self::$owner_key=self::header_get(self::$apache?'X-SecondLife-Owner-Key':'HTTP_X_SECONDLIFE_OWNER_KEY'));
break;case 'owner_name':
return (self::$owner_name!==FALSE)?(self::$owner_name):(self::$owner_name=self::header_get(self::$apache?'X-SecondLife-Owner-Name':'HTTP_X_SECONDLIFE_OWNER_NAME'));
break;case 'region_data':
return (self::$region_data!==FALSE)?(self::$region_data):(self::$region_data=self::header_get(self::$apache?'X-SecondLife-Region':'HTTP_X_SECONDLIFE_REGION'));
break;case 'region_name':
if(self::$region_name!==FALSE)return self::$region_name;
$temp1=self::header('region_data');
$temp2;
preg_match_all('#([\w ]*)\s$(\d+), (\d+)$#i',$temp1,$temp2);
self::$region_pos=@array('x'=>(float)$temp2[2][0],'y'=>(float)$temp2[3][0]);
return self::$region_name=@$temp2[1][0];
break;case 'region_pos':
if(self::$region_pos!==FALSE)return self::$region_pos;
$temp1=self::header('region_data');
$temp2;
preg_match_all('#([\w ]*)\s$(\d+), (\d+)$#i',$temp1,$temp2);
self::$region_name=@$temp2[1][0];
return self::$region_pos=@array('x'=>(float)$temp2[2][0],'y'=>(float)$temp2[3][0]);
break;case 'print_r':
return print_r(array(
'object_grid'=>self::header('object_grid'),
'object_name'=>self::header('object_name'),
'object_key'=>self::header('object_key'),
'object_pos'=>self::header('object_pos'),
'object_vel'=>self::header('object_vel'),
'object_rot'=>self::header('object_rot'),
'owner_key'=>self::header('owner_key'),
'owner_name'=>self::header('owner_name'),
'region_data'=>self::header('region_data'),
'region_name'=>self::header('region_name'),
'region_pos'=>self::header('region_pos'),
),TRUE);
break;case 'headers':
return print_r(self::$headers,TRUE);
break;endswitch;
return '';
}
}

?>
</php>

Example:

<php>
<?php

header('Content-Type: text/plain');

include 'slrequestdata.php';

echo "Hello " . SLRequestData::header('owner_name') . "\n";

// Outputs: Hello Craftish Resident

$pos = SLRequestData::header('object_pos');
echo SLRequestData::header('object_name') . "'s z position is {$pos['z']}";

// Outputs: Object's z position is 1400.5

?>
</php>

MultiTimer

2013-01-08T22:43:27Z

Craftish Resident:

{{LSL Header}}

Small library to simplify the use of multiple timers in a script.

<lsl>

/* *** ------------------------------------------- *** */
/* *** Copyright (c) 2013 by Craftish Resident *** */
/* *** Attribution 3.0 Unported (CC BY 3.0) *** */
/* *** http://creativecommons.org/licenses/by/3.0/ *** */
/* *** ------------------------------------------- *** */
float c_check_interval=0.5;
integer s_running_timers=0;
list s_timers_nexts=[];
list s_timers_intervals=[];
startTimer(integer x_id,float x_interval){
integer shift=1<<x_id;
if(s_running_timers==0)llSetTimerEvent(c_check_interval);
if(!(s_running_timers&shift)){
while(llGetListLength(s_timers_nexts)<=x_id){s_timers_nexts+=0.0;s_timers_intervals+=60.0;}
s_timers_nexts=llListReplaceList(s_timers_nexts,[llGetTime()+x_interval],x_id,x_id);
s_timers_intervals=llListReplaceList(s_timers_intervals,[x_interval],x_id,x_id);
s_running_timers=s_running_timers|shift;
}
}
stopTimer(integer x){
integer shift=1<<x;
if(s_running_timers&shift)s_running_timers=s_running_timers&(~shift);
if(s_running_timers==0)llSetTimerEvent(0);
}
quickTimer(integer x){
s_timers_nexts=llListReplaceList(s_timers_nexts,[llGetTime()],x,x);
}
restartTimer(integer x){
if(s_running_timers&(1<<x)){
stopTimer(x);
startTimer(x,llList2Float(s_timers_intervals,x));
}
}
integer checkTimer(integer x_timer){
if(s_running_timers&(1<<x_timer)){
float now=llGetTime();
float next=llList2Float(s_timers_nexts,x_timer);
if(now>next){
float interval=llList2Float(s_timers_intervals,x_timer);
next=next+interval;
if(now>next+interval)next=now+interval;
s_timers_nexts=llListReplaceList(s_timers_nexts,[next],x_timer,x_timer);
return 1;
}
}
return 0;
}
/* *** ------------------------------------------- *** */

// Timers can be set from 0 to 31

default
{
state_entry()
{
startTimer(0, 10.0); //Set timer 0 to happen every 10 seconds
startTimer(1, 5.0); //Set timer 1 to happen every 5 seconds
quickTimer(1); //Tell timer 1 to happen right away
}
timer()
{
if(checkTimer(0)) //Check if timer 0 is ready to go off
{
llOwnerSay("10!");
stopTimer(0); //Stop timer 0
}
if(checkTimer(1)) //Check if timer 1 is ready to go off
{
llOwnerSay("5!");
}
}
touch_end(integer x)
{
restartTimer(1); //Restart timer 1
}
}

/* Output:
5! (Because we told timer 1 to go off right away)
[pause for 5 seconds]
5!
[pause for 5 seconds]
10! (Only happens once because the timer is stopped here)
5!
[pause for 5 seconds]
5!
[pause for 5 seconds]
...
*/

</lsl>

MultiTimer

2013-01-08T22:22:43Z

Craftish Resident: Small library to simplify the use of multiple timers in a script

{{LSL Header}}

Small library to simplify the use of multiple timers in a script.

<lsl>

/* *** ------------------------------------------- *** */
/* *** Copyright (c) 2013 by Craftish Resident *** */
/* *** Attribution 3.0 Unported (CC BY 3.0) *** */
/* *** http://creativecommons.org/licenses/by/3.0/ *** */
/* *** ------------------------------------------- *** */
integer s_running_timers=0;
list s_timers_nexts=[];
list s_timers_intervals=[];
startTimer(integer x_id,float x_interval){
integer shift=1<<x_id;
if(s_running_timers==0)llSetTimerEvent(0.5);
if(!(s_running_timers&shift)){
while(llGetListLength(s_timers_nexts)<=x_id){s_timers_nexts+=0.0;s_timers_intervals+=60.0;}
s_timers_nexts=llListReplaceList(s_timers_nexts,[llGetTime()+x_interval],x_id,x_id);
s_timers_intervals=llListReplaceList(s_timers_intervals,[x_interval],x_id,x_id);
s_running_timers=s_running_timers|shift;
} }
stopTimer(integer x){
integer shift=1<<x;
if(s_running_timers&shift)s_running_timers=s_running_timers&(~shift);
if(s_running_timers==0)llSetTimerEvent(0);
}
quickTimer(integer x){
s_timers_nexts=llListReplaceList(s_timers_nexts,[llGetTime()],x,x);
}
restartTimer(integer x){
if(s_running_timers&(1<<x)){
stopTimer(x);
startTimer(x,llList2Float(s_timers_intervals,x));
}
}
integer checkTimer(integer x_timer){
if(s_running_timers&(1<<x_timer)){
float now=llGetTime();
float next=llList2Float(s_timers_nexts,x_timer);
if(now>next){
float interval=llList2Float(s_timers_intervals,x_timer);
next=next+interval;
if(now>next+interval)next=now+interval;
s_timers_nexts=llListReplaceList(s_timers_nexts,[next],x_timer,x_timer);
return 1;
} }
return 0;
}
/* *** ------------------------------------------- *** */

// Timers can be set from 0 to 31

default{
state_entry(){
startTimer(0,10.0); //Set timer 0 to happen every 10 seconds
startTimer(1,5.0); //Set timer 1 to happen every 5 seconds
quickTimer(1); //Tell timer 1 to happen right away
}
timer(){
if(checkTimer(0)){ //Check if timer 0 is ready to go off
llOwnerSay("10!");
stopTimer(0); //Stop timer 0
}
if(checkTimer(1)){ //Check if timer 1 is ready to go off
llOwnerSay("5!");
}
}
touch_end(integer x){
restartTimer(1); //Restart timer 1
}
}

/* Output:
5! (Because we told timer 1 to go off right away)
[pause for 5 seconds]
5!
[pause for 5 seconds]
10! (Only happens once because the timer is stopped here)
5!
[pause for 5 seconds]
5!
[pause for 5 seconds]
...
*/

</lsl>

String2Hex

2012-09-30T05:47:47Z

Craftish Resident: Created page with "<lsl> string c_chr=" !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~"; // http://wiki.secondlife.com/wiki/Int2Hex string int2h…"

<lsl>

string c_chr=" !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~";

// http://wiki.secondlife.com/wiki/Int2Hex
string int2hex(integer x){
string toret;
do{
toret=llGetSubString("0123456789ABCDEF",x&0x0000000F,x&0x0000000F)+toret;
}while (x=x>>4&0x0FFFFFFF);
return toret;
}

string str2hex(string str){
string ret="";
integer strlen=llStringLength(str);
integer i=0;
for(;i<strlen;++i){
ret+=int2hex(32+llSubStringIndex(c_chr,llGetSubString(str,i,i)));
}
return ret;
}

string hex2str(string str){
string ret="";
integer strlen=llStringLength(str);
integer i=0;integer index;
for(;i<strlen;i+=2){
index=((integer)("0x"+llGetSubString(str,i,i+1)))-32;
ret+=llGetSubString(c_chr,index,index);
}
return ret;
}

default{
state_entry(){
llOwnerSay(str2hex("test ~"));
llOwnerSay(hex2str("74657374207E"));
}
}
</lsl>