Суббота, 19.07.2025, 00:46

Мой блог

Главная | Регистрация | Вход
Приветствую Вас Гость
RSS
Форма входа
Календарь
«  Декабрь 2008  »
Пн Вт Ср Чт Пт Сб Вс
1234567
891011121314
15161718192021
22232425262728
293031
Поиск
Друзья сайта
Статистика

Дневник


Главная » 2008 » Декабрь » 14

Скрипт "радара", радиус действия 100 м.

list gHere = [];

default
{
  state_entry()
  {
  llOwnerSay("Scanner initialised");
  // Clear any text hanging around
  llSetText("", <0,1,0>, 1.0);
  llSetAlpha(1.0, ALL_SIDES);
  // Start a sensor for agents within 20m
  llSensorRepeat("", NULL_KEY, AGENT, 300, PI, 2);
  }

  no_sensor()
  {
  // If nobody is detected, everyone has left
  // Go through old list and say that everyone on it has gone
  llSetText("", <0,1,0>, 1.0);
  if (gHere != []) {
  integer f;
  integer c = llGetListLength(gHere);
  for (f=0; f<c; f++) { // go through old list
  //llOwnerSay(llList2String(gHere, f) + " has left chat range");
  }
  gHere = [];
  }
  }

  sensor(integer total_number)
  {
  integer f;
  string name = "";
  string display = "";
  list here = [];
  string status = "";
  integer info = 0;
  ve ... Читать дальше »

Просмотров: 966 | Добавил: volldemar | Дата: 14.12.2008 | Комментарии (0)

Copyright MyCorp © 2025
Сайт управляется системой uCoz