BuffBot

[Arhangel]

И еще один такой вопрос,не пойму почему в этом скрипте:

const MainChar = 'ApxaHrel';
         BD = 'BD';
  
var Timer1:TTimer;
      actions:array[1..6] of string;
      nm:integer;

procedure Init;
begin
nm:=1;

Timer1:=TTimer.Create(nil);
Timer1.OnTimer:=@OnTimer1;
Timer1.enabled:=false;
Timer1.interval:=1000; //задержка 1 сек;

actions[1]:='2A 01 00 00 00';
actions[2]:='2F 13 01 00 00 00 00 00 00 00 ';
actions[3]:='2F 12 01 00 00 00 00 00 00 00 ';
actions[4]:='2F 0F 01 00 00 00 00 00 00 00 ';
actions[5]:='2B';
actions[6]:='04 B2 F9 20 48 24 CB 00 00 45 2B FF FF A6 F3 FF FF 00';
end;

procedure [b]Timer1[/b].OnTimer(Sender:Tobject);
begin if nm>6 then Timer1.Enabled:=false
         else begin buff:=Hstr(actions[nm]);
                         SendToServerEx(BD);
                         inc(nm);
                end;
end;

procedure Free;
begin 
Timer1.Free;
end;

begin
if Pck='' then exit;
if FromClient and (ConnectName=MainChar)  //посылаю с 1-го окна пакет "SocialActionYes"
  and (pck=HStr('1B 06 00 00 00')) then begin
    pck:='';
    buf:=HStr(actions[nm]);                
    SendToServerEx(BD);
    Timer1.Enabled:=true;
end;
end.

Ругается на то,что выделенно?

[QaK]

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

procedure Timer1.OnTimer1(Sender:Tobject);

должно быть

[Arhangel]

Уже пробывал,никак=)

[QaK]

Arhangel, значит обзов процедуру как-нибудь нейтрально? типа blablabla =)

[Amorality]

QaK,
Разве можно так делать? Это же реакция на событие OnTimer..

Добавлено через 6 минут
Ошибка кстати связана с пропуском ";", вроде везде все верно стоит, может ПНХ тупит?

[QaK]

Ладно, я туплю =) Arhangel, просто оставь OnTimer без Timer1.

[Amorality]

QaK,
Так тоже не выйдет.. Тыж хендл указываешь в Timer1.Ontimer, знач его обяз. надо использовать в процедуре.. Хотя может что-то путаю

[Arhangel]

Да,видимо Timer1.Ontimer надо использовать,но так ругается,а при OnTimer без Timer1 пишет Event handler must be a procedure.

[QaK]

Amorality, в фаст-скрипте - нет.

[Amorality]

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

Да,видимо Timer1.Ontimer надо использовать,т.к. при OnTimer без Timer1 пишет Event handler must be a procedure.

Попробуй изменить @OnTimer1 на @OnTimer .. Хотя не уверена