2
NLObP: Сори за тупняк... Ну не вышел из меня программист, учился на дизигнера
2
HORSE: Давно скрипт проверял на работоспособность?)
PHP код:
//Объявление переменных
const
Name='dev'; //Имя чара
var
timer:TTimer; //Инициация таймера
x:byte; //Стартовое значение как я понимаю
procedure Init; //Вызывается при включении скрипта
begin
timer:=TTimer.Create(nil); //Создаётся объект таймера
timer.interval:=150; //Присваиваем значение параметру интервала
timer.OnTimer:=@fireTimer; //Вызов процедуры
timer.enabled:=true; //По умолчанию на момент начала работы скрипта таймер активен
x:=1; //Стартовое значение как я понимаю, вот только не пойму... (x:byte; / x:=1;) Что есть что?)
end;
procedure Free; //Вызывается при выключении скрипта
begin
timer.Free; //Кукожим таймер чтоли?)
end;
procedure fireTimer(Sender: TObject); //...
begin
case x of
1:begin
//buf:=hstr('5F EC 4C 0B 10 00 00 00 00 '); //Пакет юза энча на нужный предмет
//Однако В данном случае будут приходить пакеты ошибочного действия
buf:=hstr('19 D6 4E 04 10 00 00 00 00 '); //Пакет юза энча
SendToServerEx(Name);
inc(x);
end;
2:begin
buf:=hstr('5F EC 4C 0B 10 00 00 00 00 '); //Пакет юза энча на нужный предмет
SendToServerEx(Name);
x:=1;
end;
end;{case} //Что значит "{case}"?
end;
// Проверка состояния предмета (я взялся точить след. предмет: Серьга Династии (ID:9455))
begin
if FromServer then
begin
case pck[1] of
#$21: begin //InventoryUpdate
if (ReadD(12)=9455) and (ReadD(34)=5) then timer.enabled:=false;; //12 - ID, 34 - уровень энча
end;
end;
end;
end.
// Скрипт не видит конца и продолжает точить, даже если условия (+5) выполнены.
// Пакетов типа 0x21 приходит 2:
// 1 - оставшиеся энчи
// 2 - состояние предмета
// Была мысль, что проблема кроется тут.
Оффтоп
PS по дефолту в конфах быдлоявы энч на +4 безопасен
PS в процессе мануальной заточки ниже 4 не ломалось
thx,
NLObP,
HORSE.