Second Life Wiki - User contributions [en]

Second Life bot software comparison

2013-09-10T00:32:53Z

Madpeter Zond: layout fixs

Second Life bots can perform the various operations (not available by LSL):
* Send direct group invitations (including closed groups)
* Automatically monitor the group chats, kick spammers, perform antispam checks
* Send automatic group notices and IMs
* Act as mannequin or model bot
* Serve as a secretary or support robot by using autoresponder AI or remote chat assistant.
* Be a non-personal character (NPC) in a roleplaying game.

== Classification ==

Every Second Life bot requires a special software running. This software can be run either on user's PC or hosted with Second Life bot hosting provider.

<div style="float: left; width: 49%">
== A. Hosting bot with provider ==

Pros:
* You don't care about PC consuming power around the clock.
* You don't have to choose, probably buy and update the bot software.
* Bot does not depends on your internet connection.

Cons:
* You have to pay a subscription fee (usually weekly)
</div>

<div style="float: right; width: 49%">
== B. Running bot on your own PC ==

Pros:
* You can launch the bot when you need it
* Usually no subscription fee (however, you may need to buy the software)

Cons:
* You have to keep your PC running all the time
* Bot hosting providers usually offer more features than standalone programs
</div>
<div style="clear: both"></div>

== Comparison ==

(Sorted naturally, new records are appended at the end)

{| width=100% border=1 cellspacing=0 cellpadding=4
|- bgcolor="#DDDDDD"
! width=20% |
! width=20% | SmartBots
! width=20% | PikkuBot
! width=20% | Corrade
! width=20% | SecondBot

|-
| colspan=5 | '''Hosting type'''
|-
| bgcolor="#DDDDDD" | Server hosting
| '''yes''' || '''yes''' || '''yes''' || no
|-
| bgcolor="#DDDDDD" | Downloadable program
| no || '''yes''' || '''yes''' || '''yes'''
|-
| bgcolor="#DDDDDD" | Source-Code Available
| no || no || '''yes''' || no

|-
| colspan=5 | '''Purpose'''
|-
| bgcolor="#DDDDDD" | Used as:
| '''Multi-functional Bot''' || '''Multi-functional Bot''' || Group Inviter || '''Multi-functional Bot'''

|-
| colspan=5 | '''Features'''
|-
| bgcolor="#DDDDDD" | Bot controlling approach
| web pages in-world HUD http API || chat commands || instant-messaging || instant-messaging http AI
|-
| bgcolor="#DDDDDD" | Group Inviter <ref>See [[Group inviters comparison]] for more info</ref>
| '''yes''' || '''yes''' || '''yes''' || '''yes'''
|-
| bgcolor="#DDDDDD" | Chat moderator
| '''yes, web interface''' || '''yes, bot commands''' || no || no
|-
| bgcolor="#DDDDDD" | Automatic chat antispam
| '''yes, using free device''' || no || no || no
|-
| bgcolor="#DDDDDD" | Group notices and IMs
| '''yes''' || '''yes''' || no || '''yes'''
|-
| bgcolor="#DDDDDD" | Scheduled notices and IMs
| '''yes, web interface''' || no || no || '''yes groups only'''

|-
| colspan=5 | '''Add-ons'''
|-
| bgcolor="#DDDDDD" | Add-ons for other services
| SHX devices HippoRent Casper (Vend and others) AlikaRent IntelliAd || not announced || developers welcome :-) || StreamAdmin
|-
| bgcolor="#DDDDDD" | Devices and tools
| [https://marketplace.secondlife.com/stores/11457 Available at SL Marketplace] || [http://www.pikkubot.de/dokuwiki/doku.php?id=pikkushop Pikku-Shop] || [http://was.fm/secondlife:scripted_agents:corrade Wizardry and Steamworks - Corrade] || None yet

|-
| colspan=5 | '''Prices'''
|-
| bgcolor="#DDDDDD" | Setup fee
| '''free''' || L$6,000 (premium license) L$6,000 (light license) || '''free (donations)''' || '''free'''
|-
| bgcolor="#DDDDDD" | Bot hosting subscription
| L$479/week - fully-functional bot L$179/week - model bot || L$504/week || '''free (donations)''' || '''Not supported yet'''

|-
| colspan=5 | '''Programming'''
|-
| bgcolor="#DDDDDD" | LSL API<ref>The LSL library which allows to utilize bot's functionality from your LSL scripts</ref>
| '''[http://www.smartbots2life.com/docs/AdminBot AdminBot LSL Library]''': invite to group group chat talk group chat listen eject group members || no || invite to group || '''[http://secondbot.net/index.php?module=docs Full command control via scripts]'''
|-
| bgcolor="#DDDDDD" | Bot chat API
| no || '''yes''' || no || '''yes'''
|-
| bgcolor="#DDDDDD" | HTTP API
| '''yes''' || no || no || '''yes'''
|-
| bgcolor="#DDDDDD" | Other languages
| [http://www.smartbots2life.com/docs/SBSL Simple Bot Scripting Language] || no || no || no

|-
| colspan=5 | '''Links'''
|-
| bgcolor="#DDDDDD" | URL
| [http://www.smartbots2life.com/ SmartBots: Second Life bot hosting] || [http://www.pikkubots.de/ PikkuBots website] || [http://was.fm/secondlife:scripted_agents:corrade Wizardry and Steamworks - Corrade] || [http://secondbot.net/ SecondBot website]
|-
| bgcolor="#DDDDDD" | SLURL
| [http://slurl.com/secondlife/DuoLife/200/99/32] || [http://slurl.com/secondlife/San/198/140/58] || --- || ---
|-
| bgcolor="#DDDDDD" | Other
| SmartBost is a publicly trading company, listed as [http://slcapex.com/symbol/BOTS BOTS] at SLCAPEX || --- || The source-code is released under the GNU GPLv3 license. For hosting, please contact [[Kira Komarov]] in-world. Free hosting may be available (within reason and at the mercy of resources). || ---
|}
<references/>

== See also ==
For more info on bots, visit the following pages:
* [[Group inviters comparison]] - the comparison table of the group inviter services
* [http://www.smartbots2life.com/docs/SmartBots_Documentation SmartBots services] - the general information about Second life bots and related services: group inviter, chat managing and group notices

[[Category: SL Bots]]

Second Life bot software comparison

2013-09-10T00:30:24Z

Madpeter Zond: added secondbot to the list of bot software

Second Life bots can perform the various operations (not available by LSL):
* Send direct group invitations (including closed groups)
* Automatically monitor the group chats, kick spammers, perform antispam checks
* Send automatic group notices and IMs
* Act as mannequin or model bot
* Serve as a secretary or support robot by using autoresponder AI or remote chat assistant.
* Be a non-personal character (NPC) in a roleplaying game.

== Classification ==

Every Second Life bot requires a special software running. This software can be run either on user's PC or hosted with Second Life bot hosting provider.

<div style="float: left; width: 49%">
== A. Hosting bot with provider ==

Pros:
* You don't care about PC consuming power around the clock.
* You don't have to choose, probably buy and update the bot software.
* Bot does not depends on your internet connection.

Cons:
* You have to pay a subscription fee (usually weekly)
</div>

<div style="float: right; width: 49%">
== B. Running bot on your own PC ==

Pros:
* You can launch the bot when you need it
* Usually no subscription fee (however, you may need to buy the software)

Cons:
* You have to keep your PC running all the time
* Bot hosting providers usually offer more features than standalone programs
</div>
<div style="clear: both"></div>

== Comparison ==

(Sorted naturally, new records are appended at the end)

{| width=100% border=1 cellspacing=0 cellpadding=4
|- bgcolor="#DDDDDD"
! width=25% |
! width=25% | SmartBots
! width=25% | PikkuBot
! width=25% | Corrade
! width=25% | SecondBot

|-
| colspan=4 | '''Hosting type'''
|-
| bgcolor="#DDDDDD" | Server hosting
| '''yes''' || '''yes''' || '''yes''' || no
|-
| bgcolor="#DDDDDD" | Downloadable program
| no || '''yes''' || '''yes''' || '''yes'''
|-
| bgcolor="#DDDDDD" | Source-Code Available
| no || no || '''yes''' || no

|-
| colspan=4 | '''Purpose'''
|-
| bgcolor="#DDDDDD" | Used as:
| '''Multi-functional Bot''' || '''Multi-functional Bot''' || Group Inviter || '''Multi-functional Bot'''

|-
| colspan=4 | '''Features'''
|-
| bgcolor="#DDDDDD" | Bot controlling approach
| web pages in-world HUD http API || chat commands || instant-messaging || instant-messaging http AI
|-
| bgcolor="#DDDDDD" | Group Inviter <ref>See [[Group inviters comparison]] for more info</ref>
| '''yes''' || '''yes''' || '''yes''' || '''yes'''
|-
| bgcolor="#DDDDDD" | Chat moderator
| '''yes, web interface''' || '''yes, bot commands''' || no || no
|-
| bgcolor="#DDDDDD" | Automatic chat antispam
| '''yes, using free device''' || no || no || no
|-
| bgcolor="#DDDDDD" | Group notices and IMs
| '''yes''' || '''yes''' || no || '''yes'''
|-
| bgcolor="#DDDDDD" | Scheduled notices and IMs
| '''yes, web interface''' || no || no || '''yes groups only'''

|-
| colspan=4 | '''Add-ons'''
|-
| bgcolor="#DDDDDD" | Add-ons for other services
| SHX devices HippoRent Casper (Vend and others) AlikaRent IntelliAd || not announced || developers welcome :-) || StreamAdmin
|-
| bgcolor="#DDDDDD" | Devices and tools
| [https://marketplace.secondlife.com/stores/11457 Available at SL Marketplace] || [http://www.pikkubot.de/dokuwiki/doku.php?id=pikkushop Pikku-Shop] || [http://was.fm/secondlife:scripted_agents:corrade Wizardry and Steamworks - Corrade] || None yet

|-
| colspan=4 | '''Prices'''
|-
| bgcolor="#DDDDDD" | Setup fee
| '''free''' || L$6,000 (premium license) L$6,000 (light license) || '''free (donations)''' || '''free'''
|-
| bgcolor="#DDDDDD" | Bot hosting subscription
| L$479/week - fully-functional bot L$179/week - model bot || L$504/week || '''free (donations)''' || '''Not supported yet'''

|-
| colspan=4 | '''Programming'''
|-
| bgcolor="#DDDDDD" | LSL API<ref>The LSL library which allows to utilize bot's functionality from your LSL scripts</ref>
| '''[http://www.smartbots2life.com/docs/AdminBot AdminBot LSL Library]''': invite to group group chat talk group chat listen eject group members || no || invite to group || '''[http://secondbot.net/index.php?module=docs Full command control via scripts]'''
|-
| bgcolor="#DDDDDD" | Bot chat API
| no || '''yes''' || no || '''yes'''
|-
| bgcolor="#DDDDDD" | HTTP API
| '''yes''' || no || no || '''yes'''
|-
| bgcolor="#DDDDDD" | Other languages
| [http://www.smartbots2life.com/docs/SBSL Simple Bot Scripting Language] || no || no || no

|-
| colspan=4 | '''Links'''
|-
| bgcolor="#DDDDDD" | URL
| [http://www.smartbots2life.com/ SmartBots: Second Life bot hosting] || [http://www.pikkubots.de/ PikkuBots website] || [http://was.fm/secondlife:scripted_agents:corrade Wizardry and Steamworks - Corrade] || [http://secondbot.net/ SecondBot website]
|-
| bgcolor="#DDDDDD" | SLURL
| [http://slurl.com/secondlife/DuoLife/200/99/32] || [http://slurl.com/secondlife/San/198/140/58] || --- || ---
|-
| bgcolor="#DDDDDD" | Other
| SmartBost is a publicly trading company, listed as [http://slcapex.com/symbol/BOTS BOTS] at SLCAPEX || --- || The source-code is released under the GNU GPLv3 license. For hosting, please contact [[Kira Komarov]] in-world. Free hosting may be available (within reason and at the mercy of resources). || ---
|}
<references/>

== See also ==
For more info on bots, visit the following pages:
* [[Group inviters comparison]] - the comparison table of the group inviter services
* [http://www.smartbots2life.com/docs/SmartBots_Documentation SmartBots services] - the general information about Second life bots and related services: group inviter, chat managing and group notices

[[Category: SL Bots]]

LlRemoteLoadScriptPin

2013-08-29T17:06:05Z

Madpeter Zond: adjusted the title of the new script example a bit

{{LSL_Function
|inject-2={{LSL_Function/give|target|name|sim=*|uuid=false|type=script|prim=*}}{{Issues/SVC-3321}}
|func_id=253|func_sleep=3.0|func_energy=10.0
|func=llRemoteLoadScriptPin
|func_desc=Copy script {{LSLP|name}} into {{LSLP|target}} and set to {{LSLP|running}} with a {{LSLP|start_param}} only if {{LSLP|target}}'s [[llSetRemoteScriptAccessPin|pin]] matches {{LSLP|pin}}
|p1_type=key|p1_name=target|p1_desc
|p2_type=string|p2_name=name|p2_desc
|p3_type=integer|p3_name=pin|p3_desc=Must match pin set by [[llSetRemoteScriptAccessPin]]
|p4_type=integer|p4_name=running|p4_desc=boolean, if the script is to be set as running.
|p5_type=integer|p5_name=start_param|p5_desc=value returned by [[llGetStartParameter]] in the target script.
|func_footnote=Only works if the [[LSL Glossary#script owner|script owner]] can modify {{LSLP|target}}.
|return_text
|spec
|caveats=
* If {{LSLP|name}} is present in the {{LSLP|target}} prim's inventory then it is silently replaced.
* {{LSLP|start_param}} only lasts until the script is reset.
* Only the owner of an {{LSLGC|Attachment|attachment}} can modify it while it is being worn.
** If {{LSLP|target}} is an {{LSLGC|Attachment|attachment}} owned by a different user, regardless of object modify rights granted, this function will silently fail.
* If {{LSLP|pin}} fails to match, the error "Task ~Prim~ trying to illegally load script onto task ~Other_Prim~!" is shouted on [[DEBUG_CHANNEL]]. "~Prim~" and "~Other_Prim~" are substituted with the applicable prim names.
* If {{LSLP|target}} is the script's parent (<code>{{LSLPT|target}} == [[llGetKey]]()</code>) then "Unable to add item!" is shouted on [[DEBUG_CHANNEL]].
* If the object containing this script is deeded to a group, than script {{LSLP|name}} needs transfer permissions; even if {{LSLP|target}} is deeded to the same group.
* When the script is set to run (with {{LSLP|running}}, the running checkbox or [[llSetScriptState]]) [[state_entry]] will be queued.
|constants
|examples=
====Script copier====
<lsl>//Copy a script to the second prim
integer PIN=1341134;

default {
state_entry() {
llRemoteLoadScriptPin( llGetLinkKey(2), "some script", PIN, TRUE, 0xBEEEEEEF );
}
}</lsl>
====Pin setter====
Simple script used for setting the pin for a prim, so you can later send scripts to it with llRemoteLoadScriptPin.
<lsl>//Child Prim PIN setter
integer PIN=1341134;

default {
state_entry() {
llOwnerSay(llGetObjectName()+" : "+(string)llGetKey()+" is ready to accept a describer script using the agreed upon PIN.");
llSetRemoteScriptAccessPin(PIN);
}
}</lsl>

==== Rez and copy a file from a control object ====
Notes: There is currently no signing on the starting messages only the owner is checked.

this example rezs a prim from inventory that has a basic control file inside of it and does a basic handshake to setup the
pin and transfer the script.

after the transfert the helper script in the rezzed prim deletes itself.

==== Control prim ====
<lsl>
integer controlchan = 0;
integer controlid = -1;
start()
{
llSetTimerEvent(0);
talkingto = NULL_KEY;
integer a = (integer)llFrand(43);
controlchan = a * a;
controlchan -= controlchan * 3;
controlid = llListen(controlchan,"","","set-connect");
llRezObject("card",llGetPos()+<0,0,0.1>,<0,0,0>,ZERO_ROTATION,a);
llSetTimerEvent(60);
}
key talkingto = NULL_KEY;
integer busy = FALSE;
integer accesspin = 0;
default
{
timer()
{
llSetTimerEvent(0);
llOwnerSay("Lost connection!");
llListenRemove(controlid);
busy = FALSE;
}
listen(integer chan,string name,key id,string message)
{
if(chan == controlchan)
{
if(llGetOwnerKey(id) == llGetOwner())
{
if(talkingto == NULL_KEY)
{
if(message == "set-connect")
{
llSetTimerEvent(0);
talkingto = id;
llListenRemove(controlid);
controlid = llListen(controlchan,"",talkingto,"ready");
llRegionSayTo(id,controlchan,"auto-connect");
llSetTimerEvent(60);
}
}
else if(id == talkingto)
{
if(message == "ready")
{
llSetTimerEvent(0);
accesspin = (integer)llFrand(2345)+213;
llListenRemove(controlid);
controlid = llListen(controlchan,"",talkingto,"pinset");
llSleep(1);
llRegionSayTo(talkingto,controlchan,(string)accesspin);
llSetTimerEvent(60);
}
else if(message == "pinset")
{
llSetTimerEvent(0);
llListenRemove(controlid);
llRemoteLoadScriptPin(talkingto,"demo.lsl",accesspin,1,0);
llSleep(3);
llRegionSayTo(talkingto,controlchan,"finished");
llOwnerSay("Transfer of file finished - control file should have auto deleted itself!");
busy = FALSE;
}
}
}
}
}
touch_end(integer a)
{
if(busy == FALSE)
{
busy = TRUE;
if(llGetOwner() == llDetectedKey(0))
{
start();
}
}
}
}
</lsl>

==== rezzed prim ====
<lsl>
integer listen_id = -1;
integer listen_chan = -1;
key details_from = NULL_KEY;
default
{
on_rez(integer a)
{
if(a == 0)
{
llOwnerSay("- Direct rez -");
}
else
{
llOwnerSay("- Awaiting config connection -");
listen_chan = a * a;
listen_chan -= listen_chan * 3;
listen_id = llListen(listen_chan,"","","auto-connect");
llWhisper(listen_chan,"set-connect");
llSetTimerEvent(30);
}
}
timer()
{
llOwnerSay("Failed to connect to rezzer deleting myself!");
llSetTimerEvent(0);
llDie();
}
listen(integer chan,string name,key id,string message)
{
if(llGetOwnerKey(id) == llGetOwner())
{
if(message == "auto-connect")
{
llSetTimerEvent(0);
llListenRemove(listen_id);
listen_id = llListen(listen_chan,"",id,"");
llRegionSayTo(id,listen_chan,"ready");
details_from = id;
llSetTimerEvent(30);
}
else if(details_from != NULL_KEY)
{
llSetTimerEvent(0);
if(message == "finished")
{
llSetRemoteScriptAccessPin((integer)message);
llRemoveInventory(llGetScriptName());
}
else
{
llSetRemoteScriptAccessPin((integer)message);
llRegionSayTo(id,listen_chan,"pinset");
}
llSetTimerEvent(30);
}
}
}
}
</lsl>

|helpers
|also_functions={{LSL DefineRow||[[llSetRemoteScriptAccessPin]]|Used to setup a prim for remote loading}}
{{LSL DefineRow||[[llSetScriptState]]|Set a scripts running state}}
{{LSL DefineRow||[[llResetOtherScript]]|Reset another script in the prim}}
|also_tests
|also_events
|also_articles
|history=
* Added in 1.2.6
* In SL 1.25.4 this function will not copy/move any script into an attachment unless the script is full perm. ([https://jira.secondlife.com/browse/SVC-3725 SVC-3725])
* SL 1.25.5 will allow this function to copy/move a script into an attachment so long as the target has matching (or more restrictive) copy and transfer permissions. ([https://jira.secondlife.com/browse/SVC-3738 SVC-3738])
|notes
|cat1=Script
|cat2=Inventory
|cat3
|cat4
}}

LlRemoteLoadScriptPin

2013-08-29T17:05:10Z

Madpeter Zond: added a example of rezzing a object and setting up a script transfer

{{LSL_Function
|inject-2={{LSL_Function/give|target|name|sim=*|uuid=false|type=script|prim=*}}{{Issues/SVC-3321}}
|func_id=253|func_sleep=3.0|func_energy=10.0
|func=llRemoteLoadScriptPin
|func_desc=Copy script {{LSLP|name}} into {{LSLP|target}} and set to {{LSLP|running}} with a {{LSLP|start_param}} only if {{LSLP|target}}'s [[llSetRemoteScriptAccessPin|pin]] matches {{LSLP|pin}}
|p1_type=key|p1_name=target|p1_desc
|p2_type=string|p2_name=name|p2_desc
|p3_type=integer|p3_name=pin|p3_desc=Must match pin set by [[llSetRemoteScriptAccessPin]]
|p4_type=integer|p4_name=running|p4_desc=boolean, if the script is to be set as running.
|p5_type=integer|p5_name=start_param|p5_desc=value returned by [[llGetStartParameter]] in the target script.
|func_footnote=Only works if the [[LSL Glossary#script owner|script owner]] can modify {{LSLP|target}}.
|return_text
|spec
|caveats=
* If {{LSLP|name}} is present in the {{LSLP|target}} prim's inventory then it is silently replaced.
* {{LSLP|start_param}} only lasts until the script is reset.
* Only the owner of an {{LSLGC|Attachment|attachment}} can modify it while it is being worn.
** If {{LSLP|target}} is an {{LSLGC|Attachment|attachment}} owned by a different user, regardless of object modify rights granted, this function will silently fail.
* If {{LSLP|pin}} fails to match, the error "Task ~Prim~ trying to illegally load script onto task ~Other_Prim~!" is shouted on [[DEBUG_CHANNEL]]. "~Prim~" and "~Other_Prim~" are substituted with the applicable prim names.
* If {{LSLP|target}} is the script's parent (<code>{{LSLPT|target}} == [[llGetKey]]()</code>) then "Unable to add item!" is shouted on [[DEBUG_CHANNEL]].
* If the object containing this script is deeded to a group, than script {{LSLP|name}} needs transfer permissions; even if {{LSLP|target}} is deeded to the same group.
* When the script is set to run (with {{LSLP|running}}, the running checkbox or [[llSetScriptState]]) [[state_entry]] will be queued.
|constants
|examples=
====Script copier====
<lsl>//Copy a script to the second prim
integer PIN=1341134;

default {
state_entry() {
llRemoteLoadScriptPin( llGetLinkKey(2), "some script", PIN, TRUE, 0xBEEEEEEF );
}
}</lsl>
====Pin setter====
Simple script used for setting the pin for a prim, so you can later send scripts to it with llRemoteLoadScriptPin.
<lsl>//Child Prim PIN setter
integer PIN=1341134;

default {
state_entry() {
llOwnerSay(llGetObjectName()+" : "+(string)llGetKey()+" is ready to accept a describer script using the agreed upon PIN.");
llSetRemoteScriptAccessPin(PIN);
}
}</lsl>

---- Rez and copy a file from a control object ----
Notes: There is currently no signing on the starting messages only the owner is checked.

this example rezs a prim from inventory that has a basic control file inside of it and does a basic handshake to setup the
pin and transfer the script.

after the transfert the helper script in the rezzed prim deletes itself.

==== Control prim ====
<lsl>
integer controlchan = 0;
integer controlid = -1;
start()
{
llSetTimerEvent(0);
talkingto = NULL_KEY;
integer a = (integer)llFrand(43);
controlchan = a * a;
controlchan -= controlchan * 3;
controlid = llListen(controlchan,"","","set-connect");
llRezObject("card",llGetPos()+<0,0,0.1>,<0,0,0>,ZERO_ROTATION,a);
llSetTimerEvent(60);
}
key talkingto = NULL_KEY;
integer busy = FALSE;
integer accesspin = 0;
default
{
timer()
{
llSetTimerEvent(0);
llOwnerSay("Lost connection!");
llListenRemove(controlid);
busy = FALSE;
}
listen(integer chan,string name,key id,string message)
{
if(chan == controlchan)
{
if(llGetOwnerKey(id) == llGetOwner())
{
if(talkingto == NULL_KEY)
{
if(message == "set-connect")
{
llSetTimerEvent(0);
talkingto = id;
llListenRemove(controlid);
controlid = llListen(controlchan,"",talkingto,"ready");
llRegionSayTo(id,controlchan,"auto-connect");
llSetTimerEvent(60);
}
}
else if(id == talkingto)
{
if(message == "ready")
{
llSetTimerEvent(0);
accesspin = (integer)llFrand(2345)+213;
llListenRemove(controlid);
controlid = llListen(controlchan,"",talkingto,"pinset");
llSleep(1);
llRegionSayTo(talkingto,controlchan,(string)accesspin);
llSetTimerEvent(60);
}
else if(message == "pinset")
{
llSetTimerEvent(0);
llListenRemove(controlid);
llRemoteLoadScriptPin(talkingto,"demo.lsl",accesspin,1,0);
llSleep(3);
llRegionSayTo(talkingto,controlchan,"finished");
llOwnerSay("Transfer of file finished - control file should have auto deleted itself!");
busy = FALSE;
}
}
}
}
}
touch_end(integer a)
{
if(busy == FALSE)
{
busy = TRUE;
if(llGetOwner() == llDetectedKey(0))
{
start();
}
}
}
}
</lsl>

==== rezzed prim ====
<lsl>
integer listen_id = -1;
integer listen_chan = -1;
key details_from = NULL_KEY;
default
{
on_rez(integer a)
{
if(a == 0)
{
llOwnerSay("- Direct rez -");
}
else
{
llOwnerSay("- Awaiting config connection -");
listen_chan = a * a;
listen_chan -= listen_chan * 3;
listen_id = llListen(listen_chan,"","","auto-connect");
llWhisper(listen_chan,"set-connect");
llSetTimerEvent(30);
}
}
timer()
{
llOwnerSay("Failed to connect to rezzer deleting myself!");
llSetTimerEvent(0);
llDie();
}
listen(integer chan,string name,key id,string message)
{
if(llGetOwnerKey(id) == llGetOwner())
{
if(message == "auto-connect")
{
llSetTimerEvent(0);
llListenRemove(listen_id);
listen_id = llListen(listen_chan,"",id,"");
llRegionSayTo(id,listen_chan,"ready");
details_from = id;
llSetTimerEvent(30);
}
else if(details_from != NULL_KEY)
{
llSetTimerEvent(0);
if(message == "finished")
{
llSetRemoteScriptAccessPin((integer)message);
llRemoveInventory(llGetScriptName());
}
else
{
llSetRemoteScriptAccessPin((integer)message);
llRegionSayTo(id,listen_chan,"pinset");
}
llSetTimerEvent(30);
}
}
}
}
</lsl>

|helpers
|also_functions={{LSL DefineRow||[[llSetRemoteScriptAccessPin]]|Used to setup a prim for remote loading}}
{{LSL DefineRow||[[llSetScriptState]]|Set a scripts running state}}
{{LSL DefineRow||[[llResetOtherScript]]|Reset another script in the prim}}
|also_tests
|also_events
|also_articles
|history=
* Added in 1.2.6
* In SL 1.25.4 this function will not copy/move any script into an attachment unless the script is full perm. ([https://jira.secondlife.com/browse/SVC-3725 SVC-3725])
* SL 1.25.5 will allow this function to copy/move a script into an attachment so long as the target has matching (or more restrictive) copy and transfer permissions. ([https://jira.secondlife.com/browse/SVC-3738 SVC-3738])
|notes
|cat1=Script
|cat2=Inventory
|cat3
|cat4
}}

NumPad

2013-01-18T01:29:34Z

Madpeter Zond: /* Main Script */ fixed right side empty not updating lol

{{LSL Header}}
{{RightToc}}

Scripting tools to allow display of text on a prim: [[XyText 1.5]] , [[XyzzyText]], [[XyyyyzText]], [[XyText-UTF8]], [[XyzzyText-UTF8]], [[ZZText]], [[VariText]]

'''NumPad''' is a variant of the text on a prim but with some changes

* 1 texture vs 5 textures needed for XyText 1.5 'to render numbers'
* Numbers and spaces only.
* About 73 lines of code.

=Copyright & Licensing=

* Madpeter Zond hereby releases his contributions to this under the MIT license. [Starting texture and Starting code]



=NumPad 10digits=

Quickstart:
<pre>
* Take a copy of the 10 char prim setup from [[XyText 1.5]] and setup a prim
* After running the code create a new script and copy the NumPad code to it.
</pre>

Usage:
<pre>
* Set render_to_prim_number to the number of the prim you wish to render to,
* if you dont know the number you can put the script inside of the prim you want
* and not change this.
</pre>

==Main Script==
<lsl>
/*
NumPad
----------------
Version: 1.0
By: Madpeter Zond
About: A 1 texture 10 digit number display
great for a score output.
*/
string texture = "31f72af5-dee3-72f5-3981-bde21bf85e9c";
integer render_to_prim_number = LINK_THIS;
vector render_color = <1,1,1>;
float glow_amount = 0.00;

// please dont change this unless you want to break something ^_^
list faces = [3,7,4,6,1];
list grid_offset_starts = [<-0.38941,-0.54747,0> ,<-0.44939,-0.54750,0>, <0.01800,0.45256,0>,<-0.44939,-0.54750,0>,<-0.50941,-0.54747,0>];
list repeats_corrections = [<0.1,0,0>,<0,0,0>,<-1.35,0,0>,<0,0,0>,<0.1,0,0>];
vector repeats_config = <0.1,0.083333,0>;
float fix(float input) // render blocking fix [haxy]
{
if(input > 1.0) input -= 1.0;
else if(input < -1.0) input += 1.0;
return input;
}
render(string output)
{
while(llStringLength(output) <= 10) { output = ""+output+" "; }
list renderrules = [];
integer loop = 0;
while(loop < 5)
{
string part = llGetSubString(output,(2*loop),(2*loop)+1);
if(part == " ")
{
// empty
renderrules = renderrules + [PRIM_COLOR,llList2Integer(faces,loop),<1,1,1>,0,PRIM_GLOW,llList2Integer(faces,loop),0];
}
else
{
integer Y_offset = (integer)llGetSubString(part,0,0);
integer X_offset = (integer)llGetSubString(part,1,1);
if(llGetSubString(part,0,0) == " ") Y_offset = 10; // left side empty
else if(llGetSubString(part,1,1) == " ")
{
Y_offset = 11; // right side empty
X_offset = (integer)llGetSubString(part,0,0);
}
vector start = llList2Vector(grid_offset_starts,loop);
start = <fix(start.x + (0.1 * X_offset)),fix(start.y + (-0.083333333 * Y_offset)),0>;
renderrules = renderrules + [PRIM_TEXTURE,llList2Integer(faces,loop),texture,repeats_config+llList2Vector(repeats_corrections,loop),start,0,PRIM_COLOR,llList2Integer(faces,loop),render_color,1,PRIM_GLOW,llList2Integer(faces,loop),glow_amount];
}
loop++;
}
llSetLinkPrimitiveParamsFast(render_to_prim_number,renderrules);
}
default
{
state_entry()
{
render("1234567890");
}
}
</lsl>

==Texture layout==
 the texture is setup in a 10x12 format as follows.
<pre>
00 01 02 03 04 05 06 07 08 09
10 11 12 13 14 15 16 17 18 19
20 21 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38 39
40 41 42 43 44 45 46 47 48 49
50 51 52 53 54 55 56 57 58 59
60 61 62 63 64 65 66 67 68 69
70 71 72 73 74 75 76 77 78 79
80 81 82 83 84 85 86 87 88 89
90 91 92 93 94 95 96 97 98 99
_0 _1 _2 _3 _4 _5 _6 _7 _8 _9
0_ 1_ 2_ 3_ 4_ 5_ 6_ 7_ 8_ 9_
</pre>

==Improvements==

there are some improvements that could be made 
 
1: Change the texture format to 11x11 to improve the quality of the numbers. 
2: Change the while loop to a for loop if that saves memory. 
3: Change the way it builds rules if a way is found that saves script memory.

NumPad

2013-01-17T13:03:21Z

Madpeter Zond: /* Main Script */ the left and right empty sides empty had a off by 1 error ^_^

{{LSL Header}}
{{RightToc}}

Scripting tools to allow display of text on a prim: [[XyText 1.5]] , [[XyzzyText]], [[XyyyyzText]], [[XyText-UTF8]], [[XyzzyText-UTF8]], [[ZZText]], [[VariText]]

'''NumPad''' is a variant of the text on a prim but with some changes

* 1 texture vs 5 textures needed for XyText 1.5 'to render numbers'
* Numbers and spaces only.
* About 73 lines of code.

=Copyright & Licensing=

* Madpeter Zond hereby releases his contributions to this under the MIT license. [Starting texture and Starting code]



=NumPad 10digits=

Quickstart:
<pre>
* Take a copy of the 10 char prim setup from [[XyText 1.5]] and setup a prim
* After running the code create a new script and copy the NumPad code to it.
</pre>

Usage:
<pre>
* Set render_to_prim_number to the number of the prim you wish to render to,
* if you dont know the number you can put the script inside of the prim you want
* and not change this.
</pre>

==Main Script==
<lsl>
/*
NumPad
----------------
Version: 1.0
By: Madpeter Zond
About: A 1 texture 10 digit number display
great for a score output.
*/
string texture = "31f72af5-dee3-72f5-3981-bde21bf85e9c";
integer render_to_prim_number = LINK_THIS;
vector render_color = <1,1,1>;
float glow_amount = 0.00;

// please dont change this unless you want to break something ^_^
list faces = [3,7,4,6,1];
list grid_offset_starts = [<-0.38941,-0.54747,0> ,<-0.44939,-0.54750,0>, <0.01800,0.45256,0>,<-0.44939,-0.54750,0>,<-0.50941,-0.54747,0>];
list repeats_corrections = [<0.1,0,0>,<0,0,0>,<-1.35,0,0>,<0,0,0>,<0.1,0,0>];
vector repeats_config = <0.1,0.083333,0>;
float fix(float input) // render blocking fix [haxy]
{
if(input > 1.0) input -= 1.0;
else if(input < -1.0) input += 1.0;
return input;
}
render(string output)
{
while(llStringLength(output) < 10) { output = ""+output+" "; }
list renderrules = [];
integer loop = 0;
while(loop < 5)
{
string part = llGetSubString(output,(2*loop),(2*loop)+1);
if(part == " ")
{
// empty
renderrules = renderrules + [PRIM_COLOR,llList2Integer(faces,loop),<1,1,1>,0,PRIM_GLOW,llList2Integer(faces,loop),0];
}
else
{
integer Y_offset = (integer)llGetSubString(part,0,0);
integer X_offset = (integer)llGetSubString(part,1,1);
if(llGetSubString(part,0,0) == " ") Y_offset = 10; // left side empty
else if(llGetSubString(part,1,1) == " ") Y_offset = 11; // right side empty
vector start = llList2Vector(grid_offset_starts,loop);
start = <fix(start.x + (0.1 * X_offset)),fix(start.y + (-0.083333333 * Y_offset)),0>;
renderrules = renderrules + [PRIM_TEXTURE,llList2Integer(faces,loop),texture,repeats_config+llList2Vector(repeats_corrections,loop),start,0,PRIM_COLOR,llList2Integer(faces,loop),render_color,1,PRIM_GLOW,llList2Integer(faces,loop),glow_amount];
}
loop++;
}
llSetLinkPrimitiveParamsFast(render_to_prim_number,renderrules);

}
default
{
state_entry()
{
render("1234567890");
}
}
</lsl>

==Texture layout==
 the texture is setup in a 10x12 format as follows.
<pre>
00 01 02 03 04 05 06 07 08 09
10 11 12 13 14 15 16 17 18 19
20 21 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38 39
40 41 42 43 44 45 46 47 48 49
50 51 52 53 54 55 56 57 58 59
60 61 62 63 64 65 66 67 68 69
70 71 72 73 74 75 76 77 78 79
80 81 82 83 84 85 86 87 88 89
90 91 92 93 94 95 96 97 98 99
_0 _1 _2 _3 _4 _5 _6 _7 _8 _9
0_ 1_ 2_ 3_ 4_ 5_ 6_ 7_ 8_ 9_
</pre>

==Improvements==

there are some improvements that could be made 
 
1: Change the texture format to 11x11 to improve the quality of the numbers. 
2: Change the while loop to a for loop if that saves memory. 
3: Change the way it builds rules if a way is found that saves script memory.

NumPad

2013-01-17T03:00:49Z

Madpeter Zond: added Improvement ideas

{{LSL Header}}
{{RightToc}}

Scripting tools to allow display of text on a prim: [[XyText 1.5]] , [[XyzzyText]], [[XyyyyzText]], [[XyText-UTF8]], [[XyzzyText-UTF8]], [[ZZText]], [[VariText]]

'''NumPad''' is a variant of the text on a prim but with some changes

* 1 texture vs 5 textures needed for XyText 1.5 'to render numbers'
* Numbers and spaces only.
* About 73 lines of code.

=Copyright & Licensing=

* Madpeter Zond hereby releases his contributions to this under the MIT license. [Starting texture and Starting code]



=NumPad 10digits=

Quickstart:
<pre>
* Take a copy of the 10 char prim setup from [[XyText 1.5]] and setup a prim
* After running the code create a new script and copy the NumPad code to it.
</pre>

Usage:
<pre>
* Set render_to_prim_number to the number of the prim you wish to render to,
* if you dont know the number you can put the script inside of the prim you want
* and not change this.
</pre>

==Main Script==
<lsl>
/*
NumPad
----------------
Version: 1.0
By: Madpeter Zond
About: A 1 texture 10 digit number display
great for a score output.
*/
string texture = "31f72af5-dee3-72f5-3981-bde21bf85e9c";
integer render_to_prim_number = LINK_THIS;
vector render_color = <1,1,1>;
float glow_amount = 0.00;

// please dont change this unless you want to break something ^_^
list faces = [3,7,4,6,1];
list grid_offset_starts = [<-0.38941,-0.54747,0> ,<-0.44939,-0.54750,0>, <0.01800,0.45256,0>,<-0.44939,-0.54750,0>,<-0.50941,-0.54747,0>];
list repeats_corrections = [<0.1,0,0>,<0,0,0>,<-1.35,0,0>,<0,0,0>,<0.1,0,0>];
vector repeats_config = <0.1,0.083333,0>;
float fix(float input) // render blocking fix [haxy]
{
if(input > 1.0) input -= 1.0;
else if(input < -1.0) input += 1.0;
return input;
}
render(string output)
{
while(llStringLength(output) < 10) { output = ""+output+" "; }
list renderrules = [];
integer loop = 0;
while(loop < 5)
{
string part = llGetSubString(output,(2*loop),(2*loop)+1);
if(part == " ")
{
// empty
renderrules = renderrules + [PRIM_COLOR,llList2Integer(faces,loop),<1,1,1>,0,PRIM_GLOW,llList2Integer(faces,loop),0];
}
else
{
integer Y_offset = (integer)llGetSubString(part,0,0);
integer X_offset = (integer)llGetSubString(part,1,1);
if(llGetSubString(part,0,0) == " ") Y_offset = 11; // left side empty
else if(llGetSubString(part,1,1) == " ") Y_offset = 12; // right side empty
vector start = llList2Vector(grid_offset_starts,loop);
start = <fix(start.x + (0.1 * X_offset)),fix(start.y + (-0.083333333 * Y_offset)),0>;
renderrules = renderrules + [PRIM_TEXTURE,llList2Integer(faces,loop),texture,repeats_config+llList2Vector(repeats_corrections,loop),start,0,PRIM_COLOR,llList2Integer(faces,loop),render_color,1,PRIM_GLOW,llList2Integer(faces,loop),glow_amount];
}
loop++;
}
llSetLinkPrimitiveParamsFast(render_to_prim_number,renderrules);

}
default
{
state_entry()
{
render("1234567890");
}
}
</lsl>

==Texture layout==
 the texture is setup in a 10x12 format as follows.
<pre>
00 01 02 03 04 05 06 07 08 09
10 11 12 13 14 15 16 17 18 19
20 21 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38 39
40 41 42 43 44 45 46 47 48 49
50 51 52 53 54 55 56 57 58 59
60 61 62 63 64 65 66 67 68 69
70 71 72 73 74 75 76 77 78 79
80 81 82 83 84 85 86 87 88 89
90 91 92 93 94 95 96 97 98 99
_0 _1 _2 _3 _4 _5 _6 _7 _8 _9
0_ 1_ 2_ 3_ 4_ 5_ 6_ 7_ 8_ 9_
</pre>

==Improvements==

there are some improvements that could be made 
 
1: Change the texture format to 11x11 to improve the quality of the numbers. 
2: Change the while loop to a for loop if that saves memory. 
3: Change the way it builds rules if a way is found that saves script memory.

NumPad

2013-01-17T02:57:31Z

Madpeter Zond: added Texture layout info

{{LSL Header}}
{{RightToc}}

Scripting tools to allow display of text on a prim: [[XyText 1.5]] , [[XyzzyText]], [[XyyyyzText]], [[XyText-UTF8]], [[XyzzyText-UTF8]], [[ZZText]], [[VariText]]

'''NumPad''' is a variant of the text on a prim but with some changes

* 1 texture vs 5 textures needed for XyText 1.5 'to render numbers'
* Numbers and spaces only.
* About 73 lines of code.

=Copyright & Licensing=

* Madpeter Zond hereby releases his contributions to this under the MIT license. [Starting texture and Starting code]



=NumPad 10digits=

Quickstart:
<pre>
* Take a copy of the 10 char prim setup from [[XyText 1.5]] and setup a prim
* After running the code create a new script and copy the NumPad code to it.
</pre>

Usage:
<pre>
* Set render_to_prim_number to the number of the prim you wish to render to,
* if you dont know the number you can put the script inside of the prim you want
* and not change this.
</pre>

==Main Script==
<lsl>
/*
NumPad
----------------
Version: 1.0
By: Madpeter Zond
About: A 1 texture 10 digit number display
great for a score output.
*/
string texture = "31f72af5-dee3-72f5-3981-bde21bf85e9c";
integer render_to_prim_number = LINK_THIS;
vector render_color = <1,1,1>;
float glow_amount = 0.00;

// please dont change this unless you want to break something ^_^
list faces = [3,7,4,6,1];
list grid_offset_starts = [<-0.38941,-0.54747,0> ,<-0.44939,-0.54750,0>, <0.01800,0.45256,0>,<-0.44939,-0.54750,0>,<-0.50941,-0.54747,0>];
list repeats_corrections = [<0.1,0,0>,<0,0,0>,<-1.35,0,0>,<0,0,0>,<0.1,0,0>];
vector repeats_config = <0.1,0.083333,0>;
float fix(float input) // render blocking fix [haxy]
{
if(input > 1.0) input -= 1.0;
else if(input < -1.0) input += 1.0;
return input;
}
render(string output)
{
while(llStringLength(output) < 10) { output = ""+output+" "; }
list renderrules = [];
integer loop = 0;
while(loop < 5)
{
string part = llGetSubString(output,(2*loop),(2*loop)+1);
if(part == " ")
{
// empty
renderrules = renderrules + [PRIM_COLOR,llList2Integer(faces,loop),<1,1,1>,0,PRIM_GLOW,llList2Integer(faces,loop),0];
}
else
{
integer Y_offset = (integer)llGetSubString(part,0,0);
integer X_offset = (integer)llGetSubString(part,1,1);
if(llGetSubString(part,0,0) == " ") Y_offset = 11; // left side empty
else if(llGetSubString(part,1,1) == " ") Y_offset = 12; // right side empty
vector start = llList2Vector(grid_offset_starts,loop);
start = <fix(start.x + (0.1 * X_offset)),fix(start.y + (-0.083333333 * Y_offset)),0>;
renderrules = renderrules + [PRIM_TEXTURE,llList2Integer(faces,loop),texture,repeats_config+llList2Vector(repeats_corrections,loop),start,0,PRIM_COLOR,llList2Integer(faces,loop),render_color,1,PRIM_GLOW,llList2Integer(faces,loop),glow_amount];
}
loop++;
}
llSetLinkPrimitiveParamsFast(render_to_prim_number,renderrules);

}
default
{
state_entry()
{
render("1234567890");
}
}
</lsl>

==Texture layout==
 the texture is setup in a 10x12 format as follows.
<pre>
00 01 02 03 04 05 06 07 08 09
10 11 12 13 14 15 16 17 18 19
20 21 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38 39
40 41 42 43 44 45 46 47 48 49
50 51 52 53 54 55 56 57 58 59
60 61 62 63 64 65 66 67 68 69
70 71 72 73 74 75 76 77 78 79
80 81 82 83 84 85 86 87 88 89
90 91 92 93 94 95 96 97 98 99
_0 _1 _2 _3 _4 _5 _6 _7 _8 _9
0_ 1_ 2_ 3_ 4_ 5_ 6_ 7_ 8_ 9_
</pre>

XyText 1.5

2013-01-17T02:54:28Z

Madpeter Zond: added link to numpad

{{LSL Header|ml=*}}

Scripting tools to allow display of text on a prim: [[XyText 1.5]] , [[XyzzyText]], [[XyyyyzText]], [[XyzzyText-UTF8]], [[ZZText]], [[VariText]]

'''XyText 1.5''' is a variation of XyText allowing up to 10 characters on a prim. All scripts are included.

'''Also see [[XyzzyText]] for a much more efficient alternative for larger displays.'''

'''Additionally refer to [[ZZText]] and [[XyzzyText-UTF8]] for using International characters in your boards.'''

'''For a 1 texture numbers only refer to [[NumPad]].'''

==XyText Setup==
The prim size script:
<lsl>
////////////////////////////////////////////
// XyText v1.0.3 Prim Setup Script (5 Face, Multi Texture)
//
// Rewritten by Tdub Dowler
//
////////////////////////////////////////////

string FACE_TEXTURE = "09b04244-9569-d21f-6de0-4bbcf5552222";
string TRANSPARENT = "701917a8-d614-471f-13dd-5f4644e36e3c";

default
{
state_entry()
{
llSetLinkPrimitiveParamsFast(LINK_THIS, [
PRIM_TYPE, PRIM_TYPE_PRISM, PRIM_HOLE_SQUARE, <0.199, 0.8, 0.0>, 0.30,
ZERO_VECTOR, <1.0, 1.0, 0.0>, ZERO_VECTOR,

// display a default face texture
PRIM_TEXTURE, 1, FACE_TEXTURE, <2.48, 1.0, 0.0>, <-0.740013, 0.0, 0.0>, 0.0,
PRIM_TEXTURE, 6, FACE_TEXTURE, <1.0, 1.0, 0.0>, <0.0, 0.0, 0.0>, 0.0,
PRIM_TEXTURE, 4, FACE_TEXTURE, <-14.75, 1.0, 0.0>, <0.130009, 0.0, 0.0>, 0.0,
PRIM_TEXTURE, 7, FACE_TEXTURE, <1.0, 1.0, 0.0>, <0.0, 0.0, 0.0>, 0.0,
PRIM_TEXTURE, 3, FACE_TEXTURE, <2.48, 1.0, 0.0>, <-0.255989, 0.0, 0.0>, 0.0,

// show transparent textures for the other sides
PRIM_TEXTURE, 0, TRANSPARENT, <0.1, 0.1, 0.0>, ZERO_VECTOR, 0.0,
PRIM_TEXTURE, 2, TRANSPARENT, <0.1, 0.1, 0.0>, ZERO_VECTOR, 0.0,
PRIM_TEXTURE, 5, TRANSPARENT, <0.1, 0.1, 0.0>, ZERO_VECTOR, 0.0,

PRIM_SIZE, <0.03, 2.89, 0.5>]);

// Remove ourselves from inventory.
llRemoveInventory(llGetScriptName());
}
}
</lsl>

==XyText==
The modified XyText cell script (written by Xylor Baysklef)
<lsl>
////////////////////////////////////////////
// XyText v1.0.3 Script (5 Face, Multi Texture)
//
// Written by Xylor Baysklef
//
// Modified by Thraxis Epsilon January 20, 2006
// Added Support for 5 Face Prim, based on modification
// of XyText v1.1.1 by Kermitt Quick for Single Texture.
//
////////////////////////////////////////////

/////////////// CONSTANTS ///////////////////
// XyText Message Map.
integer DISPLAY_STRING = 204000;
integer DISPLAY_EXTENDED = 204001;
integer REMAP_INDICES = 204002;
integer RESET_INDICES = 204003;
integer SET_CELL_INFO = 204004;
integer SET_THICKNESS = 204006;
integer SET_COLOR = 204007;

// This is an extended character escape sequence.
string ESCAPE_SEQUENCE = "\\e";

// This is used to get an index for the extended character.
string EXTENDED_INDEX = "123456789abcdef";

// Face numbers.
integer FACE_1 = 3;
integer FACE_2 = 7;
integer FACE_3 = 4;
integer FACE_4 = 6;
integer FACE_5 = 1;

// Used to hide the text after a fade-out.
key TRANSPARENT = "701917a8-d614-471f-13dd-5f4644e36e3c";
// This is a list of textures for all 2-character combinations.
list CHARACTER_GRID = [
"00e9f9f7-0669-181c-c192-7f8e67678c8d",
"347a5cb6-0031-7ec0-2fcf-f298eebf3c0e",
"4e7e689e-37f1-9eca-8596-a958bbd23963",
"19ea9c21-67ba-8f6f-99db-573b1b877eb1",
"dde7b412-cda1-652f-6fc2-73f4641f96e1",
"af6fa3bb-3a6c-9c4f-4bf5-d1c126c830da",
"a201d3a2-364b-43b6-8686-5881c0f82a94",
"b674dec8-fead-99e5-c28d-2db8e4c51540",
"366e05f3-be6b-e5cf-c33b-731dff649caa",
"75c4925c-0427-dc0c-c71c-e28674ff4d27",
"dcbe166b-6a97-efb2-fc8e-e5bc6a8b1be6",
"0dca2feb-fc66-a762-db85-89026a4ecd68",
"a0fca76f-503a-946b-9336-0a918e886f7a",
"67fb375d-89a1-5a4f-8c7a-0cd1c066ffc4",
"300470b2-da34-5470-074c-1b8464ca050c",
"d1f8e91c-ce2b-d85e-2120-930d3b630946",
"2a190e44-7b29-dadb-0bff-c31adaf5a170",
"75d55e71-f6f8-9835-e746-a45f189f30a1",
"300fac33-2b30-3da3-26bc-e2d70428ec19",
"0747c776-011a-53ce-13ee-8b5bb9e87c1e",
"85a855c3-a94f-01ca-33e0-7dde92e727e2",
"cbc1dab2-2d61-2986-1949-7a5235c954e1",
"f7aef047-f266-9596-16df-641010edd8e1",
"4c34ebf7-e5e1-2e1a-579f-e224d9d5e71b",
"4a69e98c-26a5-ad05-e92e-b5b906ad9ef9",
"462a9226-2a97-91ac-2d89-57ab33334b78",
"20b24b3a-8c57-82ee-c6ed-555003f5dbcd",
"9b481daa-9ea8-a9fa-1ee4-ab9a0d38e217",
"c231dbdc-c842-15b0-7aa6-6da14745cfdc",
"c97e3cbb-c9a3-45df-a0ae-955c1f4bf9cf",
"f1e7d030-ff80-a242-cb69-f6951d4eae3b",
"ed32d6c4-d733-c0f1-f242-6df1d222220d",
"88f96a30-dccf-9b20-31ef-da0dfeb23c72",
"252f2595-58b8-4bcc-6515-fa274d0cfb65",
"f2838c4f-de80-cced-dff8-195dfdf36b2c",
"cc2594fe-add2-a3df-cdb3-a61711badf53",
"e0ce2972-da00-955c-129e-3289b3676776",
"3e0d336d-321f-ddfa-5c1b-e26131766f6a",
"d43b1dc4-6b51-76a7-8b90-38865b82bf06",
"06d16cbb-1868-fd1d-5c93-eae42164a37d",
"dd5d98cf-273e-3fd0-f030-48be58ee3a0b",
"0e47c89e-de4a-6233-a2da-cb852aad1b00",
"fb9c4a55-0e13-495b-25c4-f0b459dc06de",
"e3ce8def-312c-735b-0e48-018b6799c883",
"2f713216-4e71-d123-03ed-9c8554710c6b",
"4a417d8a-1f4f-404b-9783-6672f8527911",
"ca5e21ec-5b20-5909-4c31-3f90d7316b33",
"06a4fcc3-e1c4-296d-8817-01f88fbd7367",
"130ac084-6f3c-95de-b5b6-d25c80703474",
"59d540a0-ae9d-3606-5ae0-4f2842b64cfa",
"8612ae9a-f53c-5bf4-2899-8174d7abc4fd",
"12467401-e979-2c49-34e0-6ac761542797",
"d53c3eaa-0404-3860-0675-3e375596c3e3",
"9f5b26bd-81d3-b25e-62fe-5b671d1e3e79",
"f57f0b64-a050-d617-ee00-c8e9e3adc9cb",
"beff166a-f5f3-f05e-e020-98f2b00e27ed",
"02278a65-94ba-6d5e-0d2b-93f2e4f4bf70",
"a707197d-449e-5b58-846c-0c850c61f9d6",
"021d4b1a-9503-a44f-ee2b-976eb5d80e68",
"0ae2ffae-7265-524d-cb76-c2b691992706",
"f6e41cf2-1104-bd0b-0190-dffad1bac813",
"2b4bb15e-956d-56ae-69f5-d26a20de0ce7",
"f816da2c-51f1-612a-2029-a542db7db882",
"345fea05-c7be-465c-409f-9dcb3bd2aa07",
"b3017e02-c063-5185-acd5-1ef5f9d79b89",
"4dcff365-1971-3c2b-d73c-77e1dc54242a"
];

///////////// END CONSTANTS ////////////////

///////////// GLOBAL VARIABLES ///////////////
// All displayable characters. Default to ASCII order.
string gCharIndex;
// This is the channel to listen on while acting
// as a cell in a larger display.
integer gCellChannel = -1;
// This is the starting character position in the cell channel message
// to render.
integer gCellCharPosition = 0;
// This is whether or not to use the fade in/out special effect.
integer gCellUseFading = FALSE;
// This is how long to display the text before fading out (if using
// fading special effect).
// Note: < 0 means don't fade out.
float gCellHoldDelay = 1.0;
/////////// END GLOBAL VARIABLES ////////////

ResetCharIndex()
{
gCharIndex = " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`";
// \" <-- Fixes LSL syntax highlighting bug.
gCharIndex += "abcdefghijklmnopqrstuvwxyz{|}~";
gCharIndex += "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";
}

vector GetGridPos(integer index1, integer index2)
{
// There are two ways to use the lookup table...
integer Col;
integer Row;
if (index1 >= index2)
{
// In this case, the row is the index of the first character:
Row = index1;
// And the col is the index of the second character (x2)
Col = index2 * 2;
}
// Index1 < Index2
else
{
// In this case, the row is the index of the second character:
Row = index2;
// And the col is the index of the first character, x2, offset by 1.
Col = index1 * 2 + 1;
}
return <Col, Row, 0>;
}

string GetGridTexture(vector grid_pos)
{
// Calculate the texture in the grid to use.
integer GridCol = llRound(grid_pos.x) / 20;
integer GridRow = llRound(grid_pos.y) / 10;

// Lookup the texture.
key Texture = llList2Key(CHARACTER_GRID, GridRow * (GridRow + 1) / 2 + GridCol);
return Texture;
}

vector GetGridOffset(vector grid_pos)
{
// Zoom in on the texture showing our character pair.
integer Col = llRound(grid_pos.x) % 20;
integer Row = llRound(grid_pos.y) % 10;

// Return the offset in the texture.
return <-0.45 + 0.05 * Col, 0.45 - 0.1 * Row, 0.0>;
}

ShowChars(vector grid_pos1, vector grid_pos2, vector grid_pos3, vector grid_pos4, vector grid_pos5)
{
// Set the primitive textures directly.

llSetLinkPrimitiveParamsFast(LINK_THIS, [
PRIM_TEXTURE, FACE_1, GetGridTexture(grid_pos1), <0.25, 0.1, 0>, GetGridOffset(grid_pos1) + <0.075, 0, 0>, 0.0,
PRIM_TEXTURE, FACE_2, GetGridTexture(grid_pos2), <0.1, 0.1, 0>, GetGridOffset(grid_pos2), 0.0,
PRIM_TEXTURE, FACE_3, GetGridTexture(grid_pos3), <-1.48, 0.1, 0>, GetGridOffset(grid_pos3)+ <0.37, 0, 0>, 0.0,
PRIM_TEXTURE, FACE_4, GetGridTexture(grid_pos4), <0.1, 0.1, 0>, GetGridOffset(grid_pos4), 0.0,
PRIM_TEXTURE, FACE_5, GetGridTexture(grid_pos5), <0.25, 0.1, 0>, GetGridOffset(grid_pos5) - <0.075, 0, 0>, 0.0]);
}

RenderString(string str)
{
// Get the grid positions for each pair of characters.
vector GridPos1 = GetGridPos( llSubStringIndex(gCharIndex, llGetSubString(str, 0, 0)),
llSubStringIndex(gCharIndex, llGetSubString(str, 1, 1)) );
vector GridPos2 = GetGridPos( llSubStringIndex(gCharIndex, llGetSubString(str, 2, 2)),
llSubStringIndex(gCharIndex, llGetSubString(str, 3, 3)) );
vector GridPos3 = GetGridPos( llSubStringIndex(gCharIndex, llGetSubString(str, 4, 4)),
llSubStringIndex(gCharIndex, llGetSubString(str, 5, 5)) );
vector GridPos4 = GetGridPos( llSubStringIndex(gCharIndex, llGetSubString(str, 6, 6)),
llSubStringIndex(gCharIndex, llGetSubString(str, 7, 7)) );
vector GridPos5 = GetGridPos( llSubStringIndex(gCharIndex, llGetSubString(str, 8, 8)),
llSubStringIndex(gCharIndex, llGetSubString(str, 9, 9)) );

// Use these grid positions to display the correct textures/offsets.
ShowChars(GridPos1, GridPos2, GridPos3, GridPos4, GridPos5);
}

RenderWithEffects(string str)
{
// Get the grid positions for each pair of characters.
vector GridPos1 = GetGridPos( llSubStringIndex(gCharIndex, llGetSubString(str, 0, 0)),
llSubStringIndex(gCharIndex, llGetSubString(str, 1, 1)) );
vector GridPos2 = GetGridPos( llSubStringIndex(gCharIndex, llGetSubString(str, 2, 2)),
llSubStringIndex(gCharIndex, llGetSubString(str, 3, 3)) );
vector GridPos3 = GetGridPos( llSubStringIndex(gCharIndex, llGetSubString(str, 4, 4)),
llSubStringIndex(gCharIndex, llGetSubString(str, 5, 5)) );
vector GridPos4 = GetGridPos( llSubStringIndex(gCharIndex, llGetSubString(str, 6, 6)),
llSubStringIndex(gCharIndex, llGetSubString(str, 7, 7)) );
vector GridPos5 = GetGridPos( llSubStringIndex(gCharIndex, llGetSubString(str, 8, 8)),
llSubStringIndex(gCharIndex, llGetSubString(str, 9, 9)) );

// First set the alpha to the lowest possible.
llSetAlpha(0.05, ALL_SIDES);

// Use these grid positions to display the correct textures/offsets.
ShowChars(GridPos1, GridPos2, GridPos3, GridPos4, GridPos5);

float Alpha;
for (Alpha = 0.10; Alpha <= 1.0; Alpha += 0.05)
{
llSetAlpha(Alpha, ALL_SIDES);
}
// See if we want to fade out as well.
if (gCellHoldDelay < 0.0)
{
// No, bail out. (Just keep showing the string at full strength).
return;
}
// Hold the text for a while.
llSleep(gCellHoldDelay);
// Now fade out.
for (Alpha = 0.95; Alpha >= 0.05; Alpha -= 0.05)
{
llSetAlpha(Alpha, ALL_SIDES);
}
// Make the text transparent to fully hide it.
llSetTexture(TRANSPARENT, ALL_SIDES);
}

RenderExtended(string str)
{
// Look for escape sequences.
list Parsed = llParseString2List(str, [], [ESCAPE_SEQUENCE]);
integer ParsedLen = llGetListLength(Parsed);

// Create a list of index values to work with.
list Indices;
// We start with room for 6 indices.
integer IndicesLeft = 10;

integer i;
string Token;
integer Clipped;
integer LastWasEscapeSequence = FALSE;
// Work from left to right.
for (i = 0; i < ParsedLen && IndicesLeft > 0; i++)
{
Token = llList2String(Parsed, i);

// If this is an escape sequence, just set the flag and move on.
if (Token == ESCAPE_SEQUENCE)
{
LastWasEscapeSequence = TRUE;
}
// Token != ESCAPE_SEQUENCE
else
{
// Otherwise this is a normal token. Check its length.
Clipped = FALSE;
integer TokenLength = llStringLength(Token);
// Clip if necessary.
if (TokenLength > IndicesLeft)
{
Token = llGetSubString(Token, 0, IndicesLeft - 1);
TokenLength = llStringLength(Token);
IndicesLeft = 0;
Clipped = TRUE;
}
else
IndicesLeft -= TokenLength;

// Was the previous token an escape sequence?
if (LastWasEscapeSequence)
{
// Yes, the first character is an escape character, the rest are normal.

// This is the extended character.
Indices += [llSubStringIndex(EXTENDED_INDEX, llGetSubString(Token, 0, 0)) + 95];

// These are the normal characters.
integer j;
for (j = 1; j < TokenLength; j++)
Indices += [llSubStringIndex(gCharIndex, llGetSubString(Token, j, j))];
}
// Normal string.
else
{
// Just add the characters normally.
integer j;
for (j = 0; j < TokenLength; j++)
{
Indices += [llSubStringIndex(gCharIndex, llGetSubString(Token, j, j))];
}
}

// Unset this flag, since this was not an escape sequence.
LastWasEscapeSequence = FALSE;
}
}

// Use the indices to create grid positions.
vector GridPos1 = GetGridPos( llList2Integer(Indices, 0), llList2Integer(Indices, 1) );
vector GridPos2 = GetGridPos( llList2Integer(Indices, 2), llList2Integer(Indices, 3) );
vector GridPos3 = GetGridPos( llList2Integer(Indices, 4), llList2Integer(Indices, 5) );
vector GridPos4 = GetGridPos( llList2Integer(Indices, 6), llList2Integer(Indices, 7) );
vector GridPos5 = GetGridPos( llList2Integer(Indices, 8), llList2Integer(Indices, 9) );

// Use these grid positions to display the correct textures/offsets.
ShowChars(GridPos1, GridPos2, GridPos3, GridPos4, GridPos5);
}

integer ConvertIndex(integer index)
{
// This converts from an ASCII based index to our indexing scheme.
if (index >= 32) // ' ' or higher
index -= 32;
// index < 32
else
{
// Quick bounds check.
if (index > 15)
index = 15;

index += 94; // extended characters
}

return index;
}

default
{
state_entry()
{
// Initialize the character index.
ResetCharIndex();

//llSay(0, "Free Memory: " + (string) llGetFreeMemory());
}

link_message(integer sender, integer channel, string data, key id)
{
if (channel == DISPLAY_STRING)
{
RenderString(data);
return;
}
if (channel == DISPLAY_EXTENDED)
{
RenderExtended(data);
return;
}
if (channel == gCellChannel)
{
// Extract the characters we are interested in, and use those to render.
string TextToRender = llGetSubString(data, gCellCharPosition, gCellCharPosition + 9);
if (gCellUseFading)
RenderWithEffects( TextToRender );
else // !gCellUseFading
RenderString( TextToRender );
return;
}
if (channel == REMAP_INDICES)
{
// Parse the message, splitting it up into index values.
list Parsed = llCSV2List(data);
integer i;
// Go through the list and swap each pair of indices.
for (i = 0; i < llGetListLength(Parsed); i += 2)
{
integer Index1 = ConvertIndex( llList2Integer(Parsed, i) );
integer Index2 = ConvertIndex( llList2Integer(Parsed, i + 1) );

// Swap these index values.
string Value1 = llGetSubString(gCharIndex, Index1, Index1);
string Value2 = llGetSubString(gCharIndex, Index2, Index2);

gCharIndex = llDeleteSubString(gCharIndex, Index1, Index1);
gCharIndex = llInsertString(gCharIndex, Index1, Value2);

gCharIndex = llDeleteSubString(gCharIndex, Index2, Index2);
gCharIndex = llInsertString(gCharIndex, Index2, Value1);
}
return;
}
if (channel == RESET_INDICES)
{
// Restore the character index back to default settings.
ResetCharIndex();
return;
}
if (channel == SET_CELL_INFO)
{
// Change the channel we listen to for cell commands, and the
// starting character position to extract from.
list Parsed = llCSV2List(data);
gCellChannel = (integer) llList2String(Parsed, 0);
gCellCharPosition = (integer) llList2String(Parsed, 1);
gCellUseFading = (integer) llList2String(Parsed, 2);
gCellHoldDelay = (float) llList2String(Parsed, 3);
return;
}
if (channel == SET_THICKNESS)
{
// Set our z scale to thickness, while staying fixed
// in position relative the prim below us.
vector Scale = llGetScale();
float Thickness = (float) data;
// Reposition only if this isn't the root prim.
integer ThisLink = llGetLinkNumber();
if (ThisLink != 0 || ThisLink != 1) {
// This is not the root prim.
vector Up = llRot2Up(llGetLocalRot());
float DistanceToMove = Thickness / 2.0 - Scale.z / 2.0;
vector Pos = llGetLocalPos();
llSetPos(Pos + DistanceToMove * Up);
}
// Apply the new thickness.
Scale.z = Thickness;
llSetScale(Scale);
return;
}
if (channel == SET_COLOR)
{
vector newColor = (vector)data;
llSetColor(newColor, ALL_SIDES);
}
}
}
</lsl>

==XyText Board Control==
This last script is a script that allows an unlimited number of cells to be used together. The script:
<lsl>
////////////////////////////////////////////
// XyText Board Control
//
// Written by Tdub Dowler
// Modified by Awsoonn Rawley
// Refactored by Strife Onizuka
////////////////////////////////////////////

/////////////// CONSTANTS /////////////////
// XyText Message Map.
integer SET_LINE_CHANNEL = 100100;
integer DISPLAY_STRING = 204000;
integer DISPLAY_EXTENDED = 204001;
integer REMAP_INDICES = 204002;
integer RESET_INDICES = 204003;
integer SET_CELL_INFO = 204004;
string LOAD_MSG = "Loading...";
///////////// END CONSTANTS ////////////////
integer prims;

SetText(string msg)
{
llMessageLinked(LINK_SET, SET_LINE_CHANNEL, msg, "");
}

XytstOrder()
{
// Fills each cell of the board with it's number.
string str = "";
integer i = 0;
do
{
str += llGetSubString(" " + (string)i,-10,-1);
llSetText("Generating Pattern: " + (string)i, <0,1,0>, 1.0);
}while(++i < prims);

llSetText("Displaying Order Test...", <0,1,0>, 1.0);

// Send the message
llMessageLinked(LINK_SET, SET_LINE_CHANNEL, str, "");

llSetText("", ZERO_VECTOR, 0.0);
}

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

state_entry()
{
// Determin the number of prims.
prims = llGetNumberOfPrims();

// Clear the screen.
llMessageLinked(LINK_SET, DISPLAY_STRING, LOAD_MSG, "");

integer StartLink = llGetLinkNumber() + 1;
// Configure the board.
integer i = 0;
do
llMessageLinked(StartLink + i, SET_CELL_INFO, llList2CSV([SET_LINE_CHANNEL, i * 10]), "");
while( ++i < prims );

// Build this script in world to reveal the secret message!
SetText( llBase64ToString("SXMgdGhhdCBub3QgY29vbCBvciB3aGF0PyA6KQ==") );
}

touch_end(integer num)
{
// This can be used to help find mislinked prims. Its not required at all.
XytstOrder();
}
}
</lsl>
 
'''Note:''' For new scripters/builders: Text for this script is displayed in the reverse order by which objects were linked. Breaks in the lines for multiline scripts are possible using the '\n' for newline, but a multiline linked object does not detect this. Theoretically, adding a message which communicates relative axis information (traditionally, z axis) could be used to allow for line breaks.

=Example Use=
<lsl>
// XyText Message Map.
integer SET_LINE_CHANNEL = 100100; //for multi-cell spanning text
integer DISPLAY_STRING = 204000;
integer DISPLAY_EXTENDED = 204001;
integer REMAP_INDICES = 204002;
integer RESET_INDICES = 204003;
integer SET_CELL_INFO = 204004;

llMessageLinked(LINK_SET, DISPLAY_STRING, "text to display", "");
</lsl>

Many thanks to Xylor Baysklef and Kermitt Quick.

{{LSLC|Library}}
{{#vardefine:sort|Key Pad Door}}

NumPad

2013-01-17T02:48:05Z

Madpeter Zond: Created page and released the first version.

{{LSL Header}}
{{RightToc}}

Scripting tools to allow display of text on a prim: [[XyText 1.5]] , [[XyzzyText]], [[XyyyyzText]], [[XyText-UTF8]], [[XyzzyText-UTF8]], [[ZZText]], [[VariText]]

'''NumPad''' is a variant of the text on a prim but with some changes

* 1 texture vs 5 textures needed for XyText 1.5 'to render numbers'
* Numbers and spaces only.
* About 73 lines of code.

=Copyright & Licensing=

* Madpeter Zond hereby releases his contributions to this under the MIT license. [Starting texture and Starting code]



=NumPad 10digits=

Quickstart:
<pre>
* Take a copy of the 10 char prim setup from [[XyText 1.5]] and setup a prim
* After running the code create a new script and copy the NumPad code to it.
</pre>

Usage:
<pre>
* Set render_to_prim_number to the number of the prim you wish to render to,
* if you dont know the number you can put the script inside of the prim you want
* and not change this.
</pre>

==Main Script==
<lsl>
/*
NumPad
----------------
Version: 1.0
By: Madpeter Zond
About: A 1 texture 10 digit number display
great for a score output.
*/
string texture = "31f72af5-dee3-72f5-3981-bde21bf85e9c";
integer render_to_prim_number = LINK_THIS;
vector render_color = <1,1,1>;
float glow_amount = 0.00;

// please dont change this unless you want to break something ^_^
list faces = [3,7,4,6,1];
list grid_offset_starts = [<-0.38941,-0.54747,0> ,<-0.44939,-0.54750,0>, <0.01800,0.45256,0>,<-0.44939,-0.54750,0>,<-0.50941,-0.54747,0>];
list repeats_corrections = [<0.1,0,0>,<0,0,0>,<-1.35,0,0>,<0,0,0>,<0.1,0,0>];
vector repeats_config = <0.1,0.083333,0>;
float fix(float input) // render blocking fix [haxy]
{
if(input > 1.0) input -= 1.0;
else if(input < -1.0) input += 1.0;
return input;
}
render(string output)
{
while(llStringLength(output) < 10) { output = ""+output+" "; }
list renderrules = [];
integer loop = 0;
while(loop < 5)
{
string part = llGetSubString(output,(2*loop),(2*loop)+1);
if(part == " ")
{
// empty
renderrules = renderrules + [PRIM_COLOR,llList2Integer(faces,loop),<1,1,1>,0,PRIM_GLOW,llList2Integer(faces,loop),0];
}
else
{
integer Y_offset = (integer)llGetSubString(part,0,0);
integer X_offset = (integer)llGetSubString(part,1,1);
if(llGetSubString(part,0,0) == " ") Y_offset = 11; // left side empty
else if(llGetSubString(part,1,1) == " ") Y_offset = 12; // right side empty
vector start = llList2Vector(grid_offset_starts,loop);
start = <fix(start.x + (0.1 * X_offset)),fix(start.y + (-0.083333333 * Y_offset)),0>;
renderrules = renderrules + [PRIM_TEXTURE,llList2Integer(faces,loop),texture,repeats_config+llList2Vector(repeats_corrections,loop),start,0,PRIM_COLOR,llList2Integer(faces,loop),render_color,1,PRIM_GLOW,llList2Integer(faces,loop),glow_amount];
}
loop++;
}
llSetLinkPrimitiveParamsFast(render_to_prim_number,renderrules);

}
default
{
state_entry()
{
render("1234567890");
}
}
</lsl>

LlGetOwner

2012-04-10T14:53:33Z

Madpeter Zond: added note about llGetOwner returning unexpected values

{{LSL_Function
|func_id=117|func_sleep=0.0|func_energy=10.0
|func=llGetOwner|sort=GetOwner
|return_type=key
|func_footnote
|func_desc
|return_text=that is the object owner's [[UUID]].
|spec
|caveats=*When the owner of an object changes, code that depends on this function's return value will not automatically update for the new owner or be automatically re-evaluated.
**This requires the reregistration of [[llListen|listens]] and [[llRequestPermissions|requesting of permissions]] from the new owner as needed.
***This is not limited to listens and permissions but anything that caches the return value, it is up to the programmer to work around this limitation.
**Detection of owner change can be achieved with the [[changed]] event in conjunction with the [[CHANGED_OWNER]] flag (see the second example) or by storing the old value and periodically (e.g. in [[on_rez]]) checking if it has changed. Both techniques are valid though the latter will not detect the sale of the object if it is sold with "sell original" in-world and not picked up.
*When the object is deeded to a group, the UUID returned is that of the group.
*When the owner is offline the region can lose the owner uuid and return NULL_KEY or (Loading)... in some rare cases.
|constants
|examples=
<lsl>llOwnerSay( (string)llGetOwner()); // speaks in chat the "key" (UUID code) of the avatar.
llOwnerSay( llKey2Name(llGetOwner())); // speaks in chat the name of the owner if in the sim.</lsl>

<lsl>default
{
state_entry()
{
llInstantMessage(llGetOwner(), "Only you can hear me. Isn't that eerie.");
}

changed(integer change)
{
if (change & CHANGED_OWNER)
llResetScript();
}
}</lsl>
|helpers
|also_functions=
{{LSL DefineRow||[[llGetCreator]]|}}
{{LSL DefineRow||[[llGetOwnerKey]]|}}
{{LSL DefineRow||[[llDetectedOwner]]|}}
|also_tests
|also_events
|also_articles
|notes=
To retrieve the owners name while the owner is in the region use [[llKey2Name]], [[llRequestAgentData]] should be used when the owner is not in the region.

The one problem many coders come up against is that previously-activated events referring to the owner don't automatically change when the owner changes. The most often-seen result is a listen registered to owner will continue to listen to the PREVIOUS owner rather than the CURRENT owner. It is often confused as a bug in [[llGetOwner]] or [[llListen]] it is not in fact a bug but part of the design. There are several ways of working around this problem. The easy solution is to reset the script when owner changes or it is rezzed. The easy solution is not always the right solution.

There are two ways to detect if the owner has changed, the most reliable is to use the [[changed]] event.
<lsl>changed(integer change)
{
if (change & CHANGED_OWNER)//if owner changes, reset the script.
llResetScript();
}</lsl>

In many applications resetting the script when the object is rezzed is an adequate and easy solution.
<lsl>on_rez(integer start_param)
{ //when the object is rezzed, reset the script.
llResetScript();
}</lsl>

Resetting the script is not appropriate if the script needs to keep it's data when it's ownership is transfered or if script startup is slow, in these situations listens will need to be re-keyed to the new owner along with any other owner specific code, like who the script is supposed to be animating.

The [[on_rez]] and [[changed]] events can be harnessed to reinitialize owner specific code every time the object is rezzed or changes owner.

<lsl>integer listen_handle;

init()
{
key owner = llGetOwner();
llListenRemove(listen_handle);
listen_handle = llListen(0, "", owner, "");
llRequestPermissions(owner, PERMISSION_TRIGGER_ANIMATION);
}

default
{
state_entry()
{
init();
//insert additional startup code here that doesn't need to run each rez/owner change
//for example, reading settings from a notecard
}

on_rez(integer start)
{
init();
}

changed(integer change)
{
if (change & CHANGED_OWNER)
init();
}

run_time_permissions(integer perm)
{//always use the run_time_permissions event with llRequestPermissions, never assume
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
//setup your animation code here, start your timers, etc.
llOwnerSay("I have animation permissions");
}
}
}</lsl>
|cat1=Owner
|cat2=Object
|cat3=Key
|cat4
}}

IsInList

2012-02-03T15:05:16Z

Madpeter Zond: removed white space

{{LSL_Function
|mode=user
|func=IsInList
|p1_type=list|p1_name=data
|p2_type=string|p2_name=name
|return_type=integer
|return_text=
|func_desc='''This function can be used to determine if a string variable is in a list'''
|func_footnote= {{KBtip|other variable types can be used with the exception of lists}}
<lsl>
integer IsInList(list data, string name)
{
if(llListFindList(data,[name]) != -1) return TRUE;
else return FALSE
}
</lsl>

{{KBtip|[[User:Mitzpatrick_Fitzsimmons|See my wiki page]] for a video tutorial of this function}}

<lsl>
// Simple Visitor's List that will not allow duplicate list entries using the IsInList() function
default
{
state_entry()
{
llListen(-23467589, "", "", "");
llSensorRepeat("", "", AGENT, 10.0, PI, 180);
llSetTimerEvent(86400);
}

touch_start(integer total_number)
{
llTextBox(llDetectedKey(0), "What are you looking for?", -23467589);
TypeOutList();
}

listen(integer channel, string name, key id, string message)
{
if(IsInList(visitors, message))
{
llSay(0, message + " is in the list.");
}else{
llSay(0, message + " is not in the list");
}
}

sensor(integer detected)
{
integer i;
for(i=0; i < detected; i++)
{
if(IsInList(visitors, llDetectedName(i)))
{
// DO NOTHING- already in the list
}else{
visitors += llDetectedName(0);
llOwnerSay("Added " + llDetectedName(0) + " to the visitors list. \nFree Memory: " + (string) llGetFreeMemory());
llOwnerSay("There are now " + (string) llGetListLength(visitors) + " names in the visitors list.");
}
}
}

timer()
{
// Optional
llEmail("your_email_address@your_domain.com", "Here is the Visitors List for today", llList2CSV(visitors) );
}
}
</lsl>
}}

IsInList

2012-02-03T15:04:05Z

Madpeter Zond: Removed user function and replaced with an example using llListFindList as the old method was much slower

LlSetPos

2010-01-07T13:37:25Z

Madpeter Zond: Created function to bypass bug when moving small amount llSetLocalPos

{{Issues/SVC-1945}}{{LSL Function
|func_id=58|func_sleep=0.2|func_energy=10.0
|func=llSetPos
|p1_type=vector|p1_name=pos|p1_desc=position in [[Viewer coordinate frames#Region|region]] or [[Viewer coordinate frames#local|local coordinates]] depending on the situation (see ''[[#Specification]]'').|p1_hover=position in region or local coordinates depending on the situation.
|func_desc=Moves the object or primitive towards '''pos''' without using physics.
|func_footnote=Movement is capped to 10m per call for unattached root prims.{{Footnote|Unless you exploit the undocumented [[warpPos]] bug.}}
|spec=
=====Coordinate Frame=====
*Root prims (or single prim objects)
**Attached
***'''pos''' is a [[Viewer coordinate frames#Local|local coordinate]] relative to the attach point.
**Not attached
***'''pos''' is a [[Viewer coordinate frames#Region|region coordinate]].
*Child prims (non root prims)
**'''pos''' is a [[Viewer coordinate frames#Local|local coordinate]] relative to the root prim.
|caveats=
*Because of the intermixing of local and regional coordinates with this function, when a prims position is wanted it is best to use [[llGetLocalPos]].
*This function does not work for physical objects. Use [[llMoveToTarget]] instead.
|constants
|examples=
<lsl>
//Move the object up 1m when someone touches it.
default {
touch_start(integer i) {
llSetPos(llGetPos() + <0,0,1>);
}
}
// to bypass the small movement bug use this
// - created by Madpeter Zond
// notes: it does not check if the movement would go out of limit range for linked prims
llSetLocalPos(vector offset)
{
vector save = offset;
if(offset.x < 0.0) offset.x -= 1;
else offset.x += 1;
if(offset.y < 0.0) offset.y -= 1;
else offset.y += 1;
if(offset.z < 0.0) offset.z -= 1;
else offset.z += 1;
llSetPos(offset);
llSetPos(save);
}
</lsl>
|helpers
|also_functions={{LSL DefineRow||[[llGetLocalPos]]|Returns the prim's local position if it is attached or non-root (otherwise it returns the global position)}}
{{LSL DefineRow||[[llGetRootPosition]]|Gets the root prims position}}
{{LSL DefineRow||[[llGetPos]]|Returns the prim's global position, even if it is attached or non-root}}
|also_tests
|also_events
|also_articles
|notes=Multiple movement commands can be chained together with [[llSetPrimitiveParams]] and [[PRIM_POSITION]]. The advantage of doing this is that the script only sleeps once per function call instead of once per movement.
|cat1=Movement
|cat2=Prim
|cat3
|cat4
}}

ListStridedRemove

2009-12-16T15:23:39Z

Madpeter Zond:

{{LSL_Function
|mode=user
|func=ListStridedRemove
|p1_type=list|p1_name=src
|p2_type=integer|p2_name=start
|p3_type=integer|p3_name=end
|p4_type=integer|p4_name=stride
|return_type=list
|return_text=
|func_desc=Removes each stride from a list, example a list of 1,2,3,A,1,2,3,A after ListStridedRemove(list,4,0,4); would be 1,2,3,1,2,3
|func_footnote= created fixed and improved by Madpeter Zond
<lsl>
list ListStridedRemove(list src, integer start, integer end, integer stride)
{
if((start < 1) || (stride < 1)) return src; // reverse stride not supported
else
{
integer loop = start - 1;
integer tricker = 0;
integer maxlen = llGetListLength(src);
if((end == 0) || (end > maxlen)) end = maxlen;
while(loop < end)
{
integer pointid = loop-tricker;
src = llDeleteSubList(src,pointid,pointid);
tricker++;
loop+=stride;
}
return src;
}
}
</lsl>

See also: [[List#Strided_lists|Strided Lists]]
|examples=
<lsl>list customers = ListStridedRemove(customers, 0, 0, STRIDELENGTH);</lsl>
|spec
|helpers
|also_functions
|also_events
|also_tests
|also_articles
|notes
|cat1=Examples
|cat2
|cat3
|cat4
}}

ListStridedRemove

2009-12-16T15:23:08Z

Madpeter Zond: added LSL function detail

{{LSL_Function
|mode=user
|func=ListStridedRemove
|p1_type=list|p1_name=src
|p2_type=integer|p2_name=start
|p3_type=integer|p3_name=end
|p4_type=integer|p4_name=stride
|return_type=list
|return_text=that contains the elements of '''myList''' but with the strides in the range of '''start''' to '''end''' removed.
|func_desc=Removes a specified part of a strided list.
|func_footnote=
<lsl>
list ListStridedRemove(list src, integer start, integer end, integer stride) {
return llDeleteSubList(src, start * stride, (stride * (end + 1)) - 1);
}</lsl>
{{LSL_Function
|mode=user
|func=ListStridedRemove
|p1_type=list|p1_name=src
|p2_type=integer|p2_name=start
|p3_type=integer|p3_name=end
|p4_type=integer|p4_name=stride
|return_type=list
|return_text=
|func_desc=Removes each stride from a list, example a list of 1,2,3,A,1,2,3,A after ListStridedRemove(list,4,0,4); would be 1,2,3,1,2,3
|func_footnote= created fixed and improved by Madpeter Zond
<lsl>
list ListStridedRemove(list src, integer start, integer end, integer stride)
{
if((start < 1) || (stride < 1)) return src; // reverse stride not supported
else
{
integer loop = start - 1;
integer tricker = 0;
integer maxlen = llGetListLength(src);
if((end == 0) || (end > maxlen)) end = maxlen;
while(loop < end)
{
integer pointid = loop-tricker;
src = llDeleteSubList(src,pointid,pointid);
tricker++;
loop+=stride;
}
return src;
}
}
</lsl>

See also: [[List#Strided_lists|Strided Lists]]
|examples=
<lsl>list customers = ListStridedRemove(customers, 0, 0, STRIDELENGTH);</lsl>
|spec
|helpers
|also_functions
|also_events
|also_tests
|also_articles
|notes
|cat1=Examples
|cat2
|cat3
|cat4
}}

ListStridedRemove

2009-12-16T15:19:41Z

Madpeter Zond: fixed my <lsl> issue :P should have used preview

{{LSL_Function
|mode=user
|func=ListStridedRemove
|p1_type=list|p1_name=src
|p2_type=integer|p2_name=start
|p3_type=integer|p3_name=end
|p4_type=integer|p4_name=stride
|return_type=list
|return_text=that contains the elements of '''myList''' but with the strides in the range of '''start''' to '''end''' removed.
|func_desc=Removes a specified part of a strided list.
|func_footnote=
<lsl>
// to remove indexs from a list (normaly one thats been strided use this function
list ListStridedRemove(list src, integer start, integer end, integer stride) {
return llDeleteSubList(src, start * stride, (stride * (end + 1)) - 1);
}</lsl>
<lsl>
// to remove every stride from a list use this function
list ListStridedRemove(list src, integer start, integer end, integer stride)
{
// fixed and improved by Madpeter Zond (the wiki entry is trash please update it)
if((start < 1) || (stride < 1)) return src; // reverse stride not supported
else
{
integer loop = start - 1;
integer tricker = 0;
integer maxlen = llGetListLength(src);
if((end == 0) || (end > maxlen)) end = maxlen;
while(loop < end)
{
integer pointid = loop-tricker;
src = llDeleteSubList(src,pointid,pointid);
tricker++;
loop+=stride;
}
return src;
}
}
</lsl>

See also: [[List#Strided_lists|Strided Lists]]
|examples=
<lsl>list customers = ListStridedRemove(customers, 0, 0, STRIDELENGTH);</lsl>
|spec
|helpers
|also_functions
|also_events
|also_tests
|also_articles
|notes
|cat1=Examples
|cat2
|cat3
|cat4
}}

ListStridedRemove

2009-12-16T15:19:03Z

Madpeter Zond: Added details..

{{LSL_Function
|mode=user
|func=ListStridedRemove
|p1_type=list|p1_name=src
|p2_type=integer|p2_name=start
|p3_type=integer|p3_name=end
|p4_type=integer|p4_name=stride
|return_type=list
|return_text=that contains the elements of '''myList''' but with the strides in the range of '''start''' to '''end''' removed.
|func_desc=Removes a specified part of a strided list.
|func_footnote=
<lsl>
// to remove indexs from a list (normaly one thats been strided use this function
<lsl>list ListStridedRemove(list src, integer start, integer end, integer stride) {
return llDeleteSubList(src, start * stride, (stride * (end + 1)) - 1);
}</lsl>
// to remove every stride from a list use this function
list ListStridedRemove(list src, integer start, integer end, integer stride)
{
// fixed and improved by Madpeter Zond (the wiki entry is trash please update it)
if((start < 1) || (stride < 1)) return src; // reverse stride not supported
else
{
integer loop = start - 1;
integer tricker = 0;
integer maxlen = llGetListLength(src);
if((end == 0) || (end > maxlen)) end = maxlen;
while(loop < end)
{
integer pointid = loop-tricker;
src = llDeleteSubList(src,pointid,pointid);
tricker++;
loop+=stride;
}
return src;
}
}
</lsl>

See also: [[List#Strided_lists|Strided Lists]]
|examples=
<lsl>list customers = ListStridedRemove(customers, 0, 0, STRIDELENGTH);</lsl>
|spec
|helpers
|also_functions
|also_events
|also_tests
|also_articles
|notes
|cat1=Examples
|cat2
|cat3
|cat4
}}

ListStridedRemove

2009-12-16T15:04:28Z

Madpeter Zond: minor change to function to cover sending a low start value

{{LSL_Function
|mode=user
|func=ListStridedRemove
|p1_type=list|p1_name=src
|p2_type=integer|p2_name=start
|p3_type=integer|p3_name=end
|p4_type=integer|p4_name=stride
|return_type=list
|return_text=that contains the elements of '''myList''' but with the strides in the range of '''start''' to '''end''' removed.
|func_desc=Removes a specified part of a strided list.
|func_footnote=
<lsl>
list ListStridedRemove(list src, integer start, integer end, integer stride)
{
// fixed and improved by Madpeter Zond (the wiki entry is trash please update it)
if((start < 1) || (stride < 1)) return src; // reverse stride not supported
else
{
integer loop = start - 1;
integer tricker = 0;
integer maxlen = llGetListLength(src);
if((end == 0) || (end > maxlen)) end = maxlen;
while(loop < end)
{
integer pointid = loop-tricker;
src = llDeleteSubList(src,pointid,pointid);
tricker++;
loop+=stride;
}
return src;
}
}
</lsl>

See also: [[List#Strided_lists|Strided Lists]]
|examples=
<lsl>list customers = ListStridedRemove(customers, 0, 0, STRIDELENGTH);</lsl>
|spec
|helpers
|also_functions
|also_events
|also_tests
|also_articles
|notes
|cat1=Examples
|cat2
|cat3
|cat4
}}

ListStridedRemove

2009-12-16T15:01:15Z

Madpeter Zond: replaced the function with one that works.

User:Madpeter Zond

2007-05-31T04:36:44Z

Madpeter Zond:

Name: Madpeter Zond
RL: Peter (sorry i dont give out my second name)
Homepage: http://madpeter.2ya.com

Second life projects
----------------------------------------------------------------
BlackAtom laptop
a powerfull dialog powered laptop.
- For more info please send me an IM.