Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 29.04.2009, 22:11   #11
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

да убить пакет который до клиента идёт, о том что на тебя мираж сработал ну и для пущего понта актион пакет отправить сразу же, правда надо тестить возможно повторный актион будет фатален для магов
Grinch вне форума   Ответить с цитированием
Старый 29.04.2009, 23:45   #12
Новичок
 
Регистрация: 19.04.2009
Сообщений: 11
Сказал Спасибо: 2
Имеет 0 спасибок в 0 сообщенях
Auromy пока неопределено
По умолчанию

Хм.. а можно поподробнее?

Добавлено через 5 минут
И ещё вопрос что нужно из пакетов (значений) поменять, чтобы на грации2 работало?

Последний раз редактировалось Auromy, 29.04.2009 в 23:45. Причина: Добавлено сообщение
Auromy вне форума   Ответить с цитированием
Старый 30.04.2009, 12:32   #13
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

delphi Код:
// Автоматический поиск PK поблизости. Если PK игрок находится рядом с вами, то можно: // Автоматически взять его в цель и/или вывести сообщение в чат // Команды для управления скриптом (все они вводятся в чат): // Включить автоматическое взятие PK в цель - %pk_target 1 // Выключить автоматическое взятие PK в цель - %pk_target 0 // Включить уведомление в чат при обнаружении поблизости PK - %pk_msg 1 // Выключить уведомление в чат при обнаружении поблизости PK - %pk_msg 0 // Автор: Furious // Версия: 0.1 var ObjectID, Karma, Target, Message, i: Integer; Name, Cvar: String; procedure SendMsg(Msg:string);   begin     buf:=#$4A;     WriteD(0);     WriteD(10);     WriteS('');     WriteS(Msg);     SendToClient;   end; [b]procedure TargetPK(ObjectID: Integer);   begin     buf:=#$04;     WriteD(ObjectID);     SendToServer;   end; begin   if FromServer and (pck[1]=#$03) then     begin       i:=18;       ObjectID:=ReadD(i);       Name:=ReadS(i);       Karma:=ReadD(i+60);       if (Karma>0) then         begin           if Message=1 then SendMsg('PK с ником '+Name+' находится поблизости!');           if Target=1 then TargetPK(ObjectID);         end;       end;[/b]   if FromClient and (pck[1]=#$38) then     begin       Cvar:=ReadS(2);       case Cvar of         'pk_target 1':           begin             Target:=1;             SendMsg('Автоматическое взятие PK в цель включено!');           end;         'pk_target 0':           begin             Target:=0;             SendMsg('Автоматическое взятие PK в цель выключено!');           end;         'pk_msg 1':           begin             Message:=1;             SendMsg('Вывод сообщения в чат при обнаружении PK включено!');           end;         'pk_msg 0':           begin             Message:=0;             SendMsg('Вывод сообщения в чат при обнаружении PK выключено!');           end;       end;     end; end.

из скрипта использовать .Автотаргент

Добавлено через 32 минуты

delphi Код:
// будет блокироваться пакет( 24) от сервера сброс таргента begin if FromServer and (pck[1]=#$24) then pck:=''; end.

Последний раз редактировалось TAMBIK, 30.04.2009 в 18:14. Причина: Добавлено сообщение
TAMBIK вне форума   Ответить с цитированием
Старый 30.04.2009, 15:13   #14
Пользователь
 
Регистрация: 11.04.2009
Адрес: lameriy
Сообщений: 34
Сказал Спасибо: 9
Имеет 1 спасибку в 1 сообщении
lamer пока неопределено
По умолчанию

кстати такой скриптик очень поможет на олимпе, такчто подожду готовую версию!!
lamer вне форума   Ответить с цитированием
Старый 30.04.2009, 18:32   #15
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

delphi Код:
//помошник в PvP  освобождает вас от небоходимости зажатия клавиши Ctrl, const Name='хххххххх'; //ник перса begin //если используем скилы или заклинания добавляем флаг Ctrl, что б не надо было удерживать контрол if FromClient and (ConnectName=Name) and (pck[1]=#$2F) then pck[6]:=#$01; //если наводим таргет, повторное нажатие по нему подменивается на атаку, опять же что б не удерживать контрол if FromClient and (ConnectName=Name) and (pck[1]=#$04) then pck[1]:=#$0A; end.
Как сделать чтоб по соц действиям
ДА-вкл скрипт
НЕТ-выключить
ша проьовал куски от разных скриптов клеел неполучилось
Я ТУП!!!!!!!!!!!!!!!!!!

Тему так и начинал чтоб управление скриптом сделать
TAMBIK вне форума   Ответить с цитированием
Старый 30.04.2009, 19:18   #16
Местный
 
Регистрация: 06.02.2008
Сообщений: 103
Сказал Спасибо: 13
Имеет 8 спасибок в 6 сообщенях
Stasrus
По умолчанию

Пробуй
ДА-вкл скрипт
НЕТ-выключить
delphi Код:
//помошник в PvP  освобождает вас от небоходимости зажатия клавиши Ctrl, const Name='хххххххх'; //ник перса var x: integer; procedure SendMsg(msg:string); begin   buf:=#$4A;   WriteD(0);   WriteD(10);   WriteS('');   WriteS(msg);   SendToClient; end; begin if x=1 then begin //если используем скилы или заклинания добавляем флаг Ctrl, что б не надо было удерживать контрол if FromClient and (ConnectName=Name) and (pck[1]=#$2F) then pck[6]:=#$01; //если наводим таргет, повторное нажатие по нему подменивается на атаку, опять же что б не удерживать контрол if FromClient and (ConnectName=Name) and (pck[1]=#$04) then pck[1]:=#$0A; end;  begin  if FromClient  and (pck[1]=#$34) and (pck[2]=#$06) then begin  x:=1;  SendMsg('Включено!');   end;  if FromClient  and (pck[1]=#$34) and (pck[2]=#$05) then begin  x:=0;  SendMsg('Выключено!');  end;  end; end.

Последний раз редактировалось Stasrus, 30.04.2009 в 19:34. Причина: Исправил скрипт
Stasrus вне форума   Ответить с цитированием
За это сообщение Stasrus нажился спасибкой от:
Старый 30.04.2009, 21:56   #17
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

procedure SendMsg(msg:string);

ошибка
TAMBIK вне форума   Ответить с цитированием
Старый 01.05.2009, 00:55   #18
Местный
 
Регистрация: 06.02.2008
Сообщений: 103
Сказал Спасибо: 13
Имеет 8 спасибок в 6 сообщенях
Stasrus
По умолчанию

Можно полный текст ошибки? такого не должно быть...
Stasrus вне форума   Ответить с цитированием
Старый 01.05.2009, 01:13   #19
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

переименовать все SendMsg в скрипте на SendMsg2
ибо есть встроенная SendMsg пишушая сообщения в лог PH
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 07.05.2009, 15:01   #20
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

так вроде лучше
delphi Код:
var x: integer; procedure SendMsg2(msg:string); begin   buf:=#$4A;   WriteD(0);   WriteD(9);   WriteS('');   WriteS(msg);   SendToClient; end; begin if x=1 then begin //если используем скилы или заклинания добавляем флаг Ctrl, что б не надо было //удерживать контрол if FromClient and (pck[1]=#$39) then pck[6]:=#$0F; //если наводим таргет, повторное нажатие по нему подменивается на атаку, опять же //что б не удерживать контрол if FromClient and (pck[1]=#$1F) then pck[1]:=#$01; end;  begin  if FromClient  and (pck[1]=#$34) and (pck[2]=#$06) then begin  x:=1;  SendMsg2('Включено!');  pck:='';  exit; end;    if FromClient  and (pck[1]=#$34) and (pck[2]=#$05) then begin  x:=0;  SendMsg2('Выключено!');  pck:='';  exit;   end;  end; end.
а е с 3 шока

Последний раз редактировалось TAMBIK, 07.05.2009 в 15:19.
TAMBIK вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 14:20.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!