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

[Nickers]

И еще
buf:=#$A7#$B1#$12#$01#$00#$40#$80#$58#$00#$01#$00# $00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
что означает етот пакет ???

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

Можешь любой пакет вставить))
В конкретном случае этот пакет был на покупку 1ккк адены за 1гб...

Берешь Таймер в его тело пихаешь:
Оффтоп

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;

Скрипт тамбика можно на этом форуме найти даже без поиска...

Есть так же вариант вставить в само тело проверку в любом скрипте, но не факт, что там буит ГетИтем функция или вообще база инвентаря...

[goodvin1709]

дуня негони я хочу научится мне тот хелсин вобще побарабану)
12-----00 0С ето было написано ид адены
16 ----10 00 ето ее количество
я перевел в Dword

[NLObP]

Сообщение от goodvin1709

я хочу научится

Книжку по паскалю найди и почитай. Без этого трудно скрипты будет писать.

[dyh9l]

я ему вроде более-менее объяснил как реализовать обмен адены)

[goodvin1709]

Дуне ОГРОМНОЕ СПАСИБО НАУЧИЛ кое чему и обеснил как работать в програме и скриптах

[dyh9l]

когда supernewbie увидит это, он поржет)

[goodvin1709]

Все закрыли темку