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

[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

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

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