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

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[Grinch]

Сообщение от ;9304

procedure Init; //Вызывается при включении скрипта
begin
NameBD:='НИК БД;
NameKomandos:='НИК КОМАНДИРА';
timerBD:=TTimer.Create(nil);
timerBD.OnTimer:=@OnTimerBD;
timerBD.enabled:=false;
timerBD.interval:=2000;
x:=0;
timerBD1:=TTimer.Create(nil);
timerBD1.OnTimer:=@OnTimerBD1;
timerBD1.enabled:=false;
timerBD1.interval:=120000;
end;

вот она

[-=Ma}{imuS=-]

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

[AHAPXNCT]

Вообщем собсно такой вопросец.
Имееться сервер С4, не ява. Куча багов пофиксено, но и много осталось.
Где то я читал за подмену ID предмета. Ну тоесть покупаеш один предмет, а получаешь совершенно другой.
Поскольку я не понимаю в Л2ПХ ничерта, обьясните мне возможно ли это. И если можна подкиньте скриптик для такой подмены.

[QaK]

Вот смотри: сначала описываем таймер и бафы:

const //Dance
    d1='2F 11 01 00 00 00 00 00 00 00';    // Dance of Mystic
    d2='2F 15 01 00 00 00 00 00 00 00';    // Dance of Light
    d4='2F 10 01 00 00 00 00 00 00 00';    // Inspirations
    d3='2F 12 01 00 00 00 00 00 00 00';    // Dance of Fire
    d5='';    // Dance of Concentration
var TimerBD:TTimer;

procedure INIT;
begin
timerBD:=TTimer.Create(nil);
timerBD.OnTimer:=@OnTimerBD;
timerBD.enabled:=false;
timerBD.interval:=120000;
end;

потом пишешь что будет делаться каждые 120000 милисекунд или 2 минуты.

procedure OnTimerBD(Sender: TObject);
    begin
    Case x of
    1:  begin
        buf:=hstr(d1);//сюда баф
        SendToServerEx(NameBD);
        x:=x+1;
        end;
    2:  begin
        buf:=hstr(d2);//сюда баф
        SendToServerEx(NameBD);
        x:=x+1;
        end;
    3: begin
       buf:=hstr(d3);//сюда баф
       x:=0;
       timerBD.enabled:=false;
       end;
    end;
    end;

и наконец - при каком-либо условии включаем таймер баффов:

TimerBD.Enabled:=true;

Вот и все - дальше - сам разбирайся =) а лучше книжку купи или скачай по основам дельфи/паскаля.

[-=Ma}{imuS=-]

вылазит ошибка в самом конце, у последнего слова end "Begin expected"
и вобще скрипт не запускается когда ставлю на нем галочку

[Grinch]

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

вылазит ошибка в самом конце, у последнего слова end "Begin expected"
и вобще скрипт не запускается когда ставлю на нем галочку

нам всё понятно, фотографию свою дай мы по фотографии скрипт посмотрим, без неё не видим ни хрена экстрасенсы из нас хреновые.

[-=Ma}{imuS=-]

подскажите что в этом скрипте не так, ставлю галочку но он не танцует, и через 2 минуты тоже не танцует:

var
  Timer1 : TTimer; 
  q : Integer;  // счетчик 
procedure Init;
begin
  Timer1 := TTimer.Create(nil);
  Timer1.Interval := 120000;  // задержка таймера 12к мс
  Timer1.Enabled := False;
  Timer1.OnTimer := @OnTimer;   // имя процедуры, которая будет выполнятся при проходе таймера
end;
procedure Free;
begin
  Timer1.Free;
end;
procedure OnTimer;
begin
buf:=HStr('2F 0F 01 00 00 00 00 00 00 00');     //attack
SendToServer;

buf:=HStr('2F 13 01 00 00 00 00 00 00 00');     //haste
SendToServer;

buf:=HStr('2F 12 01 00 00 00 00 00 00 00');     //focus
SendToServer;
  Inc(q);
  if q = 4 then  // если выполнилось уже 4 раза, то останавливаем таймер
    Timer1.Enabled := False;
end;
begin
    begin
      Timer1.Enabled := True;
      q := 0;  //счетчик ставим у 0
    end;
end.

[-=Ma}{imuS=-]

вобщем я чето немогу понять как работает условие выполнения скрипта
Timer1.Enabled := True;

[NLObP]

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

вобщем я чето немогу понять как работает условие выполнения скрипта
Timer1.Enabled := True;

надо было полностью скрипт копировать, вот что было:

begin
  if {умова запуска таймера} then
    begin
      Timer1.Enabled := True;
      q := 0;  //счетчик ставим у 0
    end;
end.

Вот эта строчка и есть условие

if {умова запуска таймера} then

Можно написать к примеру if myHP<1000 then

PS: пойди книги почитай, сколько можно основы разжевывать =(

[-=Ma}{imuS=-]

спс сорь, тупанул я думал это комент))