procedure OnTimer1(Sender: TObject);
begin
case x of
0: begin
RequestMagicSkillUse(1239);
timer1.interval := 200;
end;
1: begin
RequestMagicSkillUse(1148);
timer1.interval := 200;
end;
2: begin
timer1.enabled := false;
x := 0;
end;
end;
end;
procedure PhisicalAttack; // команда атаки
begin
timer1.enabled:=true;
end;
procedure RequestMagicSkillUse (SkillID: integer); // маг атака
begin
buf:=#$39;
WriteD(SkillID);
WriteD(0);
WriteC(0);
SendToServerEx(NickName);
end;
подскажите пжл где ошибка? в таргет не берет а постоянно бьет.
|