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

[TAMBIK]

mks,
да напиши в начале большими буквами
Эти скрипты под хб,грацию
на интерлюде и с4 неробит

[drovishki]

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

громче хлопать просто надо!

:

[ake1a]

Уважамые скриптописальщики и так даее возникла пороблема... надеюсь поможете чу чуть... использую пакетхак l2phx.3.5.15.126.... сервер грация финал(ява) скрипт на автозаточку от "MKS" (спасибо Аффффтору)работает... как прерываеться не знаю не замечал.... ставлю на точ... все точит норм... выключаю манитор иди гулять ...прихожу с улицы... и вижу просто ТУПО рабочий стол компа и все... тоесть ла2 сама каким то макаром закрываеться или хрен пойми что с ней происходит.... ни крит ошибки ничего просто рабочий стол и все ((... помигите плз... Может кто и сталкивался с такой ошибкой....???
P.S. Постоянно ла2 закрываеться автоматом... или кикает или хз что происходит... так пробывал более 5 раз

[pixel]

Сервер Hellbound,соединение перехватывает нормально,ник отобр.норм.,вот скрипт:

const
   nik='pixel';
   Enchant=13;

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

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

procedure OnTimer01(Sender: TObject);
begin
   buf:=UseItem;
   SendToServerEx(nik);
   buf:=EnchantItem;
   SendToServerEx(nik);
   if CurrentEnch=Enchant-1 then Timer01.enabled:=false;
end;

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

begin
    if FromServer and (pck[1]=#$87) then CurrentEnch:=ReadD(2);
    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.

При запуске скрипта l2ph вылетает со стандартной ошибкой "отправлять/не отправлять". Соединение с сервером рвётся.
В чём загвоздка?

[OoJokeRoO]

блиннн
тогда никто незнает скрипта на интерлюд?) оч надо, серв весь переточеный ппц))

[xXxMassarakshxXx]

перерыл ввесь форум но такого скрипта на интерлюд так и не нашол, у меня на сервере если пуха сгорает то заточка не на 0 прыгает а на 30 поетому скрипт NLObP не прокатит,виснет l2phx(гугл тоже не помог,дайте скриптец если у кого есть плиз =)

[QaK]

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

дайте скриптец если у кого есть плиз =)

ни у кого нету, если только самому адаптировать под свой сервак

[xXxMassarakshxXx]

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

ни у кого нету, если только самому адаптировать под свой сервак

я в скриптинге не селен ,сам не напишу (
//QaK: учиьтся, учиться и еще раз учиться

[Grinch]

читать FaQ

[TAMBIK]

вроде так под ИНТЕРЛЮД

const
   nik='pixel';
   Enchant=13;

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

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=800;
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]=#$81) then case ReadD(2) of
       0: begin
          CurrentEnch:=CurrentEnch+1;
          if CurrentEnch=Enchant then Timer01.enabled:=false;
          end;
       2: CurrentEnch:=0;
       end;


    if FromClient and (pck[1]=#$14) then UseItem:=pck;
    if FromClient and (pck[1]=#$58) then EnchantItem:=pck;
    if FromClient and (pck=#$1B#$02#$00#$00#$00) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.