K911
18.05.2011, 21:51
1- Speed atack SIN 1 (Для Ассассинов)
Активируется "Рев зверя"
2- Auto PvP
На 2.8 секунде отчёта кидается засада вашему противнику
1
begin
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)= 875)then
begin
buf:=hstr('CF 57 6C 5C 03 05 00 ');
writeD(readD(8));
buf:=buf+hstr('F0 00 79 41 00 00');
sendtoserver;
end;
end.
begin
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)= 875)then
begin
buf:=hstr('CF 57 6C 3E 08 04 00');
writeD(readD(8));
buf:=buf+hstr('A0 02 79 AD 00 00');
sendtoserver;
end;
end.
begin
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)= 875)then
begin
buf:=hstr('CF 57 6C 49 08 01 00');
writeD(readD(8));
buf:=buf+hstr('50 01 F9 E6 00 00');
sendtoserver;
end;
end.
2
const
tt=2801;
var
timer:TTimer;
conid:Integer;
targetId:Integer;
procedure Log(msg:String); //Вызывается при включении скрипта
begin
//sendMSG('Using conid:' + IntToStr(useforconnectid));
buf:=HStr('17 50 D4 19 00 00 00 00 00 00 00');
WriteS(msg);
SendToClient;
end;
procedure Init; //Вызывается при включении скрипта
begin
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnHTimer;
timer.Interval:=tt;
timer.Enabled:=false;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
procedure OnHTimer(Sender: TObject);
begin
If (targetId <> 0) then
begin
useforconnectid := conid;
//CF 57 6C 4E 08 01 00 19 8E 00
// CF 57 6C 42 08 01 00 19 8E 00
buf:=hstr('CF 57 6C 4E 08 01 00');
WriteD(targetId);
buf:=buf+hstr('00 00 98 6C 00 00');
SendToServer;
Delay(100);
buf:=hstr('CF 57 6C 42 08 01 00');
WriteD(targetId);
buf:=buf+hstr('2A 02 05 0E 00 00');
SendToServer;
timer.enabled:=false;
end;
end;
procedure usecon(cid:Integer);
begin
if(cid <> 0) then conid := cid;
useforconnectid := conid;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
usecon(ConnectID);
if(fromserver) and (pck[1]=#$B6) then
begin
targetId:=ReadD(5);
timer.enabled:=true;
end;
end.
Активируется "Рев зверя"
2- Auto PvP
На 2.8 секунде отчёта кидается засада вашему противнику
1
begin
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)= 875)then
begin
buf:=hstr('CF 57 6C 5C 03 05 00 ');
writeD(readD(8));
buf:=buf+hstr('F0 00 79 41 00 00');
sendtoserver;
end;
end.
begin
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)= 875)then
begin
buf:=hstr('CF 57 6C 3E 08 04 00');
writeD(readD(8));
buf:=buf+hstr('A0 02 79 AD 00 00');
sendtoserver;
end;
end.
begin
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)= 875)then
begin
buf:=hstr('CF 57 6C 49 08 01 00');
writeD(readD(8));
buf:=buf+hstr('50 01 F9 E6 00 00');
sendtoserver;
end;
end.
2
const
tt=2801;
var
timer:TTimer;
conid:Integer;
targetId:Integer;
procedure Log(msg:String); //Вызывается при включении скрипта
begin
//sendMSG('Using conid:' + IntToStr(useforconnectid));
buf:=HStr('17 50 D4 19 00 00 00 00 00 00 00');
WriteS(msg);
SendToClient;
end;
procedure Init; //Вызывается при включении скрипта
begin
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnHTimer;
timer.Interval:=tt;
timer.Enabled:=false;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
procedure OnHTimer(Sender: TObject);
begin
If (targetId <> 0) then
begin
useforconnectid := conid;
//CF 57 6C 4E 08 01 00 19 8E 00
// CF 57 6C 42 08 01 00 19 8E 00
buf:=hstr('CF 57 6C 4E 08 01 00');
WriteD(targetId);
buf:=buf+hstr('00 00 98 6C 00 00');
SendToServer;
Delay(100);
buf:=hstr('CF 57 6C 42 08 01 00');
WriteD(targetId);
buf:=buf+hstr('2A 02 05 0E 00 00');
SendToServer;
timer.enabled:=false;
end;
end;
procedure usecon(cid:Integer);
begin
if(cid <> 0) then conid := cid;
useforconnectid := conid;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
usecon(ConnectID);
if(fromserver) and (pck[1]=#$B6) then
begin
targetId:=ReadD(5);
timer.enabled:=true;
end;
end.