Помогите плизик

[goodvin1709]

привет всем я на кодере новичок
я играю на с4 серваке и один крутй человек написал скрипт на заточку
и закупку итемов и точек.
Но я хочу добавить процедуру на закупку адени(менять Коли в адену)

вот моя процедура.

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) ;
delay(500) ;
buf := hstr('A7 42 02 00 00 67 00 00 00 01 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 ;

но нада чтобы купляла адену когда ее мало например Adena < 1500000000

как моно зделать такой перехват пакетов?????
http://depositfiles.com/files/i83sm5hjg вот ссылка на исходник скрипта.

[J-Fobos]

В процедуре GetItemBase надо узнавать количество адены и в случаи количества меньше указанного запускать вашу процедуру. ID адены 57.
Кстати, откажитесь от использование delay и создайте таймер.

[goodvin1709]

а как само лутше зделать процедуру на перехват количества аден в сумке и переадресацыи для старта процедуры на закупку???*

[J-Fobos]

Ну у вас там уже есть цикл, который перебирает весь инвентарь. Добавьте в этом цикле определение количества итемов и проверку ид итема (не является ли этот итем аденой). После окончания цикла проверяйте количество аден.

[Nickers]

Скрипт от тамбика

//  Auto_enchant_maxlvl - interlude + покупка !!!!!!!!!!
//  хроники Interlude
//  ====================================== 
 

Давным давно прикрутил обмен из Валюты тамошней в адену...
Срабатывает: когда адены меньше чем 1.5ккк
Делает: Посылает пакет до тех пор пока у вас не станет адены больше чем 1.5ккк

Оффтоп

//--------------------------
 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)<1500000000) then
   begin
      Repeat
         begin
            buf:=#$A7#$B1#$12#$01#$00#$40#$80#$58#$00#$01#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
            SendToServer;
         end;
      Until (GetItem(57,3,4)<1500000000);
   end;
end;
//----------------------------------------- 
 

buff:=#$A7

Это собстна пакет, который он посылает нужно каждую пару писать с #$...

Все примитивно, но работает... Друг не жаловался, а я не использовал ни разу))

[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 процедурки на проверку адены и закупки при нужде но чтото она неработает((( Где моя проблема???

[J-Fobos]

Откуда вот это вот
if (ReadD(18)<>57) then exit;
if (ReadD(22)<1500000000) then buyAdena;
Будет читаться? Почему 18 и 22?

[goodvin1709]

я уже стоко перечитал и уже незнаю как почать сканить
я так понел нада
if FromServer and (pck[1]=#$27) then
if (ReadD(12)<>57) then exit;
if (ReadD(16)<100000000) then buyAdena;


както так вроде нада и написать процедуры

[J-Fobos]

Опять же вопрос, откуда 12 и 16? Почему раньше было 18 и 22?

[dyh9l]

так и прут с хельсинга на кодерх, ну что вы за люди)