А вот полезная мелочь)) тупо пересылает пмы:
delphi Код:
const
name=''; //ник командира
var
i:integer;
msg:string;
procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClientEx(Name);
end;
begin
if fromserver and (pck[1]=#$4a) and (pck[6]=#$02) and (connectname<>name)then
begin
i:=10;
msg:=('Incoming Message: From: '+ReadS(i)+' To: '+connectname+' >> '+ReadS(i));
sendmsg(msg);
end;
end.
Хроники: Камаель
Правда сообщения дублируются )
Кстати, я не ошибаюсь что функция StrtoHex теперь вшита в пакетхак? (в версиях 3.3.х)
Глянул аттач Raid (кстати спс за скрипт), жжоте))
delphi Код:
if (PartyNick='Corey')or(PartyNick='SaKpa') then begin
buf:=#$38;
WriteS('Ignored you)');