2 Полезных скрипта для танка

[keni1999]

Первый скрипт Насыщение здоровьем I (отхил) активируется при помощи скила Блок щитом I

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 := 173;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(1969, 1);
end;
end.





Второй скрипт Пленение I (удочка) активируется с помощью скила Надежная защита I


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 := 524;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(1975, 1);
end;
end.


Это моя первая тема не судите строго :rolleyeyes:

[angek]

Ну 1 это палевно и можно отредактировать скилы и не слать пакеты.

[wzombiee]

Ну 1 это палевно и можно отредактировать скилы и не слать пакеты.

суть не в этом, главное что рабочее(но не актуальное)

[Ubiwashka]

Сойдет))