Скрипт на заточку

[Shizo]

Значит так я немного подкоректировал и уааля!

Заточка для грации 2

//Автоматизация заточки предметов до необходимого уровня.
//мини-скрипт идея, доработка Shizo.
//by Xelat
const
      Name='/свое имя/'; //без этого не останавливал timer.enabled:=false;
var
  timer:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=2000;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
end;
procedure Free;
begin
  timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('/пакет открытия точки/');
  SendToServer;
  buf:=hstr('/пакет вещи в слот/');
  SendToServer;
  buf:=hstr('/пакет завершения точки (для ускорения процеса)/');
  SendToServer;
end;
begin
  if FromServer and (ConnectName=Name) and (pck = HStr('/Сюда пакет с нужной заточкой пухи!(это важно нада пральный пакет)/')) then begin
    timer.enabled:=false;
  end;
end.

спасибо за помощь все работает проверено на грации 2

[roah]

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

Значит так я немного подкоректировал и уааля!

Заточка для грации 2

//Автоматизация заточки предметов до необходимого уровня.
//мини-скрипт идея, доработка Shizo.
//by Xelat
const
      Name='/свое имя/'; //без этого не останавливал timer.enabled:=false;
var
  timer:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=2000;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
end;
procedure Free;
begin
  timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('/пакет открытия точки/');
  SendToServer;
  buf:=hstr('/пакет вещи в слот/');
  SendToServer;
  buf:=hstr('/пакет завершения точки (для ускорения процеса)/');
  SendToServer;
end;
begin
  if FromServer and (ConnectName=Name) and (pck = HStr('/Сюда пакет с нужной заточкой пухи!(это важно нада пральный пакет)/')) then begin
    timer.enabled:=false;
  end;
end.

спасибо за помощь все работает проверено на грации 2

всё бы хорошо но вылазиет ошибка "List index out of bounds (2999)."

че с этим сделать ?

сорри я туплю.. увеличил макс размер лога.. все кул..

и ещё при высоком пинге пакет на проверку неуспевает проверять и отправляет следущий пакет на точку ))

а так все отлично .. пойду искать заранее вариант как как зайти на забан акк..чтобы помто можно было всё это снять )

[YssurTiger]

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

Значит так я немного подкоректировал и уааля!

Заточка для грации 2

const
      Name='/свое имя/'; //без этого не останавливал timer.enabled:=false;
begin
  if FromServer and (ConnectName=Name) and (pck = HStr('/Сюда пакет с нужной заточкой пухи!(это важно нада пральный пакет)/')) then begin
    timer.enabled:=false;
  end;
end.

я попробовал на своем серве gracia part 2 когда использовал без // работало отлично только не останавливало,а с // сразу пишет l2...чето ошибка какаето и ниже зеленым по синему написано Читер?? читерить плохо(ну походу админ посторался на славу)как можно преодолеть ету трудность?
Сюда пакет с нужной заточкой пухи - с этим чучуть непонял,у меня по завершению точения приходит 2 пакета один 87 02 00 00 00 00 00
02 как я понял ур заточки даной вещи,а вот что за второй пакет фиг знает.
можно удалить мое сообшение..сам во всем разобрался,просто немного затупил..нету версию юзал а там пакет под другим названием был=)))