try this one, the top 4 are yellow, the last 1 is orange but sometimes you will miss, believe me you won't run in the bush any more ..
While 1
WinActivate("CABAL")
$SearchResult = PixelSearch(128, 58, 156, 65, 0x1C1C1C, 10, 1)
If Not @error Then
Send("{6}")
EndIf
$coord = PixelSearch( 100, 100, 1024, 718, 0XFFFF11, 50, 2)
$coord = PixelSearch( 100, 100, 1024, 718, 0XFFFF22, 50, 2)
$coord = PixelSearch( 100, 100, 1024, 718, 0XFFFF33, 50, 2)
$coord = PixelSearch( 100, 100, 1024, 718, 0XFFFF44, 50, 2)
$coord = PixelSearch( 100, 100, 1024, 718, 0XFF8C00, 50, 2)
If Not @error Then
MouseMove($coord[0],$coord[1],0)
MouseClick("left",$coord[0],$coord[1])
Sleep (200)
EndIf
Send("{Right 4}")
Send("1")
Sleep(900)
Send("2")
Sleep(900)
Send("3")
Sleep(900)
Send("4")
Sleep(600)
Send("{Space}")
Send("{Right 4}")
Send("{Space}")
Send("{Right 4}")
Wend