editor

偶也尝试用shell编个简单小游戏：代码很笨拙，还不能人机对抗，但必竟能玩了。 sco、linux测试通过，linux效果更好些。其它系统未测。 [code:1:8b775e7221] #!/bin/sh # rogramname: 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"ress 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 [/code:1:8b775e7221] 游戏界面图 源程序包

【发表回复】【查看论坛原帖】【添加到收藏夹】【关闭】

yqxfm 回复于：2004-02-06 09:48:12 我靠高手！！！  大红机器 回复于：2004-02-06 09:48:32 女子弓虽口阿！丁页！  mibfeng 回复于：2004-02-06 10:17:53 我考佩服！  飞灰橙 回复于：2004-02-06 10:25:39 强啊！  c1l2d3 回复于：2004-02-06 14:50:40 [quote:9440900ab7="飞灰橙"]强啊！[/quote:9440900ab7] 惭愧惭愧! 与俄罗斯方块相比真是不能同日而语呀! 感谢班长加精.  mars_wgj 回复于：2004-02-06 16:19:27 我想问一下，你的棋盘中的格子是怎么画的，这些字符在linux下怎么打出来呀？  c1l2d3 回复于：2004-02-06 17:05:21 [quote:5832dbe9b5="mars_wgj"]我想问一下，你的棋盘中的格子是怎么画的，这些字符在linux下怎么打出来呀？[/quote:5832dbe9b5] 我是在sco下用区位码画的。然后移到中文版Trubo linux上运行。 很奇怪，我看到你的问题后，在linux也没有找到区位输入法？？？不知别人是否知道。 ------------------------------------------ 又及：发现一个bug ： 在# 横连子>=5的下一行： grep "$qs$" yyy|sort -r -n +1|awk '$1+=NR' \   这句改为： grep "$qs$" yyy|sort -r -n +1 +0|awk '$1+=NR' \   否则当竖连子>=5时不会判赢。 在此更正  ebfm 回复于：2004-02-06 21:28:01 ding~~!!!  slnhghm 回复于：2004-02-06 22:19:37 试试  abist 回复于：2004-02-07 00:26:05 源程序下载后解压时提示"five.rar此档案文件格式未知或已坏" 不知什么原因  c1l2d3 回复于：2004-02-07 00:35:15 five.gif下载后不用解压，直接拷至unix或linux中运行即可。 unix:  doscp a:five.gif . mv five.gif five linux: mount -t vfat /dev/fd0 /mnt cp /mnt/five.gif . mv five.gif five sh five 运行  sdccf 回复于：2004-02-07 00:49:24 太厉害了!  wxytty 回复于：2004-02-08 22:57:08 我靠，配服!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  abist 回复于：2004-02-09 12:08:00 shell写得很有水平，但左手跟右手玩，估计没人玩这个游戏，只能作为shell范本。楼主能否增加网络功能，那我们就可以在局域网内玩了  c1l2d3 回复于：2004-02-09 17:10:28 [quote:dcb336d7d8="abist"]shell写得很有水平，但左手跟右手玩，估计没人玩这个游戏，只能作为shell范本。楼主能否增加网络功能，那我们就可以在局域网内玩了[/quote:dcb336d7d8] 呵呵~水平谈不上,其实就是一副棋盘罢了.shell是个工具,用它写游戏就是想尝试一下,不过网络功能也不是没有可能,不试不知. 嗯,我还是要尝试尝试的.  abist 回复于：2004-02-09 19:19:30 我们期待!!!!  labrun 回复于：2004-02-10 12:16:03 佩服！鼓励老兄把它完成。  强人 回复于：2004-02-11 08:40:55 我想知道FIVE。GIF如何下载？  c1l2d3 回复于：2004-02-11 09:09:24 1)-右键点复制在粘到机器里. 2)-使用网际快车也行. doscp 将其拷至sco 里直接可运行. mount -t vfat /dev/fd0 /mnt cp /mnt/five.gif .(linux方法)  飞灰橙之春天升级版 回复于：2004-02-11 09:11:52 [quote:6be4f2b9bd="c1l2d3"] 呵呵~水平谈不上,其实就是一副棋盘罢了.shell是个工具,用它写游戏就是想尝试一下,不过网络功能也不是没有可能,不试不知. 嗯,我还是要尝试尝试的.[/quote:6be4f2b9bd] 期待... 不知道shell下tcp/ip怎么编， 上次有位兄弟发的awk网络编程的文章， 或许可以派上用场。  c1l2d3 回复于：2004-02-11 10:53:39 网络版有些眉目了,最近很忙,一有时间马上完善.  foreverjj 回复于：2004-03-08 11:29:42 源程序包和图片怎么没有