 |
помогите ,нпщет скрипа - Общение и обсуждение Aion - События, информация, вопросы и ответы по Aion |
07.02.2012, 19:13
|
#1
|
|
|
|
|
|
 Разведчик |
 Регистрация: 12.10.2011
 Сообщений: 11
 Популярность: 12
 Сказал(а) спасибо: 2
Поблагодарили 1 раз в 1 сообщении
|
помогите ,нпщет скрипа
написал скип,(ну казалось мне так),а он не работает ,на закленателя.Нужно чтоб была задержка между скилами,я не пойму чо мож ид скилов не тот ,это на 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. |
|
 |
|
 |
|
Последний раз редактировалось chilay07; 08.02.2012 в 11:04.
|
|
|
|
|
07.02.2012, 22:52
|
#2
|
|
|
|
|
|
 Сержант |
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
|
Re: помогите ,нпщет скрипа
Что-то я вообще не заметил чтобы скрипт был дописан до конца.Будьте внимательнее.
|
|
|
|
|
07.02.2012, 23:01
|
#3
|
|
|
|
|
|
 Пехотинец |
Регистрация: 29.08.2010
Сообщений: 87
Популярность: 82
Сказал(а) спасибо: 99
Поблагодарили 51 раз(а) в 28 сообщениях
|
Re: помогите ,нпщет скрипа
не указано имя соединения
|
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 12:41.
|
|
