Что нужно знать для написания скриптов

[TAMBIK]

ReadC(var index:integer):byte - читает из переменной pck байт
ReadH(var index:integer):word - читает из переменной pck число (2 байта) (v. 3.1.8+)
ReadD(var index:integer):integer - читает из переменной pck число (4 байта)
ReadF(var index:integer):double - читает из переменной pck число c плавающей запятой(8 байт) (v. 3.1.8+)
ReadS(var index:integer):string - читает из переменной pck строку (в пакете строка unicode нультерминированная, а результирующая строка обычная паскалевская)
Index - начальная позиция чтения, которая модифицируется функцией (сдвигается на число считанных байт)

а это как:

ReadG  ?????????????????????????

[NLObP]

TAMBIK, ReadG это 8 байт? Посмотри темку, там предлогались решения. Я старшие 4 байта игнорирую и считываю 4 младших.

BaseItems[i,5]:=ReadD(j);  //Count
                ReadD(j);  //Count (пропускаем старшую часть)

[buka]

заранее благодарен за развёрнутый ответ.. итак есть куча скрипто писальщиков есть даже тема про бот авто боот и так далее.... отсюда вопрос к гуру
Нет ли более менее стандартных функций отсылки пакетов к примеру мне надо например реализовать атаку моба если он в приделах видимости или на каком то расстоянии от меня. атаку тем оружием которое одето и не более если можно приведите пример с теми же гремлинами
Заранее благодарен.

Зы хотелось бы также в случае приближения кого либо тоесть реального человека сделать бсое или отключиться....

Есть ШЕ как залить ману на того игрока кто в пати чат написал 1?

Я более чем уверен что многие пошлют смотреть пакеты... но можно ли привести подобные примеры еще раз спс

[TAMBIK]

советы
но не мои

или на каком то расстоянии от мен

function rastoyanie(xpos1, ypos1, xpos2, ypos2:extended):integer; //возвращ rezu растояние
begin
result:= Round(Sqrt(((xpos1-xpos2)*(xpos1-xpos2))+((ypos1-ypos2)*(ypos1-ypos2))));
end;
=================================================
if (rastoyanie(MyXpos, MyYpos, ReadD(14), ReadD(18))<=1600) then
при менее или 1600 выполнить >>>>
====================

[BioDread]

Люди подскажите плиз почему при выполнении скрипта:

PHP код:

begin
  begin
   Buf:=HStr('A7 4A 27 00 00 00 9F 24 00 E8 03 00 00 00 00 00 00 00 00 00 00');
   SendToServer;
   delay(800);
   end;    
    
    
    begin
    Buf:=HStr('04 4D 85 00 10 99 46 01 00 75 D9 00 00 1A FA FF FF 00');
    SendToServer;
    delay(500);
    end;
     begin
     Buf:=HStr('1E 00 00 00 00 01 00 00 00 C7 13 01 10 B6 05 00 00 80 38 01 00 ');
     SendToServer;
     delay(500);
     end.
end. 


пару сек отправляются пакеты но КОПМ ЖУТКО ЛАГАЕТ ЛАГАЕТ и мну дисконнектит от серва подскажите плиз в чём причина или напишите скрипт на посылку 3х пакетов с задержкой ПЛИИИЗ
П.С. Если не писать begin end после каждого то комп ещё быстрее залагивает.....

[Vilson]

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

Люди подскажите плиз почему при выполнении скрипта:

http://coderx.ru/showthread.php?t=4104

[Sherman]

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

Люди подскажите плиз почему при выполнении скрипта:

PHP код:

begin
  begin
   Buf:=HStr('A7 4A 27 00 00 00 9F 24 00 E8 03 00 00 00 00 00 00 00 00 00 00');
   SendToServer;
   delay(800);
   end;    
    
    
    begin
    Buf:=HStr('04 4D 85 00 10 99 46 01 00 75 D9 00 00 1A FA FF FF 00');
    SendToServer;
    delay(500);
    end;
     begin
     Buf:=HStr('1E 00 00 00 00 01 00 00 00 C7 13 01 10 B6 05 00 00 80 38 01 00 ');
     SendToServer;
     delay(500);
     end.
end. 


пару сек отправляются пакеты но КОПМ ЖУТКО ЛАГАЕТ ЛАГАЕТ и мну дисконнектит от серва подскажите плиз в чём причина или напишите скрипт на посылку 3х пакетов с задержкой ПЛИИИЗ
П.С. Если не писать begin end после каждого то комп ещё быстрее залагивает.....

У тебя принудительньнная остановка пакетхака на 1,8 секунды.
Что бы не тормозить работу пакетхака кури в сторону выполнения скрипта в отдельном потоке с помощью TTimer. Примеров в "ДА БУДЕТ БОТ" предостаточно. Там же где то есть отправка с задержкой.
И да, научись уже писать на Pascal.

[BioDread]

Аааааа а я то думал что оно не ЗАмораживает а просто ждёт.....
Всем Спс я допёр)) -Просто сегодня решил попробовать написать скрипт простенький для удобства а никаких программных языков не учил до этого)))СПС!

[dyh9l]

Как можно поставить условие в скрипте что если адены меньше чем 10кк то он в гм шопе обменивает манетку на 2ккк.
Это пакет от ГМ шопа до обменника (меню):
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 35 00 38 00 00 00
Это пакет обмена монетки на 2ккк:
A7 2E 02 00 00 43 00 00 00 01 00 00 00

[J-Fobos]

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

Как можно поставить условие в скрипте что если адены меньше чем 10кк то он в гм шопе обменивает манетку на 2ккк.
Это пакет от ГМ шопа до обменника (меню):
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 35 00 38 00 00 00
Это пакет обмена монетки на 2ккк:
A7 2E 02 00 00 43 00 00 00 01 00 00 00

Условие выставляется оператором if <условие> then <набор действий> else <другой набор действий>;