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

[-=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=-]

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

[-=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 всегда танцует тока первый и последний.

[Silmaril]

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

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

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