Кружок нубов(Вопрос-Ответ)

[Breadfan]

Может непонятно при чем тут БД? Так ведь принцип одинаков, вобщем посмотришь-поймешь

[-=Ma}{imuS=-]

нашел скрипт на авто подачу МР-банок:

const
    Name='';

var MyID:Word;
    OID:String;

begin
if (FromServer) and (pck[1]=#$27) and (ReadD(12)=726) then
OID:=pck[8]+pck[9]+pck[10]+pck[11];

 if FromServer and (pck[1]=#$04) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$0e) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(82)<=400) then //400 - кол-во MP при котором начнется пьянка.
    begin
     buf:=#$14+OID+#$00#$00#$00#$00;
     SendToServerEx(Name);
    end;
end.

работает каряво, постоянно пьет МР банки пока не зальет полностю, на "400 - кол-во MP при котором начнется пьянка " даже не смотрит.
кроме того пьет не через каждые 15 сек а постоянно систем чат аж разрывается...

помогите разобратся, надо чтобы пил только при определенном кол-ве МП, предполагаю что ошибка здесь: if (ReadD(82)<=400), возможно вместо 82 другая цифра должна быть и скрипт просто не туда смотрит, но пакет UserInfo настолько большой я не смог найти там CurrentMP, да и вобще не знаю как искать конкретный кусок

и еще как зделать чтобы пил через 15 секунд?

[NLObP]

Сообщение от -=Ma}{imuS=-

возможно вместо 82 другая цифра должна быть и скрипт просто не туда смотрит, но пакет UserInfo настолько большой я не смог найти там CurrentMP, да и вобще не знаю как искать конкретный кусок

Скачай 4 версию пакетхака. Там для своего чара можно посмотреть смещение для MP. Смещение зависит от длины имени, поэтому разное.

PS: в версии 3.3.2 кстати, теперь тоже можно.

[-=Ma}{imuS=-]

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

Скачай 4 версию пакетхака. Там для своего чара можно посмотреть смещение для MP. Смещение зависит от длины имени, поэтому разное.

PS: в версии 3.3.2 кстати, теперь тоже можно.

где можно скачать? в файловом архиве я не нашел, можно ссылочку

[NLObP]

Сообщение от -=Ma}{imuS=-

где можно скачать? в файловом архиве я не нашел, можно ссылочку

Здесь кусочек L2PHX4, а здесь модификация 3.2.0

[PanAm]

тут только один момент - если используются несколько окон, то в OnTimer неопределенность куда посылать пакет, надо использовать SendToServerExt и явно указывать соединение

[Byrger]

А как сделать мой скрипт бесконечным?
Ну и остановить скрипт вконце...по условию

[Grinch]

Byrger, http://coderx.ru/showthread.php?t=15 вот тема, и вот небольшая подборка идей и скриптов http://coderx.ru/showthread.php?t=14&page=29 учи матчасть

[-=Ma}{imuS=-]

ок, спс.
вот тока я не понимаю как старые скрипты типа "Бот - локомотив", или скрипт на бутылки НР определяют это самое смещение, причем я их включаю на разных персах с разными именами и всегда работает

[Breadfan]

Хроники Камаель
Столкнулся с тем что команда в пакете RequestBypassToServer все время разная, и передается в предыдущем пакете от сервера NpcHtmlInfo. Вот сваял процедуру запоминающую содержимое и количество этих команд.

const
name='';
var
kolvocmd,j,x:integer;                  //-kolvocmd- итоговое количество команд  j,x- вспомогательные переменные
CmdNpc:array[1..50] of string;         //массив с командами, 50 - взято с большим запасом
                     // у телепортеров обычно примерно всего 20 команд
findt,oldpck:string;                   //вспомогательные переменные
//---------------------
procedure SendMsg(msg:string);
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClientEx(Name);
end;
//---------------------
procedure CmdNpcParc;
Begin
kolvocmd:=0;
for j:=1 to 50 do begin                 // предварительная очистка массива
CmdNpc[j]:='';
end;

for j:=1 to length(oldpck) do  begin    //  побуквенная проверка строки oldpck
    for x:=0 to 9 do begin
        findt:=findt+oldpck[j+x];
    end;
    if findt='bypass -h ' then begin
       for x:=10 to 25 do begin
           CmdNpc[kolvocmd+1]:=CmdNpc[kolvocmd+1]+oldpck[j+x];
       end;
       kolvocmd:=kolvocmd+1;
    end;
    findt:='';
end;
end;
//---------------------------------
begin
if fromserver and (pck[1]=#$19) then
   begin                                          //  в процедуру передается содержимое пакета NpcHtmlInfo
        oldpck:=ReadS(6);
        CmdNpcParc;
        SendMsg('Количество- '+inttostr(kolvocmd));
           for j:=1 to kolvocmd do begin
              SendMsg(inttostr(j)+'ая- '+CmdNpc[j]);
           end;
   end;
end.

Не зная точно команд работы с частью строки сделал все через циклы, может как то подправить\сократить?