오토핫키] Bulls And Cows 숫자야구게임 구현

Up&Down 로직을 구현하고나니 정해진 결과를 유추하는 다른 게임인 숫자야구게임을 구현해보고 싶어졌다.

 

Title := "숫자 야구 게임"
Game_Count := 9
Ball := 0
Strike := 0

Loop {
	Random, v, 0, 9
	if(!InStr(Answer, v))
		Answer .= v
	if(StrLen(Answer) = 4)
		break
}

Loop, % Game_Count {
	InputBox, User_Num, % Title, % "예상하는 4자리 숫자를 입력하세요.`n`n현 상태 : " Status "`n`n남은 횟수 : " Game_Count - A_Index + 1

	Ball := 0
	Strike := 0
	
	if(User_Num && StrLen(User_Num) = 4) {
		if(Answer = User_Num) {
			solve := true
			Msgbox, , % Title, You Win!
			break
		}
		else {
			Loop, 4 {
				if(InStr(Answer, SubStr(User_Num, A_Index, 1)))
					Ball ++
				if(SubStr(Answer, A_Index, 1) = SubStr(User_Num, A_Index, 1))
					Strike ++
			}
			Ball := Ball - Strike
			Status := Strike "S " Ball "B"
		}
	}
	else {
		Ball := 0
		Strike := 0
		Msgbox, , % Title, 잘못된 입력
	}
}
if(!Solve)
	Msgbox, , % Title, % "You Lose. The Answer is " Answer

멍청해서일까 생각보다 정답을 맞히기 힘들었다 ㅠ

 

게임 시작 시 나오는 화면

9번의 기회 안에 맞추지 못함

2860 정답!