tetris.sock

gtk_server的源代码

#!/bin/ksh
#
# A small tetris game wih the HUG abstraction layer (HUG-al)
#
# (c) Peter van Eerten, august 2008 - GPL.
#
# The 'tetris.mid' sound file originally was called 'Korobeiniki.mid' and was
# downloaded from Wikimedia. Here it is used for demonstrational purposes only.
#
# This is intended to be a demonstration program, and probably contains bugs.
#
# It is *not* allowed to sell this program, or to use it in any commercial way
# without written permission of the author.
#
# However, it is allowed to use this program for educational purposes without
# written permission of the author.
#
# If you like Tetris, obtain a copy from http://www.tetris.com/.
#
#
# INSTALLATION INSTRUCTIONS FOR REMOTE SOCKET PLAY
#
# Add this program to your INET configuration:
# -----------------------------------------
# tetris	stream	tcp	nowait	nobody	/some/dir/tetris.sock
#
# Also add a service to your /etc/service configuration:
# ------------------------------------------------------
# tetris	50000/tcp
#
# Kill -HUP your INET daemon.
#   Now start the program with 'gtk-server -sock=<IP of host>:50000
#
#--------------------------------------------------------------------- Embed HUG macros

# Find GTK-server configfile first
if [[ -f gtk-server.cfg ]]; then
    CFG=gtk-server.cfg
elif [[ -f /etc/gtk-server.cfg ]]; then
    CFG=/etc/gtk-server.cfg
elif [[ -f /usr/local/etc/gtk-server.cfg ]]; then
    CFG=/usr/local/etc/gtk-server.cfg
else
    echo "No GTK-server configfile found! Please install GTK-server..."
    exit 1
fi

# Now create global functionnames from HUG macros
if [[ ! -f /tmp/.hug4ksh || $CFG -nt /tmp/.hug4ksh ]]; then
    echo "#!/bin/ksh" > /tmp/.hug4ksh
    while read LINE
    do
	if [[ $LINE = MACRO* ]]; then
	    print "function ${LINE#* }" >> /tmp/.hug4ksh
	    print "{\nprint ${LINE#* } \$@" >> /tmp/.hug4ksh
	    print "read GTK\n}" >> /tmp/.hug4ksh
	fi
    done < $CFG
fi

# Declare global variables
typeset GTK NULL="NULL"
unset CFG LINE

#----------------------------------------------------------------------------------------

# Assignment function
function define { $2 $3 $4 $5 $6 $7; eval $1="\"$GTK\""; }

#----------------------------------------------------------------------------------------
#
# The '0000' piece - code 1
#
#----------------------------------------------------------------------------------------

function Define_or_Wipe_One
{
# Define these as local
typeset -i POS X Y

# Assign the arguments
X=$1; Y=$2

# Calculate position on board array
let POS=$X/20+$Y/2

# Determine position, then wipe or draw
if [[ $3 -eq 0 || $3 -eq 2 ]]
then
    let BOARD[$POS-1]=$4
    let BOARD[$POS]=$4
    let BOARD[$POS+1]=$4
    let BOARD[$POS+2]=$4

elif [[ $3 -eq 1 || $3 -eq 3 ]]
then
    let BOARD[$POS-10]=$4
    let BOARD[$POS]=$4
    let BOARD[$POS+10]=$4
    let BOARD[$POS+20]=$4
fi
}

function Action_One
{
# Define these as local
typeset -i POS STATUS=1

# Wipe the piece from array
Define_or_Wipe_One $CURX $CURY $CUR_ROTATION 0

# Check board boundaries
if [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && $NEWX -lt 20 ]]
then
    NEWX=20
fi
if [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && $NEWX -gt 140 ]]
then
    NEWX=140
fi
if [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && $NEWX -gt 180 ]]
then
    NEWX=180
fi
if [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && $NEWY -lt 20 ]]
then
    NEWY=20
fi
if [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && $NEWY -gt 480 ]]
then
    NEWY=480; STATUS=0
fi
if [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && $NEWY -gt 440 ]]
then
    NEWY=440; STATUS=0; CURY=$NEWY; CUR_ROTATION=$NEW_ROTATION
fi

# Calculate new position on board array
let POS=$NEWX/20+$NEWY/2

# Check if move to left or right was legal
if [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && ${BOARD[$POS-1]} -ne 0 && $NEWX -lt $CURX ]]
then
    NEWX=$CURX
elif [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && ${BOARD[$POS+2]} -ne 0 && $NEWX -gt $CURX ]]
then
    NEWX=$CURX
elif [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && (${BOARD[$POS-10]} -ne 0 || ${BOARD[$POS]} -ne 0 || ${BOARD[$POS+10]} -ne 0 || ${BOARD[$POS+20]} -ne 0) && $NEWX -lt $CURX ]]
then
    NEWX=$CURX
elif [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && (${BOARD[$POS-10]} -ne 0 || ${BOARD[$POS]} -ne 0 || ${BOARD[$POS+10]} -ne 0 || ${BOARD[$POS+20]} -ne 0) && $NEWX -gt $CURX ]]
then
    NEWX=$CURX
fi

# Recalculate new position on board array
let POS=$NEWX/20+$NEWY/2

# Now check if all new positions are available
if [[ $NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2 ]]
then
    if [[ ${BOARD[$POS-1]} -ne 0 || ${BOARD[$POS]} -ne 0 || ${BOARD[$POS+1]} -ne 0 || ${BOARD[$POS+2]} -ne 0 ]]
    then
	STATUS=0
    fi

elif [[ $NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3 ]]
then
    if [[ ${BOARD[$POS-10]} -ne 0 || ${BOARD[$POS]} -ne 0 || ${BOARD[$POS+10]} -ne 0 || ${BOARD[$POS+20]} -ne 0 ]]
    then
	STATUS=0
    fi
fi

# If all positions are available, draw piece '1' on new coordnates in array, set returnvalue
if [[ $STATUS -eq 1 ]]
then
    Define_or_Wipe_One $NEWX $NEWY $NEW_ROTATION 1
    PIECE=1
else
    # If not, draw piece '1' on old coordinates in array, set returnvalue
    Define_or_Wipe_One $CURX $CURY $CUR_ROTATION 1
    if [[ $CUR_ROTATION -eq $NEW_ROTATION ]]
    then
	PIECE=0
    else
	NEW_ROTATION=$CUR_ROTATION
    fi
fi
}

#----------------------------------------------------------------------------------------
#
# The  'OO' piece - code 2
#	'OO'
#----------------------------------------------------------------------------------------
#
# $1 = X, $2 = Y, $3 = ROTATION, $4 = 0/3
#

function Define_or_Wipe_Two
{
# Define these as local
typeset -i POS X Y

# Assign the arguments
X=$1; Y=$2

# Calculate position on board array
let POS=$X/20+$Y/2

# Determine position, then wipe or draw
if [[ $3 -eq 0 || $3 -eq 2 ]]
then
    let BOARD[$POS]=$4
    let BOARD[$POS+1]=$4
    let BOARD[$POS+11]=$4
    let BOARD[$POS+12]=$4

elif [[ $3 -eq 1 || $3 -eq 3 ]]
then
    let BOARD[$POS]=$4
    let BOARD[$POS+9]=$4
    let BOARD[$POS+10]=$4
    let BOARD[$POS+19]=$4
fi
}

function Action_Two
{
# Define these as local
typeset -i POS STATUS=1

# Wipe the piece from array
Define_or_Wipe_Two $CURX $CURY $CUR_ROTATION 0

# Check board boundaries
if [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && $NEWX -gt 140 ]]
then
    NEWX=140
fi
if [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && $NEWX -gt 180 ]]
then
    NEWX=180
fi
if [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && $NEWX -lt 20 ]]
then
    NEWX=20
fi
if [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && $NEWY -gt 460 ]]
then
    NEWY=460; STATUS=0
fi
if [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && $NEWY -gt 440 ]]
then
    NEWY=440; STATUS=0; CURY=$NEWY; CUR_ROTATION=$NEW_ROTATION
fi

# Calculate new position on board array
let POS=$NEWX/20+$NEWY/2

# Check if move to left or right was legal
if [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && (${BOARD[$POS]} -ne 0 || ${BOARD[$POS+11]} -ne 0) && $NEWX -lt $CURX ]]
then
    NEWX=$CURX
elif [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && (${BOARD[$POS+1]} -ne 0 || ${BOARD[$POS+12]} -ne 0) && $NEWX -gt $CURX ]]
then
    NEWX=$CURX
elif [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && (${BOARD[$POS]} -ne 0 || ${BOARD[$POS+9]} -ne 0 || ${BOARD[$POS+19]} -ne 0) && $NEWX -lt $CURX ]]
then
    NEWX=$CURX
elif [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && (${BOARD[$POS]} -ne 0 || ${BOARD[$POS+10]} -ne 0 || ${BOARD[$POS+19]} -ne 0) && $NEWX -gt $CURX ]]
then
    NEWX=$CURX
fi

# Recalculate new position on board array
let POS=$NEWX/20+$NEWY/2

# Now check if all new positions are available
if [[ $NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2 ]]
then
    if [[ ${BOARD[$POS]} -ne 0 || ${BOARD[$POS+1]} -ne 0 || ${BOARD[$POS+11]} -ne 0 || ${BOARD[$POS+12]} -ne 0 ]]
    then
	STATUS=0
    fi

elif [[ $NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3 ]]
then
    if [[ ${BOARD[$POS]} -ne 0 || ${BOARD[$POS+9]} -ne 0 || ${BOARD[$POS+10]} -ne 0 || ${BOARD[$POS+19]} -ne 0 ]]
    then
	STATUS=0
    fi
fi

# If all positions are available, draw piece '2' on new coordnates in array, set returnvalue
if [[ $STATUS -eq 1 ]]
then
    Define_or_Wipe_Two $NEWX $NEWY $NEW_ROTATION 2
    PIECE=2
else
    # If not, draw piece '2' on old coordinates in array, set returnvalue
    Define_or_Wipe_Two $CURX $CURY $CUR_ROTATION 2
    if [[ $CUR_ROTATION -eq $NEW_ROTATION ]]
    then
	PIECE=0
    else
	NEW_ROTATION=$CUR_ROTATION
    fi
fi
}

#----------------------------------------------------------------------------------------
#
# The  'OO' piece - code 3
#     'OO'
#
#----------------------------------------------------------------------------------------
#
# $1 = X, $2 = Y, $3 = ROTATION, $4 = 0/3
#
function Define_or_Wipe_Three
{
# Define these as local
typeset -i POS X Y

# Assign the arguments
X=$1; Y=$2

# Calculate position on board array
let POS=$X/20+$Y/2

# Determine position, then wipe or draw
if [[ $3 -eq 0 || $3 -eq 2 ]]
then
    let BOARD[$POS]=$4
    let BOARD[$POS+1]=$4
    let BOARD[$POS-8]=$4
    let BOARD[$POS-9]=$4

elif [[ $3 -eq 1 || $3 -eq 3 ]]
then
    let BOARD[$POS]=$4
    let BOARD[$POS+10]=$4
    let BOARD[$POS+11]=$4
    let BOARD[$POS+21]=$4
fi
}

function Action_Three
{
# Define these as local
typeset -i POS STATUS=1

# Wipe the piece from array
Define_or_Wipe_Three $CURX $CURY $CUR_ROTATION 0

# Check board boundaries
if [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && $NEWX -gt 140 ]]
then
    NEWX=140
fi
if [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && $NEWX -gt 160 ]]
then
    NEWX=160
fi
if [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && $NEWY -gt 480 ]]
then
    NEWY=480; STATUS=0
fi
if [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && $NEWY -gt 440 ]]
then
    NEWY=440; STATUS=0; CURY=$NEWY; CUR_ROTATION=$NEW_ROTATION
fi

# Calculate new position on board array
let POS=$NEWX/20+$NEWY/2

# Check if move to left or right was legal
if [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && (${BOARD[$POS]} -ne 0 || ${BOARD[$POS-9]} -ne 0) && $NEWX -lt $CURX ]]
then
    NEWX=$CURX
elif [[ ($NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2) && (${BOARD[$POS-8]} -ne 0 || ${BOARD[$POS+1]} -ne 0) && $NEWX -gt $CURX ]]
then
    NEWX=$CURX
elif [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && (${BOARD[$POS]} -ne 0 || ${BOARD[$POS+10]} -ne 0 || ${BOARD[$POS+21]} -ne 0) && $NEWX -lt $CURX ]]
then
    NEWX=$CURX
elif [[ ($NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3) && (${BOARD[$POS]} -ne 0 || ${BOARD[$POS+11]} -ne 0 || ${BOARD[$POS+21]} -ne 0) && $NEWX -gt $CURX ]]
then
    NEWX=$CURX
fi

# Recalculate new position on board array
let POS=$NEWX/20+$NEWY/2

# Now check if all new positions are available
if [[ $NEW_ROTATION -eq 0 || $NEW_ROTATION -eq 2 ]]
then
    if [[ ${BOARD[$POS]} -ne 0 || ${BOARD[$POS+1]} -ne 0 || ${BOARD[$POS-8]} -ne 0 || ${BOARD[$POS-9]} -ne 0 ]]
    then
	STATUS=0
    fi

elif [[ $NEW_ROTATION -eq 1 || $NEW_ROTATION -eq 3 ]]
then
    if [[ ${BOARD[$POS]} -ne 0 || ${BOARD[$POS+10]} -ne 0 || ${BOARD[$POS+11]} -ne 0 || ${BOARD[$POS+21]} -ne 0 ]]
    then
	STATUS=0
    fi
fi

# If all positions are available, draw piece '3' on new coordnates in array, set returnvalue
if [[ $STATUS -eq 1 ]]
then
    Define_or_Wipe_Three $NEWX $NEWY $NEW_ROTATION 3
    PIECE=3
else
    # If not, draw piece '3' on old coordinates in array, set returnvalue
    Define_or_Wipe_Three $CURX $CURY $CUR_ROTATION 3
    if [[ $CUR_ROTATION -eq $NEW_ROTATION ]]
    then
	PIECE=0
    else
	NEW_ROTATION=$CUR_ROTATION
    fi
fi
}

#----------------------------------------------------------------------------------------
#
# The  'OO' piece - code 4
#      'OO'
#
#----------------------------------------------------------------------------------------
#
# $1 = X, $2 = Y, $3 = ROTATION, $4 = 0/3
#
function Define_or_Wipe_Four
{
# Define these as local
typeset -i POS X Y

# Assign the arguments
X=$1; Y=$2

# Calculate position on board array
let POS=$X/20+$Y/2

# Wipe or draw
let BOARD[$POS]=$4
let BOARD[$POS+1]=$4
let BOARD[$POS+10]=$4
let BOARD[$POS+11]=$4
}

function Action_Four
{
# Define these as local
typeset -i POS STATUS=1

# Wipe the piece from array
Define_or_Wipe_Four $CURX $CURY $CUR_ROTATION 0

# Check board boundaries
if [[ $NEWX -gt 160 ]]
then
    NEWX=160
fi
if [[ $NEWY -gt 460 ]]
then
    NEWY=460; STATUS=0
fi

# Calculate new position on board array
let POS=$NEWX/20+$NEWY/2

# Check if move to left or right was legal
if [[ (${BOARD[$POS]} -ne 0 || ${BOARD[$POS+10]} -ne 0) && $NEWX -lt $CURX ]]
then
    NEWX=$CURX
elif [[ (${BOARD[$POS+1]} -ne 0 || ${BOARD[$POS+11]} -ne 0) && $NEWX -gt $CURX ]]
then
    NEWX=$CURX
fi

# Recalculate new position on board array
let POS=$NEWX/20+$NEWY/2

# Now check if all new positions are available
if [[ ${BOARD[$POS]} -ne 0 || ${BOARD[$POS+1]} -ne 0 || ${BOARD[$POS+10]} -ne 0 || ${BOARD[$POS+11]} -ne 0 ]]
then
    STATUS=0
fi

# If all positions are available, draw piece '4' on new coordnates in array, set returnvalue
if [[ $STATUS -eq 1 ]]
then
    Define_or_Wipe_Four $NEWX $NEWY $NEW_ROTATION 4
    PIECE=4
else
    # If not, draw piece '4' on old coordinates in array, set returnvalue
    Define_or_Wipe_Four $CURX $CURY $CUR_ROTATION 4
    if [[ $CUR_ROTATION -eq $NEW_ROTATION ]]
    then