ХМ, так я про что говорю, pck это тупо кусок (1 байт пакета, условно, две циферки подряд в пакете) в 16 системе,
а вот ReadC это тот же кусок (1 байт пакета) тока в 10 системе.
ReadH - 2 байта,
ReadD - 4 байта, и тд.
Добавлено спустя 35 минут 53 секунды:
Уж извините за флуд :oops: , но вдруг кому сгодится :)
Скриптик, отправляет торг сообщения по времени и записывает все приват сообщения,
соответственно на которые можно будет ответить позже.
Еще я там в конце заблочил, ответ на собщения в пм, что типа меня нет, приду отвечу))
У на серве торг боты разрешены)) , а у вас?
Код:
//Скрипт торг сообщений by APXAHrEJI
//Всё активируется соц действиями
//Yes - выводит одно торг сообщение
//No - автоматически повторяет сообщение чере некоторый интервал врмени (по умолчанию 30 сек.)
//Unaware - если вам во время вашего отсутствия что-то написали в ПМ
//то, по нажатию клавиши выводится те самые сообщения , одно нажатие одно сообщение.
//Applaud - удаляет все сообщения
Const
Name = 'Ник Перса';
Yahoo= ' Сюда торг сообщение '+
' если не поместилось туда мона и сюда ';
Var
TimerToSay: TTimer;
Flag: boolean;
N, M: Integer;
SaveMsg: array of String;
SaveNick: array of String;
Procedure Init;
begin
TimerToSay:=TTimer.Create(nil);
TimerToSay.OnTimer:=@SayByTime;
TimerToSay.Enabled:= False;
TimerToSay.Interval:= 30000;//интервал повторения сообщения
Flag:= False;
N:= 0;
M:= 0;
end;
procedure Free;
begin
TimerToSay.Free;
SetLength (SaveMsg, 0);
SetLength (SaveNick, 0);
end;
procedure PrivatSay;
begin
buf:=hstr('4A 00 00 00 00');
WriteD(2);
WriteS(SaveNick[M]);
WriteS(SaveMsg[M]);
SendToClientEx(Name);
end;
Procedure Say;
begin
buf:= #$38;
WriteS(Yahoo);
WriteD(8);
SendToServerEx (Name);
end;
Procedure Palevo;
begin
buf:= #$38;
WriteS('Меня нет. Отвечу позже.');
WriteD(2);
WriteS(SaveNick[N-1]);
SendToServerEx(Name);
end;
Procedure SayByTime(Sender: TObject);
begin
Say;
end;
Begin
If pck='' then exit;
if FromClient and (ConnectName=Name) and (pck[1]=#$1B) then begin
case ReadD(2) of
6: Say;
5: If Flag then begin
Flag:= False;
TimerToSay.enabled:=false;
end
else begin
Say;
Flag:= True;
TimerToSay.enabled:=True;
end;
8: If (N <> 0) then begin
PrivatSay;
If (M<(N-1))then Inc(M) else M:=0;
end;
11: begin
M:=0;
N:=0;
SetLength (SaveMsg, N);
SetLength (SaveNick, N);
end;
end;
pck:= '';
end;
If FromServer and (ConnectName=Name) then
if (pck[1]= #$4A) and (pck[6]=#$02) then begin
Inc(N);
SetLength (SaveMsg, N);
SetLength (SaveNick, N);
SaveNick[N-1]:= ReadS(10);
SaveMsg[N-1]:= ReadS(2*Length(SaveNick[N-1])+2 +10);
//Palevo; //раскоментарив, бот будет отвечать на сообщения в ПМ
end;
End.