Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.org LIVE! Реклама на Zhyk.org Правила Форума Награды и достижения Доска "почета"

засадка огорода кликером (халява для огородников)

-

ArcheAge

- Читы и баги, статьи и описания из мира ArcheAge в этом разделе.

Ответ
 
Опции темы
Старый 26.05.2014, 23:07   #1
 Разведчик
Аватар для -shkiper-
 
-shkiper- неизвестен в этих краях-shkiper- неизвестен в этих краях-shkiper- неизвестен в этих краях
Регистрация: 14.04.2011
Сообщений: 26
Популярность: -226
Сказал(а) спасибо: 1
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию засадка огорода кликером (халява для огородников)

Нашел скрипт для засадки огорода автокликером, и решил выложить здесь. Скрипт написан на AutoIt. Тестировался с разрешением экрана 1366x768.
После компиляции скрипта запускаем его от имени администратора.
Выставляем семена в ячейку "Shift+1", выставляем камеру в положение на персонажем и определяем начальную позицию посадки, как показано на скрине ниже:
[Ссылки могут видеть только зарегистрированные пользователи. ]
Дистанция между посадками в ряду и столбце зависит от размера растения.
Для риса и азалии использовалось значение 63, можно и меньше, тестируйте.
Время движения персонажа в сек - это время, которое персонаж будет двигаться назад, чтобы урегулировать камеру для посадки новых рядов.

Для засадки БП я использовал значения, которые приведены в примере скрипта, хотя можно посадить и компактнее, все зависит от ровности поверхности.
Код:
; Автозасадка в ArcheAge by Rulleks
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("{F11}","StartOrStop")
Global $STOP = True
Global $slp = 5 ; через сколько начнет работать прога (в сек) после активации F11
Global $crow = 3 ; кол-во посадок в ряду
Global $ccol = 5 ; кол-во рядов
Global $rrow = 63 ; дистанция между посадками в ряду
Global $rcol = 62 ; дистанция между посадками в столбце
Global $rtime = 1 ; время движения персонажа в сек
Global $footer = 2 ; через сколько рядов двигать персонажа вниз (для урегулирования камеры)
Global $countf ; кол-во сдвигов персонажа после расчетов

Global $x 
Global $y
Global $stat_y
Global $i[100]
Global $j
Global $n = 2
Global $count = 2
Global $countrow = 1

$slp = InputBox("Старт бота","Через сколько сек после нажатия F11 активировать бота (Пример: 5)")
$crow = InputBox("Введите кол-во посадок","Введите количество растений в одном ряду (Пример: 4)")
$ccol = InputBox("Введите кол-во рядов","Введите кол-во рядов (Пример: 5)")
$rrow = InputBox("Интервал между посадками в ряду","Интервал между посадками в ряду  (Пример: 63)")
$rcol = InputBox("Интервал между рядами","Интервал между рядами (Пример: 62)")
$rtime = InputBox("Время движения персонажа","Время движения персонажа в сек между интервалом рядов (Пример: 2)")
$footer = InputBox("Передвижение персонажа","Через сколько рядов передвигать персонажа (для урегулирования камеры) (Пример: 2)")

Global $AA_TITLE = "- ArcheAge " ;
_WinWaitActivate($AA_TITLE ,"")
Global $hWnd = WinActive($AA_TITLE ,"")

Do
Sleep(1000)
Until $STOP = False

If $STOP = False Then

	$slp = $slp * 1000
	Sleep($slp)
	
	$rtime = $rtime * 1000
	
	$pos = MouseGetPos()
	$x = $pos[0]
	$y = $pos[1]
	$stat_y = $pos[1]

	If $ccol > $footer And Mod($ccol,$footer) == 0 Then
		$countf = $ccol / $footer - 1
	Else
		$countf = Int($ccol/$footer)
	EndIf
	
	For $j = 0 to $ccol Step 1
		$i[$j] = 0
	Next
	
	$countf = $countf + 2
	
	For $j = 3 to $countf Step 1
		$i[$j-1] = $j-2
	Next
	
	While ($countrow <= $crow)
		Main()
	WEnd
	
	While ($count <= $ccol)
 
		$y = $y + $rcol
		Sleep(2000)
		MouseMove($x,$y)
		$countrow = 1
		While ($countrow <= $crow)
			Main()
		WEnd
		
		cnt($count)
		
		$count = $count + 1

	WEnd
	

	
Else
	Sleep(100)
EndIf

Func Main()

	$pos = MouseGetPos() 
	$ones = True
	
	If $STOP = False Then

	If $ones = True Then
		Send("{! 1}")
		MouseClick("left", $pos[0], $pos[1])
		Sleep(3000)
		$ones = False
	EndIf

		Send("{! 1}")  
		MouseClick("left", $pos[0]+$rrow, $pos[1])
		Sleep(3000)

		$countrow = $countrow + 1

	Else
		Sleep(100)
	EndIf
	
EndFunc

Func cnt($count)
	
	While ($n <= $countf)
		If $count = $i[$n]*$footer Then
			Send("{DOWN down}")
			Sleep ($rtime)
			Send("{DOWN up}")
			$y = $stat_y
		Else
			return 0
		EndIf
		$n = $n + 1
	WEnd

EndFunc

Func foot()

	$rtime = $rtime * 1000
	If $STOP = False Then
		Send("{DOWN down}")
		Sleep ($rtime)
		Send("{DOWN up}")
	Else
		Sleep(100)
	EndIf

EndFunc

Func StartOrStop()
If $STOP = True Then
$STOP = False
Else
$STOP = True
EndIf
EndFunc
Скрипт тестил. работает 100% и радует глаз
Нажми "спасибо" если помог.
  Ответить с цитированием
Старый 29.05.2014, 13:34   #2
 Разведчик
Аватар для RoMaIIIka29rus
 
RoMaIIIka29rus никому не известный тип
Регистрация: 22.09.2012
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

Хотелось бы подробнее
  Ответить с цитированием
Старый 30.05.2014, 00:59   #3
Заблокирован
 Разведчик
Аватар для Жуков1941
 
Жуков1941 никому не известный тип
Регистрация: 27.05.2014
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

?
  Ответить с цитированием
Старый 30.05.2014, 02:00   #4
 Разведчик
Аватар для -shkiper-
 
-shkiper- неизвестен в этих краях-shkiper- неизвестен в этих краях-shkiper- неизвестен в этих краях
Регистрация: 14.04.2011
Сообщений: 26
Популярность: -226
Сказал(а) спасибо: 1
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

Цитата:
Сообщение от RoMaIIIka29rusПосмотреть сообщение
Хотелось бы подробнее

что подробнее? Конкретнее пожалуйста! По моему все изложено в первом посте.
  Ответить с цитированием
Старый 02.06.2014, 15:15   #5
 Разведчик
Аватар для ZEROM47
 
ZEROM47 никому не известный тип
Регистрация: 15.10.2012
Сообщений: 6
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 2 раз(а) в 2 сообщениях
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

Походу хак шилд блокирует. Вылетает после 1-2 минуты работы.
  Ответить с цитированием
Старый 02.06.2014, 16:57   #6
 Разведчик
Аватар для -shkiper-
 
-shkiper- неизвестен в этих краях-shkiper- неизвестен в этих краях-shkiper- неизвестен в этих краях
Регистрация: 14.04.2011
Сообщений: 26
Популярность: -226
Сказал(а) спасибо: 1
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

Цитата:
Сообщение от ZEROM47Посмотреть сообщение
Походу хак шилд блокирует. Вылетает после 1-2 минуты работы.

Для успешного запуска необходимо выполнить следующие шаги:
1. Установить .NET Framework 4.5 версии, либо выше.
Скачать можно с офф сайта: [Ссылки могут видеть только зарегистрированные пользователи. ]
2. Установить Распространяемый пакет Visual C++ для Visual Studio 2012 х86
Скачать можно с офф сайта: [Ссылки могут видеть только зарегистрированные пользователи. ] (При выборе файла для загрузки выбирайте VSU4\vcredist_x86.exe)

3. Отключить UAC
  Ответить с цитированием
Старый 02.06.2014, 18:10   #7
 Разведчик
Аватар для ZEROM47
 
ZEROM47 никому не известный тип
Регистрация: 15.10.2012
Сообщений: 6
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 2 раз(а) в 2 сообщениях
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

К сожалению не помогло((
Вроде можно обойти хак шилд екранной клавиатурой, вот темка http://zhyk.ru/forum/showthread.php?t=906580
Только как это прикрутить сюда хз

Чем вы компилируете код? Я через autoIt v3. И как вы запускаете игру: через ИЦ или в обход?

Последний раз редактировалось ZEROM47; 02.06.2014 в 18:27.
  Ответить с цитированием
Старый 02.06.2014, 19:37   #8
 Разведчик
Аватар для -shkiper-
 
-shkiper- неизвестен в этих краях-shkiper- неизвестен в этих краях-shkiper- неизвестен в этих краях
Регистрация: 14.04.2011
Сообщений: 26
Популярность: -226
Сказал(а) спасибо: 1
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

Цитата:
Сообщение от ZEROM47Посмотреть сообщение
К сожалению не помогло((
Вроде можно обойти хак шилд екранной клавиатурой, вот темка http://zhyk.ru/forum/showthread.php?t=906580
Только как это прикрутить сюда хз

Чем вы компилируете код? Я через autoIt v3. И как вы запускаете игру: через ИЦ или в обход?

autoit 3 - script editor - вставляешь код в документ и жмякай сохранить как... - тип файла указываешь *.au3
потом запускаешь сохраненный файл от админа и все
  Ответить с цитированием
Старый 11.06.2014, 17:10   #9
 Разведчик
Аватар для ХМАНУС
 
ХМАНУС никому не известный тип
Регистрация: 10.06.2014
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

скрипт перемещает по полю но не засаживает семена семена кинул правильно что делать???
  Ответить с цитированием
Старый 14.06.2014, 04:15   #10
 Разведчик
Аватар для Алексар
 
Алексар никому не известный тип
Регистрация: 14.06.2014
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

Цитата:
Сообщение от ХМАНУСПосмотреть сообщение
скрипт перемещает по полю но не засаживает семена семена кинул правильно что делать???

Игру в окне запускать.
  Ответить с цитированием
Старый 25.06.2014, 16:24   #11
 Разведчик
Аватар для Garri2965
 
Garri2965 никому не известный тип
Регистрация: 06.12.2009
Сообщений: 11
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

Работает, спасибо большое.Но есть ли возможность слегка переделать скрипт на разрешение 1920х1080? Неудобно постоянно разрешение менять.А при 1920х1080 он садит совсем в других местах (курсор может даже за пределы фермы улететь)
  Ответить с цитированием
Старый 30.06.2014, 18:45   #12
 Разведчик
Аватар для KAUfo
 
KAUfo никому не известный тип
Регистрация: 30.06.2014
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

Здравствуйте, вижу что скрипт должен работать, но по какой-то причине он работает везде кроме АА, т.е. я вижу что мышка двигается, Shift+1 нажимается, ЛКМ тоже нажимается, но при активации окна АА скрипт кажется становится на паузу, помогите поправить, пожалуйста.
  Ответить с цитированием
Старый 25.02.2017, 15:24   #13
 Разведчик
Аватар для johan111
 
johan111 никому не известный тип
Регистрация: 25.02.2017
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: засадка огорода кликером (халява для огородников)

чет не работает в игре
  Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с кликером 111bob000 Общение и обсуждение, архив Lineage 2 2 31.03.2012 18:34
Помощь с кликером Rasin Общение и обсуждение, архив Lineage 2 9 10.03.2012 00:15
Халява!!Халява!!Раздача акков!!!Халява!!Халява!! КириллZ Общение и обсуждение, архив Point Blank 11 05.02.2012 15:32
помогите с кликером FastTaker Общение и обсуждение, архив Lineage 2 4 31.07.2011 06:16

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 18:58.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net