;------Kreisschen------
;----------und---------
;------Kreuzchen ------
;------Version 1.0 ----

;Graphiken :

Graphics 800,600,16,2
SetBuffer BackBuffer()
AppTitle "Kreischen und Kreuzchen"

SeedRnd MilliSecs()  ; Rand auf "Zufällig" stellen

;Dimmen und globaliesieren :
Dim Win3(8)
Dim feld(3,3)
Global Sieg

;Spielerauswahl :
Spieler = Rand(0,1)

;Schleife :
Repeat
ClsColor 30,60,90:Cls
Color 255,255,255
;Wer ist dran ? :
If (Spieler+1) = 1 Then Changed$ = "Spieler2"
If (Spieler+1) = 2 Then Changed$ = "Spieler1"
Text 1,20,"Spieler : "+ Changed$

;Spielefeld zeichnen :
For x = 1 To 3
For y = 1 To 3
Rect x*50,y*50,50,50,0
Next
Next
;Setzten des kreuzchen (oder kreises^^) :
If MouseHit(1)
For x = 1 To 3
For y = 1 To 3
If RectsOverlap(MouseX(),MouseY(),1,1,x*50,y*50,50,50) Then
If feld(x,y) = 0 Then Spieler = 1 - Spieler:feld(x,y) = Spieler+1
EndIf
Next
Next
EndIf
;Zeichnen des kreuzchens (oder kreises^^) :
For x = 1 To 3
For y = 1 To 3
If feld(x,y) = 1 Then Oval x*50+5,y*50+5,40,40,0
If feld(x,y) = 2 Then Line x*50+5,y*50+5,(x*50)+45,(y*50)+45:Line x*50+5,y*50+45,(x*50)+45,(y*50)+5
Next
Next

; Alles Neu :
If MouseHit(2) Then Neu = True
If Neu = True Then
Cls
Text 1,1,"Unentschieden !":Flip
For x = 1 To 3:For y = 1 To 3:feld(x,y) = 0:Next:Next
Sieg = True
Wait()
Neu = False
EndIf

Color 30,60,90:Rect 50,50,150,150,0
Color 255,255,255
;Den gewinner anzeigen :
If winline(1) = 1 Then
Text 1,1,"Spieler 1 hat gewonnen ^^":Flip:Wait()
For x = 1 To 3:For y = 1 To 3:feld(x,y) = 0:Next:Next
Sieg = True
EndIf
If winline(2) = 2 Then
Text 1,1,"Spieler 2 hat gewonnen ^^":Flip:Wait()
For x = 1 To 3:For y = 1 To 3:feld(x,y) = 0:Next:Next
Sieg = True
EndIf

If winline(1) = 0 And winline(2) = 0 Then Text 1,1,"Noch hat keina gewonnen ;)"

Flip
Until KeyHit(1)
End

;Winline überprüfen :
Function winline(W)
For i = 1 To 7
Win3(i) = W
Next
;Sebnkrecht :
For y = 1 To 3
If feld(1,y) <> W Then Win3(1) = 0
If feld(2,y) <> W Then Win3(2) = 0
If feld(3,y) <> W Then Win3(3) = 0
Next
;Waagerecht :
For x = 1 To 3
If feld(x,1) <> W Then Win3(4) = 0
If feld(x,2) <> W Then Win3(5) = 0
If feld(x,3) <> W Then Win3(6) = 0
Next
:Diagonal :
For i = 3 To 1 Step -1
If feld(i,i) <> W Then Win3(7) = 0
Next
If feld(3,1) = W
If feld(2,2) = W
If feld(1,3) = W
Win3(8) = W
EndIf
EndIf
EndIf
; Den wret Returnen :
For i = 1 To 8
If Win3(i) = W Then Return W
Next

End Function

;Warten function :
Function Wait()
Delay 100
FlushMouse()
FlushKeys()
Repeat
Wait = GetKey() Or GetMouse()
Until Wait
Cls
End Function

;Also in der function "winline" :
f feld(1,3) = W
If feld(2,2) = W
If feld(3,1) = W
Win3(8) = W
EndIf
EndIf
EndIf

if feld(1,3) = W
If feld(2,2) = W
If feld(3,1) = W
Win3(8) = W
EndIf
EndIf
EndIf