Раздел ДО на жуке не сильно оживлен по сравнению с 3-4 годовалой активностью.
Нет столько программ, общения, обсуждения.
Хочу внести хоть какое - то разнообразие, пусть наш раздел вдохнет немного свежего воздуха.
Да, он не собственноручный, но что-то интересное должно появляться. основная тема
________________
Я - часть той силы, что вечно хочет зла и вечно совершает благо.
Если вы думаете, что став модером, вы не сможете тролить,вы ошибаетесь, теперь вы тролите всех своим существованием
случайность - визитная карточка бога.
Жизнь слишком коротка, чтобы волноваться о том, что о тебе подумают или скажут люди
Час убил на пилоте только что написал и работает гораздо быстрее и все бесп-но
ну так где скрипт? или просто написал?
________________
Я - часть той силы, что вечно хочет зла и вечно совершает благо.
Если вы думаете, что став модером, вы не сможете тролить,вы ошибаетесь, теперь вы тролите всех своим существованием
случайность - визитная карточка бога.
Жизнь слишком коротка, чтобы волноваться о том, что о тебе подумают или скажут люди
Кто шарит под свой экран координаты подобьет.
set #q findimage (0, 0 1365, 692 (C:\bot\conn.bmp) %arr 2 ) //соединение при разрыве
if #q > 0
left %arr [1 1], %arr [1 2]
wait 7000
end_if
set #w findimage (0, 0 1365, 692 (C:\bot\qq.bmp) %arr 2 ) // быбор ремнота на порту
if #w > 0
left %arr [1 1], %arr [1 2]
wait 2000 // ждем 2сек
end_if
set #e findimage (0, 0 1365, 692 (C:\bot\remont.bmp) %arr 2 )// клик ремонт
if #e > 0
left %arr [1 1], %arr [1 2]
wait 5000
end_if
set #r findimage (0, 0 1365, 692 (C:\bot\pet\remont.bmp) %arr 2 )// если пет сломан ремонтируем
if #r > 0
left %arr [1 1], %arr [1 2]
wait 2000 // ждем 2секс
end_if
set #t findimage (0, 0 1365, 692 (C:\bot\pet\start.bmp) %arr 2 )// поиск запуск пета
if #t > 0
left %arr [1 1], %arr [1 2]
wait 2000 // ждем 2сек
end_if
set #y findimage (0, 0 1365, 692 (C:\bot\pet\passiv.bmp) %arr 2 )//выбор режима пета
if #y > 0
left %arr [1 1], %arr [1 2]
wait 2000 // ждем 2сек
end_if
set #u findimage (0, 0 1365, 692 (C:\bot\pet\avtosborbox.bmp) %arr 2 )//выбор автосбора
if #u > 0
left %arr [1 1], %arr [1 2]
wait 2000 // ждем 2сек
end_if
set #ownerHandle findwindow (DarkOrbit - Google Chrome)
set #tmp getwindow (#ownerHandle child)
set #childHandle getwindow (#tmp)
set workwindow #childHandle
set #x 1162 + random (178)
set #y 569 + random(106)
move #x, #y
left #x, #y // тыкаем на карте рандом
wait 300 // ждем 300мл сек
set #i findimage (0, 0 1365, 692 (C:\bot\d.bmp) %arr 2 )//картинка стрелочка полета кораблика
while #i > 0
set #i findimage (0, 0 1365, 692 (C:\bot\d.bmp) %arr 2 )//картинка стрелочка полета кораблика
set #o findimage (223, 186 1101, 623 (C:\bot\111.bmp) %arr 2 )//поиск моба
if #o > 0 //если картинка найденa
set #x %arr [1 1] + 57 //прибавить 100 пикселей к координате X
set #y %arr [1 2] - 35 //прибавить 50 пикселей к координате Y
double_left #x #y
wait 300
send 1
wait 1000
end_if
set #p findcolor (1138, 654 1154, 681 (10087935,4250111,3394815) %arr 2) //поиск врага по цвету на миникарте
if #p > 0
left 1176, 579
wait 10000
end_if
end_while
Подредактировал поиск врага, сделал по поиску цвета
Переделал!
Цитата:
set #startX 0 // левая верхняя точка экрана по x
set #startY 0 // левая верхняя точка экрана по y
set #endX 1365 // правая нижняя точка по x
set #endY 692 // правая нижняя точка по y
set $path "C:\bot"
set %image[1] conn
set %image[2] qq
set %image[3] remont
set #size size(%image)
for #i 1 #size 1
set #a findimage (#startX #startY #endX #endY ($path%image[#i].bmp) %arr 2)
if #a > 0 //если картинка найденa
left %arr[1 1] %arr[1 2]
wait 1000
end_if
end_for
#startX 0 // левая верхняя точка экрана по x
set #startY 0 // левая верхняя точка экрана по y
set #endX 1365 // правая нижняя точка по x
set #endY 692 // правая нижняя точка по y
set $path "C:\bot\pet"
set %image[1] remont
set %image[2] start
set %image[3] passiv
set %image[4] avtosborbox
set #size size(%image)
for #i 1 #size 1
set #a findimage (#startX #startY #endX #endY ($path%image[#i].bmp) %arr 2)
if #a > 0 //если картинка найденa
left %arr[1 1] %arr[1 2]
wait 1000
end_if
end_for
set #ownerHandle findwindow (DarkOrbit - Google Chrome)
set #tmp getwindow (#ownerHandle child)
set #childHandle getwindow (#tmp)
set workwindow #childHandle
set #x 1162 + random (178)
set #y 569 + random(106)
move #x, #y
left #x, #y // тыкаем на карте рандом
wait 300 // ждем 300мл сек
set #z findimage (0, 0 1365, 692 (C:\bot\d.bmp) %arr 2 )
while #z > 0
set #z findimage (0, 0 1365, 692 (C:\bot\d.bmp) %arr 2 )
set #startX 223 // левая верхняя точка поиска моба по x
set #startY 186 // левая верхняя точка поиска моба по y
set #endX 1101 // правая нижняя точка поиска моба по x
set #endY 623 // правая нижняя точка поиска моба по y
set $path "C:\bot"
set %image[1] 111
set %image[2] bos
set #size size(%image)
for #i 1 #size 1
set #a findimage (#startX #startY #endX #endY ($path%image[#i].bmp) %arr 2)
if #a > 0 //если картинка найденa
set #x %arr [1 1] + 57 //прибавить 100 пикселей к координате X
set #y %arr [1 2] - 35 //прибавить 50 пикселей к координате Y
double_left #x #y
wait 300
send 1
wait 1000
end_if
end_for
end_while
Бьет всех мобов на х2 карте, координаты вставлять по размеру своего экрана!
Картинки [Ссылки могут видеть только зарегистрированные пользователи. ] (пароль-zhyk)
[Ссылки могут видеть только зарегистрированные пользователи. ]
________________
Последний раз редактировалось Anonymous.; 13.02.2017 в 15:14.
________________
Я - часть той силы, что вечно хочет зла и вечно совершает благо.
Если вы думаете, что став модером, вы не сможете тролить,вы ошибаетесь, теперь вы тролите всех своим существованием
случайность - визитная карточка бога.
Жизнь слишком коротка, чтобы волноваться о том, что о тебе подумают или скажут люди