Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[QaK]

reis, берешь скрипт на точку, копируешь его n-e количество раз, где n - нужное тебе количество чаров, в скриптах вместо SendToServer пишешь SendToServerEx('Имячара'), вместо SendToClient пишешь SendToClientEx('Имячара') Имячара заменить на имя твоего чара, запускаешь каждый скрипт для своего чара =)

[reis]

сэнкс, понял свою ошибку в синтаксисе, писал имя чара без кавычки одиночной

Добавлено через 3 часа 52 минуты
пробовал изменить скрипт на автозаточку от TAMBIK'a, изменил все, как было выше описано, но когда начинаю ставить второе окно на заточку, то макс. уровень пишется в первом, также и заточка начинается в первом окне, т.к. id заточек и предметов одинаковы.

что вы по этому поводу мне скажете?

[J-Fobos]

Сообщение от reis

сэнкс, понял свою ошибку в синтаксисе, писал имя чара без кавычки одиночной

Добавлено через 3 часа 52 минуты
пробовал изменить скрипт на автозаточку от TAMBIK'a, изменил все, как было выше описано, но когда начинаю ставить второе окно на заточку, то макс. уровень пишется в первом, также и заточка начинается в первом окне, т.к. id заточек и предметов одинаковы.

что вы по этому поводу мне скажете?

покажите как изменили скрипт (для 1 и 2 окна)

ps: в тег [ code ] скрипты возьмите, для удобства

[reis]

Для первого окна:

   const
   myname='1';

   max=200;

   xxx=10;

   chat = 3;

//===========================================
procedure SendMsg2(msg:string);
begin 
if autoMsg then begin
  buf:=#$4A;
  WriteD(0);
  WriteD(chat);// <<=куда выводить сообщения
  WriteS('');
  WriteS(msg);
  SendToClientEx('1');
end;
end;
//===========================================

//==========================================
procedure ActionUse;
 begin
   case ReadD(2) of
 12:begin  autoMsg:=true; end;
 13:begin  autoMsg:=false; end;
 24:begin 
if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
if (maxlvl=0) then SendMsg2( '  Неуказан Уровень Заточки  !' );
SendMsg2( '_______________________________' );
if autostart and  (maxlvl>0)  then begin
 buf:=hstr('14');
 SendToServerEx('1');
 SendMsg2( '        ! ! !   П О Е Х А Л И    ! ! !' );
 SendMsg2( '_______________________________' );
 start:=true;
  end;
  end;
 25:begin
  SendMsg2( '         ! ! !   С Т О П   ! ! ! ' );
  stopEnchantItem;// остановка скрипта
 end;
 end;
end;
//==========

//==========================
procedure stopselectskrol;// отмена выбора скролл
begin
  buf:=hstr('D04E00');
 SendToServerEx('1');
end;
//===================================

//===================================
procedure OnTimer01(Sender: TObject);
begin
 buf:=#$19;
 WriteD(skrolObject);
 WriteD(0);
 SendToServerEx('1');
 Timer01.enabled:=false;
end;
//--------------------------
procedure OnTimer02(Sender: TObject);
begin
 buf:=hstr('D04C00');
 WriteD(enchantID);
 SendToServerEx('1');
 Timer02.enabled:=false;
// Timer03.enabled:=true;
end;
procedure OnTimer03(Sender: TObject);
begin 
 buf:=#$5F;
 WriteD(enchantID);
 WriteD(0);
 SendToServerEx('1');
 Timer03.enabled:=false;
 end;
//-----------------------------------------

//=========================
procedure OpenInventory;//открыть инвентарь.14=RequestItemList
begin
buf:=hstr('14');
SendToServerEx('1');
end;
//=========================

Для второго окна:

   const
   myname='2';

   max=200;

   xxx=10;

   chat = 3;

//===========================================
procedure SendMsg2(msg:string);
begin 
if autoMsg then begin
  buf:=#$4A;
  WriteD(0);
  WriteD(chat);// <<=куда выводить сообщения
  WriteS('');
  WriteS(msg);
  SendToClientEx('2');
end;
end;
//===========================================

//==========================================
procedure ActionUse;
 begin
   case ReadD(2) of
 12:begin  autoMsg:=true; end;
 13:begin  autoMsg:=false; end;
 24:begin 
if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
if (maxlvl=0) then SendMsg2( '  Неуказан Уровень Заточки  !' );
SendMsg2( '_______________________________' );
if autostart and  (maxlvl>0)  then begin
 buf:=hstr('14');
 SendToServerEx('2');
 SendMsg2( '        ! ! !   П О Е Х А Л И    ! ! !' );
 SendMsg2( '_______________________________' );
 start:=true;
  end;
  end;
 25:begin
  SendMsg2( '         ! ! !   С Т О П   ! ! ! ' );
  stopEnchantItem;// остановка скрипта
 end;
 end;
end;
//==========

//==========================
procedure stopselectskrol;// отмена выбора скролл
begin
  buf:=hstr('D04E00');
 SendToServerEx('2');
end;
//===================================

//===================================
procedure OnTimer01(Sender: TObject);
begin
 buf:=#$19;
 WriteD(skrolObject);
 WriteD(0);
 SendToServerEx('2');
 Timer01.enabled:=false;
end;
//--------------------------
procedure OnTimer02(Sender: TObject);
begin
 buf:=hstr('D04C00');
 WriteD(enchantID);
 SendToServerEx('2');
 Timer02.enabled:=false;
// Timer03.enabled:=true;
end;
procedure OnTimer03(Sender: TObject);
begin 
 buf:=#$5F;
 WriteD(enchantID);
 WriteD(0);
 SendToServerEx('2');
 Timer03.enabled:=false;
 end;
//-----------------------------------------

//=========================
procedure OpenInventory;//открыть инвентарь.14=RequestItemList
begin
buf:=hstr('14');
SendToServerEx('2');
end;
//=========================

Приведены куски кода в которых что-то изменялось, остальное осталось неизменно.

пользуюсь этим скриптом: Auto_enchant + 1 _selectskroll - gracia_final.rar

[J-Fobos]

Ну для начала бросилось в глаза что у вас есть const myname='1'; и это значит что надо писать SendToServerEx(myname);.
А в скрипте тамбика хватает только в строчке myname='TAMBIK'; написать ник, а остальной скрипт трогать не надо.

[reis]

Сообщение от J-Fobos

Ну для начала бросилось в глаза что у вас есть const myname='1'; и это значит что надо писать SendToServerEx(myname);.

да, так оно изначально и было, просто попробовал по совету QaK'a сделать.

Сообщение от J-Fobos

А в скрипте тамбика хватает только в строчке myname='TAMBIK'; написать ник, а остальной скрипт трогать не надо.

если ничего не менять, то эффект такой же как я и писал. когда настраиваю энчант во втором окне, то все действия перенаправляются в первое.

[J-Fobos]

reis, по совету QaK вы должны были менять SendToServer на SendToServerEx, а в скрипте который вы хотите использовать нету SendToServer, там только SendToServerEx, заменять нечего

Я проверил скрипт на 2-х окнах, отлично работает если менять только 1 строку (с ником)

[reis]

Сообщение от J-Fobos

reis, по совету QaK вы должны были менять SendToServer на SendToServerEx, а в скрипте который вы хотите использовать нету SendToServer, там только SendToServerEx, заменять нечего

от безисходности пробовал всё что только можно и нельзя)

Сообщение от J-Fobos

Я проверил скрипт на 2-х окнах, отлично работает если менять только 1 строку (с ником)

пойду ещё разок попробую)

Добавлено через 35 минут
нет, ну это издевательство запускаю скрипты, пытаюсь во втором окне установить хотя бы уровень макс. заточки, пишу эти, чертовы, циферки, а уведомление о том что установлен макс. уровень заточки приходит в первое окно.

[Tampler1]

Подскажите как заблокировать пакет, исходящий от клиента?

Вот пакет исходящий от клиента 39 3A 00 00 00 00 00 00 00 00 (юз скил лечения)
Хочу чтобы при нажатии на скил, ничего не происходило
пишу:

Begin
if FromClient and (pck[1]=#$39) then pck:=' ';
end.

Где я допустил ошибку ?
Сервер Грация Финал
2лпх 3.5 вериси

[reis]

Tampler1, вот так будет правильнее:

begin
  if FromClient and (ConnectName='НИК') 
  and (pck=HStr('***')) then pck:='';
end.

где *** - строка из пакета "RequestMagicSkillUse"