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

[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.

где я ошибся?

[-=Ma}{imuS=-]

вот кое как слепил такой скрипт):

const //Dance
    d1='2F 0F 01 00 00 00 00 00 00 00';    // Dance of Attack
    d2='2F 13 01 00 00 00 00 00 00 00';    // Dance of Haste
    d3='2F 12 01 00 00 00 00 00 00 00';    // Focus


var
  Timer1 : TTimer; 

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
  begin
  buf:=hstr(d1);    //attack
  SendToServer;
  end;

  begin
  buf:=hstr(d2);     //haste
  SendToServer;
  end;

  begin
  buf:=hstr(d3);   //focus
  SendToServer;
  end;
end;
begin
  if FromClient and (pck=HStr('2F 12 01 00 00 00 00 00 00 00')) then
    begin
      Timer1.Enabled := True;

    end;
end.

2 вопроса: 1) танцует когда угодно, но только не через 2 минуты
2) танцует только первый и последний денс. на скорость атаки, который в скрипте между ними почему то пропускает. даже если денсы поменять местами и сделать их штук 6 всегда танцует тока первый и последний.

[metalFan]

вопрос: как работает оператор XOR?

[Silmaril]

, задержку хоть поставь между танцами, бд ТАК быстро танцевать не умеет

Добавлено через 9 минут
где то здесь поднимался вопрос, как увидеть реальную профу чара, если он на сабе, никто не помнит, чёта не нашел

Добавлено через 4 минуты
metalFan,
0 xor 0 =0
0 xor 1 =1
1 xor 0 =1
1 xor 1 =0

[-=Ma}{imuS=-]

в таком случае вот такой скрипт:

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;
procedure OnTimerBD(Sender: TObject);
    begin
    Case x of
    1:  begin
        buf:=hstr(d1);
        SendToServer;
        x:=x+1;
        end;
    2:  begin
        buf:=hstr(d2);
        SendToServer;
        x:=x+1;
        end;
    3: begin
       bRun;
       x:=0;
       timerBD.enabled:=false;
       end;
    end;
    end;
procedure OnTimerBD1(Sender: TObject);
    begin
         timerBD.enabled:=true;
         x:=1;
    end;
end.

я немагу понять чем его закончить?! ошибка у последнего слова "end" хотя вроде бы все правильно.

[APXAHGEJI]

Ну как минимум не хватаем begin перед end. , а вообще у тебя только три процедуры, а собственно того что их бы запускало нет, как раз между этими begin end.

Добавлено через 17 минут
А вообще канешн жуть понадела что, ты бы не мудорствовал и велосипед не изобретал,а посматрел бы сначало похожее готовое.
У тя дохрена ошибок, я бы даже сказал у тебя мало что правильно.
Не определена переменная x; процедура OnTimerBD1 должна быть без параметра и она нигде не запускается; если даже переделаешь что бы запускалось, то будешь ждать 2 минуты прежде чем первый раз бафнет; бафнет он скорее всего только первый баф, ну может и второй в очередь встанет, но не факт, а третий баф точно не будет кастоваться, т.к. у тебя нету перерыва между отправками пакетов и тд и тп))

[metalFan]

Silmaril, это вычитание чтоли? А xor 1 = 9?

Добавлено через 2 минуты
дайте ктонить калькулятор который ксоры считает a ксор б = ц чтобы простенький такой что то я не понимаю 8)

[Silmaril]

лин, ксор это ЛОГИЧЕСКАЯ операция, и не вычитания, а исключения
а калькулятор есть в ввинде, он вполне такие операции понимает

[metalFan]

объяснити поконкретней 8)

[Silmaril]

Определение: XOR

Exclusive OR – исключающее ИЛИ, неэквивалентность, сложение по модулю 2. Бинарная логическая операция, результат которой истинен только тогда, когда значения операндов не совпадают. Например, (1101 OR 0101) = 1000. Символически иногда обозначается “?”.XOR
Вход 1 Вход 2 Выход
0 0 0
0 1 1
1 0 1
1 1 0

[Byrger]

Помогите плиз, что не так

const
hp='21 08 E8 5E 39 6B 5B 2B 00';
hp2='21 08 E8 5E 39 6B 5B 2B 00';

begin


buf:=hstr(hp);
SendToServer;
delay(5000);
begin
buf:=hstr(hp2);
SendToServer;
end;


end.

l2phx просто виснет намертво...