Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Старый 20.07.2014, 23:14   #1
 Пехотинец
Аватар для xxxPixelxxx
 
xxxPixelxxx лучик света в грозовом небеxxxPixelxxx лучик света в грозовом небеxxxPixelxxx лучик света в грозовом небеxxxPixelxxx лучик света в грозовом небеxxxPixelxxx лучик света в грозовом небеxxxPixelxxx лучик света в грозовом небеxxxPixelxxx лучик света в грозовом небе
Регистрация: 04.09.2009
Сообщений: 99
Популярность: 818
Сказал(а) спасибо: 142
Поблагодарили 219 раз(а) в 48 сообщениях
Отправить сообщение для xxxPixelxxx с помощью Skype™
 
По умолчанию Сборщик ресурсов DWAR

Набросал тут на [Ссылки могут видеть только зарегистрированные пользователи. ]скриптик для сбора ресурсов
$navigatorOption - при "1" ходит по локациям, нужно использовать компас
$farmOption - при "1" включен фарм (сбор ресурсов/нападение на мобов)
$elem - элемент(ресурс/моб), который будет искать скрипт, указывается цвет пикселя. Лучше всего искать те пиксели, которых больше всего, например с помощью MS Paint и масштабирования
[Ссылки могут видеть только зарегистрированные пользователи. ]

Код:
set $navigatorOption	0			//Navigator, dvigaetsa po komposu
set $farmOption			1			//farm v ohote 
set $battleCheckOption 	1
set $hpCheckOption		0
set $optimalhp			80
set $timerOption		1
set $elem				45310
set $farmLimitOption 	1   
set $limitFarm 			300
set $currentFarm 		0


set %groundX[1] 575
set %groundY[1] 138
set %groundX[2] 589
set %groundY[2] 124
set %groundX[3] 586
set %groundY[3] 120
set %groundX[4] 586
set %groundY[4] 111
set %groundX[5] 586
set %groundY[5] 101
set %groundX[6] 676
set %groundY[6] 103
set %groundX[7] 674
set %groundY[7] 111
set %groundX[8] 665
set %groundY[8] 118
set %groundX[9] 665
set %groundY[9] 126
set %groundX[10] 665
set %groundY[10] 138
set %groundX[11] 575
set %groundY[11] 138

for #k 0 100 1

set $a 			0
set #i 			0
set #j 			0
set $Check		0
set $checkBusy 	0
set $hp 		0



	if $battleCheckOption = 1
	if 425, 312 6974058				//bitva
			for #i 0 100 1 
				if 425, 312 6974058 
				move 479, 313
				left 479, 313 
				end_if
				wait 4000 + random(500)
				if 445, 259 52872 
				move 560, 32
				left 560, 32 
				break
				end_if 
				end_for
	end_if
	if 445, 259 52872 				//okno pobedi
				move 560, 32 
				left 560, 32 
	end_if 
	end_if 
	
	if $hpCheckOption = 1 			
		if 240, 45 1051327
			set $hp 100
		end_if
		
		if 225, 45  852666
			set $hp 90
		end_if
		
		if 210, 45 393404
			set $hp 80
		end_if
		
		if 196, 45 655549
			set $hp 70
		end_if 
	end_if
	
	if $navigatorOption = 1 		//Navigator
		for #j 0 30 1
			if_not 1047, 378 159  			//proverka na menu perehoda
				set $navigator findcolor (1019, 107 1219, 412   1 1 (16722954 ) %navigatorCord 2 2)
				if $navigator > 0
					move %navigatorCord[1 1], %navigatorCord[1 2]
					left %navigatorCord[1 1], %navigatorCord[1 2]
					break
				 end_if
			else
			wait 5s
			end_if
		end_for
	end_if
	
	if $farmOption = 1 				//Farm
		if 1026, 100 1575390			 //proverka na menu ohoti
			
			for #i 1 10 1
				set $Check findcolor (464, 279 819, 374  1 1 (6128574) %checkCord 2 2)
				if $Check > 0 							//proverka na oshibki 
					move %checkCord[1 1], %checkCord[1 2]
					left %checkCord[1 1], %checkCord[1 2]
				end_if 
				if hpCheckOption = 1
					if_not $hp > $optimalhp
						break
					end_if
				end_if
				
				if 425, 312 6974058				//bitva
				for #i 0 100 1 
					if 425, 312 6974058 
					move 479, 313
					left 479, 313 
					end_if
					wait 4000 + random(500)
					if 445, 259 52872 
					move 560, 32
					left 560, 32 
					break
					end_if 
					end_for
		end_if
				
										//timer
				if 791, 304 165  
					for #i 1 10 1
						wait 10000 + random(1000)
						if_not 791, 304 165
							break
						end_if
					end_for
				end_if
				
																
				set $a findcolor (78, 170 1222, 461 1 1 ($elem) %cord 2 )
					if $a > 0
					for #j 1 $a 1
					set #startX (%cord[$a 1] - 40)
					set #startY (%cord[$a 2] - 40)
					set #endX (%cord[$a 2] + 40)
					set #endY (%cord[$a 2] + 40)
					set $checkBusy findcolor(#startX #startY #endX #endY 1 1 (33180) %cordCheck 2 1)
						if_not $checkBusy > 0
							move %cord[$a 1], %cord[$a 2]
							left %cord[$a 1], %cord[$a 2]
							if 310, 129 3103287
							set $rand random(2)					//Random Click double/sbor
								if $rand = 1
									wait 100 + random(100)
									move 295, 123
									left 295, 123
									wait 300
									set $checkBusy2 findcolor(479, 343  807, 370    1 1 (791295) %cordCheck2 2 2)
									if $checkBusy2 > 0 
										left 643, 325
										set #i #i + 1
										left %groundX[#i], %groundY[#i]	
									end_if
									break
								else 
									wait 100 + random(100)
									double_left %cord[$a 1], %cord[$a 2]
									wait 300
									set $checkBusy2 findcolor(479, 343  807, 370    1 1 (791295) %cordCheck2 2 2)
									if $checkBusy2 > 0 
										left 643, 325
										set #i #i + 1
										left %groundX[#i], %groundY[#i]	
									end_if
									break
								end_if
							end_if
						end_if
					end_for
					else 
						left %groundX[#i], %groundY[#i]	
					end_if	 
				
			end_for
				
		end_if
	end_if

	if $farmLimitOption = 1 
		if $currentFarm > $limitFarm
			wait 1h
			$currentFarm = 0
		end_if
	end_if
end_for
________________
[Ссылки могут видеть только зарегистрированные пользователи. ][Ссылки могут видеть только зарегистрированные пользователи. ]

Последний раз редактировалось xxxPixelxxx; 21.07.2014 в 00:01.
  Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Почта] Ищу сборщик на мой мир mail.ru neutron2012 Халява для Читера 0 09.07.2013 08:50
[Прочее] Сборщик логинов Rrrolexxx Халява для Читера 3 23.02.2011 13:34
[Программа] сборщик nizam777 Общение и обсуждение 11 26.11.2010 20:07

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

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

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