ДА БУДЕТ БOT!

[Breadfan]

А вот полезная мелочь)) тупо пересылает пмы:

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 (кстати спс за скрипт), жжоте))

if (PartyNick='Corey')or(PartyNick='SaKpa') then begin
 buf:=#$38;
 WriteS('Ignored you)');

[NLObP]

Сообщение от Breadfan

Кстати, я не ошибаюсь что функция StrtoHex теперь вшита в пакетхак? (в версиях 3.3.х)

По ctl+shift показывает функции, которые можно применить (экспортируются из пакетхака).

function StrToHex(StrToHex: string): string;

обратная ей

function HStr(hex: string): string;