react667
12.02.2012, 12:35
Помогите плиз с переделкой данного скрипта под версию 2.7, просто не могу достучаться до автора скрипта(Usilok77)
//Script by Usilok v_2.1
var
Mob_id,Elem_id,i,temp:integer;
msgName,skill:string;
procedure PHX_Message(msg1:string);
begin
buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
msgName:='Attack';
WriteS(msgName);
WriteS(msg1);
SendToClient;
end;
begin
//проверяем пакет
if FromClient then
case pck[1] of
//узнаем id элема
#$27:
begin
temp:=Elem_id;
Elem_id:=readD(4);
if (Elem_id <> temp) then
PHX_Message('Найден элементаль!');
end;
//узнаем id моба
#$b5:
begin
Mob_id:=readD(4);
if (Mob_id<>0) then
PHX_Message('Найден таргет!');
end;
//ловим скилл
#$23:
begin
if(skill<>pck) then
begin
skill:=pck;
PHX_Message('Найден атакующий скилл, можно бить!');
end;
end;
#$c9:
begin
//Эмоция "Думать" (любая команда элементаля, отловленная скриптом)
if pck=HStr('C9 57 66 15 21 00 00 00 00 00') then
begin
// цикл ударов элементаля
PHX_Message('Атакую!');
i:=1;
For i:=1 to 70 do
begin
buf:=skill;
writed(Elem_id,4);
writed(Mob_id,11);
sendtoserver;
i:=i+1;
end;
PHX_Message('Атака выполнена!');
end
end;
end;
end.
Отпишись плиз автор
//Script by Usilok v_2.1
var
Mob_id,Elem_id,i,temp:integer;
msgName,skill:string;
procedure PHX_Message(msg1:string);
begin
buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
msgName:='Attack';
WriteS(msgName);
WriteS(msg1);
SendToClient;
end;
begin
//проверяем пакет
if FromClient then
case pck[1] of
//узнаем id элема
#$27:
begin
temp:=Elem_id;
Elem_id:=readD(4);
if (Elem_id <> temp) then
PHX_Message('Найден элементаль!');
end;
//узнаем id моба
#$b5:
begin
Mob_id:=readD(4);
if (Mob_id<>0) then
PHX_Message('Найден таргет!');
end;
//ловим скилл
#$23:
begin
if(skill<>pck) then
begin
skill:=pck;
PHX_Message('Найден атакующий скилл, можно бить!');
end;
end;
#$c9:
begin
//Эмоция "Думать" (любая команда элементаля, отловленная скриптом)
if pck=HStr('C9 57 66 15 21 00 00 00 00 00') then
begin
// цикл ударов элементаля
PHX_Message('Атакую!');
i:=1;
For i:=1 to 70 do
begin
buf:=skill;
writed(Elem_id,4);
writed(Mob_id,11);
sendtoserver;
i:=i+1;
end;
PHX_Message('Атака выполнена!');
end
end;
end;
end.
Отпишись плиз автор