[Легенда: Наследие Драконов] Обсуждение процесса написания бота.

[Belfigor]

Re: [Автоматизация] Бот для Легенды Наследия Драконов

Не, писать графических ботов для браузерных игр - одно удовольствие. Просто у меня к ним врожденное отвращение. Мне является непонятным смысл извращений с игрой в браузере если ты можешь скачать нармальную игру, с нормальной графикой, обширным миром и тд и тп.

 

[Belfigor]

Re: [Автоматизация] Бот для Легенды Наследия Драконов

Быть может оно потому что PixelGetColor(357, 307) всегда <> 7995392? Зачем вообще пользоваться столь примитивной и неудобной для ожидания необходимого цвета командой как PGC когда есть PixelSearch?

 

[clown]

Re: [Автоматизация] Бот для Легенды Наследия Драконов

Зачем вообще пользоваться столь примитивной и неудобной для ожидания необходимого цвета командой как PGC когда есть PixelSearch?

об этом я уже подумал:

Func Randomboi()
	While $Find = 1
		$endround = PixelSearch(385, 247, 387, 249, 0x74B000)
		If Not @error Then
			Endround()
			$Find = 0
		Else
			$strikepole = PixelGetColor(315, 315)
			While $strikepole <> 0xECECEC 
				Sleep(1000)
				$strikepole = PixelGetColor(315, 315)
			WEnd
			Sleep(Random(10, 1000, 1))
			$strikeout = Random(1, 3, 1)
			Select
			Case $strikeout = 1 ; в голову
				UpStrike()
			Case $strikeout = 2 ; в корпус
				RightStrike()
			Case Else ; в ноги
				DownStrike()
			EndSelect
			Sleep(Random(100, 500))
		EndIf
	WEnd
EndFunc

но все равно безрезультатно, а главное, не могу понять почему...

 

[Belfigor]

Re: [Автоматизация] Бот для Легенды Наследия Драконов

дак ты эта, шейд задай, десяточку хотя бы. Щас твой PS ничем не отличеается от PGK

 

[clown]

Re: [Автоматизация] Бот для Легенды Наследия Драконов

дак ты эта, шейд задай, десяточку хотя бы. Щас твой PS ничем не отличеается от PGK

Спасибо за мудрый совет. теперь работает

 

[clown]

Re: [Автоматизация] Бот для Легенды Наследия Драконов

теме UP

народ, помогите разобраться с поиском монстров, что-то я уже совсем никак не могу придумать...
пытался искать по двум уникальным пикселям, находящимся друг от друга на в радиусе 10 пикселей, но в некоторых локациях бот тыкает куда-то в землю(например, поиск шального пса на главной площади Дартронга), к тому же монстры часто находятся в движении и PS не успевает проверить именно те пиксели

может у кого есть другой способ?

 

[zoxer1]

Re: [Автоматизация] Бот для Легенды Наследия Драконов

Пока еще не начал писать Хант бота, но я думаю буду искать пиксели (например зеленые) в имени монстра. Найдя буду проверять на смещение (в какую строну он движется) и на занятость.. но это все в теории

гдето на ютубе видел бота, точнее как его настраивают, делают скриншот, вставляют в окно бота, выделяют область с именем монстра, сохраняют, и какимто чудесным образом бот начинает находить монстров.... очень интересно как это сделать

 

[csmirka]

Re: [Автоматизация] Бот для Легенды Наследия Драконов

а можешь скинуть полностью программу для сбора рессов в Легенде? а то я новенький и начинаю изучать Autolit и сам написать бота не могу :'(

 

[Belfigor]

Re: [Автоматизация] Бот для Легенды Наследия Драконов

Сиди и учись, не фиг на чужой пипиське в рай пытаться въехать

 

[csmirka]

Сиди и учись, не фиг на чужой пипиське в рай пытаться въехать

а я что и делаю :IL_AutoIt_1:

 

[Bloodrinker]

могу поделиться исходниками поиска бота. А также сборе травки, если вы придумаете 1 общую маску для добавления новых монстров/травки. Сам же ищу мобов по уникальным иикселям. Но процесс надо автоматизировать. Чтобы добавлять новых монстров на автомате.
PS идей у меня куча.но в паблик я их конечно же не выложу)))

 

[zoxer1]

что касается ХАНТ-бота: есть идея - ловить пакеты входящие и искать там координаты монстров и ресурсов. это реализовано уже (я слышал) в одном из действующих ботов. НО... нехватает знании в "разшифровке" отловленных пакетов. Может у кого ссылки на норм статьи в этом направлении есть?

 

[iamOmg]

Я хочу написать скрипт на крафт рецептов, но не могу никак разобраться с прогой, может ктонить для примера напишет?? и какой прогой искать цвет пикселей?

 

[zoxer1]

как понять крафт рецептов? если крафт (перетирание пыли, варка банок и тд) я скину как буду дома, но его надо будет откоректировать. он написан только для крафта с 2х рецептов

 

[iamOmg]

Буду признателен, а как сделать так чтоб скрипт закрывался если $zakr = PixelSearch(601, 598, 677, 612, 0x800000) будет найден определённые цвет, ну скажем кончились ресы, надо всплывшие окно и скрипт закрыть)) ;)

 

[C2H5OH]

$zakr = PixelSearch(601, 598, 677, 612, 0x800000)
If Not @error Then Exit

 

[iamOmg]

:D пасибо

 

[zoxer1]

мне очень жаль, но все скрипты для этой игры канули в небытие вместе со старым винтом :(
Щас попробую чтонить накидать

 

[iamOmg]

Да я уже сам разобрался с этой прогой

Спойлер

Sleep(1000) ; тайм
MouseMove(1570, 376) ; середина кнопки "профессии"
MouseClick("left", 1570, 376) ; Клик левой кнопки мыши в середину кнопки
While 1 ; начало бесконечного цикла
$zakr = PixelSearch(767, 578, 815, 590, 0x800000) ; "767, 578" точка в левом верхнем углу квадрата поиска, "815, 590" точка в правом нижнем углу квадрата поиска)) кнопка "закрыть" вплывшее окно
If Not @error Then ; если в этих координатах цвет совпадает то совершить следующие действия вплоть до EndIf
MouseMove(798, 583) ; середина кнопки "закрыть" окна "Вам не хватает необходимого ингредиента!"
Sleep(Random(200, 2199)) ; рандомная пауза
MouseClick("Left", 798, 583) ; клик по кнопки "закрыть"
Sleep(Random(200, 2100))
MouseMove(616, 116) ; середина значка "рюкзак"
Sleep(200)
MouseClick("left", 616, 116) ; клип по рюкзаку
Sleep(Random(1000, 2500))
EndIf ; конец оператора
$ruk = PixelSearch(190, 200, 259, 215, 0x8F0500) ; поиск красного цвета в полоске жизни в рюкзаке
If Not @error Then ; если он его найдет то скрипт выключится
MsgBox(4096, "1", "Усё Вася, ресы кончились!!!", 0) 
Exit
Sleep(Random(800, 2000))
EndIf
$coord = PixelSearch(1316, 355, 1380, 364, 0x2D1600) ; 2 кнопка создать в профе
If Not @error Then
MouseMove(1330, 359) ; середина 2 кнопки "создать"
Sleep(Random(200, 1900))
MouseClick("left", 1330, 359) ; середина 2 кнопки "создать"
EndIf
$coordd = PixelSearch(1314, 330, 1379, 340, 0x2D1600) ; 1 кнопка создать в профе
If Not @error Then
Sleep(Random(700, 2000))
MouseMove(1346, 335) ;середина 1 кнопки "создать"
Sleep(Random(200,1900))
MouseClick("left", 1346, 335) ;середина 1 кнопки "создать"
EndIf
Sleep(Random(300, 14000))
MouseMove(1570, 375) ; середина кнопки "профа"
Sleep(90)
MouseClick("left", 1570, 375) ; клик по ней
Wend

 

[Belfigor]

{CodeWarn}