dell

Loop
{
Sendinput, Диван`,Стул`,Дверь`,
Sleep, 100
}

arr := ["диван", "стул", "дверь"]

Loop  {
	for k, v in arr  {
		SendInput, % v
		Sleep, 100
	}
}
		

for k, v in ["xxxyyy", "xxyyyy", "x00y00"]  {
	Loop 10  {
		x := A_Index
		Loop 10  {
			y := mod(A_Index - 1, 10)
			Loop, parse, v
			{
				if A_LoopField in x,y
					value := %A_LoopField%
				else
					value := A_LoopField
				str .= value
			}
			SendInput, %str%{Enter}
			str := ""
			Sleep, 100
			if x = 10
				break 2
		}
	}
}