PickPickPick Суббота, 14.06.2025, 20:56
Приветствую Вас Гость | RSS
Главная | Каталог статей | Регистрация | Вход
Меню сайта


Категории раздела
Баги [34]
Сервера [0]

Наш опрос
Во что вы больше играете?
Всего ответов: 94

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Главная » Статьи » Lineage » Баги [ Добавить статью ]

скрипт для показа цели на радаре
Cкрипт для показа цели на радаре
Скрипт для установки стрелки (радара) над чаром к цели, при использовании таргета:
Выделяете NPC, чара или моба. И у вас над головой появляется стрелка, указывающая путь к объекту. Включается и выключается социальными действиями Yes и No. Также удобно пользовать /target name, стрелка тут в самый раз будет найти нужный объект.


Файл: target_radar.pas
Код скрипта


// Установка стрелки (радара) над чаром к цели, при использовании таргета
// Чтобы включить скрипт используйте в игре социальное действие - Yes
// Чтобы выключить скрипт используйте в игре социальное действие - No
// Автор: Furious
// Версия: 0.2

var
Attacker, SocialID, CorX, CorY, CorZ, Status: Integer;

procedure TargetRadar(CorX, CorY, CorZ: Integer);
begin
buf:=#$EB;
WriteD(0);
WriteD(1);
WriteD(CorX);
WriteD(CorY);
WriteD(CorZ);
SendToClient;
end;

procedure TargetRadarDrop;
begin
buf:=#$EB;
WriteD(2);
WriteD(1);
WriteD(0);
WriteD(0);
WriteD(0);
SendToClient;
end;

begin
if FromClient and (pck[1]=#$1B) then
begin
SocialID:=ReadD(2);
case SocialID of
6:Status:=1;
5:Status:=0 and TargetRadarDrop;
end;
end;
if Status=1 then
begin
if FromServer and (pck[1]=#$61) then
begin
CorX:=ReadD(6);
CorY:=ReadD(10);
CorZ:=ReadD(14);
TargetRadar(CorX, CorY, CorZ);
end;
end;
end.
Категория: Баги | Добавил: Metal (05.01.2010)
Просмотров: 613 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Вход на сайт

Поиск

Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz


  • Copyright MyCorp © 2025