Добавлено через 1 минуту
Уже разобрано довольно много пакетов, так что наверное к концу месяца выложу обновленные файлы T3packets.ini и T3packets.fsc чтобы вы не мучались вручную вводя все исправления.
function GetChat(ar1 : integer) : string;
// внешняя ф-ция, вызывается не из скрипта, а по аргументу
// :Get.Chat
begin
if ar1 > $FF then result := IntToBin(ar1,2)
else
case ar1 of
$00: result := 'Объявление';
$01: result := 'Белый чат';
$02: result := 'Приват';
$03: result := 'Группа';
$04: result := 'Основатель';
$05: result := 'ГМ';
$07: result := 'Гильдия';
$09: result := '/map чат';
$0A: result := 'Архон';
$0B: result := 'Представитель';
$0С: result := 'Приват';
$0D: result := 'Представитель ГЛ';
$0E: result := '/all чат';
$0F: result := 'Приветствие ГМ';
$10: result := 'Приветствие РЛ';
$11: result := 'Приветствие ГЛ';
$12: result := 'Основатель объявление';
$13: result := '/sell чат';
else result := '? unknown';
end;
result := #2#3'23'+result+#15;
end;
function GetTarget(ar1 : integer) : string;
// внешняя ф-ция, вызывается не из скрипта, а по аргументу
// :Get.Target
begin
if ar1 > $FF then result := IntToBin(ar1,2)
else
case ar1 of
00: result := 'Персонаж';
01: result := 'Моб';
02: result := 'НПС';
else result := '? unknown';
end;
result := #2#3'23'+result+#15;
end;
Добавлено через 2 часа 52 минуты
Чегой то меня давно никто не хвалил? Столько информации тут. Или может быть это все под хайд спрятать?
Последний раз редактировалось broveymimo; 10.02.2010 в 17:01.
Причина: Добавлено сообщение
function GethCoord(ar1 : integer) : string;
// внешняя ф-ция, вызывается не из скрипта, а по аргументу
// :Get.hCoord - вернет координату со знаком
begin
result := IntToStr(ar1);
if ar1 > 32768 then result:=IntToStr(ar1-65536);
end;
function GetLocation(ar1 : integer) : string;
// внешняя ф-ция, вызывается не из скрипта, а по аргументу
// :Get.Location
begin
if ar1 > $FF then result := IntToBin(ar1,2)
else
case ar1 of
$00: result := 'ГШ Беллато';
$01: result := 'ГШ Кор';
$02: result := 'Краговы шахты';
$03: result := 'ГШ Акретов';
$04: result := 'Солус';
$05: result := 'Анакада';
$06: result := 'Харам';
$07: result := 'Нумерус';
$08: result := 'Застава 213';
$09: result := 'Застава 117';
$0A: result := 'Этер';
$0B: result := 'Сеттова пустыня';
$0C: result := 'Отроги Котла Вулкан';
$0D: result := 'Элан';
else result := '? unknown';
end;
result := #2#3'23'+result+#15;
end;
