44 lines
785 B
Tcl
44 lines
785 B
Tcl
|
|
||
|
|
#
|
||
|
|
# playerX.tcl -- Tcl/Tk script for player X, the RPC server.
|
||
|
|
#
|
||
|
|
# This script should be run before running the player O script.
|
||
|
|
#
|
||
|
|
|
||
|
|
package require dp 4.0
|
||
|
|
|
||
|
|
set player X;
|
||
|
|
puts stdout "Tic Tac Toe - player X";
|
||
|
|
|
||
|
|
# Get information from user;
|
||
|
|
#
|
||
|
|
|
||
|
|
puts stdout "Enter an unused port number (ex: 8765) : " nonewline;
|
||
|
|
gets stdin port;
|
||
|
|
|
||
|
|
# Make an RPC server socket, which will be waiting for player O
|
||
|
|
# to connect through the supplied port number;
|
||
|
|
#
|
||
|
|
|
||
|
|
dp_MakeRPCServer $port
|
||
|
|
|
||
|
|
# Create a local board object that will get distributed to player O;
|
||
|
|
#
|
||
|
|
|
||
|
|
source board.tcl;
|
||
|
|
board .board;
|
||
|
|
|
||
|
|
# Initialize the user interface;
|
||
|
|
#
|
||
|
|
|
||
|
|
source interface.tcl;
|
||
|
|
|
||
|
|
# Trigger a user interface update whenever the state slot of
|
||
|
|
# the distributed board object changes;
|
||
|
|
#
|
||
|
|
|
||
|
|
dp_SetTrigger after .board state DisplayUpdate
|
||
|
|
|
||
|
|
|
||
|
|
|