Hi
ich bin noch ziemlich am anfang und wollte ein kleines Tic-Tac-Toe Spiel schreiben, das auch über TCP/IP läuft.
Als ich und mein Freund alle Daten in die Inputboxen eingetragen hatten und dann angezeigt wurde, die Verbindung wäre hergestellt, kam beim anklicken eines felds diese Fehlermeldung:
[Blockierte Grafik: http://pickhost.eu/images/0000/6118/Unbenannt.jpg]
Namenloser Fehler in Zeile -1?
Naja hoffe auf Hilfe, hier der Quellcode:
Spoiler anzeigen
; (c) Horzt Media™
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Horzt's Game v1.0", 252, 278, 295, 275)
$1 = GUICtrlCreateButton("", 8, 8, 75, 73, 0)
GUICtrlSetFont(-1, 40, 400, 0, "Arial Black")
$2 = GUICtrlCreateButton("", 88, 8, 75, 73, 0)
GUICtrlSetFont(-1, 40, 400, 0, "Arial Black")
$3 = GUICtrlCreateButton("", 168, 8, 75, 73, 0)
GUICtrlSetFont(-1, 40, 400, 0, "Arial Black")
$4 = GUICtrlCreateButton("", 8, 88, 75, 73, 0)
GUICtrlSetFont(-1, 40, 400, 0, "Arial Black")
$5 = GUICtrlCreateButton("", 88, 88, 75, 73, 0)
GUICtrlSetFont(-1, 40, 400, 0, "Arial Black")
$6 = GUICtrlCreateButton("", 168, 88, 75, 73, 0)
GUICtrlSetFont(-1, 40, 400, 0, "Arial Black")
$7 = GUICtrlCreateButton("", 8, 168, 75, 73, 0)
GUICtrlSetFont(-1, 40, 400, 0, "Arial Black")
$8 = GUICtrlCreateButton("", 88, 168, 75, 73, 0)
GUICtrlSetFont(-1, 40, 400, 0, "Arial Black")
$9 = GUICtrlCreateButton("", 168, 168, 75, 73, 0)
GUICtrlSetFont(-1, 40, 400, 0, "Arial Black")
$Label1 = GUICtrlCreateLabel("(c) Horzt Media", 8, 242, 76, 17)
$Label2 = GUICtrlCreateLabel("nicht verbunden", 100, 242, 200, 17)
$MenuItem1 = GUICtrlCreateMenu("Spiel")
$MenuItem2 = GUICtrlCreateMenuItem("1 Spieler", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("2 Spieler", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("TCP/IP", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$a = GUICtrlRead(3)
$b = GUICtrlRead(4)
$c = GUICtrlRead(5)
$d = GUICtrlRead(6)
$e = GUICtrlRead(7)
$f = GUICtrlRead(8)
$g = GUICtrlRead(9)
$h = GUICtrlRead(10)
$i = GUICtrlRead(11)
$xy = "O"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem3
ZweiSpieler()
Case $MenuItem2
Einfach()
Case $MenuItem4
mp()
EndSwitch
WEnd
Func Sieg()
$a = GUICtrlRead(3)
$b = GUICtrlRead(4)
$c = GUICtrlRead(5)
$d = GUICtrlRead(6)
$e = GUICtrlRead(7)
$f = GUICtrlRead(8)
$g = GUICtrlRead(9)
$h = GUICtrlRead(10)
$i = GUICtrlRead(11)
If $a = "X" And $b = "X" And $c = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $d = "X" And $e = "X" And $f = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $g = "X" And $h = "X" And $i = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $a = "X" And $d = "X" And $g = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $b = "X" And $e = "X" And $h = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $c = "X" And $f = "X" And $i = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $a = "X" And $e = "X" And $i = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $c = "X" And $e = "X" And $g = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $a = "O" And $b = "O" And $c = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $d = "O" And $e = "O" And $f = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $g = "O" And $h = "O" And $i = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $a = "O" And $d = "O" And $g = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $b = "O" And $e = "O" And $h = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $c = "O" And $f = "O" And $i = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $a = "O" And $e = "O" And $i = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $c = "O" And $e = "O" And $g = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $a = "O" Or $a = "X" Then
If $b = "O" or $b = "X" Then
If $c = "O" or $c = "X" Then
If $d = "O" or $d = "X" Then
If $e = "O" or $e = "X" Then
If $f = "O" or $f = "X" Then
If $g = "O" or $g = "X" Then
If $h = "O" or $h = "X" Then
If $i = "O" or $i = "X" Then
MsgBox(0, "Unentschieden", "Unentschieden!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc
Func ZweiSpieler()
While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $1
$a1 = GUICtrlRead(3)
If $a1 = "X" Or $a1 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
If $xy = "X" Then
$xy = "O"
ElseIf $xy = "O" Then
$xy = "X"
EndIf
GUICtrlSetData( 3, $xy)
EndIf
Sieg()
Case $2
$a2 = GUICtrlRead(4)
If $a2 = "X" Or $a2 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
If $xy = "X" Then
$xy = "O"
ElseIf $xy = "O" Then
$xy = "X"
EndIf
GUICtrlSetData( 4, $xy)
EndIf
Sieg()
Case $3
$a3 = GUICtrlRead(5)
If $a3 = "X" Or $a3 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
If $xy = "X" Then
$xy = "O"
ElseIf $xy = "O" Then
$xy = "X"
EndIf
GUICtrlSetData( 5, $xy)
EndIf
Sieg()
Case $4
$a4 = GUICtrlRead(6)
If $a4 = "X" Or $a4 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
If $xy = "X" Then
$xy = "O"
ElseIf $xy = "O" Then
$xy = "X"
EndIf
GUICtrlSetData( 6, $xy)
EndIf
Sieg()
Case $5
$a5 = GUICtrlRead(7)
If $a5 = "X" Or $a5 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
If $xy = "X" Then
$xy = "O"
ElseIf $xy = "O" Then
$xy = "X"
EndIf
GUICtrlSetData( 7, $xy)
EndIf
Sieg()
Case $6
$a6 = GUICtrlRead(8)
If $a6 = "X" Or $a6 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
If $xy = "X" Then
$xy = "O"
ElseIf $xy = "O" Then
$xy = "X"
EndIf
GUICtrlSetData( 8, $xy)
EndIf
Sieg()
Case $7
$a7 = GUICtrlRead(9)
If $a7 = "X" Or $a7 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
If $xy = "X" Then
$xy = "O"
ElseIf $xy = "O" Then
$xy = "X"
EndIf
GUICtrlSetData( 9, $xy)
EndIf
Sieg()
Case $8
$a8 = GUICtrlRead(10)
If $a8 = "X" Or $a8 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
If $xy = "X" Then
$xy = "O"
ElseIf $xy = "O" Then
$xy = "X"
EndIf
GUICtrlSetData( 10, $xy)
EndIf
Sieg()
Case $9
$a9 = GUICtrlRead(11)
If $a9 = "X" Or $a9 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
If $xy = "X" Then
$xy = "O"
ElseIf $xy = "O" Then
$xy = "X"
EndIf
GUICtrlSetData( 11, $xy)
EndIf
Sieg()
Case $MenuItem2
ExitLoop
EndSwitch
WEnd
EndFunc
Func Einfach()
While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $1
$a1 = GUICtrlRead(3)
If $a1 = "X" Or $a1 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 3, "X")
EndIf
Siegz()
Sieg()
Case $2
$a2 = GUICtrlRead(4)
If $a2 = "X" Or $a2 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 4, "X")
EndIf
Siegz()
Sieg()
Case $3
$a3 = GUICtrlRead(5)
If $a3 = "X" Or $a3 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 5, "X")
EndIf
Siegz()
Sieg()
Case $4
$a4 = GUICtrlRead(6)
If $a4 = "X" Or $a4 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 6, "X")
EndIf
Siegz()
Sieg()
Case $5
$a5 = GUICtrlRead(7)
If $a5 = "X" Or $a5 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 7, "X")
EndIf
Siegz()
Sieg()
Case $6
$a6 = GUICtrlRead(8)
If $a6 = "X" Or $a6 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 8, "X")
EndIf
Siegz()
Sieg()
Case $7
$a7 = GUICtrlRead(9)
If $a7 = "X" Or $a7 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 9, "X")
EndIf
Siegz()
Sieg()
Case $8
$a8 = GUICtrlRead(10)
If $a8 = "X" Or $a8 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 10, "X")
EndIf
Siegz()
Sieg()
Case $9
$a9 = GUICtrlRead(11)
If $a9 = "X" Or $a9 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 11, "X")
EndIf
Siegz()
Sieg()
Case $MenuItem3
ExitLoop
EndSwitch
WEnd
EndFunc
Func Zufall()
While 3
$a = GUICtrlRead(3)
$b = GUICtrlRead(4)
$c = GUICtrlRead(5)
$d = GUICtrlRead(6)
$e = GUICtrlRead(7)
$f = GUICtrlRead(8)
$g = GUICtrlRead(9)
$h = GUICtrlRead(10)
$i = GUICtrlRead(11)
$r = Random( 1, 9, 1)
If $r = 1 Then
If $a = "" Then
GUICtrlSetData( 3, "O")
ExitLoop
EndIf
ElseIf $r = 2 Then
If $b = "" Then
GUICtrlSetData( 4, "O")
ExitLoop
EndIf
ElseIf $r = 3 Then
If $c = "" Then
GUICtrlSetData( 5, "O")
ExitLoop
EndIf
ElseIf $r = 4 Then
If $d = "" Then
GUICtrlSetData( 6, "O")
ExitLoop
EndIf
ElseIf $r = 5 Then
If $e = "" Then
GUICtrlSetData( 7, "O")
ExitLoop
EndIf
ElseIf $r = 6 Then
If $f = "" Then
GUICtrlSetData( 8, "O")
ExitLoop
EndIf
ElseIf $r = 7 Then
If $g = "" Then
GUICtrlSetData( 9, "O")
ExitLoop
EndIf
ElseIf $r = 8 Then
If $h = "" Then
GUICtrlSetData( 10, "O")
ExitLoop
EndIf
ElseIf $r = 9 Then
If $i = "" Then
GUICtrlSetData( 11, "O")
ExitLoop
EndIf
EndIf
WEnd
EndFunc
Func Siegz()
$a = GUICtrlRead(3)
$b = GUICtrlRead(4)
$c = GUICtrlRead(5)
$d = GUICtrlRead(6)
$e = GUICtrlRead(7)
$f = GUICtrlRead(8)
$g = GUICtrlRead(9)
$h = GUICtrlRead(10)
$i = GUICtrlRead(11)
If $a = "X" And $b = "X" And $c = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $d = "X" And $e = "X" And $f = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $g = "X" And $h = "X" And $i = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $a = "X" And $d = "X" And $g = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $b = "X" And $e = "X" And $h = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $c = "X" And $f = "X" And $i = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $a = "X" And $e = "X" And $i = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $c = "X" And $e = "X" And $g = "X" Then
MsgBox(0, "Sieg", "Spieler 1 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $a = "O" And $b = "O" And $c = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $d = "O" And $e = "O" And $f = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $g = "O" And $h = "O" And $i = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $a = "O" And $d = "O" And $g = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $b = "O" And $e = "O" And $h = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $c = "O" And $f = "O" And $i = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $a = "O" And $e = "O" And $i = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf $c = "O" And $e = "O" And $g = "O" Then
MsgBox(0, "Sieg", "Spieler 2 gewinnt!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
ElseIf Not $a = "" And Not $b = "" and not $c = "" and not $d = "" and not $e = "" and not $f = "" and not $g = "" and not $h = "" and not $i = "" Then
MsgBox(0, "Unentschieden", "Unentschieden!")
GUICtrlSetData( 3, "")
GUICtrlSetData( 4, "")
GUICtrlSetData( 5, "")
GUICtrlSetData( 6, "")
GUICtrlSetData( 7, "")
GUICtrlSetData( 8, "")
GUICtrlSetData( 9, "")
GUICtrlSetData( 10, "")
GUICtrlSetData( 11, "")
Else
Zufall()
EndIf
EndFunc
Func mp()
$zug = ""
TCPStartup()
$own = InputBox( "IP", "Geben sie hier ihre eigene IP ein:")
$ip = InputBox("IP", "Geben sie hier die IP des Partners ein:")
$port = InputBox("Port", "Geben sie hier den Port ein, über den verbunden werden soll:")
$Socket2 = TCPListen($own, $port)
If @error then MsgBox(0, "Error", @error)
While 3
$con = TCPAccept($socket2)
If $con >= 0 Then
GUICtrlSetData( 13, "verbunden ("& $ip &")")
ElseIf $con = -1 Then
GUICtrlSetData( 13, "Fehler ("& $ip &")")
MsgBox(0,"Fehler", @error)
EndIf
$socket = TCPConnect($ip, $port )
If $socket = -1 Then
$ant = MsgBox(1, "Connect", "Connectionfehler. Wiederholen?")
Else
MsgBox(0,"bla","verbunden")
ExitLoop
EndIf
If $ant = 2 Then Return
WEnd
If @error Then
MsgBox(4112,"Fehler","TCPConnect schlug mit folgendem WSA-Fehler fehl: " & @error)
Else
While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $1
$a1 = GUICtrlRead(3)
If $a1 = "X" Or $a1 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 3, "X")
TCPSend($socket, 3)
Sieg()
warten()
GUICtrlSetData( $azug, "O")
If @error Then MsgBox(0, "Error", "Daten konnten nicht gesendet werden:" & @error)
EndIf
Sieg()
Case $2
$a2 = GUICtrlRead(4)
If $a2 = "X" Or $a2 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 4, "X")
TCPSend($socket, 4)
Sieg()
warten()
GUICtrlSetData( $azug, "O")
If @error Then MsgBox(0, "Error", "Daten konnten nicht gesendet werden:" & @error)
EndIf
Sieg()
Case $3
$a3 = GUICtrlRead(5)
If $a3 = "X" Or $a3 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 5, "X")
TCPSend($socket, 5)
Sieg()
warten()
GUICtrlSetData( $azug, "O")
If @error Then MsgBox(0, "Error", "Daten konnten nicht gesendet werden:" & @error)
EndIf
Sieg()
Case $4
$a4 = GUICtrlRead(6)
If $a4 = "X" Or $a4 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 6, "X")
TCPSend($socket, 6)
Sieg()
warten()
GUICtrlSetData( $azug, "O")
If @error Then MsgBox(0, "Error", "Daten konnten nicht gesendet werden:" & @error)
EndIf
Sieg()
Case $5
$a5 = GUICtrlRead(7)
If $a5 = "X" Or $a5 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 7, "X")
TCPSend($socket, 7)
Sieg()
warten()
GUICtrlSetData( $azug, "O")
If @error Then MsgBox(0, "Error", "Daten konnten nicht gesendet werden:" & @error)
EndIf
Sieg()
Case $6
$a6 = GUICtrlRead(8)
If $a6 = "X" Or $a6 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 8, "X")
TCPSend($socket,
Sieg()
warten()
GUICtrlSetData( $azug, "O")
If @error Then MsgBox(0, "Error", "Daten konnten nicht gesendet werden:" & @error)
EndIf
Sieg()
Case $7
$a7 = GUICtrlRead(9)
If $a7 = "X" Or $a7 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 9, "X")
TCPSend($socket, 9)
Sieg()
warten()
GUICtrlSetData( $azug, "O")
If @error Then MsgBox(0, "Error", "Daten konnten nicht gesendet werden:" & @error)
EndIf
Sieg()
Case $8
$a8 = GUICtrlRead(10)
If $a8 = "X" Or $a8 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 10, "X")
TCPSend($socket, 10)
Sieg()
warten()
GUICtrlSetData( $azug, "O")
If @error Then MsgBox(0, "Error", "Daten konnten nicht gesendet werden:" & @error)
EndIf
Sieg()
Case $9
$a9 = GUICtrlRead(11)
If $a9 = "X" Or $a9 = "O" Then
MsgBox( 0, "Noob", "Du Noob!")
Else
GUICtrlSetData( 11, "X")
TCPSend($socket, 11)
Sieg()
warten()
GUICtrlSetData( $azug, "O")
If @error Then MsgBox(0, "Error", "Daten konnten nicht gesendet werden:" & @error)
EndIf
Sieg()
Case $MenuItem3
ExitLoop
Case $MenuItem2
ExitLoop
EndSwitch
WEnd
EndIf
EndFunc
Func warten()
Do
$azug = TCPRecv ($Socket2, 1000)
Until Not $azug = $zug
If Not $zug = $azug Then
$zug = $azug
EndIf
EndFunc
Tipps und Anregungen sind ebenfalls willkommen, dann ich glaube es könnte gute 300 Zeilen kürzer sein
Schonmal Danke im Vorraus,
Horzt