Projects » Lister + ban Special Persons from sim and send home

Hi Folks ,

i try a other script works without  problems !!

Copy it in a prim  , set Scripts working  "on" Sim , Ban and send home funktions needs Owner rights .

Set Prim on Group set Scripts "on"  for group.



Added by: (Unknown)
Last Update: 2 years ago
Project Category: Security
👍 1 like

Code

File name Added By Last Updated Actions
Lister and ban script (Unknown) 2 years ago View


Comments

I am looking for a security system to use in Open Sims. Any leads appreciated.
like(0)
in object needs to be with notecard named whitelist

script:
key second = NULL_KEY; // fill in a second key if you want

string active = "active";
float range = 25.0; // Range we will be scanning for for persons to check if they are on the whitellist

key nrofnamesoncard; // Some variables used to collect all the data from the notecard
integer nrofnames;
list names;
list keynameoncard;
string nameoncard;
string storedname;

integer listener;

default // We use the default state to read the notecard.
{
state_entry()
{
llOwnerSay("Startup state reading whitelist notecard");
nrofnamesoncard = llGetNumberOfNotecardLines("whitelist"); // Triggers the notecard reading by getting the numer of lines in the notecard
}

on_rez (integer param)
{
llResetScript();
}

dataserver (key queryid, string data){

if (queryid == nrofnamesoncard)
{
// When we receive the number of lines in the notecard we do llGetNotecardLine for each line to get the contents
nrofnames = (integer) data;
llOwnerSay("Found "+(string)nrofnames+ " names in whitelist.");

integer i;
for (i=0;i < nrofnames;i++){
keynameoncard += llGetNotecardLine("whitelist", i);
}
} else
{
integer listlength;
listlength = llGetListLength(keynameoncard);
integer j;
for(j=0;j
like(0)