par-vova
03.10.2011, 15:18
Вкладка Автоматизация --> Скрипты (Ctrl + E) --> Новый скрипт --> Пишим название (НАпримерТанк Бафы) -->Стираем всё что есть, и добавляем скрипты --> Ставим галочку справа , возле названия скрипта.
Активируется скилом Ожог IV ([Ссылки могут видеть только зарегистрированные и активированные пользователи]) Атакует сразу 6 скилами.
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 1527;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(2202, 2);
DoTheSkill(2203, 2);
DoTheSkill(2207, 4);
DoTheSkill(2196, 3);
DoTheSkill(1527, 5);
DoTheSkill(1520, 4);
DoTheSkill(1598, 3);
DoTheSkill(2203, 2);
end;
end.
Бафы волша , Активируется скилом Покров холода III ([Ссылки могут видеть только зарегистрированные и активированные пользователи])
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 2210;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(1433, 1);
DoTheSkill(1432, 1);
DoTheSkill(1390, 5);
DoTheSkill(1426, 1);
DoTheSkill(1440, 1);
DoTheSkill(1442, 1);
DoTheSkill(1587, 1);
DoTheSkill(1385, 4);
DoTheSkill(1555, 1);
DoTheSkill(1445, 1);
DoTheSkill(1571, 1);
end;
end.
Ставим спасибку за старание.:agreed:
Если кому надо скипт на какой либо клас пишите, сделаю.
Активируется скилом Ожог IV ([Ссылки могут видеть только зарегистрированные и активированные пользователи]) Атакует сразу 6 скилами.
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 1527;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(2202, 2);
DoTheSkill(2203, 2);
DoTheSkill(2207, 4);
DoTheSkill(2196, 3);
DoTheSkill(1527, 5);
DoTheSkill(1520, 4);
DoTheSkill(1598, 3);
DoTheSkill(2203, 2);
end;
end.
Бафы волша , Активируется скилом Покров холода III ([Ссылки могут видеть только зарегистрированные и активированные пользователи])
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 2210;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(1433, 1);
DoTheSkill(1432, 1);
DoTheSkill(1390, 5);
DoTheSkill(1426, 1);
DoTheSkill(1440, 1);
DoTheSkill(1442, 1);
DoTheSkill(1587, 1);
DoTheSkill(1385, 4);
DoTheSkill(1555, 1);
DoTheSkill(1445, 1);
DoTheSkill(1571, 1);
end;
end.
Ставим спасибку за старание.:agreed:
Если кому надо скипт на какой либо клас пишите, сделаю.