rolioo
01.12.2011, 12:42
ктот выкладывал скрипт , дающий чару бесмертие,но вскоре снёс тему.
держите) шоп его привести в действие прост поставте галку,справа от названия скрипта.
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C D2 04 01 00 00 00 00 00 00 00 F9 2E 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
SendToServer;
end;
begin
begin
DoTheSkill(1332, 3);
end;
end.
А вот ещё скриптик на атаку для чара,сопственно активируется также
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C D2 04 01 00 00 00 00 00 00 00 F9 2E 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
SendToServer;
end;
begin
begin
DoTheSkill(1259, 4);
end;
end.
Ну и скилпак на чара. активируется вроде бы болевым захватом,ну тот скил что активируется кода цель валяется
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 := 1268;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(1237, 2);
DoTheSkill(1232, 2);
end;
end.
держите) шоп его привести в действие прост поставте галку,справа от названия скрипта.
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C D2 04 01 00 00 00 00 00 00 00 F9 2E 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
SendToServer;
end;
begin
begin
DoTheSkill(1332, 3);
end;
end.
А вот ещё скриптик на атаку для чара,сопственно активируется также
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C D2 04 01 00 00 00 00 00 00 00 F9 2E 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
SendToServer;
end;
begin
begin
DoTheSkill(1259, 4);
end;
end.
Ну и скилпак на чара. активируется вроде бы болевым захватом,ну тот скил что активируется кода цель валяется
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 := 1268;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(1237, 2);
DoTheSkill(1232, 2);
end;
end.