Olá pessoal, eu gostaria de uma ajuda com um bot recém criado por mim - sou novo nessa área e não domino muito bem essa linguagem. Estarei colocando aqui o script, se alguém puder melhorar ou adicionar algumas características para melhor funcionamento do Bot agradeço. Vale ressaltar que foi usado (PixelSearch) para reconhecimento das notas, se houver uma maneira melhor me ajudem! OBS: reconhecimento das notas do guitarflash.com
HotKeySet("{F6}","_Exit")
$S = 6
MsgBox(4,"Bot","Você deseja iniciar o bot?")
If $S = 6 Then
MsgBox(4096,"Bot","Bot inicializado com sucesso")
EndIf
While 1
Sleep(1)
$nota1 = PixelSearch(298, 587,364, 650,0xDEECF3,20)
If IsArray($nota1) = True Then
Send("{a}")
EndIf
If IsArray($nota1) = True Then
Send("{a down}")
EndIf
$nota2 = PixelSearch(398, 587,453, 674,0xDEECF3,20)
If IsArray($nota2) = True Then
Send("{s}")
EndIf
If IsArray($nota2) = True Then
Send("{s down}")
EndIf
$nota3 = PixelSearch(498, 587,549, 651,0xDEECF3,20)
If IsArray($nota3) = True Then
Send("{d}")
EndIf
If IsArray($nota3) = True Then
Send("{d down}")
EndIf
$nota4 = PixelSearch(598, 587,621, 674,0xDEECF3,20)
If IsArray($nota4) = True Then
Send("{k}")
EndIf
If IsArray($nota4) = True Then
Send("{k down}")
EndIf
$nota5 = PixelSearch(638, 587,696, 673,0xDEECF3,20)
If IsArray($nota5) = True Then
Send("{l}")
EndIf
If IsArray($nota5) = True Then
Send("{l down}")
EndIf
WEnd
Func _Exit()
Exit
EndFunc