chilay07
07.02.2012, 19:13
написал скип,(ну казалось мне так),а он не работает ,на закленателя.Нужно чтоб была задержка между скилами,я не пойму чо мож ид скилов не тот ,это на 2.7
собственно сам скрип,кто шарит помогите где и чо неправильно
//Timer by happytorn
const
name = 'chilay';
var
Timer:TTimer;
TimerStep:integer;
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('D0 00 57 6F FF 97 06 09 00 93 6F 00 00 72 03 05 D6 00 00 ');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServerEx(name);
end;
procedure Init;
begin
TimerStep:=1;
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.enabled:=false;
Timer.interval:=900;
end;
procedure Free;
begin
Timer.free;
end;
procedure OnTimer(Sender: TObject);
begin
case TimerStep of
1:
begin
DoTheSkill(2238, 4);
Inc(TimerStep);
end;
2:
begin
DoTheSkill(1389, 5);
Inc(TimerStep);
end;
3:
begin
DoTheSkill(2012, 1);
Inc(TimerStep);
end;
4:
begin
DoTheSkill(2230,2);
Inc(TimerStep);
end;
6:
begin
DoTheSkill(1663, 1);
Inc(TimerStep);
end;
7:
begin
DoTheSkill(2234, 4);
Inc(TimerStep);
end;
8:
begin
DoTheSkill( 2297, 3);
Inc(TimerStep);
end;
9:
begin
DoTheSkill(1795, 3);
Inc(TimerStep);
end;
10:
begin
DoTheSkill(2226,4);
Inc(TimerStep);
end;
11:
begin
DoTheSkill(2233,6);
Inc(TimerStep);
end;
12:
begin
DoTheSkill(2003, 4);
Timer.enabled:=false;
Inc(TimerStep);
TimerStep:=1;
end;
end;
end;
begin
StartSkill := 2229;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);
Timer.enabled:=true;
end;
end.
собственно сам скрип,кто шарит помогите где и чо неправильно
//Timer by happytorn
const
name = 'chilay';
var
Timer:TTimer;
TimerStep:integer;
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('D0 00 57 6F FF 97 06 09 00 93 6F 00 00 72 03 05 D6 00 00 ');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServerEx(name);
end;
procedure Init;
begin
TimerStep:=1;
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.enabled:=false;
Timer.interval:=900;
end;
procedure Free;
begin
Timer.free;
end;
procedure OnTimer(Sender: TObject);
begin
case TimerStep of
1:
begin
DoTheSkill(2238, 4);
Inc(TimerStep);
end;
2:
begin
DoTheSkill(1389, 5);
Inc(TimerStep);
end;
3:
begin
DoTheSkill(2012, 1);
Inc(TimerStep);
end;
4:
begin
DoTheSkill(2230,2);
Inc(TimerStep);
end;
6:
begin
DoTheSkill(1663, 1);
Inc(TimerStep);
end;
7:
begin
DoTheSkill(2234, 4);
Inc(TimerStep);
end;
8:
begin
DoTheSkill( 2297, 3);
Inc(TimerStep);
end;
9:
begin
DoTheSkill(1795, 3);
Inc(TimerStep);
end;
10:
begin
DoTheSkill(2226,4);
Inc(TimerStep);
end;
11:
begin
DoTheSkill(2233,6);
Inc(TimerStep);
end;
12:
begin
DoTheSkill(2003, 4);
Timer.enabled:=false;
Inc(TimerStep);
TimerStep:=1;
end;
end;
end;
begin
StartSkill := 2229;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);
Timer.enabled:=true;
end;
end.