Цитата:
Сообщение от NLObP
Ошибка в том, что в этом пакете нет уровня заточки, там только результат: 0 -заточил/1-сломал/2-в 0 сбросил
|
ты не прав
вот мой конец скрипта
Код:
begin
if FromServer and (ConnectName=Name) and (pck = HStr('87 19 00 00 00 00 00 00 00 00 00 00 00')) then begin
timer.enabled:=false;
end;
где 19 это уровень заточки .если перевести из байтов получается 25.
на 25 спокойно останавливается.
самое главное правильно все сделать
Код:
//Автоматизация заточки предметов до необходимого уровня.
//мини-скрипт идея, доработка Shizo.
//by Xelat
const
Name='CJIADKA9'; //без этого не останавливал timer.enabled:=false;
var
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=1000;
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
buf:=hstr('0C 02 30 03 10 00 00 00 00 ');скрол Ы виапон.если заточки остаются в котомке.то пакет не меняется
SendToServer;
buf:=hstr('43 4F 00 C9 A3 D2 10 ');вещь
SendToServer;
buf:=hstr('0C 02 30 03 10 00 00 00 00 ');
SendToServer;
buf:=hstr('43 4F 00 98 A4 D2 10 ');
SendToServer;
buf:=hstr('0C 02 30 03 10 00 00 00 00 ');
SendToServer;
buf:=hstr('43 4F 00 C9 A3 D2 10 ');
SendToServer;
buf:=hstr('0C 02 30 03 10 00 00 00 00 ');
SendToServer;
buf:=hstr('43 4F 00 98 A4 D2 10 ');
SendToServer;
buf:=hstr('0C 02 30 03 10 00 00 00 00 ');
SendToServer;
buf:=hstr('43 4F 00 15 A5 D2 10 ');
SendToServer;
buf:=hstr('68 A3 5F 01 00 16 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 FE FF FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ');покупка 5 заточек
SendToServer;
end;
begin
if FromServer and (ConnectName=Name) and (pck = HStr('87 19 00 00 00 00 00 00 00 00 00 00 00')) then begin
timer.enabled:=false;
end;
end.
в пм не писать,у кого не получается точите руками и не мучайте остальных.vlineage.ru очень баганный сервер.просто нужно правильно использовать баги.