Type TSudoku
	Field Data:Int[9, 9]
	
	Method CreateGame(DiffLevel:Int = 0)
		Local x:Int
		Local y:Int
		Local z:Int
		Local a:Int
		
		For x = 1 To 9
			For y = 0 To 8
				Local Test:Int = 1
				While(Test <> 0)
					z = Rand(0, 8)
					a = Rand(0, 8)
					Test = 0
					Test = Test + Self.CheckValueIsInRow(z, x, 8)
					Test = Test + Self.CheckValueIsInCol(a, x, 8)
					Test = Test + Self.Data[z, a]
				Wend
				Self.Data[z, a] = x
			Next
		Next
		
		Select DiffLevel
			Case 0 'Einfach
			Case 1 'Mittel
			Case 2 'Schwierig
		End Select
	End Method
	
	Method GetValueAtPos:Int(PosX:Int, PosY:Int)
		Return Self.Data[PosX, PosY]
	End Method
	
	Method CheckValueIsInRow:Int(Row:Int, Value:Int, Size:Int)
		For Local x:Int = 0 To Size
			If(Self.Data[Row, x] = Value)
				Return 1
			EndIf
		Next
		Return 0
	End Method
	
	Method CheckValueIsInCol:Int(Col:Int, Value:Int, Size:Int)
		For Local x:Int = 0 To Size
			If(Self.Data[x, Col] = Value)
				Return 1
			EndIf
		Next
		Return 0
	End Method
End Type

Global Sudoku:TSudoku = New TSudoku
Sudoku.CreateGame()