Кто может переделать скрипт на кач

[sadist815]

Всем привет форумчане у меня вот такая к вам просьба появилась
кто может переделать скрипт на кач вот под этот сервер [Ссылки могут видеть только зарегистрированные пользователи. ]
вот вам и первый скрипт на кач с 3 по 25лвл.
Собственно 1-й скрипт
var
PlayerID,NPCID,i,b:integer;

begin
//проверяем пакет
if FromClient then
case pck[1] of
//узнаем ID
#$ce:
begin

if FromClient and (ReadC(1)=$CE) and (ReadC(6)=$00) then
pck:=''
else
if FromClient and (ReadC(1)=$CE) and (ReadC(8)=$00) then
NPCID:=ReadD(6)
else
PlayerID:=ReadD(6);


end;
//ловим пакет на эмоцию улыбка
#$c2:
begin
if pck=HStr('C2 00 57 61 FF 15 1C 00 00 00 00 00') then
begin
For i:=1 to 30 do
begin
buf:=hstr('FF 01 57 BC FE 3B 08 00 00');
SendToServer;
buf:=hstr('9D 00 57 5A FF 95 DC 0C 00 EA 03 01 00 04 00 3B 08 00 00 00 00');
WriteD(PlayerID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF CC 8E 00 00 1A 00 01 00 0A 00 3B 08 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF CC 8E 00 00 F1 03 01 00 47 09 3B 08 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF CC 8E 00 00 12 00 01 00 05 00 3B 08 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
pck:='';

end;

end;

end;


end;
end.


И вот на кач с 25 по 60 лвл

Собственно 2-ой скрипт

var
PlayerID,NPCID,i,b:integer;

begin
//проверяем пакет
if FromClient then
case pck[1] of
//узнаем ID
#$ce:
begin

if FromClient and (ReadC(1)=$CE) and (ReadC(6)=$00) then
pck:=''
else
if FromClient and (ReadC(1)=$CE) and (ReadC(8)=$00) then
NPCID:=ReadD(6)
else
PlayerID:=ReadD(6);


end;
//ловим пакет на эмоцию улыбка
#$c2:
begin
if pck=HStr('C2 00 57 61 FF 15 1C 00 00 00 00 00') then
begin
For i:=1 to 30 do
begin
buf:=hstr('FF 01 57 BC FE C2 09 00 00');
SendToServer;
buf:=hstr('9D 00 57 5A FF 95 DC 0C 00 EA 03 01 00 04 00 C2 09 00 00 00 00');
WriteD(PlayerID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF 14 9A 00 00 1A 00 01 00 0A 00 C2 09 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF 14 9A 00 00 F1 03 01 00 47 09 C2 09 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF 14 9A 00 00 12 00 01 00 05 00 C2 09 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
pck:='';

end;

end;

end;


end;
end.


воот собственно и эти скрипты.


Так что заранее огромное спасибо. И кто поможет обязательно поставлю репу и спасибку.