помогите с написанием скрипта

[hash]

ЗДравствуйте, я юзал ваши скрипты на заточку, но ни один не видит все предметы в инвентаре, возможно изза особенностей клиента, решил напиать свой скрипт, но не хватает знаний, я незнаю как выполнять эти 2 действия до достижения нужного мне результата заточки и успешно его остановить, и как поставить определенный интервал времени между точкой (например 1 секунда)
Собственно вот 2 пакета

Активация скрола: 19 E9 08 03 10 00 00 00 00 ;

Выбор и заточка нужного мне предмета: 5F 31 38 01 10 00 00 00 00 ;

[QaK]

hash, ты основы программирования на паскале знаешь, или хочешь все сразу и нахаляву?

[hash]

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

hash, ты основы программирования на паскале знаешь, или хочешь все сразу и нахаляву?

еслиб знал, помощи не просилбы

Добавлено через 4 часа 50 минут
помощи так и не дождался, сам разобрался
Скрипт полностью рабочий, тестил на грации парт2, единственное, что неудобно - это отлов пакетов, но всеже лучше чем руками точить

const
Name='newby';
var
timer:TTimer;
x:byte; //определение, какоде действие по счету мы совершаем

procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=1000;
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
x:=1;//сначала х=1
end;

procedure Free;
begin
timer.Free;
end;

procedure fireTimer(Sender: TObject);
begin
case x of
1:begin
     buf:=hstr('19 D2 0F 04 10 00 00 00 00'); 
     SendToServerEx(Name);
     inc(x);
   end;
2:begin
     buf:=hstr('5F 31 38 01 10 00 00 00 00'); 
     SendToServerEx(Name);
     x:=1;
   end;
end;{case}
end;

begin
if FromServer and (ConnectName=Name) 
and (pck = HStr('87 0A 00 00 00 0A 00 00 00 0A 00 00 00'))  
then 
  timer.enabled:=false;
end.

п.с
Первый пакет: активация скрола
Второй: Выбор и заточка предмета
Третий: Степень заточки

[Breadfan]

ты спойкойно можешь использывать скрипт от NLObP, просто выкинь с сумки все лишнее, оставь только шмот\пуху и смотри ID своих нужных итемов

[hash]

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

ты спойкойно можешь использывать скрипт от NLObP, просто выкинь с сумки все лишнее, оставь только шмот\пуху и смотри ID своих нужных итемов

в томто и проблема, что его скрипт не видит нужные мне вещи, хотя в файле Itemid они есть...

Добавлено через 2 часа 1 минуту
возникла еще 1 проблема с скриптом - если скрипт долго выполняется, перполняется виртуальная память и компьютер в последствии начинает очень сильно чехлить. Подскажите, как сделать очистку виртальной памяти памяти после выполнения скрипта?

[QaK]

hash, поправил чуток твой скрипт, попробуй, еще лучше выключать таймер не в Init а по соц действию или команде в чат.

[hash]

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

hash, поправил чуток твой скрипт, попробуй, еще лучше выключать таймер не в Init а по соц действию или команде в чат.

спасибо за поправку, но вопрос о переполнении виртуальной памяти отсается открытым. Довольно быстро возрастает до 2+ гб и комп начинает виснуть.

[alexteam]

на какой версии пх ?.

[hash]

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

на какой версии пх ?.

3.5.5.106

Добавлено через 1 час 29 минут
проверил скрипт на версии "3.4.1.83" - все нормально, виртуальная память не переполняется.

[HORSE]

Как розшифровать степень заточки в пакете скрипта hash
'87 0A 00 00 00 0A 00 00 00 0A 00 00 00'?!
Или как его узнать?!....ато мне надо заточить до +12 а как это написать в пакетах я хз...