Логотип игрового форума RF-Cheats.ru    
Новости онлайн игр Правила форума Чёрный рынок Реклама и привилегии Гаранты Арбитраж

Вернуться   Чит портал RF-Cheats.ru - форум читеров и ботоводов > > > >
Важная информация

Читы и боты для Blood and Soul

: Обсуждение читов для новой MMORPG Blood And Soul (bs.ru)
Читы и обход фроста для RF Online без хайдаБоты и читы для Perfect World бесплатно без хайдаМоды и читы для World of Tanks (WoT) бесплатно без хайдаМоды и читы для Armored Warfare бесплатно без хайдаБоты и читы для DOTA 2 бесплатно без хайдаБоты и читы для Black Desert Online бесплатно без хайдаЧиты на ArcheAge бесплатно без хайдаЧиты для Warface бесплатно без хайдаВзлом ВКонтакте и ОдноклассниковСписок разделов со всеми играмиЧиты для онлайн игр



Ответ
 
Опции темы
Старый 23.06.2019, 17:33   #1
olta78
Освоившийся
Аватар для olta78
OFFLINE
Регистрация: 27.08.2013
Сообщений: 60
Благодарностей:
0 всего
Мнения: -2
Репутация: 1

Камни проклятья


Привет, пока не прокачано ремсло, камни проклятья приходится очищать вручную. Небольшой скрипт поможет выполнить это безобразие))). Используем AutoIt. Открываем инвентарь где лежат камни проклятья и зелье очищения. Запускаем скрипт, первый камень надо сделать вручную, скрипт запомнит нужные координаты камней проклятья и зелья очищения, а так же кнопку ОК во всплывающем окне. После этого скрипт доделает это нудное дело. В скрипте необходимо указать нужное количество камней минус один тот что сделаете вручную. По умолчанию стоит 149. Така как один сделаете вручну. Итого 150 штук. На квест парта.
Код:
Sleep(5000); Ожидание 5 секунд
#include <Misc.au3>
HotKeySet("{ESC}","stop"); Вызов функции Остановка скрипта - ESC

$countStart = 1; Счетчик начало, всегда = 1
$countEnd = 149; Счетчик конец, количество очищаемых камней -1, который будет очищен вручную

$dll = DllOpen("user32.dll"); Подключение библиотеки

While 1; Координаты Зелья Очищения
    Sleep(50)
    If _IsPressed("02", $dll) Then ;Ожидание, в цикле, нажатия ПКМ(Зелье Очищения)
        $aCoord=MouseGetPos()
         ToolTip("Нажата ПКМ"&@CRLF&"Координаты: x="&$aCoord[0]&" y="&$aCoord[1], Default, Default, '_IsPressed', 1)
    Sleep(800)
       ExitLoop
    EndIf
WEnd

While 1; Координаты камня проклятья
	If _IsPressed("01", $dll) Then ;Ожидание, в цикле, нажатия ЛКМ(Камень Проклятья)
        $bCoord=MouseGetPos()
         ToolTip("Нажата ЛКМ"&@CRLF&"Координаты: x="&$bCoord[0]&" y="&$bCoord[1], Default, Default, '_IsPressed', 1)
      Sleep(800)
         ExitLoop
	EndIf
WEnd

While 1; Координтаы кнопки подтверждения - ОК

	If _IsPressed("01", $dll) Then ;Ожидание, в цикле, нажатия ЛКМ(Всплывающее Окно кнопка ОК)
        $cCoord=MouseGetPos()
         ToolTip("Нажата ЛКМ"&@CRLF&"Координаты: x="&$cCoord[0]&" y="&$cCoord[1], Default, Default, '_IsPressed', 1)
      Sleep(800)
		ToolTip("", Default, Default, '_IsPressed', 1)
        ExitLoop
    EndIf
WEnd

Sleep(5000); Ожидание 5 секунд

While $countStart <= $countEnd; Процесс очистки
	$DelayKey = Random(150, 300, 1)
	AutoItSetOption("MouseClickDelay", $DelayKey)
	$DelayKey = Random(150, 300, 1)
	AutoItSetOption("MouseClickDownDelay", $DelayKey)

	MouseClick("right", $aCoord[0], $aCoord[1])
	Sleep(300)
	MouseClick("left", $bCoord[0], $bCoord[1])
	Sleep(300)
	MouseClick("left", $cCoord[0], $cCoord[1])
	Sleep(300)
	$countStart = $countStart + 1
WEnd

Func stop(); Функция Остановка скрипта
    Exit
EndFunc

DllClose($dll); Закрытие библиотеки

Последний раз редактировалось olta78; 23.06.2019 в 19:45.
 
Ответить с цитированием


Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кора Камни бесконечности ЖриУГ Гомер 0 04.11.2018 01:59
Кора СТИХИ.камни.кк HolyRedeemer Фурия 0 11.07.2018 23:52
камни spiduha Reborn online читы 5 02.07.2014 17:59
Камни 1xMARSx1 Объявления по DotA2 0 25.12.2013 23:05
Камни эдик665 Читы и боты для Blood and Soul 10 07.10.2013 20:33

Мир танков | Проект "Армата" | ArcheAge | Black Desert | РФ Онлайн | Айон | Майнкрафт | Браузерные игры
Элдер скролс | Р2 Онлайн | Реквием Онлайн | ПУБГ | Роял Квест | ГТА Санадреас | Контра | Дота 2
Мир кораблей | Лост Арк | Arma2 DayZ mod | The War Z | Карос: Начало | Tera Online
Читы для всех Онлайн-игр