[goodvin1709]

как я понел там нету константы((
и ето дополнение к скрипту на заточку((
а мне нада процедура на проверку и перенаправление на покупку адены
и я немогу понять
buf:=#$58;
WriteD(enchantID);
SendToServerEx(myname);
Timer03.enabled:=false;
SendMsg2( ' ..... Точим Предмет ..... ' );
SendMsg2( ' ID : '+IntToStr(itemID)+' и ObjectID : '+IntToStr(enchantID)+' до : '+IntToStr(maxlvl)+' ' );
SendMsg2( '------------------------------------- ' );
enchantID:=0;
Вот ето(( тут нету неодной константы дайте хоть ссылку на скрипт плиз
И еще
buf:=#$A7#$B1#$12#$01#$00#$40#$80#$58#$00#$01#$00# $00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
что означает етот пакет ???

Добавлено через 11 часов 4 минуты
program Adena;




const
charname = '******' ;
procedure CountAdena;
begin
if (ReadD(18)<>57) then exit;
if (ReadD(22)<1500000000) then buyAdena;
end;
procedure BuyAdena ;
begin
Timer.Enabled := False ;
buf := hstr('21 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 33 00 30 00 33 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 35 00 37 00 38 00 00 00') ;
SendToServerEx(CharName) ;
delay(500) ;
buf := hstr('A7 42 02 00 00 67 00 00 00 01 00 00 00') ;
SendToServerEx(CharName) ;
Timer.Enabled := True ;
End ;


и вот вобщем я написал 2 процедурки на проверку адены и закупки при нужде но чтото она неработает((( Где моя проблема???