Доработать скрипт, добавив паузы и клавиатурные нажатия

@dimank666 · Регистрация: 29.08.2011

Студворк — интернет-сервис помощи студентам

сам скрипт тут

Кликните здесь для просмотра всего текста

Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
WinActivate("[TITLE:WoT Client]")
While WinActive("[TITLE:WoT Client]")
If PixelGetColor(545, 46) == 0x651910 Then MouseClick("primary", 545, 46, 2, 50)
If PixelGetColor(6, 550) == 0x8C8C7E Then ControlSend("[TITLE:WoT Client]","","","{ESC}")
If PixelGetColor(501, 235) == 0xFCFCFC Then MouseClick("primary", 494, 264, 1, 50)
If PixelGetColor(376, 325) == 0xFEFEFE Then MouseClick("primary", 557, 441, 1, 50)
If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 362, 661, 1, 50)
If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 535, 661, 1, 50)
If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 709, 661, 1, 50)
If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 890, 661, 1, 50)
If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 203, 661, 1, 50)
WEnd

1) надо сделать проверку что если точка не изменила цвет то повторить операцию
2) как сделать временную задержку (или например задержка пока точка не поменяла цвет)

@dimank666 · 20.11.2012, 17:41 **[ТС]**

ну что нет тут специалистов

@Netzah · 28.11.2012, 15:27

вот из-за таких скриптов команды и сливают ... пока те на базе стволами водят

@dimank666 · 28.11.2012, 17:13 **[ТС]**

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

вот из-за таких скриптов команды и сливают ... пока те на базе стволами водят

Ой ты смотри праведник нашелся

Мне бот нужен для зарабатывание денег. Чтобы голдой стрелять

@Netzah · 28.11.2012, 17:17

Ладно бы себе вредил - но чего ради серить остальным кому неповезло с тобой в команде быть.

@dimank666 · 28.11.2012, 17:39 **[ТС]**

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

Ладно бы себе вредил - но чего ради серить остальным кому неповезло с тобой в команде быть.

ты уверен что я врежу другим

наоборот я им позволяю повысить свой уровень быстрее
Представь ты попадаешь уровень где все стоят и у тебя первая победа день

А скриптами пользуются обычно до 5 уровня, выше этого уровня скрипт не приносит прибыли обычно
А лично для себя я понял что выше 5 уровня вообще играть нет смысла.
И самое главное после 5 уроня стиль боя меняется он превращается в сидение за камнями и выжидание кто выясниться

@Netzah · 28.11.2012, 18:12

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

как сделать временную задержку

- Sleep(5000) ;five seconds

там хелп на русском, вполне вменяемый. соотв ставишь цикл - в нем проверку, паузу небольшую чтоб не постоянно крутился.

Добавлено через 1 минуту
файл с хелпами на русском там указатель функций - паузы и таймер.

@dimank666 · 28.11.2012, 22:17 **[ТС]**

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

- Sleep(5000) ;five seconds

а поточнее как будет выглядить каманда для задержки

@Netzah · 28.11.2012, 22:33

как пример

JavaScript
1
2
3
4
5
6
Do
 
   Sleep(5000)
   MsgBox(0, "Test message", "Test")
 
Until (1>2)

Сохранить в *.au3 будет каждые 5 секунд тестовое окошко показывать. Цикл и пауза.

@Isn · 25.12.2012, 13:59

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

2) как сделать временную задержку

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
 
 WinActivate("[TITLE:WoT Client]")
 While 1
   _PixelGet()
   Sleep(5000)
 WEnd
;----------------------------------------------------------------------------------------------------------
;Функция
Func _PixelGet()
   WinActive("[TITLE:WoT Client]")
   If PixelGetColor(545, 46) == 0x651910 Then MouseClick("primary", 545, 46, 2, 50)
   If PixelGetColor(6, 550) == 0x8C8C7E Then ControlSend("[TITLE:WoT Client]","","","{ESC}")
   If PixelGetColor(501, 235) == 0xFCFCFC Then MouseClick("primary", 494, 264, 1, 50)
   If PixelGetColor(376, 325) == 0xFEFEFE Then MouseClick("primary", 557, 441, 1, 50)
   If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 362, 661, 1, 50)
   If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 535, 661, 1, 50)
   If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 709, 661, 1, 50)
   If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 890, 661, 1, 50)
   If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 203, 661, 1, 50)
EndFunc
;----------------------------------------------------------------------------------------------------------

Добавлено через 30 секунд

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

1) надо сделать проверку что если точка не изменила цвет то повторить операцию

Какая из точек?Опишите подробнее

@dimank666 · 25.12.2012, 14:49 **[ТС]**

Isn,
ну например тут
If PixelGetColor(545, 46) == 0x651910 Then MouseClick("primary", 545, 46, 2, 50)
Цифра 2 у меня обозначает двойной клик.
вот можно было бы чтобы была проверка, чтобы не использовать двойной клик

@Roptas · 28.12.2012, 11:55

Не по теме:

банить вашего брата читера/ботера надо :D

@dimank666 · 28.12.2012, 13:46 **[ТС]**

Roptas, не боись скрипт не актуален еще, надо сделать чтобы танк ездил, иначе все напрасно и бот нужен тем кто за сутки прокачивает до 4 уровня а потом 3-4 дня играет

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@dimank666 Нарушитель 8207 / 5603 / 205 Регистрация: 29.08.2011 Сообщений: 40,724 Записей в блоге: 1

	Доработать скрипт, добавив паузы и клавиатурные нажатия 18.11.2012, 03:23. Показов 9083. Ответов 12 Метки нет (Все метки) сам скрипт тут Кликните здесь для просмотра всего текста Opt("MouseCoordMode", 2) Opt("PixelCoordMode", 2) WinActivate("[TITLE:WoT Client]") While WinActive("[TITLE:WoT Client]") If PixelGetColor(545, 46) == 0x651910 Then MouseClick("primary", 545, 46, 2, 50) If PixelGetColor(6, 550) == 0x8C8C7E Then ControlSend("[TITLE:WoT Client]","","","{ESC}") If PixelGetColor(501, 235) == 0xFCFCFC Then MouseClick("primary", 494, 264, 1, 50) If PixelGetColor(376, 325) == 0xFEFEFE Then MouseClick("primary", 557, 441, 1, 50) If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 362, 661, 1, 50) If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 535, 661, 1, 50) If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 709, 661, 1, 50) If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 890, 661, 1, 50) If PixelGetColor(479, 51) == 0x5A5949 Then MouseClick("primary", 203, 661, 1, 50) WEnd 1) надо сделать проверку что если точка не изменила цвет то повторить операцию 2) как сделать временную задержку (или например задержка пока точка не поменяла цвет) 1

@dimank666 Нарушитель 8207 / 5603 / 205 Регистрация: 29.08.2011 Сообщений: 40,724 Записей в блоге: 1
	20.11.2012, 17:41 [ТС]
	ну что нет тут специалистов 0

@Netzah 42 / 28 / 2 Регистрация: 23.11.2012 Сообщений: 138
	28.11.2012, 15:27
	вот из-за таких скриптов команды и сливают ... пока те на базе стволами водят 0

@Netzah 42 / 28 / 2 Регистрация: 23.11.2012 Сообщений: 138
	28.11.2012, 17:17
	Ладно бы себе вредил - но чего ради серить остальным кому неповезло с тобой в команде быть. 0

@dimank666 Нарушитель 8207 / 5603 / 205 Регистрация: 29.08.2011 Сообщений: 40,724 Записей в блоге: 1
	25.12.2012, 14:49 [ТС]
	Isn, ну например тут If PixelGetColor(545, 46) == 0x651910 Then MouseClick("primary", 545, 46, 2, 50) Цифра 2 у меня обозначает двойной клик. вот можно было бы чтобы была проверка, чтобы не использовать двойной клик 0

@Roptas
	28.12.2012, 11:55
	Не по теме: банить вашего брата читера/ботера надо :D 0

@dimank666 Нарушитель 8207 / 5603 / 205 Регистрация: 29.08.2011 Сообщений: 40,724 Записей в блоге: 1
	28.12.2012, 13:46 [ТС]
	Roptas, не боись скрипт не актуален еще, надо сделать чтобы танк ездил, иначе все напрасно и бот нужен тем кто за сутки прокачивает до 4 уровня а потом 3-4 дня играет 0