[Трофейная рыбалка] Бот для браузерной игры вконтакте

[marisab]

Версия AutoIt: 3.

помогите разобраться или доделать...не бесплатно канечно....замучалась уже

нужно сменить разрешение с 1440х900 на 1366х768 (ноутбуковское) и второе чтобы удочка сама ловила..реагировала...вытаскивала..продавала, как с донкой и спиннингом

трофейная рыбалка вконтакте: http://vk.com/app1844622_152510732?ref=1

вот сам бот:TR.rar

 

[DeLeTeSHift]

на сколько я понял бот не совсем твой. Если это так то пиши свой с нуля, это будет быстрее. Вот исходники моего бота на Рыбное место в Вк, его конечно тоже вряд ли переделать получится, он он вроде понятнее

HotKeySet("{F6}", "_Exit")

For $i = 1 To 150 Step +1
	ToolTip("Ждите...")
	Sleep(10)
Next
ToolTip("")
While 1
	MouseMove(Random(755, 765), Random(485, 495))
	MouseClick("")
	Sleep(Random(1150, 1480, 1))
	While 1
		PixelSearch(366, 247, 651, 513, 16711680, 10)
		If @error Then
			Sleep(Random(200, 400, 1))
			_catch()
			ExitLoop 
		EndIf
	WEnd
WEnd

Func _catch()
	While 1
		Global $valuamin = 0
		_valuamin()
		Global $valuamax = 0
		_valuamax()
		If $valuamin == 0 Then
			MouseMove(Random(755, 765), Random(485, 495), Random(7, 11, 1))
			MouseDown("left")
			Sleep(Random(600, 1276, 1))
		ElseIf $valuamin == $valuamax Then
			MouseUp("left")
			Sleep(Random(600, 1523, 1))
		EndIf
		If PixelGetColor(800, 385) == 10987178 Then
			_successfulfishing()
			_fishinghasfailed()
			_job_done()
			Sleep(Random(1800, 2300, 1))
			If $end == 1 Then
				ExitLoop 
			EndIf
		EndIf
	WEnd
EndFunc

Func _successfulfishing()
	For $x = 710 To 770 Step 15
		For $y = 270 To 410 Step 18
			MouseClick("", $x, $y, 1, Random(0, 5, 1))
		Next
	Next
	Global $end = 1
EndFunc

Func _fishinghasfailed()
	PixelSearch(390, 347, 687, 511, 415635)
	If NOT @error Then
		$cor = PixelSearch(622, 389, 798, 550, 91773208, 10)
		If IsArray($cor) = True Then
			MouseMove($cor[0], $cor[1], Random(7, 11, 1))
			MouseClick("")
			MouseMove(Random(743, 749), Random(354, 340), Random(7, 11, 1))
			MouseClick("")
			Global $end = 1
			Sleep(Random(1700, 2432, 1))
		EndIf
	EndIf
EndFunc

Func _valuamin()
	If PixelGetColor(489, 663) == 16379136 Then
		Global $valuamin = 1
	EndIf
EndFunc

Func _valuamax()
	If PixelGetColor(686, 666) == 9004034 Then
		Global $valuamax = 1
	EndIf
EndFunc

Func _job_done()
	Local $cor = PixelSearch(371, 531, 756, 758, 5869056, 10)
	If NOT @error Then
		MouseMove($cor[0], $cor[1], Random(7, 11, 1))
		MouseClick("")
	EndIf
EndFunc

Func _exit()
	Exit 
EndFunc

 

[marisab]

этот бот моего хорошего знакомого.....но он в другом городе...и скинет исходники...а возможности у него пока доделать нет


Добавлено:

Сообщение автоматически объединено: 16 Янв 2013

и не рыбное место, а трофейная рыбалка

 

[Belfigor]

Не надо дублировать темы