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

dev · 22.06.2009, 05:24

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 - состояние предмета
// Была мысль, что проблема кроется тут.

Оффтоп

thx, NLObP, HORSE.