Автозаточка, просто и сердито!

[Goodwin]

Здравствуйте! Пользуюсь скриптом под грацию , он работает , но иногда остонавливаеться и перестает точить =( Подскажите в чем проблема ...
Макс заточка стоит на 20 , он остонавливаеться произвольно иногда на 5-и иногда на 2-ух.

[neonv1]

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

Здравствуйте! Пользуюсь скриптом под грацию , он работает , но иногда остонавливаеться и перестает точить =( Подскажите в чем проблема ...
Макс заточка стоит на 20 , он остонавливаеться произвольно иногда на 5-и иногда на 2-ух.

втыкни deley ему, может поможет.

[ARHARUP]

При отправке скрипта l2phx вылетает с ошибкой
http://i077.radikal.ru/0911/0a/9f7ea6fa39d5.jpg
Как исправить?

[TAMBIK]

ARHARUP,

При отправке скрипта

его не надо никуда отправлять

[Lukito]

прошу помощи в переделке скрипта под сервер

моя версия:

PHP код:

const
   nik='nik';
   Enchant=5;

var
   UseItem, EnchantItem: string;
   Count, CurrentEnch: integer;
   Timer01: TTimer;

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=5000;
end;

procedure OnTimer01(Sender: TObject);
begin
   buf:=UseItem;
   SendToServerEx(nik);
   buf:=EnchantItem;
   SendToServerEx(nik);
end;

procedure Free;
begin
  Timer01.free;
  count:=0;
  CurrentEnch:=0;
end;

begin
    if FromServer then
       begin
           case pck[1] of
                 #$62: begin 
                        if (ReadD[02]=62) or (ReadD[02]=63) then 
                            CurrentEnch:=CurrentEnch+1
                        else 
                          if ReadD[02]=1517 then
                            CurrentEnch:=0;
                       if CurrentEnch=Enchant then 
                            Timer01.enabled:=false;
                       end;
           end; 
        end;
    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
    if FromClient and (pck=#$34#$02#$00#$00#$00) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end. 


Пакет Enchant Result и InventoryUpdate переделан админами и не показывает результата точки и уровня заточки предмета соответственно.

Я решил сделать с помощью просмотра пакета 62(системное сообщение об удачности\неудачности заточки),где значение 62 и 63 в строке 2 выдаются при удачной заточке и 1517 при неудачной.
При компиляции скрипта выдает ошибку "Array type required". Ошибка в строке 38("if (ReadD[02]=62) or (ReadD[02]=63 then").
Тут мои знания языка закончились и пришлось региться на форуме и писать вам

Добавлено:
Разобрался в чем проблема- скобки у ReadD были квадратные...
Невнимательность это нехорошо....

[Foil]

Подскажите плз!
Вотмой скрипт:const
nik='FoiL';
Enchant=15;

var
UseItem, EnchantItem: string;
Count, CurrentEnch: integer;
Timer01: TTimer;

procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=500;
end;

procedure OnTimer01(Sender: TObject);
begin
buf:=UseItem;
SendToServerEx(nik);
buf:=EnchantItem;
SendToServerEx(nik);
end;

procedure Free;
begin
Timer01.free;
count:=0;
CurrentEnch:=0;
end;

begin
if FromServer and (pck[1]=#$87) then
begin
CurrentEnch:=ReadD(2);
if CurrentEnch=Enchant then Timer01.enabled:=false;
end;
if FromClient and (pck[1]=#$19) then UseItem:=pck;
if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
if FromClient and (pck=#$34#$02#$00#$00#$00) then
begin
pck:='';
Timer01.enabled:=not(Timer01.enabled);
end;
end.
Я запускаю L2PacketHack потом Линейдж(tbs.org.ru); у мну ловит соединение!я добавлюю скрипт в скрипты в проге!
Дальше Обьянсните плз! Как запустить 1 соц действие(поподробней плз) Короч напишите что мне делать после того как добавил скрипт!

[TAMBIK]

Foil,
Прочитать тему - найдешь ответ

[Foil]

блин, хоть примерно напиши! Я шарился по теме, нашел! но не могу всеровно врубится! попродробней как сделать напиши !а !
if FromServer and (pck[1]=#$87) then
begin
CurrentEnch:=ReadD(2);
if CurrentEnch=Enchant then Timer01.enabled:=false;
end;
вот соц действие да? че с ним сделать чтобі начало работать? как его включить? если можно розжевать ато я в скрипте не шарю)

[TAMBIK]

Foil,

ПРОЧИТАТЬ НЕ СУДЬБА ???????????????????????????
http://coderx.ru/showpost.php?p=36606&postcount=251

на такой вопрос блокировать

[Lukito]

соц.действие - это действие из вкладочки "Действия" в игре,например Приветствие