- 论坛徽章:
- 0
|
偶也尝试用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
|
|
免费注册
发表于 2004-02-06 09:21
