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

[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 вот ссылка на исходник скрипта.