Pomoc z botem do kasyna

[WSeba]

Witam, potrzebuje pomocy z napisaniem bota do kasyna.
Ma on polegac na tym, ze jezeli trafi sie 6 to obstawia 1 wartosc w tabeli(4), jesli cos innego (1,2,3,4,5) to obstawia nastepna wartosc(5), jesli znowu wylosuje sie cos innego niz 6, to kolejna wartosc(6)

Udało mi się wypocić cos takiego:

#include <ImageSearch.au3>

Global $a[18] = [4, 5, 6, 7, 9, 11, 13, 15, 18, 22, 26, 32, 38, 46, 55, 66, 79, 95]
Global $x, $y

HotKeySet('HOME','start')
HotKeySet('END','stop')

While 1
	Sleep(100)
WEnd

Func stop()
	Exit
EndFunc

Func start()
$result = _ImageSearch("6.bmp", 0, $x, $y, 0)
If $result = 1 Then
	Sleep(300)
	Send("yes{Enter}")
	Sleep(300)
	Send("money{Enter}")
	Sleep(300)
	Send("$a[0]{Enter}")
Else
	Sleep(300)
	Send("yes{Enter}")
	Sleep(300)
	Send("money{Enter}")
	Sleep(300)
	Send("$a[1]{Enter}")
EndIf
EndFunc

Nie wiem, co dalej i jak zrobić ,zeby wpisywał nastepna wartosc z tabeli, bo tak moglbym zrobic 18 else ifów i w kazdym po prostu sztywna wartość.