Basicamente estoy tratando de realizar un macro, donde en pantalla me muestren una secuencia por ejemplo:
Arriba, arriba, abajo, derecha y por medio de comandos enviar la teclas arriba, arriba, abajo y derecha.
Como podran ver, en el video http://www.youtube.com/watch?v=dNDKFKuPcws
Parte del codigo del video que identifique para poder realizar lo que quiero es esta:
Func get_moves($num)
Local $moves($num)
For $i = 0 to ($num-1)
Local $left = 0, $right = 0, $up = 0, $down = 0
While 1
PixelSearch($start_x+64-12, $start_y+32, $start_x+64-12, $start_y+32, 0x282806, 20 , 1, $wiz-han)
If Not(@error) Then
; left or right
$left = PixelSearch($start_x+26, $start_y+23, $start_x+26, $start_y+23, 0xE0D75E, 40, 1, $wiz_han)
If @error Then
Dim $right(2) = (0, 0)
EndIf
ExitLoop
EndIf
PixelSearch($start_x+32, $start_y+64-12, $start_x+32, $start_y+64-12, 0x282806, 20, 1, $wiz_han)
If Not(@error) Then
; up or down
$up = PixelSearch($start_x+26, $start_y+23, $start_x+26, $start_y+23, 0xFFED27, 40, 1, $wiz_han)
If @error Then
Dim $down(2) = (0, 0)
EndIf
ExitLoop
EndIf
WEnd
If IsArray($left) Then
$moves($i) = "left"
ElseIf IsArray($right) Then
$moves($i) = "right"
ElseIf IsArray($up) Then
$moves($i) = "up"
ElseIf IsArray($down) Then
$moves($i) = "down"
EndIf
ConsoleWrite($moves($i)) & @CRLF)
Sleep(350)
Next
Return $moves
EndFunc
El tema es que no la cree yo, y la verdad es que no entiendo muy bien como usarla, ya explique lo que quiero. La forma de identificar la secuencia de flechas mostrada en pantalla y poder enviarlas cuando me lo solicita el juego.
Desde ya muchas gracias, cualquier consulta que necesiten hacerme u orientacion sera bienvenida, la verdad es que busco ahorrar tiempo en ese minijuego, ya que a veces la secuencia pasa muy rapido y cada error me resta % de efectividad, busco la forma de capturar la secuencia y enviarla mediante un MACRO para poder ahorrar tiempo y frustracion.