#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <Array.au3>

$multiply = Random(2, 9, 1)
If $multiply = 2 Then
	Dim $adds[12] = [2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24]
	$i = Random(1, 12, 1)
	$add = $adds[$i]
	If $add = 2 Then
		$final = 1
	ElseIf $add = 4 Then
		$final = 2
	ElseIf $add = 6 Then
		$final = 3
	ElseIf $add = 8 Then
		$final = 4
	ElseIf $add = 10 Then
		$final = 5
	ElseIf $add = 12 Then
		$final = 6
	ElseIf $add = 14 Then
		$final = 7
	ElseIf $add = 16 Then
		$final = 8
	ElseIf $add = 18 Then
		$final = 9
	ElseIf $add = 20 Then
		$final = 10
	ElseIf $add = 22 Then
		$final = 11
	ElseIf $add = 24 Then
		$final = 12
	EndIf
ElseIf $multiply = 3 Then
	Dim $adds[12] = [3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36]
	$i = Random(1, 12, 1)
	$add = $adds[$i]
	If $add = 3 Then
		$final = 1
	ElseIf $add = 6 Then
		$final = 2
	ElseIf $add = 9 Then
		$final = 3
	ElseIf $add = 12 Then
		$final = 4
	ElseIf $add = 15 Then
		$final = 5
	ElseIf $add = 18 Then
		$final = 6
	ElseIf $add = 21 Then
		$final = 7
	ElseIf $add = 24 Then
		$final = 8
	ElseIf $add = 27 Then
		$final = 9
	ElseIf $add = 30 Then
		$final = 10
	ElseIf $add = 33 Then
		$final = 11
	ElseIf $add = 36 Then
		$final = 12
	EndIf
ElseIf $multiply = 4 Then
	Dim $adds[12] = [4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48]
	$i = Random(1, 12, 1)
	$add = $adds[$i]
	If $add = 4 Then
		$final = 1
	ElseIf $add = 8 Then
		$final = 2
	ElseIf $add = 12 Then
		$final = 3
	ElseIf $add = 16 Then
		$final = 4
	ElseIf $add = 20 Then
		$final = 5
	ElseIf $add = 24 Then
		$final = 6
	ElseIf $add = 28 Then
		$final = 7
	ElseIf $add = 32 Then
		$final = 8
	ElseIf $add = 36 Then
		$final = 9
	ElseIf $add = 40 Then
		$final = 10
	ElseIf $add = 44 Then
		$final = 11
	ElseIf $add = 48 Then
		$final = 12
	EndIf
ElseIf $multiply = 5 Then
	Dim $adds[12] = [5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60]
	$i = Random(1, 12, 1)
	$add = $adds[$i]
	If $add = 5 Then
		$final = 1
	ElseIf $add = 10 Then
		$final = 2
	ElseIf $add = 15 Then
		$final = 3
	ElseIf $add = 20 Then
		$final = 4
	ElseIf $add = 25 Then
		$final = 5
	ElseIf $add = 30 Then
		$final = 6
	ElseIf $add = 35 Then
		$final = 7
	ElseIf $add = 40 Then
		$final = 8
	ElseIf $add = 45 Then
		$final = 9
	ElseIf $add = 50 Then
		$final = 10
	ElseIf $add = 55 Then
		$final = 11
	ElseIf $add = 60 Then
		$final = 12
	EndIf
ElseIf $multiply = 6 Then
	Dim $adds[12] = [6, 12, 18, 24, 30, 36, 42, 48, 54, 60, 66, 72]
	$i = Random(1, 12, 1)
	$add = $adds[$i]
	If $add = 6 Then
		$final = 1
	ElseIf $add = 12 Then
		$final = 2
	ElseIf $add = 18 Then
		$final = 3
	ElseIf $add = 24 Then
		$final = 4
	ElseIf $add = 30 Then
		$final = 5
	ElseIf $add = 36 Then
		$final = 6
	ElseIf $add = 42 Then
		$final = 7
	ElseIf $add = 48 Then
		$final = 8
	ElseIf $add = 54 Then
		$final = 9
	ElseIf $add = 60 Then
		$final = 10
	ElseIf $add = 66 Then
		$final = 11
	ElseIf $add = 72 Then
		$final = 12
	EndIf
ElseIf $multiply = 7 Then
	Dim $adds[12] = [7, 14, 21, 28, 36, 42, 49, 56, 63, 70, 77, 84]
	$i = Random(1, 12, 1)
	$add = $adds[$i]
	If $add = 7 Then
		$final = 1
	ElseIf $add = 14 Then
		$final = 2
	ElseIf $add = 21 Then
		$final = 3
	ElseIf $add = 28 Then
		$final = 4
	ElseIf $add = 36 Then
		$final = 5
	ElseIf $add = 42 Then
		$final = 6
	ElseIf $add = 49 Then
		$final = 7
	ElseIf $add = 56 Then
		$final = 8
	ElseIf $add = 63 Then
		$final = 9
	ElseIf $add = 70 Then
		$final = 10
	ElseIf $add = 77 Then
		$final = 11
	ElseIf $add = 84 Then
		$final = 12
	EndIf
ElseIf $multiply = 8 Then
	Dim $adds[12] = [8, 16, 24, 32, 40, 48, 56, 64, 72, 80, 88, 96]
	$i = Random(1, 12, 1)
	$add = $adds[$i]
	If $add = 8 Then
		$final = 1
	ElseIf $add = 16 Then
		$final = 2
	ElseIf $add = 24 Then
		$final = 3
	ElseIf $add = 32 Then
		$final = 4
	ElseIf $add = 40 Then
		$final = 5
	ElseIf $add = 48 Then
		$final = 6
	ElseIf $add = 56 Then
		$final = 7
	ElseIf $add = 64 Then
		$final = 8
	ElseIf $add = 72 Then
		$final = 9
	ElseIf $add = 80 Then
		$final = 10
	ElseIf $add = 88 Then
		$final = 11
	ElseIf $add = 96 Then
		$final = 12
	EndIf
ElseIf $multiply = 9 Then
	Dim $adds[12] = [9, 18, 27, 36, 45, 54, 63, 72, 81, 90, 99, 108]
	$i = Random(1, 12, 1)
	$add = $adds[$i]
	If $add = 9 Then
		$final = 1
	ElseIf $add = 18 Then
		$final = 2
	ElseIf $add = 27 Then
		$final = 3
	ElseIf $add = 36 Then
		$final = 4
	ElseIf $add = 45 Then
		$final = 5
	ElseIf $add = 54 Then
		$final = 6
	ElseIf $add = 63 Then
		$final = 7
	ElseIf $add = 72 Then
		$final = 8
	ElseIf $add = 81 Then
		$final = 9
	ElseIf $add = 90 Then
		$final = 10
	ElseIf $add = 99 Then
		$final = 11
	ElseIf $add = 108 Then
		$final = 12
	EndIf
EndIf

Func _reset()
	$multiply = Random(2, 9, 1)
	If $multiply = 2 Then
		Dim $adds[12] = [2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24]
		$i = Random(1, 12, 1)
		$add = $adds[$i]
		If $add = 2 Then
			$final = 1
		ElseIf $add = 4 Then
			$final = 2
		ElseIf $add = 6 Then
			$final = 3
		ElseIf $add = 8 Then
			$final = 4
		ElseIf $add = 10 Then
			$final = 5
		ElseIf $add = 12 Then
			$final = 6
		ElseIf $add = 14 Then
			$final = 7
		ElseIf $add = 16 Then
			$final = 8
		ElseIf $add = 18 Then
			$final = 9
		ElseIf $add = 20 Then
			$final = 10
		ElseIf $add = 22 Then
			$final = 11
		ElseIf $add = 24 Then
			$final = 12
		EndIf
	ElseIf $multiply = 3 Then
		Dim $adds[12] = [3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36]
		$i = Random(1, 12, 1)
		$add = $adds[$i]
		If $add = 3 Then
			$final = 1
		ElseIf $add = 6 Then
			$final = 2
		ElseIf $add = 9 Then
			$final = 3
		ElseIf $add = 12 Then
			$final = 4
		ElseIf $add = 15 Then
			$final = 5
		ElseIf $add = 18 Then
			$final = 6
		ElseIf $add = 21 Then
			$final = 7
		ElseIf $add = 24 Then
			$final = 8
		ElseIf $add = 27 Then
			$final = 9
		ElseIf $add = 30 Then
			$final = 10
		ElseIf $add = 33 Then
			$final = 11
		ElseIf $add = 36 Then
			$final = 12
		EndIf
	ElseIf $multiply = 4 Then
		Dim $adds[12] = [4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48]
		$i = Random(1, 12, 1)
		$add = $adds[$i]
		If $add = 4 Then
			$final = 1
		ElseIf $add = 8 Then
			$final = 2
		ElseIf $add = 12 Then
			$final = 3
		ElseIf $add = 16 Then
			$final = 4
		ElseIf $add = 20 Then
			$final = 5
		ElseIf $add = 24 Then
			$final = 6
		ElseIf $add = 28 Then
			$final = 7
		ElseIf $add = 32 Then
			$final = 8
		ElseIf $add = 36 Then
			$final = 9
		ElseIf $add = 40 Then
			$final = 10
		ElseIf $add = 44 Then
			$final = 11
		ElseIf $add = 48 Then
			$final = 12
		EndIf
	ElseIf $multiply = 5 Then
		Dim $adds[12] = [5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60]
		$i = Random(1, 12, 1)
		$add = $adds[$i]
		If $add = 5 Then
			$final = 1
		ElseIf $add = 10 Then
			$final = 2
		ElseIf $add = 15 Then
			$final = 3
		ElseIf $add = 20 Then
			$final = 4
		ElseIf $add = 25 Then
			$final = 5
		ElseIf $add = 30 Then
			$final = 6
		ElseIf $add = 35 Then
			$final = 7
		ElseIf $add = 40 Then
			$final = 8
		ElseIf $add = 45 Then
			$final = 9
		ElseIf $add = 50 Then
			$final = 10
		ElseIf $add = 55 Then
			$final = 11
		ElseIf $add = 60 Then
			$final = 12
		EndIf
	ElseIf $multiply = 6 Then
		Dim $adds[12] = [6, 12, 18, 24, 30, 36, 42, 48, 54, 60, 66, 72]
		$i = Random(1, 12, 1)
		$add = $adds[$i]
		If $add = 6 Then
			$final = 1
		ElseIf $add = 12 Then
			$final = 2
		ElseIf $add = 18 Then
			$final = 3
		ElseIf $add = 24 Then
			$final = 4
		ElseIf $add = 30 Then
			$final = 5
		ElseIf $add = 36 Then
			$final = 6
		ElseIf $add = 42 Then
			$final = 7
		ElseIf $add = 48 Then
			$final = 8
		ElseIf $add = 54 Then
			$final = 9
		ElseIf $add = 60 Then
			$final = 10
		ElseIf $add = 66 Then
			$final = 11
		ElseIf $add = 72 Then
			$final = 12
		EndIf
	ElseIf $multiply = 7 Then
		Dim $adds[12] = [7, 14, 21, 28, 36, 42, 49, 56, 63, 70, 77, 84]
		$i = Random(1, 12, 1)
		$add = $adds[$i]
		If $add = 7 Then
			$final = 1
		ElseIf $add = 14 Then
			$final = 2
		ElseIf $add = 21 Then
			$final = 3
		ElseIf $add = 28 Then
			$final = 4
		ElseIf $add = 36 Then
			$final = 5
		ElseIf $add = 42 Then
			$final = 6
		ElseIf $add = 49 Then
			$final = 7
		ElseIf $add = 56 Then
			$final = 8
		ElseIf $add = 63 Then
			$final = 9
		ElseIf $add = 70 Then
			$final = 10
		ElseIf $add = 77 Then
			$final = 11
		ElseIf $add = 84 Then
			$final = 12
		EndIf
	ElseIf $multiply = 8 Then
		Dim $adds[12] = [8, 16, 24, 32, 40, 48, 56, 64, 72, 80, 88, 96]
		$i = Random(1, 12, 1)
		$add = $adds[$i]
		If $add = 8 Then
			$final = 1
		ElseIf $add = 16 Then
			$final = 2
		ElseIf $add = 24 Then
			$final = 3
		ElseIf $add = 32 Then
			$final = 4
		ElseIf $add = 40 Then
			$final = 5
		ElseIf $add = 48 Then
			$final = 6
		ElseIf $add = 56 Then
			$final = 7
		ElseIf $add = 64 Then
			$final = 8
		ElseIf $add = 72 Then
			$final = 9
		ElseIf $add = 80 Then
			$final = 10
		ElseIf $add = 88 Then
			$final = 11
		ElseIf $add = 96 Then
			$final = 12
		EndIf
	ElseIf $multiply = 9 Then
		Dim $adds[12] = [9, 18, 27, 36, 45, 54, 63, 72, 81, 90, 99, 108]
		$i = Random(1, 12, 1)
		$add = $adds[$i]
		If $add = 9 Then
			$final = 1
		ElseIf $add = 18 Then
			$final = 2
		ElseIf $add = 27 Then
			$final = 3
		ElseIf $add = 36 Then
			$final = 4
		ElseIf $add = 45 Then
			$final = 5
		ElseIf $add = 54 Then
			$final = 6
		ElseIf $add = 63 Then
			$final = 7
		ElseIf $add = 72 Then
			$final = 8
		ElseIf $add = 81 Then
			$final = 9
		ElseIf $add = 90 Then
			$final = 10
		ElseIf $add = 99 Then
			$final = 11
		ElseIf $add = 108 Then
			$final = 12
		EndIf
	EndIf
	_gmeGui()
EndFunc

Func _gmeGui()
	MsgBox(0, "Stage 1 of 5", "Pick a number. ANY positive integers (1, 2, 3, 4, ...)")
	MsgBox(0, "Stage 2 of 5", "Remember that number. Multiply it by " & $multiply & ".")
	MsgBox(0, "Stage 3 of 5", "Add " & $add & " to it.")
	MsgBox(0, "Stage 4 of 5", "Devide it by " & $multiply & ".")
	MsgBox(0, "Stage 5 of 5", "And finally subtract it by the number you picked...")
	MsgBox(0, "Finish", "Your final number is " & $final & ".")
	$proceedTwo = MsgBox(4, "Again?", "Do you want to play again?")
	If $proceedTwo = 6 Then
		_reset()
	Else
		Exit
	EndIf
EndFunc

$proceedOne = MsgBox(4, "Math Game", "Do you want to play a math game?")
If $proceedOne = 6 Then
	_gmeGui()
Else
	Exit
EndIf