Хостинг, который использует TopHope.RU более 2-х лет

Хостинг, который использует TopHope.RU более 4-х лет

Действия ботов по команде (Adrenalin)

Тема в разделе "Архив скриптов", создана пользователем Mimishka, фев 8, 2019.

  1. Mimishka

    Mimishka Charm

    Сообщения:
    52
    Симпатии:
    98
    Баллы:
    1,028
    В строке nickname1, nickname2, nickname3 пишем свой ник =)
    Команды нужно писать в пати чат, к примеру: #follow или follow если вы нажали иконку в пати чат(для удобства можно макрос)
    start - после чего включает команду "enable" бот начинает бафать или драться в зависимости для чего вы используете.
    stop - останавливает работу окон.
    follow - окна прилипают за вами.

    Не забывайте что для работы скрипта нужно находится в пати =))
    Код:
    uses sysutils,classes;
    
    var myChars: TStringList;
    var remoteControl: TL2Control;
    i: integer;
    begin
    
      myChars := TStringList.Create;
      myChars.add('nickname1');
      myChars.add('nickname2');
      myChars.add('nickname3');
    
       while Engine.Status = lsOnline do begin
       
         if (ChatMessage.ChatType = mtParty) and ChatMessage.Unread then
         begin
    
           if (ChatMessage.Text = 'stop') then begin
               for i := 0 to myChars.Count - 1 do begin
                   remoteControl := GetControl(myChars[i]);
                   if Assigned(remoteControl) then
                       begin
                           remoteControl.FaceControl(0,false);
                   end;
               end;
           end;
    
           if (ChatMessage.Text = 'start') then begin
               for i := 0 to myChars.Count - 1 do begin
                   remoteControl := GetControl(myChars[i]);
                   if Assigned(remoteControl) then
                       begin
                           remoteControl.FaceControl(0,true);
                   end;
               end;
           end;
    
           if (ChatMessage.Text = 'follow') then begin
               for i := 0 to myChars.Count - 1 do begin
                   remoteControl := GetControl(myChars[i]);
                   if Assigned(remoteControl) then
                       begin
                           remoteControl.EnterText('/target ' + ChatMessage.sender);
                           delay(100);
                           remoteControl.EnterText('/target ' + ChatMessage.sender);
                   end;
               end;
           end;
         end;
       delay(1000);
       end;
    end.
    
     
    Последнее редактирование: фев 8, 2019
    ItsMyLife, wisa, l3x3l и 2 другим нравится это.
  1. На этом сайте используются файлы cookie, чтобы персонализировать содержимое, хранить Ваши предпочтения и держать Вас авторизованным в системе, если Вы зарегистрировались.
    Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление