нужен бот который просто кричит(хелп)

[Legioner_noob]

Здравствуйте. Уж простите нуба я искал на форуме, нашел вот эту тему http://coderx.ru/showthread.php?t=747
Я впервые с этим связался, мне просто нужен "рекламщик". Сначала думал что это можно зделать через phx, но все результаты находил тока на L2Walker (боты). Вот решил спросить у знающих, где можно нечто подобное достать и что лучше зделать? Мне ненужны все эти функции которые встроены в ботов, только чат и чтоб сообщения кричал через заданное время. Спасибо!

[Serg]

Присоединяюсь.
Может, продаст кто-ть дешевле, чем ASI 1.52?

[atukal]

вот под l2phx

const
  message := 'Ваше сообщение в чат'; 

var
 Timer01: TTimer;

procedure Init; //will be called on script initialization
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=60000; //1 раз в минуту
end;

procedure Free; //This method calls when script don't need anymore
begin
  Timer01.free;
end;

procedure OnTimer01(Sender: TObject);
begin
  say();
end;

procedure say(msg:string);
begin
  buf:=#$4A;
  WriteS(msg);
  WriteD(1); // ALL = 0; SHOUT(!) = 1; PARTY(#) = 3; CLAN(@) = 4;
  SendToServer(); 
end;

//Primary part of dcript
//calls alltime when l2ph got new packet
begin
  if FromClient and (pck[1]+pck[2]=#$56#$0C) then
  begin
    Timer01.enabled:=not(Timer01.enabled);
  end;
end.

[Serg]

О, спаcибо. А l2phx работает на РуОффе?
Запустил игру, потом l2phx 3.5.30.159. В настройках указал протокол T2 Gracia Final, поставил галочку на Gracia (off server) хотя написано устарело для l2.ru. А мне именно для l2.ru надо...
В процессах найденного клиента (бота) не обнаружил.
Может прослушиваемый порт надо указать или еще что?

[alexteam]

А l2phx работает на РуОффе

нет.

[Legioner_noob]

atukal Спасибо огромное! :respect:
alexteam и Вам спасибо за участие!

[Serg]

Cкажите, для l2.ru только ASI может помочь?

[Legioner_noob]

Чет оштбка в строке

 message := 'Ваше сообщение в чат';

попробовал заменить:

...
message = 'Ваше сообщение в чат';
...
procedure OnTimer01(Sender: TObject);
begin
  say('111');
end;
....

непомогло так же:

...
message = 1000;
...
procedure OnTimer01(Sender: TObject);
begin
  say('111');
end;
....

версия l2phx 3.5.24.142
может плагин какой нужен или еще что?

[alexteam]

в секции const присвоение делаеться обычным = а не :=
т.е:
message = 'Ваше сообщение в чат';

а тут, ктото просто забыл вызывать say с этим параметром.
procedure OnTimer01(Sender: TObject);
begin
say(message);
end;

[Legioner_noob]

alexteam спасибо!
Вот я тока не пойму как он работать должен? вроде все запустилось но ничего в чате не пишет