 |
помогите написать скрип для закла на 2.7 - Общение и обсуждение Aion - События, информация, вопросы и ответы по Aion |
09.02.2012, 16:28
|
#1
|
|
|
|
|
|
 Разведчик |
 Регистрация: 12.10.2011
 Сообщений: 11
 Популярность: 12
 Сказал(а) спасибо: 2
Поблагодарили 1 раз в 1 сообщении
|
помогите написать скрип для закла на 2.7
помогите написать скрип для закла на 2.7.
Собственно я как бы написал его только он не фурычит,кто шарит можете помочь в написании?(на да чтоб была задержка между скилами 1сек)
сам скрип не рабочий:
 |
Цитата: |
 |
|
|
|
|
|
|
|
|
|
//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 57 0A 02 00 53 32 00 00 C9 01 05 36 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. |
|
 |
|
 |
|
а на да чтоб была вот такая последовательность ,
|
|
Цитата: |
|
|
|
|
|
|
|
|
|
|
активируеться Земляные оковы IV 1716 (или чемто другим)
ну и сама серия
Сжечь чары IV -4 2238
Коррозия V 1389
Загробное проклятие I 2012
Невыносимые муки II 2230
Замедляющие кандалы I 1663
Призыв: Энергия урагана IV 2234
Вакуумный взрыв III 2297
Обширная коррозия III 1795
Атака элементаля IV 2226
Магическое возгорание VI 2233
Поглощение I 2003
Поглощение жизненной силы VII 2229 |
|
|
|
|
|
|
|
|
|
|
|
09.02.2012, 16:53
|
#2
|
|
|
|
|
|
 Пехотинец |
Регистрация: 16.12.2010
Сообщений: 74
Популярность: 956
Сказал(а) спасибо: 143
Поблагодарили 265 раз(а) в 158 сообщениях
|
Re: помогите написать скрип для закла на 2.7
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
|
|
09.02.2012, 17:54
|
#3
|
|
|
|
|
|
 Сержант |
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
|
Re: помогите написать скрип для закла на 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 57 0A 02 00 53 32 00 00 C9 01 05 36 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:=1000;
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;
13:
begin
DoTheSkill(2229, 9);
Timer.enabled:=false;
Inc(TimerStep);
TimerStep:=1;
end;
end;
end;
begin
StartSkill := 1716;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);
Timer.enabled:=true;
end;
end. |
|
|
|
|
|
|
Активация скилом Земляные оковы IV
________________
Gods,give me strength
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
|
|
09.02.2012, 18:58
|
#4
|
|
|
|
|
|
Разведчик
|
Регистрация: 12.10.2011
Сообщений: 11
Популярность: 12
Сказал(а) спасибо: 2
Поблагодарили 1 раз в 1 сообщении
|
Re: помогите написать скрип для закла на 2.7
спс
|
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 00:47.
|
|
