delphi Код:
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, составлять пакет , чтобы писал в приват. В данном случае он просто пишет одному и тому же челу много раз. как я понял тут надо сделать чтото вроде массива из ников... и чтобы вторая часть скрипта с таймером, брала по одному нику, отправляла а после удаляла из массива ник, или же можно просто чтобы перескакивала на следующий.