L2-Community.com - Bce o Lineage II  
Главная Регистрация Справка Пользователи Поиск Сообщения за день Все разделы прочитаны
 
 

Вернуться   L2-Community.com - Bce o Lineage II > Форум Lineage II > Боты и эмуляторы > Скрипты

Ответ
 
Опции темы Опции просмотра
Старый 26.01.2011, 09:19   #1
dennipot
No Active
 
Регистрация: 22.01.2011
Сообщений: 5
Вы сказали Спасибо: 0
Поблагодарили: 0 раз(а) в 0 сообщениях
По умолчанию И снова совмещение скриптов WPF

При попытке совмещения двух нижеприведенных скриптов, при логине к гейм серверу выдается ошибка. Когда скрипты подлючены отдельно, всё работает. Мне очень необходимо чтобы скрипты были и работали корректно в одном. Прошу помощи

Код HTML:
BEGIN
if (Copy(_gBuff,3,1)=#$B9) and (Copy(_gBuff,8,2)=#$FE+#$FF) then _gOutBuff:=Copy(_gBuff,1,7)+#0+#0+#0+#0+#0+#0;
if (_gbuff=#$03+#0+#$F9) then gBlockPacket;
If (_gBuff=#$02+#0) then gBlockPacket;
if (length(_gbuff) <> Gint(_gbuff,1,2)) and Gint(_gBuff,1,2)<> 2 then _gOutBuff:=Hpck(BufToHex(Copy(_gBuff,3,length(_gbuff)-2)));
if (length(_gbuff) <> Gint(_gbuff,1,2)) and (Gint(_gBuff,1,2) = 2) then _gOutBuff:=Copy(_gBuff,3,length(_gbuff)-2);
end;
и
Код HTML:
var
  PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurCP : Integer;
  PName,StatusPacket : String;

BEGIN
  if _gFromServ then
    begin
      if StrCmp(copy(_gbuff,3,1),#$52) then // PartySmallWindowUpdate
        begin
          gSys.EnSendC(_gbuff);
          ScanPck5(_gbuff,ScanPck5(_gbuff,4,'dsddd',PObjectID,PName,PCurCP,PMaxCP,PCurHP),'ddd',PMaxHP,PCurMP,PMaxMP,null,null);
          StatusPacket := FormatPck('%cdddddddddddddd',[$0E,PObjectID,6,$09,PCurHP,$0A,PMaxHP,$0B,PCurMP,$0C,PMaxMP,$21,PCurCP,$22,PMaxCP]);
          gSys.EnSendC(StatusPacket);
        end;
    end;
END.
dennipot вне форума   Ответить с цитированием
Sponsored Links
Старый 26.01.2011, 21:31   #2
J-Fobos
Member of L2 Community
 
Аватар для J-Fobos
 
Регистрация: 30.05.2008
Адрес: город темных эльфов
Сообщений: 1,311
Вы сказали Спасибо: 82
Поблагодарили: 407 раз(а) в 243 сообщениях
По умолчанию

Код:
var
  PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurCP : Integer;
  PName,StatusPacket : String;


BEGIN
if (Copy(_gBuff,3,1)=#$B9) and (Copy(_gBuff,8,2)=#$FE+#$FF) then _gOutBuff:=Copy(_gBuff,1,7)+#0+#0+#0+#0+#0+#0;
if (_gbuff=#$03+#0+#$F9) then gBlockPacket;
If (_gBuff=#$02+#0) then gBlockPacket;
if (length(_gbuff) <> Gint(_gbuff,1,2)) and Gint(_gBuff,1,2)<> 2 then _gOutBuff:=Hpck(BufToHex(Copy(_gBuff,3,length(_gbuff)-2)));
if (length(_gbuff) <> Gint(_gbuff,1,2)) and (Gint(_gBuff,1,2) = 2) then _gOutBuff:=Copy(_gBuff,3,length(_gbuff)-2);
if _gFromServ then
    begin
      if StrCmp(copy(_gbuff,3,1),#$52) then // PartySmallWindowUpdate
        begin
          gSys.EnSendC(_gbuff);
          ScanPck5(_gbuff,ScanPck5(_gbuff,4,'dsddd',PObjectID,PName,PCurCP,PMaxCP,PCurHP),'ddd',PMaxHP,PCurMP,PMaxMP,null,null);
          StatusPacket := FormatPck('%cdddddddddddddd',[$0E,PObjectID,6,$09,PCurHP,$0A,PMaxHP,$0B,PCurMP,$0C,PMaxMP,$21,PCurCP,$22,PMaxCP]);
          gSys.EnSendC(StatusPacket);
        end;
    end;

end;
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 26.01.2011, 21:58   #3
dennipot
No Active
 
Регистрация: 22.01.2011
Сообщений: 5
Вы сказали Спасибо: 0
Поблагодарили: 0 раз(а) в 0 сообщениях
По умолчанию

Цитата:
Сообщение от J-Fobos Посмотреть сообщение
Код:
var
  PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurCP : Integer;
  PName,StatusPacket : String;


BEGIN
if (Copy(_gBuff,3,1)=#$B9) and (Copy(_gBuff,8,2)=#$FE+#$FF) then _gOutBuff:=Copy(_gBuff,1,7)+#0+#0+#0+#0+#0+#0;
if (_gbuff=#$03+#0+#$F9) then gBlockPacket;
If (_gBuff=#$02+#0) then gBlockPacket;
if (length(_gbuff) <> Gint(_gbuff,1,2)) and Gint(_gBuff,1,2)<> 2 then _gOutBuff:=Hpck(BufToHex(Copy(_gBuff,3,length(_gbuff)-2)));
if (length(_gbuff) <> Gint(_gbuff,1,2)) and (Gint(_gBuff,1,2) = 2) then _gOutBuff:=Copy(_gBuff,3,length(_gbuff)-2);
if _gFromServ then
    begin
      if StrCmp(copy(_gbuff,3,1),#$52) then // PartySmallWindowUpdate
        begin
          gSys.EnSendC(_gbuff);
          ScanPck5(_gbuff,ScanPck5(_gbuff,4,'dsddd',PObjectID,PName,PCurCP,PMaxCP,PCurHP),'ddd',PMaxHP,PCurMP,PMaxMP,null,null);
          StatusPacket := FormatPck('%cdddddddddddddd',[$0E,PObjectID,6,$09,PCurHP,$0A,PMaxHP,$0B,PCurMP,$0C,PMaxMP,$21,PCurCP,$22,PMaxCP]);
          gSys.EnSendC(StatusPacket);
        end;
    end;

end;
Спасибо за помощь, но, к сожалению, результат прежний - "Login GameServer Fail"
dennipot вне форума   Ответить с цитированием
Старый 27.01.2011, 20:41   #4
J-Fobos
Member of L2 Community
 
Аватар для J-Fobos
 
Регистрация: 30.05.2008
Адрес: город темных эльфов
Сообщений: 1,311
Вы сказали Спасибо: 82
Поблагодарили: 407 раз(а) в 243 сообщениях
По умолчанию

Я специально не исправил ошибки в скриптах что вы дали. В начальных скриптах 2 ошибки, в конечном те же 2 ошибки. Если вы написали что скрипты с этими ошибками работают, значит и конечный скрипт с этими ошибками будет работать А если не так, то исправьте их.
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 30.01.2011, 23:52   #5
dennipot
No Active
 
Регистрация: 22.01.2011
Сообщений: 5
Вы сказали Спасибо: 0
Поблагодарили: 0 раз(а) в 0 сообщениях
По умолчанию

Цитата:
Сообщение от J-Fobos Посмотреть сообщение
Я специально не исправил ошибки в скриптах что вы дали. В начальных скриптах 2 ошибки, в конечном те же 2 ошибки. Если вы написали что скрипты с этими ошибками работают, значит и конечный скрипт с этими ошибками будет работать А если не так, то исправьте их.
Видимо, вы не совсем внимательно прочли мой первый пост.
dennipot вне форума   Ответить с цитированием
Старый 31.01.2011, 00:10   #6
J-Fobos
Member of L2 Community
 
Аватар для J-Fobos
 
Регистрация: 30.05.2008
Адрес: город темных эльфов
Сообщений: 1,311
Вы сказали Спасибо: 82
Поблагодарили: 407 раз(а) в 243 сообщениях
По умолчанию

Очень внимательно, особенно обратил внимание на фразу "Прошу помощи", здесь вы явно дали понять, что вам нужна помощь в совмещении скриптов, а не готовый результат.
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Ответ

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

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход




Powered by vBulletin® Version 3.7.5
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. Перевод: zCarot
Advertisement System V2.5 By   Branden
L2-Community ©2008-2015


Еще можно прочесть: