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

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

Сайт для программистов

переделиваем скрипт

Тема в разделе "бот и его настройка", создана пользователем slove, янв 3, 2018.

  1. slove

    slove Адекват

    Сообщения:
    23
    Симпатии:
    15
    Баллы:
    5
    Хочу поменять играние музики на текст в клан чат
    var Captcha:string;
    begin while (true) do begin Captcha := Engine.DlgText;
    if (Pos('Нажмите', Captcha) <> 0) then begin PlaySound('Sounds/sirena.wav',false);
    Engine.BlinkWindow(true);
    end;
    Delay(5000);
    end;
    end.
    Engine.Say('текст флуда', 4, '') - команда для текста в кч
     
  2. assassins909

    assassins909 ещзрщзу123

    Сообщения:
    208
    Симпатии:
    254
    Баллы:
    695
    Код:
    var Captcha:string;
    begin while (true) do begin Captcha := Engine.DlgText;
    if (Pos('Нажмите', Captcha) <> 0) then begin Engine.Say('текст флуда', 4, '');
    end;
    Delay(5000);
    end;
    end.
     
    HellFire нравится это.
  3. slove

    slove Адекват

    Сообщения:
    23
    Симпатии:
    15
    Баллы:
    5
    в даном случае он пишет "текст флуда" каждие 5сек неважно есть капча или нет
     
  4. assassins909

    assassins909 ещзрщзу123

    Сообщения:
    208
    Симпатии:
    254
    Баллы:
    695
    Это проблема уже не скрипта, а того, что Engine.DlgText возвращает каждые 5 секунд строку, в которой содержится текст "Нажмите"
     
  5. slove

    slove Адекват

    Сообщения:
    23
    Симпатии:
    15
    Баллы:
    5
    хм...а как тогда можно зделать штоб при появление капчи вместо музики PlaySound('Sounds/sirena.wav',false); писало к примеру в кч?
     
  6. assassins909

    assassins909 ещзрщзу123

    Сообщения:
    208
    Симпатии:
    254
    Баллы:
    695
    я тебе дал уже переделанный скрипт, хз че не работает у тебя. по идее над просто вызов PlaySound заменить на Engine.Say
    --- Объединение сообщений, янв 5, 2018, Дата оригинального сообщения: янв 5, 2018 ---
    крч читайте мануалы, отлаживайте, отлаживайте, читайте мануалы
     
    HellFire нравится это.
  7. Lannar

    Lannar Адекват

    Сообщения:
    65
    Симпатии:
    34
    Баллы:
    138
    PHP:
    var Captcha:string;
    begin while (true) do begin Captcha := Engine.DlgText;
    if (
    Pos('Нажмите'Captcha) <> 0then begin Engine.Say('текст флуда'4,false);
    end;
    Delay(5000);
    end;
    end.
     
  8. slove

    slove Адекват

    Сообщения:
    23
    Симпатии:
    15
    Баллы:
    5
    даний пример неработает ,видает ошибку в 3 строке "incompatible types"
     
  9. Lannar

    Lannar Адекват

    Сообщения:
    65
    Симпатии:
    34
    Баллы:
    138
    Да то я загнался,код нужно полностью переписать и отдельно вывести проверку котороя будет следить за тем есть ли капча и только потом переходить к действию при обнаружении!
    А вообще настрой через интерфейс и не парь голову ,там же есть при вылете капчи писать теткс
     
    Последнее редактирование: янв 7, 2018
  10. slove

    slove Адекват

    Сообщения:
    23
    Симпатии:
    15
    Баллы:
    5
    Готовий вариант
    var Captcha:string;
    begin
    while true do
    begin
    delay(500) ;
    if Captcha <> Engine.DlgText then
    begin
    Captcha := Engine.DlgText;
    if (Pos('Нажмите', Captcha) <> 0) then
    Engine.BlinkWindow(true);
    Engine.Say('апчи', 4, ''); \\пишет апчи в кч при появление капчи
    Delay(2000);
    end;
    end;
    end.​