delphi Код:
procedure OnTimer03(Sender: TObject);
begin
buf:=#$58;
WriteD(enchantID);
SendToServerEx(myname);
Timer03.enabled:=false;
SendMsg2( ' ..... Точим Предмет ..... ' );
SendMsg2( ' ID : '+IntToStr(itemID)+' и ObjectID : '+IntToStr(enchantID)+' до : '+IntToStr(maxlvl)+' ' );
SendMsg2( '------------------------------------- ' );
enchantID:=0;
if (GetItem(57,3,4)<500000000) then
begin
Repeat
begin
buf:=#$A7#$A4#$BD#$98#$00#$40#$0D#$03#$00#$01#$00# $00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
Until (GetItem(57,3,4)<500000000);
end;
end;
...
enchantID:=0;
...
Может это зависит от типа скрипта...
У тебя та же версия скрипта?
И как именно не равботает?
Скрипт не запускается?
Запускается но не пишет сис. сообщений(или другие неполадки)?
или делает все так же, но адена кончается(Проверка не исправна)?