Цитата:
Сообщение от 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)."
че с этим сделать ?
сорри я туплю.. увеличил макс размер лога.. все кул..
и ещё при высоком пинге пакет на проверку неуспевает проверять и отправляет следущий пакет на точку ))
а так все отлично .. пойду искать заранее вариант как как зайти на забан акк..чтобы помто можно было всё это снять )