Autoit.ES

Disculpebn y nuevamente publico mi tema, lo habia dejado en la seccion de CHAT pero creo que no es ese su lugar.

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.