Показать сообщение отдельно
Старый 19.03.2014, 15:20   #1
KinetiX
Пользователь
Аватар для KinetiX
OFFLINE
Регистрация: 14.03.2014
Сообщений: 20
Благодарностей:
26 всего
Репутация: 79
Отправить сообщение для KinetiX с помощью ICQ

[AutoIT][Script] Cпам скиллами + баффы по таймеру


Важно помнить:

- Если Тема находиться под скрытым текстом, и Вы не понимаете, что происходит, прочитайте >> Правила

- Не оставляйте сообщения, не относящиеся к тематики первоначального поста!

- Если у Вас что-то не работает, описывайте более детально вашу проблему, дабы Вам могли помочь

- Если тема более не актуальна, укажите в какой момент тема перестала быть интересной, рабочей и почему

- Если тема находится не в АРХИВЕ, то значит она всё ещё действенна. Не надо писать "Работает ли?"

- На нашем портале нет "Личных хайдов", а так же запрещено просить слить имеющийся хайд лично Вам!

- Хотите отблагодарить автора темы? Для этого есть специальная кнопка, в правом нижнем углу сообщения.


( прим. DarkCat )

Скрипт на AutoIT
спамит скиллами или атакой + авто подбором
2 таймера для баффов
запускается и останавливается по хоткею F10
работает со свернутым окном

Код:
Func _WinWaitActivate($title,$text,$timeout=0)
	WinWait($title,$text,$timeout)
	If Not WinActive($title,$text) Then WinActivate($title,$text)
	WinWaitActive($title,$text,$timeout)
EndFunc

HotKeySet("{F10}","StartOrStop") ; хоткей старта и остановки
Global $STOP = True

_WinWaitActivate("- ArcheAge DX11 - Mar  4 2014 (12:12:17) Джин","")
Global $hWnd = WinActive("- ArcheAge DX11 - Mar  4 2014 (12:12:17) Джин","")

Global $BUFF1_COUNT = TimerInit()
Global $BUFF2_COUNT = TimerInit()

Do
	Sleep(1000)
Until $STOP = False
While (1)
	Main()
WEnd


Func Main()
	If $STOP = False Then
		If TimerDiff($BUFF1_COUNT) > 120000 Then
			ControlSend($hWnd, "", "", "{F7}") ; кнопка баффа каждые 2 мин - сюда ставлю реген маны
			Sleep(1600)
			$BUFF1_COUNT = TimerInit()
		EndIf
		If TimerDiff($BUFF2_COUNT) > 50000 Then
			ControlSend($hWnd, "", "", "{F11}") ; кнопка баффа каждые 50 сек - сюда ставлю маг щит
			Sleep(1600)
			$BUFF2_COUNT = TimerInit()
		EndIf
		Sleep(50)
		ControlSend($hWnd, "", "", "{F2}")
		Sleep(50)
		ControlSend($hWnd, "", "", "f")
	Else
		Sleep(100)
	EndIf

EndFunc   ;==>Main

Func StartOrStop()
	If $STOP = True Then
		;On START action
		ToolTip("Press F10 for stop", 0, 0) ; подсказка о состоянии работы скрипта в левом верхнем углу
		$STOP = False
	Else
		;On STOP action
		;ColorCheck()
		ToolTip("Press F10 for start", 0, 0)
		$STOP = True
	EndIf
EndFunc
ставлю его на второе окно с твином - 2 недели полет нормальный

Последний раз редактировалось Big Bad Sensey; 19.03.2014 в 20:34.
 
Ответить с цитированием
Сказали спасибо:
Недоступно (24.03.2014), podonokss (22.03.2014), DuBa4oK (19.03.2014)