 |
нужна помощь с скрипом - Общение и обсуждение Aion - События, информация, вопросы и ответы по Aion |
20.03.2012, 17:09
|
#1
|
|
|
|
|
|
 Разведчик |
 Регистрация: 12.10.2011
 Сообщений: 11
 Популярность: 12
 Сказал(а) спасибо: 2
Поблагодарили 1 раз в 1 сообщении
|
нужна помощь с скрипом
блин где тут не правильно ,глаза сламал
 |
Цитата: |
 |
|
|
|
|
|
|
|
|
|
//Timer by happytorn
const
name = 'chila';
var
Timer:TTimer;
TimerStep:integer;
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('D0 00 57 6F FF 30 09 01 00 00 00 00 00 00 00 39 16 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:=800;
end;
procedure Free;
begin
Timer.free;
end;
procedure OnTimer(Sender: TObject);
begin
case TimerStep of
1:
begin
DoTheSkill(1970, 1);
Inc(TimerStep);
end;
2:
begin
Timer.interval:=10;
DoTheSkill(1976, 1);
Inc(TimerStep);
end;
3:
begin
DoTheSkill(2055, 4);
Inc(TimerStep);
end;
4:
begin
Timer.interval:=10;
DoTheSkill(1976, 1);
Inc(TimerStep);
end;
5:
begin
Timer.interval:=10;
DoTheSkill(2061, 2);
Inc(TimerStep);
end;
6:
begin
Timer.interval:=100;
DoTheSkill(2066, 3);
Inc(TimerStep);
end;
7:
begin
DoTheSkill(1977, 1);
Inc(TimerStep);
end;
8:
begin
Timer.interval:=10;
DoTheSkill(1976, 1);
Inc(TimerStep);
end;
9:
begin
Timer.interval:=10;
DoTheSkill(405, 3);
Inc(TimerStep);
end;
10:
begin
Timer.interval:=100;
DoTheSkill(2066, 3);
Inc(TimerStep);
end;
11:
begin
DoTheSkill(535,2);
Inc(TimerStep);
end;
12:
begin
Timer.interval:=10;
DoTheSkill(1976, 1);
Inc(TimerStep);
end;
13:
begin
Timer.interval:=100;
DoTheSkill(538, 5);
Inc(TimerStep);
end;
14:
begin
Timer.interval:=100;
DoTheSkill(2066, 3);
Inc(TimerStep);
end;
15:
begin
DoTheSkill(539, 3);
Inc(TimerStep);
end;
16:
begin
Timer.interval:=10;
DoTheSkill(1976, 1);
Inc(TimerStep);
end;
17:
begin
Timer.interval:=10;
DoTheSkill(2061, 2);
Inc(TimerStep);
end;
18:
begin
Timer.interval:=100;
DoTheSkill(2066, 3);
Inc(TimerStep);
end;
19:
begin
DoTheSkill(2045, 4);
Inc(TimerStep);
end;
20:
begin
Timer.interval:=10;
DoTheSkill(1976, 1);
Inc(TimerStep);
end;
21:
begin
Timer.interval:=10;
DoTheSkill(1976, 1);
Inc(TimerStep);
end;
22:
begin
Timer.interval:=10;
DoTheSkill(405, 3);
Inc(TimerStep);
end;
23:
begin
Timer.interval:=100;
DoTheSkill(2066, 3);
Inc(TimerStep);
end;
24:
begin
DoTheSkill(465, 4);
Inc(TimerStep);
end;
25:
begin
Timer.interval:=10;
DoTheSkill(1976, 1);
Inc(TimerStep);
end;
26:
begin
Timer.interval:=10;
DoTheSkill(538, 5);
Inc(TimerStep);
end;
27:
begin
Timer.interval:=100;
DoTheSkill(2066, 3);
Inc(TimerStep);
end;
28:
begin
DoTheSkill(177, 5);
Inc(TimerStep);
end;
29:
begin
Timer.interval:=100;
DoTheSkill(1976, 1);
Inc(TimerStep);
end;
30:
begin
Timer.interval:=10;
DoTheSkill(2061, 2);
Inc(TimerStep);
end;
31:
begin
Timer.interval:=100;
DoTheSkill(2066, 3);
Inc(TimerStep);
end;
32:
begin
DoTheSkill(180, 5);
Inc(TimerStep);
end;
33:
begin
Timer.interval:=10;
DoTheSkill(1976, 1);
Inc(TimerStep);
end;
34:
begin
Timer.interval:=100;
DoTheSkill(2066, 3);
Inc(TimerStep);
end;
35:
begin
DoTheSkill(2044, 4);
TimerStep:=1;
end;
end;
end;
begin
StartSkill := 2065;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);
Timer.enabled:=true;
end;
end.
|
|
 |
|
 |
|
сор ,за тему,не могу понять ,почему не работает(2.7-3.0)
Последний раз редактировалось chilay07; 23.03.2012 в 21:20.
|
|
|
|
|
20.03.2012, 21:22
|
#2
|
|
|
|
|
|
 Пехотинец |
Регистрация: 06.10.2011
Сообщений: 56
Популярность: 163
Сказал(а) спасибо: 53
Поблагодарили 6 раз(а) в 6 сообщениях
|
Re: нужна помощь с скрипом
Поиск->" задержка"-> Результат
|
|
|
|
|
Пользователь сказал cпасибо:
|
|
|
23.03.2012, 21:10
|
#3
|
|
|
|
|
|
Разведчик
|
Регистрация: 12.10.2011
Сообщений: 11
Популярность: 12
Сказал(а) спасибо: 2
Поблагодарили 1 раз в 1 сообщении
|
Re: нужна помощь с скрипом
|
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 13:09.
|
|
