<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; Скрипт на рыбалку, ARK]]></title>
	<link rel="self" href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=12307&amp;type=atom" />
	<updated>2017-01-14T09:07:37Z</updated>
	<generator>PunBB</generator>
	<id>http://forum.script-coding.com/viewtopic.php?id=12307</id>
		<entry>
			<title type="html"><![CDATA[Re: Скрипт на рыбалку, ARK]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=111028#p111028" />
			<content type="html"><![CDATA[<p>Спасибо за ответ.<br />Это не вся игра, а просто мини игра на рыбалку.<br />Область на минимуме, с учетом разброса уникальных фрагментов букв.<br />Сделал 2 скрипта, по 4 и 5 букв соответственно. Удалось добиться 30 нажатий за 20 сек. Сперва сделал по 1 букве на скрипт, но imagesearch неплохо кушает ресурсы.<br />Появилась проблема в согласовании скриптов. <br />С АНК я практически не знаком, раньше пользовался простейшими Clickemann u UO-pilot.<br />Вы предложили - &quot;а к сочетаниям клавиш добавьте ~, чтобы они не блокировались и их смогли получить все скрипты.&quot;<br />Можете привести пример?<br /></p><div class="codebox"><pre><code>;;F6 = остановка скрипта
F6::
vari:=1
return

;;F5 = старт скрипта
F5::

;;D:\AutoFishingFiles\ = папка с картинками букв, azeqsdwxc
folder = D:\AutoFishingFiles\

vari:=0
fishingbuttonlist = azeq
letternumber := 1

while %vari%=0
{
	
	
	;;Сканирование экрана
	
			letter := SubStr(fishingbuttonlist, letternumber, 1)
			imagesearch, xloc, yloc, 1140, 850, 1320, 1000, *15 *TransBlack %folder%\%letter%.png
            If !ErrorLevel
            {
			WinActivate, ARK: Survival Evolved

            Send, %letter%
            }
			letternumber := letternumber + 1
			
			If letternumber &gt;= 5
			{
				letternumber := 1
			}	            
}
return  </code></pre></div><div class="codebox"><pre><code>
;;F6 = остановка скрипта
F6::
vari:=1
return

;;F5 = старт скрипта
F5::

;;D:\AutoFishingFiles\ = папка с картинками букв, azeqsdwxc
folder = D:\AutoFishingFiles\

vari:=0
fishingbuttonlist = sdwxc
letternumber := 1

while %vari%=0
{
	
	
	;;Сканирование экрана
	
			letter := SubStr(fishingbuttonlist, letternumber, 1)
			imagesearch, xloc, yloc, 1140, 850, 1320, 1000, *15 *TransBlack %folder%\%letter%.png
            If !ErrorLevel
            {
			WinActivate, ARK: Survival Evolved

            Send, %letter%
            }
			letternumber := letternumber + 1
			
			If letternumber &gt;= 6
			{
				letternumber := 1
			}	            
}
return     </code></pre></div><p>Иногда при запуске обоих скриптов все работает, иногда работает только один. Как можно их согласовать?</p>]]></content>
			<author>
				<name><![CDATA[Masteronny]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=34476</uri>
			</author>
			<updated>2017-01-14T09:07:37Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=111028#p111028</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Скрипт на рыбалку, ARK]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=110891#p110891" />
			<content type="html"><![CDATA[<p>Добрый день!<br />В игре присутствует рыбалка, алгоритм - закинули удочку, ждем 2мин, при поклевке включается таймер на 20сек и на экране в определенном месте появляются картинки с изображением клавиш, на которые необходимо нажать. Всего клавиш 9(zxcasdqwe), Чем лучше рыба, тем длиннее сочетание клавиш неоходимо нажать. <br />Имеющийся скрипт успевает прожимать от 20 до 24 клавиш за 20 сек. Мне необходимо довести это значение до 32-36.<br />Между отдельными нажатиями происходят произвольные паузы, связанные, я так понимаю, с тем, что скрипт последовательно перебирает картинки с буквами, и если следующим нажатием идет предыдущая в списке подбора буква, то скрипт не нажмет букву пока не переберет последующие 8 вариантов, из за этого возникают задержки более 1 сек между нажатиями.<br />Прощу Вашей помощи в решении задачи.<br />Возможно ли в одном скрипте осуществить параллельную проверку картинок?<br />Или лучше сделать 3 скрипта, каждому отдать по 3 буквы и параллельно запустить, не будет ли конфликтов в работе скриптов?<br />Может кто-нибудь свежим взглядом посмотрит на скрипт и предложит варианты по улучшению алгоритма.<br />Всем спасибо за внимание.<br /></p><div class="codebox"><pre><code>;;F6 = остановка скрипта
F6::
vari:=1
return

;;F5 = старт скрипта
F5::

;;D:\AutoFishingFiles\ = папка с картинками букв, azeqsdwxc
folder = D:\AutoFishingFiles\

vari:=0
fishingbuttonlist = azeqsdwxc
letternumber := 1

while %vari%=0
{
	
	
	;;Сканирование экрана
	
			letter := SubStr(fishingbuttonlist, letternumber, 1)
			imagesearch, xloc, yloc, 1140, 850, 1320, 1000, *15 *TransBlack %folder%\%letter%.png
            If !ErrorLevel
            {
			WinActivate, ARK: Survival Evolved

            Send, %letter%
            }
			letternumber := letternumber + 1
			
			If letternumber &gt;= 10
			{
				letternumber := 1
			}
	
	;;Поиск сообщения об успешном улове, закидывание удочки
	PixelSearch, xloc, yloc, 0, 0, A_ScreenWidth/4, A_ScreenHeight/4, 0x7FFD03, 20, Fast ;
            If !ErrorLevel
            {
			WinActivate, ARK: Survival Evolved
            Sleep, 2000
            Click
            }	            
}
return </code></pre></div>]]></content>
			<author>
				<name><![CDATA[Masteronny]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=34476</uri>
			</author>
			<updated>2017-01-12T14:34:03Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=110891#p110891</id>
		</entry>
</feed>
