Code : Tout sélectionner
#include <GUIConstants.au3>
#NoTrayIcon
Global $over=0
Global $win=0
Global $turn=1
Global $yo=0
Global $comp=0
GUICreate("Tic Tac Toe", 254, 228)
$A1 = GUICtrlCreateLabel("", 8, 8, 76, 65, BitOR($SS_CENTER,$SS_SUNKEN))
GUIctrlsetBkColor(-1,0xFFFFFF)
GUICtrlSetFont(-1,40)
$A2 = GUICtrlCreateLabel("", 88, 8, 76, 65, BitOR($SS_CENTER,$SS_SUNKEN))
GUIctrlsetBkColor(-1,0xFFFFFF)
GUICtrlSetFont(-1,40)
$A3 = GUICtrlCreateLabel("", 168, 8, 76, 65, BitOR($SS_CENTER,$SS_SUNKEN))
GUIctrlsetBkColor(-1,0xFFFFFF)
GUICtrlSetFont(-1,40)
$B1 = GUICtrlCreateLabel("", 8, 80, 76, 65, BitOR($SS_CENTER,$SS_SUNKEN))
GUIctrlsetBkColor(-1,0xFFFFFF)
GUICtrlSetFont(-1,40)
$B2 = GUICtrlCreateLabel("", 88, 80, 76, 65, BitOR($SS_CENTER,$SS_SUNKEN))
GUIctrlsetBkColor(-1,0xFFFFFF)
GUICtrlSetFont(-1,40)
$B3 = GUICtrlCreateLabel("", 168, 80, 76, 65, BitOR($SS_CENTER,$SS_SUNKEN))
GUIctrlsetBkColor(-1,0xFFFFFF)
GUICtrlSetFont(-1,40)
$C1 = GUICtrlCreateLabel("", 8, 152, 76, 65, BitOR($SS_CENTER,$SS_SUNKEN))
GUIctrlsetBkColor(-1,0xFFFFFF)
GUICtrlSetFont(-1,40)
$C2 = GUICtrlCreateLabel("", 88, 152, 76, 65, BitOR($SS_CENTER,$SS_SUNKEN))
GUIctrlsetBkColor(-1,0xFFFFFF)
GUICtrlSetFont(-1,40)
$C3 = GUICtrlCreateLabel("", 168, 152, 76, 65, BitOR($SS_CENTER,$SS_SUNKEN))
GUIctrlsetBkColor(-1,0xFFFFFF)
GUICtrlSetFont(-1,40)
GUISetBkColor(0x000000)
GUISetState(@SW_SHOW)
Randomize()
While 1
clear()
Do
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $A1
jugar($A1)
Case $A2
jugar($A2)
Case $A3
jugar($A3)
Case $B1
jugar($B1)
Case $B2
jugar($B2)
Case $B3
jugar($B3)
Case $C1
jugar($C1)
Case $C2
jugar($C2)
Case $C3
jugar($C3)
EndSwitch
win()
Until $win=1 OR $win=2 OR $over=1
If $win=1 Then
$yo+=1
SoundPlay(@WindowsDir&"\media\tada.wav")
MsgBox(0,"","You Won!"&@CR&@CR&"You= "&$yo&@CR&"Bot= "&$Comp)
EndIf
If $win=2 Then
$comp+=1
MsgBox(0,"","You Lost!"&@CR&@CR&"You= "&$yo&@CR&"Bot= "&$Comp)
EndIf
If $win=0 AND $over=1 Then
MsgBox(0,"","It's A Tie!"&@CR&@CR&"You= "&$yo&@CR&"Bot= "&$Comp)
EndIf
WEnd
Func jugar($oCasi)
GUICtrlSetData($oCasi,"X")
GUICtrlSetState($oCasi,$GUI_DISABLE)
;TRATAR DE GANAR(EVIDENTE)
;Horizontal=
If GUICtrlRead($A1)="O" AND GUICtrlRead($A2)="O" AND GUICtrlRead($A3)="" Then
GUICtrlSetData($A3,"O")
GUICtrlSetState($A3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($A2)="O" AND GUICtrlRead($A3)="O" Then
GUICtrlSetData($A1,"O")
GUICtrlSetState($A1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="O" AND GUICtrlRead($A2)="" AND GUICtrlRead($A3)="O" Then
GUICtrlSetData($A2,"O")
GUICtrlSetState($A2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($B1)="O" AND GUICtrlRead($B2)="O" AND GUICtrlRead($B3)="" Then
GUICtrlSetData($B3,"O")
GUICtrlSetState($B3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($B1)="" AND GUICtrlRead($B2)="O" AND GUICtrlRead($B3)="O" Then
GUICtrlSetData($B1,"O")
GUICtrlSetState($B1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($B1)="O" AND GUICtrlRead($B2)="" AND GUICtrlRead($B3)="O" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($C1)="O" AND GUICtrlRead($C2)="O" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($C3,"O")
GUICtrlSetState($C3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($C1)="" AND GUICtrlRead($C2)="O" AND GUICtrlRead($C3)="O" Then
GUICtrlSetData($C1,"O")
GUICtrlSetState($C1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($C1)="O" AND GUICtrlRead($C2)="" AND GUICtrlRead($C3)="O" Then
GUICtrlSetData($C2,"O")
GUICtrlSetState($C2,$GUI_DISABLE)
Return
EndIf
;========
;Vertical=
If GUICtrlRead($A1)="O" AND GUICtrlRead($B1)="" AND GUICtrlRead($C1)="O" Then
GUICtrlSetData($B1,"O")
GUICtrlSetState($B1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($B1)="O" AND GUICtrlRead($C1)="O" Then
GUICtrlSetData($A1,"O")
GUICtrlSetState($A1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="O" AND GUICtrlRead($B1)="O" AND GUICtrlRead($C1)="" Then
GUICtrlSetData($C1,"O")
GUICtrlSetState($C1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A2)="O" AND GUICtrlRead($B2)="" AND GUICtrlRead($C2)="O" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A2)="" AND GUICtrlRead($B2)="O" AND GUICtrlRead($C2)="O" Then
GUICtrlSetData($A2,"O")
GUICtrlSetState($A2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A2)="O" AND GUICtrlRead($B2)="O" AND GUICtrlRead($C2)="" Then
GUICtrlSetData($C2,"O")
GUICtrlSetState($C2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="O" AND GUICtrlRead($B3)="" AND GUICtrlRead($C3)="O" Then
GUICtrlSetData($B3,"O")
GUICtrlSetState($B3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="" AND GUICtrlRead($B3)="O" AND GUICtrlRead($C3)="O" Then
GUICtrlSetData($A3,"O")
GUICtrlSetState($A3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="O" AND GUICtrlRead($B3)="O" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($C3,"O")
GUICtrlSetState($C3,$GUI_DISABLE)
Return
EndIf
;==============
;Diagonal=
If GUICtrlRead($A1)="O" AND GUICtrlRead($B2)="O" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($C3,"O")
GUICtrlSetState($C3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="O" AND GUICtrlRead($B2)="" AND GUICtrlRead($C3)="O" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($B2)="O" AND GUICtrlRead($C3)="O" Then
GUICtrlSetData($A1,"O")
GUICtrlSetState($A1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="O" AND GUICtrlRead($B2)="O" AND GUICtrlRead($C1)="" Then
GUICtrlSetData($C1,"O")
GUICtrlSetState($C1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="O" AND GUICtrlRead($B2)="" AND GUICtrlRead($C1)="O" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="" AND GUICtrlRead($B2)="O" AND GUICtrlRead($C1)="O" Then
GUICtrlSetData($A3,"O")
GUICtrlSetState($A3,$GUI_DISABLE)
Return
EndIf
;======================
;TRATAR DE EVITAR QUE USUARIO GANE=
;Horizontal=
If GUICtrlRead($A1)="X" AND GUICtrlRead($A2)="X" AND GUICtrlRead($A3)="" Then
GUICtrlSetData($A3,"O")
GUICtrlSetState($A3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($A2)="X" AND GUICtrlRead($A3)="X" Then
GUICtrlSetData($A1,"O")
GUICtrlSetState($A1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="X" AND GUICtrlRead($A2)="" AND GUICtrlRead($A3)="X" Then
GUICtrlSetData($A2,"O")
GUICtrlSetState($A2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($B1)="X" AND GUICtrlRead($B2)="X" AND GUICtrlRead($B3)="" Then
GUICtrlSetData($B3,"O")
GUICtrlSetState($B3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($B1)="" AND GUICtrlRead($B2)="X" AND GUICtrlRead($B3)="X" Then
GUICtrlSetData($B1,"O")
GUICtrlSetState($B1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($B1)="X" AND GUICtrlRead($B2)="" AND GUICtrlRead($B3)="X" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($C1)="X" AND GUICtrlRead($C2)="X" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($C3,"O")
GUICtrlSetState($C3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($C1)="" AND GUICtrlRead($C2)="X" AND GUICtrlRead($C3)="X" Then
GUICtrlSetData($C1,"O")
GUICtrlSetState($C1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($C1)="X" AND GUICtrlRead($C2)="" AND GUICtrlRead($C3)="X" Then
GUICtrlSetData($C2,"O")
GUICtrlSetState($C2,$GUI_DISABLE)
Return
EndIf
;========
;Vertical=
If GUICtrlRead($A1)="X" AND GUICtrlRead($B1)="" AND GUICtrlRead($C1)="X" Then
GUICtrlSetData($B1,"O")
GUICtrlSetState($B1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($B1)="X" AND GUICtrlRead($C1)="X" Then
GUICtrlSetData($A1,"O")
GUICtrlSetState($A1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="X" AND GUICtrlRead($B1)="X" AND GUICtrlRead($C1)="" Then
GUICtrlSetData($C1,"O")
GUICtrlSetState($C1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A2)="X" AND GUICtrlRead($B2)="" AND GUICtrlRead($C2)="X" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A2)="" AND GUICtrlRead($B2)="X" AND GUICtrlRead($C2)="X" Then
GUICtrlSetData($A2,"O")
GUICtrlSetState($A2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A2)="X" AND GUICtrlRead($B2)="X" AND GUICtrlRead($C2)="" Then
GUICtrlSetData($C2,"O")
GUICtrlSetState($C2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="X" AND GUICtrlRead($B3)="" AND GUICtrlRead($C3)="X" Then
GUICtrlSetData($B3,"O")
GUICtrlSetState($B3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="" AND GUICtrlRead($B3)="X" AND GUICtrlRead($C3)="X" Then
GUICtrlSetData($A3,"O")
GUICtrlSetState($A3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="X" AND GUICtrlRead($B3)="X" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($C3,"O")
GUICtrlSetState($C3,$GUI_DISABLE)
Return
EndIf
;==============
;Diagonal=
If GUICtrlRead($A1)="X" AND GUICtrlRead($B2)="X" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($C3,"O")
GUICtrlSetState($C3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="X" AND GUICtrlRead($B2)="" AND GUICtrlRead($C3)="X" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($B2)="X" AND GUICtrlRead($C3)="X" Then
GUICtrlSetData($A1,"O")
GUICtrlSetState($A1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="X" AND GUICtrlRead($B2)="X" AND GUICtrlRead($C1)="" Then
GUICtrlSetData($C1,"O")
GUICtrlSetState($C1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="X" AND GUICtrlRead($B2)="" AND GUICtrlRead($C1)="X" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="" AND GUICtrlRead($B2)="X" AND GUICtrlRead($C1)="X" Then
GUICtrlSetData($A3,"O")
GUICtrlSetState($A3,$GUI_DISABLE)
Return
EndIf
;======================
;TRATAR DE GANAR(NO EVIDENTE)
;Horizontal=
If GUICtrlRead($A1)="O" AND GUICtrlRead($A2)="" AND GUICtrlRead($A3)="" Then
GUICtrlSetData($A3,"O")
GUICtrlSetState($A3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($A2)="O" AND GUICtrlRead($A3)="" Then
GUICtrlSetData($A1,"O")
GUICtrlSetState($A1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($A2)="" AND GUICtrlRead($A3)="O" Then
GUICtrlSetData($A2,"O")
GUICtrlSetState($A2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($B1)="O" AND GUICtrlRead($B2)="" AND GUICtrlRead($B3)="" Then
GUICtrlSetData($B3,"O")
GUICtrlSetState($B3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($B1)="" AND GUICtrlRead($B2)="O" AND GUICtrlRead($B3)="" Then
GUICtrlSetData($B1,"O")
GUICtrlSetState($B1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($B1)="" AND GUICtrlRead($B2)="" AND GUICtrlRead($B3)="O" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($C1)="O" AND GUICtrlRead($C2)="" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($C3,"O")
GUICtrlSetState($C3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($C1)="" AND GUICtrlRead($C2)="O" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($C1,"O")
GUICtrlSetState($C1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($C1)="" AND GUICtrlRead($C2)="" AND GUICtrlRead($C3)="O" Then
GUICtrlSetData($C2,"O")
GUICtrlSetState($C2,$GUI_DISABLE)
Return
EndIf
;========
;Vertical=
If GUICtrlRead($A1)="O" AND GUICtrlRead($B1)="" AND GUICtrlRead($C1)="" Then
GUICtrlSetData($B1,"O")
GUICtrlSetState($B1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($B1)="" AND GUICtrlRead($C1)="O" Then
GUICtrlSetData($A1,"O")
GUICtrlSetState($A1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($B1)="O" AND GUICtrlRead($C1)="" Then
GUICtrlSetData($C1,"O")
GUICtrlSetState($C1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A2)="O" AND GUICtrlRead($B2)="" AND GUICtrlRead($C2)="" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A2)="" AND GUICtrlRead($B2)="" AND GUICtrlRead($C2)="O" Then
GUICtrlSetData($A2,"O")
GUICtrlSetState($A2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A2)="" AND GUICtrlRead($B2)="O" AND GUICtrlRead($C2)="" Then
GUICtrlSetData($C2,"O")
GUICtrlSetState($C2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="O" AND GUICtrlRead($B3)="" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($B3,"O")
GUICtrlSetState($B3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="" AND GUICtrlRead($B3)="" AND GUICtrlRead($C3)="O" Then
GUICtrlSetData($A3,"O")
GUICtrlSetState($A3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="" AND GUICtrlRead($B3)="O" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($C3,"O")
GUICtrlSetState($C3,$GUI_DISABLE)
Return
EndIf
;==============
;Diagonal=
If GUICtrlRead($A1)="O" AND GUICtrlRead($B2)="" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($C3,"O")
GUICtrlSetState($C3,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($B2)="" AND GUICtrlRead($C3)="O" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A1)="" AND GUICtrlRead($B2)="O" AND GUICtrlRead($C3)="" Then
GUICtrlSetData($A1,"O")
GUICtrlSetState($A1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="O" AND GUICtrlRead($B2)="" AND GUICtrlRead($C1)="" Then
GUICtrlSetData($C1,"O")
GUICtrlSetState($C1,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="" AND GUICtrlRead($B2)="" AND GUICtrlRead($C1)="O" Then
GUICtrlSetData($B2,"O")
GUICtrlSetState($B2,$GUI_DISABLE)
Return
EndIf
If GUICtrlRead($A3)="" AND GUICtrlRead($B2)="O" AND GUICtrlRead($C1)="" Then
GUICtrlSetData($A3,"O")
GUICtrlSetState($A3,$GUI_DISABLE)
Return
EndIf
;======================
;AL AZAR
_Random()
EndFunc;==>Jugar()
Func _Random()
;Random=
$a=0
Do
$a+=1
$oRan=Random(1,9,1)
If $oRan=1 Then $iCas=$A1
If $oRan=2 Then $iCas=$A2
If $oRan=3 Then $iCas=$A3
If $oRan=4 Then $iCas=$B1
If $oRan=5 Then $iCas=$B2
If $oRan=6 Then $iCas=$B3
If $oRan=7 Then $iCas=$C1
If $oRan=8 Then $iCas=$C2
If $oRan=9 Then $iCas=$C3
If GUICtrlRead($iCas)="" Then ExitLoop
Until $a=100
If $a<>100 Then
GUICtrlSetData($iCas,"O")
GUICtrlSetState($iCas,$GUI_DISABLE)
Else
$over=1
EndIf
Check()
EndFunc
Func win()
;"X"
If GUICtrlRead($A1)="X" and GUICtrlRead($A2)="X" and GUICtrlRead($A3)="X" Then
$win=1
Return
EndIf
If GUICtrlRead($B1)="X" and GUICtrlRead($B2)="X" and GUICtrlRead($B3)="X" Then
$win=1
Return
EndIf
If GUICtrlRead($C1)="X" and GUICtrlRead($C2)="X" and GUICtrlRead($C3)="X" Then
$win=1
Return
EndIf
If GUICtrlRead($A1)="X" and GUICtrlRead($B1)="X" and GUICtrlRead($C1)="X" Then
$win=1
Return
EndIf
If GUICtrlRead($A2)="X" and GUICtrlRead($B2)="X" and GUICtrlRead($C2)="X" Then
$win=1
Return
EndIf
If GUICtrlRead($A3)="X" and GUICtrlRead($B3)="X" and GUICtrlRead($C3)="X" Then
$win=1
Return
EndIf
If GUICtrlRead($A1)="X" and GUICtrlRead($B2)="X" and GUICtrlRead($C3)="X" Then
$win=1
Return
EndIf
If GUICtrlRead($A3)="X" and GUICtrlRead($B2)="X" and GUICtrlRead($C1)="X" Then
$win=1
Return
EndIf
;"O"
If GUICtrlRead($A1)="O" and GUICtrlRead($A2)="O" and GUICtrlRead($A3)="O" Then
$win=2
Return
EndIf
If GUICtrlRead($B1)="O" and GUICtrlRead($B2)="O" and GUICtrlRead($B3)="O" Then
$win=2
Return
EndIf
If GUICtrlRead($C1)="O" and GUICtrlRead($C2)="O" and GUICtrlRead($C3)="O" Then
$win=2
Return
EndIf
If GUICtrlRead($A1)="O" and GUICtrlRead($B1)="O" and GUICtrlRead($C1)="O" Then
$win=2
Return
EndIf
If GUICtrlRead($A2)="O" and GUICtrlRead($B2)="O" and GUICtrlRead($C2)="O" Then
$win=2
Return
EndIf
If GUICtrlRead($A3)="O" and GUICtrlRead($B3)="O" and GUICtrlRead($C3)="O" Then
$win=2
Return
EndIf
If GUICtrlRead($A1)="O" and GUICtrlRead($B2)="O" and GUICtrlRead($C3)="O" Then
$win=2
Return
EndIf
If GUICtrlRead($A3)="O" and GUICtrlRead($B2)="O" and GUICtrlRead($C1)="O" Then
$win=2
Return
EndIf
Check()
EndFunc;===>Win()
Func clear()
GUICtrlSetData($A1,"")
GUICtrlSetState($A1,$GUI_ENABLE)
GUICtrlSetData($A2,"")
GUICtrlSetState($A2,$GUI_ENABLE)
GUICtrlSetData($A3,"")
GUICtrlSetState($A3,$GUI_ENABLE)
GUICtrlSetData($B1,"")
GUICtrlSetState($B1,$GUI_ENABLE)
GUICtrlSetData($B2,"")
GUICtrlSetState($B2,$GUI_ENABLE)
GUICtrlSetData($B3,"")
GUICtrlSetState($B3,$GUI_ENABLE)
GUICtrlSetData($C1,"")
GUICtrlSetState($C1,$GUI_ENABLE)
GUICtrlSetData($C2,"")
GUICtrlSetState($C2,$GUI_ENABLE)
GUICtrlSetData($C3,"")
GUICtrlSetState($C3,$GUI_ENABLE)
$win=0
$over=0
$turn = Not $turn
If $turn Then
_Random()
EndIf
EndFunc
Func Randomize()
Sleep(200)
GUICtrlSetData($A1,"TA")
Sleep(200)
GUICtrlSetData($B2,"TE")
Sleep(200)
GUICtrlSetData($C3,"TI")
Sleep(200)
GUICtrlSetData($A1,"")
Sleep(200)
GUICtrlSetData($B2,"")
Sleep(200)
GUICtrlSetData($C3,"")
Sleep(200)
EndFunc
Func Check()
If GUICtrlRead($A1)<>"" AND GUICtrlRead($A2)<>"" AND GUICtrlRead($A3)<>"" AND GUICtrlRead($B1)<>"" AND GUICtrlRead($B2)<>"" AND GUICtrlRead($B3)<>""AND GUICtrlRead($C1)<>"" AND GUICtrlRead($C2)<>"" AND GUICtrlRead($C3)<>"" Then
$over=1
EndIf
EndFunc