$Q::
Keys := ["Q", "1", "2", "3", "4"]
Loop % Keys.MaxIndex() {
While (Keys[I := ran(1, Keys.MaxIndex())]) = LastKey
Continue
SendInput, % "{" (Key := Keys.RemoveAt(I)) "}", LastKey := ""
Sleep, % ran(20, 100)
}
SendInput, % "{Space}"
LastKey := Key
Return

ran(min, max) {
random, ran, min, max
Return ran
}