SCO、Linux下的shell五子棋小遊戲(轉)

SCO、Linux下的shell五子棋小遊戲(轉)[@more@]

偶也嘗試用shell編個簡單小遊戲：程式碼很笨拙，還不能人機對抗，但必竟能玩了。

sco、linux測試透過，linux效果更好些。其它系統未測。

程式碼:

#!/bin/sh

# Programname: five

# Author: CLD

# 2004.01

#

L()

{

# 螢幕任意位置

h=$1;l=$2

echo -n "[$h;$l;H"

}

## 介面顏色控制變數

white_b="[47;30m" # 白底黑字

green_b="[42;30m" # 綠底黑字(移動棋字亮塊)

blue_b="[44;37m" # 蘭底白字

gray_b="[40;30;5m" # 灰底黑字

gray_w="[40;37;5m" # 灰底白字

black_w="[37;40;0m" # 黑底白字

# 棋盤換色控制變數

brown_b="[43;30m" # 桔黃底黑棋

brown_w="[43;37m" # 桔黃底白棋

mage_b="[45;30m" # 紫底黑棋

mage_w="[45;37m" # 紫底白棋

lt_blue_b="[44;30;5m" # 淺蘭底黑棋

lt_blue_w="[44;37;5m" # 淺蘭底白棋

kkk()

{

# 棋盤

L 1 22;echo "$gray_b $black_w"

L 2 22;echo "$gray_b ┏┯┯┯┯┯┯┯┯┯┯┯┯┯┓ $black_w"

L 3 22;echo "$gray_b ┠┼┼┼┼┼┼┼┼┼┼┼┼┼┨ $black_w"

L 4 22;echo "$gray_b ┠┼┼┼┼┼┼┼┼┼┼┼┼┼┨ $black_w"

L 5 22;echo "$gray_b ┠┼┼╋┼┼┼┼┼┼┼╋┼┼┨ $black_w"

L 6 22;echo "$gray_b ┠┼┼┼┼┼┼┼┼┼┼┼┼┼┨ $black_w"

L 7 22;echo "$gray_b ┠┼┼┼┼┼┼┼┼┼┼┼┼┼┨ $black_w"

L 8 22;echo "$gray_b ┠┼┼┼┼┼┼┼┼┼┼┼┼┼┨ $black_w"

L 9 22;echo "$gray_b ┠┼┼┼┼┼┼┼┼┼┼┼┼┼┨ $black_w"

L 10 22;echo "$gray_b ┠┼┼┼┼┼┼┼┼┼┼┼┼┼┨ $black_w"

L 11 22;echo "$gray_b ┠┼┼┼┼┼┼┼┼┼┼┼┼┼┨ $black_w"

L 12 22;echo "$gray_b ┠┼┼┼┼┼┼┼┼┼┼┼┼┼┨ $black_w"

L 13 22;echo "$gray_b ┠┼┼╋┼┼┼┼┼┼┼╋┼┼┨ $black_w"

L 14 22;echo "$gray_b ┠┼┼┼┼┼┼┼┼┼┼┼┼┼┨ $black_w"

L 15 22;echo "$gray_b ┠┼┼┼┼┼┼┼┼┼┼┼┼┼┨ $black_w"

L 16 22;echo "$gray_b ┗┷┷┷┷┷┷┷┷┷┷┷┷┷┛ $black_w"

L 17 22;echo "$gray_b $black_w"

}

getchar()

{

key=`stty -g`

stty -echo

stty raw

dd if=/dev/tty bs=1 count=1 2>/dev/null

stty -raw

stty echo

stty $key

}

clear

kkk

L 5 34;echo " 五 子 棋 "

L 10 24;echo "┌────遊戲○設定────┐"

L 11 24;echo "│ │"

L 12 24;echo "│ 1_白先走 2_黑先走 [ ] │"

L 13 24;echo "│ │"

L 14 24;echo "└─────────────┘"

L 12 48;echo -n

goo=`getchar`

case $goo in

1) go="白";ss=0;sss=0;;

2) go="黑";ss=1;sss=1;;

*) clear;exit;;

esac

by=0;bs=0;bsy=0;hy=0;hs=0;hsy=0 #初始化輸贏局數

tput civis

help()

{

L 16 3;echo "┏━━━━━━━┓"

L 16 57;echo "┏━━━━━━━┓"

L 17 3;echo "┃ ┃"

L 17 57;echo "┃ ┃"

L 18 3;echo "┃ ┃ ┃ ┃"

L 19 3;echo "┃ 贏盤數: ┃┏━━━━━"$gray_b" m---和為貴 "$black_w"━━━━━┓┃ 贏盤數: ┃"

L 20 3;echo "┃ 輸盤數: ┃┃ 友 比 ┃┃ 輸盤數: ┃"

L 21 3;echo "┃ ┃┃ 誼 "$white_b"Press c change color"$black_w" 賽 ┃┃ ┃"

L 22 3;echo "┃ ┃┃ 第 第 ┃┃ ┃"

L 23 3;echo "┃ 最後成績: ┃┃ 一 二 ┃┃ 最後成績: ┃"

L 24 3;echo "┗━━━━━━━┛┗━━━━━━━━━━━━━━━━┛┗━━━━━━━┛"

}

init_(){ # 繼續棋局初始化

kkk >abc

a1=2

a2=38

b1=52

b2=16

write=$green_b$go$black_w

cat abc

L $a1 $a2;echo $write # 棋子初始位置

ccc=1 #改變顏色次數

color1=`expr substr $gray_b 3 8`;color2=`expr substr $gray_w 3 8` #預設棋子顏色

L 19 13;echo $by;L 19 68;echo $hy

L 20 13;echo $bs;L 20 68;echo $hs

L 23 15;echo $bsy" ";L 23 70;echo $hsy" "

}

init_

help

## 棋子移動函式

left(){ ##左移

if [ $a2 -eq 24 ];then a2=24;else a2=`expr $a2 - 2`;fi

sort -t"[" -n +1 abc

L $a1 $a2;echo $write

}

right(){ ##右移

if [ $a2 -eq $b1 ];then a2=$b1;else a2=`expr $a2 + 2`;fi

sort -t"[" -n +1 abc

L $a1 $a2;echo $write

}

down(){ ##下移

if [ $a1 -eq $b2 ];then a1=$b2;else a1=`expr $a1 + 1`;fi

sort -t"[" -n +1 abc

L $a1 $a2;echo $write

}

up(){ ##上移

if [ $a1 -eq 2 ];then a1=2;else a1=`expr $a1 - 1`;fi

sort -t"[" -n +1 abc

L $a1 $a2;echo $write

}

sy(){ # 繼續棋局輸方先走,統計輸贏結果

if [ $qs -eq 7 ];then

go="黑" #如果白棋贏則下一盤黑先走

run="白"

bs=`expr $bs + 0`;by=`expr $by + 1`

bsy=`expr $by - $bs`

hy=$bs;hs=$by;hsy=`expr $hy - $hs`

else

go="白" #如果黑棋贏則下一盤白先走

run="黑"

hs=`expr $hs + 0`;hy=`expr $hy + 1`

hsy=`expr $hy - $hs`

by=$hs;bs=$hy;bsy=`expr $by - $bs`

fi

}

sy1(){ # 顯示輸贏結果,統計棋局,詢問是否繼續

while true;do

L 19 13;echo $by;L 19 68;echo $hy

L 20 13;echo $bs;L 20 68;echo $hs

L 23 15;echo $bsy" ";L 23 70;echo $hsy" "

tput bel;tput bel

L 6 28;echo $white_b" "$black_w

L 7 28;echo $white_b" "$run$1"!!! "$black_w" "$black_w

L 8 28;echo $white_b" 再來一盤否[y|n]? "$black_w" "$black_w

L 9 28;echo $white_b" "$black_w" "$black_w

L 10 30;echo " "

key=`getchar`

case $key in

y)

init_

count=`expr $count + 1`

L 23 36;echo "第 $count 局"

break;;

n)

clear;cat abc

L 7 30;echo $blue_b" "$black_w

L 8 30;echo $blue_b" "!!!再見!!!" "$black_w" "$black_w

L 9 30;echo $blue_b" "$black_w" "$black_w

L 10 30;echo $blue_b" "Author: c1l2d3" "$black_w" "$black_w

L 11 30;echo $blue_b" "$black_w" "$black_w

L 12 32;echo $black_w" "$black_w

tput cnorm

rm yyy;exit;;

*);;

esac

done

}

award() #判斷輸贏函式

{

cat abc|sed -n 18,"$"p|awk -F";" '{print $1,$2,$4}'|sed 's/^..//'

|awk '{print $1,$2,substr($3,2,1)}' >yyy # 計算輸贏臨時檔案

grep "$qs$" yyy|sort -r -n +0 +1|awk '$2+=(NR*2)'

|uniq -c|awk '{print $1}'|grep '[5-9]' >/dev/null 2>&1

if [ $? -eq 0 ];then sy;sy1 "棋贏啦! ";fi # 橫連子>=5

grep "$qs$" yyy|sort -r -n +1|awk '$1+=NR'

|uniq -c|awk '{print $1}'|grep '[5-9]' >/dev/null 2>&1

if [ $? -eq 0 ];then sy;sy1 "棋贏啦! " ;fi # 豎連子>=5

grep "$qs$" yyy|sort -r -n +0 +1|awk '$1=$1+$2/2'|sort -r -n

|awk '$2+=(NR*2)'|uniq -c|awk '{print $1}'|grep '[5-9]' >/dev/null 2>&1

if [ $? -eq 0 ];then sy;sy1 "棋贏啦! ";fi # 右斜連子>=5

grep "$qs$" yyy|sort -r -n +0 +1|awk '$1=$1-$2/2'|sort -r -n

|awk '$2+=(NR*2)'|uniq -c|awk '{print $1}'|grep '[5-9]' >/dev/null 2>&1

if [ $? -eq 0 ];then sy;sy1 "棋贏啦! ";fi # 左斜連子>=5

}

count=1 #局數

while true

do

L 1 4;echo $white_b" 【執白方】 "$black_w

L 4 5;echo $gray_b" a---左移 "$black_w

L 6 5;echo $gray_b" d---右移 "$black_w

L 8 5;echo $gray_b" w---上移 "$black_w

L 10 5;echo $gray_b" s---下移 "$black_w

L 12 5;echo $gray_b" p---落子 "$black_w

L 14 5;echo $gray_b" ]---投降 "$black_w

L 1 62;echo $white_b" 【執黑方】 "$black_w

L 4 63;echo $gray_b" 4---左移 "$black_w

L 6 63;echo $gray_b" 6---右移 "$black_w

L 8 63;echo $gray_b" 8---上移 "$black_w

L 10 63;echo $gray_b" 5---下移 "$black_w

L 12 63;echo $gray_b" 9---落子 "$black_w

L 14 63;echo $gray_b" 0---投降 "$black_w

L 22 1;echo -n

L 23 36;echo "第 $count 局"

cc=`getchar`

case $cc in

a|4)

if [ $ss -eq 0 ] && [ "$cc" = "a" ];then left;fi

if [ $ss -eq 1 ] && [ "$cc" = "4" ];then left;fi;;

d|6)

if [ $ss -eq 0 ] && [ "$cc" = "d" ];then right;fi

if [ $ss -eq 1 ] && [ "$cc" = "6" ];then right;fi;;

s|5)

if [ $ss -eq 0 ] && [ "$cc" = "s" ];then down;fi

if [ $ss -eq 1 ] && [ "$cc" = "5" ];then down;fi;;

w|8)

if [ $ss -eq 0 ] && [ "$cc" = "w" ];then up;fi

if [ $ss -eq 1 ] && [ "$cc" = "8" ];then up;fi;;

m)

run="此局和棋! ";sy1;;

p|9)

if [ $ss -eq 0 ] && [ "$cc" = "p" ];then

sed -n 18,"$"p abc|grep "[$a1;$a2" 2>&1

if [ $? -eq 0 ];then L 10 32;echo " 此處已有棋...";tput bel;sleep 1

write=$green_b白$black_w

sss=0

else

mm=`L $a1 $a2`[$color2●$black_w

echo $mm>>abc

write=$green_b黑$black_w

sss=1

fi

sort -t"[" -n +1 abc

qs=7

award;tput bel

fi

if [ $ss -eq 1 ] && [ "$cc" = "9" ];then

sed -n 18,"$"p abc|grep "[$a1;$a2" 2>&1

if [ $? -eq 0 ];then L 10 32;echo " 此處已有棋...";tput bel;sleep 1

write=$green_b黑$black_w

sss=1

else

mm=`L $a1 $a2`"[$color1●$black_w"

echo $mm>>abc

write=$green_b白$black_w

sss=0

fi

sort -t"[" -n +1 abc

qs=0

award;tput bel

fi

ss=$sss;; # 落子方不允許再走,等待對方走棋

0|])

if [ "$cc" = "]" ];then go="白";run="白";bs=`expr $bs + 1`

by=`expr $by + 0`

bsy=`expr $by - $bs`

hy=$bs;hs=$by;hsy=`expr $hy - $hs`

sss=0

else go="黑";run="黑";hs=`expr $hs + 1`;hy=`expr $hy + 0`

hsy=`expr $hy - $hs`

by=$hs;bs=$hy;bsy=`expr $by - $bs`

sss=1

fi

ss=$sss #誰投降誰下一局先走

sy1 "棋投降啦";;

c)

md=$ccc # 變換棋盤顏色

if [ $md -eq 1 ];then

def1=`expr substr $gray_b 3 8`;def2=`expr substr $gray_w 3 8`

color1=`expr substr $brown_b 3 6`;color2=`expr substr $brown_w 3 6`

sed 's/'$def1'/'$color1'/g' abc|sed 's/'$def2'/'$color2'/g' >abc.tmp

mv abc.tmp abc

cat abc

ccc=`expr $ccc + 1`

fi # 桔黃色

if [ $md -eq 2 ];then

def1=`expr substr $brown_b 3 6`;def2=`expr substr $brown_w 3 6`

color1=`expr substr $lt_blue_b 3 8`;color2=`expr substr $lt_blue_w 3 8`

sed 's/'$def1'/'$color1'/g' abc|sed 's/'$def2'/'$color2'/g' >abc.tmp

mv abc.tmp abc

cat abc

ccc=`expr $ccc + 1`

fi # 淺藍色

if [ $md -eq 3 ];then

def1=`expr substr $lt_blue_b 3 8`;def2=`expr substr $lt_blue_w 3 8`

color1=`expr substr $mage_b 3 6`;color2=`expr substr $mage_w 3 6`

sed 's/'$def1'/'$color1'/g' abc|sed 's/'$def2'/'$color2'/g' >abc.tmp

mv abc.tmp abc

cat abc

ccc=`expr $ccc - 3`

fi # 紫色

if [ $md -eq 0 ];then

def1=`expr substr $mage_b 3 6`;def2=`expr substr $mage_w 3 6`

color1=`expr substr $gray_b 3 8`;color2=`expr substr $gray_w 3 8`

sed 's/'$def1'/'$color1'/g' abc|sed 's/'$def2'/'$color2'/g' >abc.tmp

mv abc.tmp abc

cat abc

ccc=`expr $ccc + 1`

fi # 灰色

L 2 38;echo $write;;

esac

done

圖：

[myimg]upload/ccc.png[/myimg]