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

[TAMBIK]

Legioner_noob,
надо запустить
в кнопках соцдействие. какая хз тыкай подряд

[alexteam]

а... ну еще
SendToServer();
заменить на SendToServerEx('имя соединения');

Добавлено через 2 минуты
+ заменить
if FromClient and (pck[1]+pck[2]=#$56#$0C) then
на
if fromserver and (length(pck) > 1) and (pck[1]+pck[2]=#$56#$0C) then
дабы внутри пх не возникало ошибок при pck длинной в 1 байт.

[Legioner_noob]

alexteam Спасибо еще раз! Я все изменил, но в чате так ничего и непишет. Где SendToServerEx('имя соединения'); там нужно ник персонажа вписать, я правильно понял?

[alexteam]

да. есть еще вариант что нужно изменить номер пакета в конструкторе say
+ если это руофф то там он и не запашет. -)

[Legioner_noob]

нет не руофф, там понимаю - хорошая защита. А какой нужно номер пакета, отправил сообщение через клиент, l2phx перехватил 2 пакета:

тип 0x49, Say2, размер-13
49 31 00 31 00 00 00 00 00 00 00

Детальная расшифровка
тип: 0x49(Say2)
Размер: 11+2
Время прихода: 17:47:21:118
0002s Text: 11
0008d Type: 0 (0x00000000)

и

тип 0x4A, CreatureSay, размер-33
4A E5 D3 15 10 00 00 00 00 46 00 6F 00 6F 00 6C 00 4D 00 61 00 67 00 00 00 31 00 31 00 00 00 

Детальная расшифровка
Тип: 0x4A (CreatureSay)
Размер: 31+2
Время прихода: 17:47:21:413
0002 d  ObjectID: 269865957 (0x1015D3E5)
0006 d  TextType: 0 (0x00000000)
000A s  CharName: FoolMag
001A s  Text: 11

[TAMBIK]

тип 0x49, Say2, размер-13

те надо в пакетах разобраться

от сервера приходят клиенту
от клиента отправляешь серверу

[Legioner_noob]

не совсем понял в чем разобраться? от серверра - CreatureSay, от клиента - Say2.

[alexteam]

Legioner_noob, достаточно было просто пойманый пакет say2 всунуть в отправку и включить отправку по таймеру...
но мы как всегда пойдем дальше...
Оффтоп

const
  player = 'yourNickName'; //Заполнить имя персонажа. и включить. 
  
  
  
  
var
 Form : Tform;
 Text : Tedit;
 Interval : Tedit;
 Btn : Tbutton;
 Timer: TTimer;
 L,l2,l3 : Tlabel;
 cb : tcombobox;
 
procedure Init; //will be called on script initialization
begin
   UseForConnectName := player;
   Form := Tform.create(nil);
   l := Tlabel.create(form);
   l.parent := form;
   l.caption := 'Текст:';
   l.top := 4;            
   
   Text := Tedit.create(form);
   text.parent := form;
   Text.Width := 200; 
   text.left := 90;     
   
   cb := tcombobox.create(form);
   cb.parent := form;
   cb.left := 90;
   cb.width := 100;
   cb.style := csDropDownList;
   cb.top := 28; 
   cb.items.add('Simple message'); //0
   cb.items.add('Shout (!)'); //1
   cb.items.add('Trade (+)'); //8
   cb.items.add('Hero chat (17)'); //17
   cb.itemindex := 1;          
   
   l2 := Tlabel.create(form);
   l2.parent := form;
   l2.caption := 'Тип чата:';
   l2.top := 32;                
   
   Interval := Tedit.create(form);
   Interval.parent := form;
   Interval.Width := 100; 
   Interval.top := 56; 
   Interval.left := 90;
   Interval.text := '60'; 
   
   l3 := Tlabel.create(form);
   l3.parent := form;
   l3.caption := 'Интервал(сек):';
   l3.top := 60;
   
   Btn := Tbutton.create(form);
   Btn.parent := form;
   Btn.height := 52;
   Btn.width := 90;
   Btn.left := 200;
   Btn.top := 28;
   Btn.caption := 'Start';
   Btn.OnClick := @BtnHandler;
   
   
   Timer:=TTimer.Create(nil);
   Timer.OnTimer:=@OnTimer;
   Timer.enabled:=false;
   
   Form.caption := 'ГоворилкО';
   form.formstyle := fsstayontop;
   form.borderstyle := bsToolWindow;
   form.autosize := true;
   form.bordericons := nil;
   form.borderwidth := 5;
   form.onclosequery := @FormCloseQuery;
   form.show;
end;


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := false;
end;

procedure BtnHandler(Sender: TObject);
begin
  try
    timer.interval := strtoint(interval.text)*1000;
  except
    timer.interval := 60000;
    interval.text := '60';
  end;
  timer.enabled := not timer.enabled;
  Interval.enabled := not timer.enabled;  
  text.enabled := not timer.enabled;  
  
  if timer.enabled then
    btn.caption := 'Stop'
  else                   
    btn.caption := 'Start';
 
end;

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

procedure OnTimer(Sender: TObject);
var
  chattype:integer;
begin
  if text.text = '' then exit;
  
  case cb.itemindex of
    0 : chattype := 0;
    1 : chattype := 1;
    2 : chattype := 8;
    3 : chattype := 17;
  else
    chattype := 1;    
  end;
  
  buf := '';
  writemask('csd',[$49, text.text, chattype]); 
  SendToServer;
end;

begin
end.

[VMS]

как вариант можешь вообще обойтись без бота
покупаешь программируемую мышку типа Х7 серии К
набираешь в клиенте макрос на нужные чаты а на мышке ставишь периодичность включения и усе

[Serg]

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

как вариант можешь вообще обойтись без бота
покупаешь программируемую мышку типа Х7 серии К
набираешь в клиенте макрос на нужные чаты а на мышке ставишь периодичность включения и усе

А такой выриант на РуоФФе пойдет?