SCO、Linux下的shell五子棋小游戲

　　偶也嘗試用shell編個簡單小游戲：代碼很笨拙，還不能人機對抗，但必竟能玩了。 sco、Linux測試通過，linux效果更好些。其它系統未測。 代碼: #!/bin/sh # Programname: five # Author: CLD # 2004.01 # L() { # 屏幕任意位置 h=$1;l=$2 echo -n "[$h;$l;H" } ## 界面顏色控制變量 white_b="" # 白底黑字 green_b="" # 綠底黑字(移動棋字亮塊) blue_b="" # 蘭底白字 gray_b="" # 灰底黑字 gray_w="" # 灰底白字 black_w="" # 黑底白字 # 棋盤換色控制變量 brown_b="" # 桔黃底黑棋 brown_w="" # 桔黃底白棋 mage_b="" # 紫底黑棋 mage_w="" # 紫底白棋 lt_blue_b="" # 淺蘭底黑棋 lt_blue_w="" # 淺蘭底白棋 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" 再來一盤否[yn]? "$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 abcsed -n 18,"$"pawk -F";" '{print $1,$2,$4}'sed 's/^..//' \ awk '{print $1,$2,substr($3,2,1)}' >yyy # 計算輸贏臨時文件 grep "$qs$" yyysort -r -n +0 +1awk '$2+=(NR*2)' \ uniq -cawk '{print $1}'grep '[5-9]' >/dev/null 2>&1 if [ $? -eq 0 ];then sy;sy1 "棋贏啦! ";fi # 橫連子>=5 grep "$qs$" yyysort -r -n +1awk '$1+=NR' \ uniq -cawk '{print $1}'grep '[5-9]' >/dev/null 2>&1 if [ $? -eq 0 ];then sy;sy1 "棋贏啦! " ;fi # 豎連子>=5 grep "$qs$" yyysort -r -n +0 +1awk '$1=$1+$2/2'sort -r -n \ awk '$2+=(NR*2)'uniq -cawk '{print $1}'grep '[5-9]' >/dev/null 2>&1 if [ $? -eq 0 ];then sy;sy1 "棋贏啦! ";fi # 右斜連子>=5 grep "$qs$" yyysort -r -n +0 +1awk '$1=$1-$2/2'sort -r -n \ awk '$2+=(NR*2)'uniq -cawk '{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 a4) if [ $ss -eq 0 ] && [ "$cc" = "a" ];then left;fi if [ $ss -eq 1 ] && [ "$cc" = "4" ];then left;fi;; d6) if [ $ss -eq 0 ] && [ "$cc" = "d" ];then right;fi if [ $ss -eq 1 ] && [ "$cc" = "6" ];then right;fi;; s5) if [ $ss -eq 0 ] && [ "$cc" = "s" ];then down;fi if [ $ss -eq 1 ] && [ "$cc" = "5" ];then down;fi;; w8) if [ $ss -eq 0 ] && [ "$cc" = "w" ];then up;fi if [ $ss -eq 1 ] && [ "$cc" = "8" ];then up;fi;; m) run="此局和棋! ";sy1;; p9) if [ $ss -eq 0 ] && [ "$cc" = "p" ];then

sed -n 18,"$"p abcgrep "\[$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 abcgrep "\[$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' abcsed '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' abcsed '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' abcsed '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' abcsed '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]

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