Code:
Func start()
GUICtrlDelete( $Label1)
GUICtrlDelete( $Exit)
GUICtrlDelete( $Start)
$lo = GUICtrlCreateButton("", 8, 8, 129, 129)
GUICtrlSetFont(-1, 14, 400, 0, "Arial Black")
$o = GUICtrlCreateButton("", 145, 8, 129, 129)
GUICtrlSetFont(-1, 14, 400, 0, "Arial Black")
$ro = GUICtrlCreateButton("", 282, 8, 129, 129)
GUICtrlSetFont(-1, 14, 400, 0, "Arial Black")
$l = GUICtrlCreateButton("", 8, 145, 129, 129)
GUICtrlSetFont(-1, 14, 400, 0, "Arial Black")
$m = GUICtrlCreateButton("", 145, 145, 129, 129)
GUICtrlSetFont(-1, 14, 400, 0, "Arial Black")
$r = GUICtrlCreateButton("", 282, 145, 129, 129)
GUICtrlSetFont(-1, 14, 400, 0, "Arial Black")
$lu = GUICtrlCreateButton("", 8, 282, 129, 129)
GUICtrlSetFont(-1, 14, 400, 0, "Arial Black")
$u = GUICtrlCreateButton("", 145, 282, 129, 129)
GUICtrlSetFont(-1, 14, 400, 0, "Arial Black")
$ru = GUICtrlCreateButton("", 282, 282, 129, 129)
GUICtrlSetFont(-1, 14, 400, 0, "Arial Black")
$Label1 = GUICtrlCreateLabel("Now picking:", 8, 432, 113, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("X", 160, 432, 18, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$turn= "x"
While 1
$nMsg2= GUIGetMsg()
Switch $nMsg2
Case $nMsg2= $GUI_EVENT_CLOSE
Exit
Case $nMsg2=$lo And $turn="x"
GUICtrlSetData( $lo, "x")
$turn= "o"
GUICtrlSetData($Label2, "o")
Case $nMsg2=$o And $turn="x"
GUICtrlSetData( $o, "x")
$turn= "o"
GUICtrlSetData($Label2, "o")
Case $nMsg2=$ro And $turn="x"
GUICtrlSetData( $ro, "x")
$turn= "o"
GUICtrlSetData($Label2, "o")
Case $nMsg2=$l And $turn="x"
GUICtrlSetData( $l, "x")
$turn= "o"
GUICtrlSetData($Label2, "o")
Case $nMsg2=$m And $turn="x"
GUICtrlSetData( $m, "x")
$turn= "o"
GUICtrlSetData($Label2, "o")
Case $nMsg2=$r And $turn="x"
GUICtrlSetData( $r, "x")
$turn= "o"
GUICtrlSetData($Label2, "o")
Case $nMsg2=$lu And $turn="x"
GUICtrlSetData( $lu, "x")
$turn= "o"
GUICtrlSetData($Label2, "o")
Case $nMsg2=$u And $turn="x"
GUICtrlSetData( $u, "x")
$turn= "o"
GUICtrlSetData($Label2, "o")
Case $nMsg2=$ru And $turn="x"
GUICtrlSetData( $ru, "x")
$turn= "o"
GUICtrlSetData($Label2, "o")
Case $nMsg2=$lo And $turn="o"
GUICtrlSetData( $lo, "o")
$turn= "x"
GUICtrlSetData($Label2, "x")
Case $nMsg2=$o And $turn="o"
GUICtrlSetData( $o, "o")
$turn= "x"
GUICtrlSetData($Label2, "x")
Case $nMsg2=$ro And $turn="o"
GUICtrlSetData( $ro, "o")
$turn= "x"
GUICtrlSetData($Label2, "x")
Case $nMsg2=$l And $turn="o"
GUICtrlSetData( $l, "o")
$turn= "x"
GUICtrlSetData($Label2, "x")
Case $nMsg2=$m And $turn="o"
GUICtrlSetData( $m, "o")
$turn= "x"
GUICtrlSetData($Label2, "x")
Case $nMsg2=$r And $turn="o"
GUICtrlSetData( $r, "o")
$turn= "x"
GUICtrlSetData($Label2, "x")
Case $nMsg2=$lu And $turn="o"
GUICtrlSetData( $lu, "o")
$turn= "x"
GUICtrlSetData($Label2, "x")
Case $nMsg2=$u And $turn="o"
GUICtrlSetData( $u, "o")
$turn= "x"
GUICtrlSetData($Label2, "x")
Case $nMsg2=$ru And $turn="o"
GUICtrlSetData( $ru, "o")
$turn= "x"
GUICtrlSetData($Label2, "x")
EndSwitch
WEnd
EndFunc