Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[dyh9l]

nasty, хайд-тулз, виртуальная машина, поиск nophx.dll в патче, изменения перехватов (lsp/inject) и прочее, а вобще в другую тему..

[Хламчег]

const
name='НИК';
TimerInterval=5000;
text='ТЕКСТ';
var
nick:string;
timer1:TTimer;
procedure Init; //Вызывается при включении скрипта
begin
               Timer1:= TTimer.Create(nil) ;
               Timer1.Interval := TimerInterval ;
               Timer1.Enabled := False ;
               Timer1.Ontimer := @OnTimer ;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
Procedure Target;
begin
nick:=ReadS(22);
Timer1.Enabled:=true;
end;
Procedure OnTimer;
begin
buf:=#$38;
WriteS(text);
WriteD(2);
WriteS(nick);
SendToServerEx(Name);
end;
begin
if (FromServer) and (Connectname=name) and (pck[1]=#$03) then Target;
end.

Помогите со скриптом. Он должен вытаскивать ники из пакета Charinfo, составлять пакет , чтобы писал в приват. В данном случае он просто пишет одному и тому же челу много раз. как я понял тут надо сделать чтото вроде массива из ников... и чтобы вторая часть скрипта с таймером, брала по одному нику, отправляла а после удаляла из массива ник, или же можно просто чтобы перескакивала на следующий.

[Breadfan]

останавливай таймер после отправки

Procedure OnTimer;
begin
  buf:=#$38;
  WriteS(text);
  WriteD(2);
  WriteS(nick);
  SendToServerEx(Name);
  Timer1.Enabled:=false;
end;

это первое. Второе: invterval:=5000 - значит в ситуациях когда будут приходить несколько чаринфо с интервалом менее 5 секунд - не всем им будет послано сообщение, надо делать чтото вроде буфера, для сбора ников...Хотя может это и к лучшему.

[Хламчег]

Я так и писал, что надо сделать массив. Но я не могу это сделать. Навыков мало. С массивами не лажу совсем. Но знаю что точно надо сделать массив, и чтобы ники не повторялись, надо сделать алгоритм проверки совпадений и только после этого заносить в массив ник.

Добавлено через 5 минут
Этот скрипт не то что надо. Он пишет в ПМ по много раз, стоит с перса снять пуху и шмот., пакет Charinfo приходит еще раз. Надо чтобы на каждого перса приходило тока 1 сообщение. Так что без базы ников никак. Помогайте плизз! может у кого уже есть алгоритмы

[NLObP]

Сообщение от Хламчег

С массивами не лажу совсем. Но знаю что точно надо сделать массив, и чтобы ники не повторялись, надо сделать алгоритм проверки совпадений и только после этого заносить в массив ник.

Посмотри готовые скрипты - боты/заточка/рыбалка/покупка и т.д. практически все работают с массивами.

[Хламчег]

Массив сделать не трудно и внести туда ники... Вопрос в том как сделать так чтобы ники не повторялись. Алгоритм удаления повротений можно сделать, но как сверять типы String ?

[J-Fobos]

Вот необходимое вам решение.

type TStringList; Duplicates:=dupIgnore; Sorted:=True;

[Deffol]

ребят, подскажите как сделать 2 условия включения одного таймера, мне нужно чтоб он включался по 2м разным пакетам

[Breadfan]

если пришел один => one:=true; если пришел второй and one then startTimer;
както так
Оффтоп

var
one:boolean;
..................
procedure init;
begin
one:=false;
end;
..............
if fromserver and (pck=pck1) then one:=true;
if fromserver and (pck=pck2)and one then begin
   one:=false;
   TimerEnabled:=true;
end;

это если я верно понял...если надо чтоб включался когда придет или один или другой, то:
Оффтоп

..............
if fromserver and ((pck=pck1) or (pck=pck2)) then begin
   TimerEnabled:=true;
end;

[Deffol]

в общем, смысл в том, что у меня есть таймер на посылку 2х пакетов.
Мне его надо включить сначала одним пакетом, срабатывает процедура таймера, сразу вырубается и ждет пакета, сначала будет 2 раза пакет одного типа, потом будет пакет другого типа!
во втором варианте где вы написали через or, если таймер включится одним пакетом, то 2м он уже потом не включится вроде так