Скрипт от тамбика
delphi Код:
// Auto_enchant_maxlvl - interlude + покупка !!!!!!!!!!
// хроники Interlude
// ======================================
Давным давно прикрутил обмен из Валюты тамошней в адену...
Срабатывает: когда адены меньше чем 1.5ккк
Делает: Посылает пакет до тех пор пока у вас не станет адены больше чем 1.5ккк
Оффтоп
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)<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;
//-----------------------------------------
Это собстна пакет, который он посылает нужно каждую пару писать с #$...
Все примитивно, но работает... Друг не жаловался, а я не использовал ни разу))