
平台论坛博客文库

› 论坛 › 程序设计 › Shell › Shell 游戏：彩色连珠

12 / 2 页下一页

Shell 游戏：彩色连珠 [复制链接]

baoyu05

丰衣足食

论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2011-07-24 19:46 |只看该作者 |倒序浏览

本帖最后由 baoyu05 于 2011-07-25 02:17 编辑

#!/bin/sh
######此处可修改相应的值######
Width=20
Height=15
PadX=21
PadY=5
number=5 # 连续几个就可以消掉
PerNum=3 # 每次生成几个珠子
((ScoreX=PadX+15))
((ScoreY=PadY-2))
###############
P1="\033[31mO\033[0m"
P2="\033[32mO\033[0m"
P3="\033[33mO\033[0m"
P4="\033[34mO\033[0m"
P5="\033[35mO\033[0m"
P6="\033[36mO\033[0m"
P7="\033[37mO\033[0m"
Pearls=($P1 $P2 $P3 $P4 $P5 $P6 $P7)
PearlNum=${#Pearls[*]}
score=0
clear
function DrawBox(){
function DrawCell(){
local cell num i
cell=$1; num=$2; str=""
for((i=1;i<=$num;i++)); do str=$str$cell; done
echo "$str"
}
Bank=`DrawCell ' ' $PadX `
Line=`DrawCell "|-" $Width `
for((i=1;i<=$PadY;i++));do echo ;done
for((j=1;j<=$Height;j++)); do echo "$Bank$Line"; done
echo -ne "\033[$ScoreY;${ScoreX}HScore: $score"
}
function CordToKey(){
local x y Max
Max=100
x=$1
y=$2
((x+=Max))
((y+=Max))
echo $x$y
}
function Value(){
local i j
for((i=$PadX+1;i<=$PadX+Width*2;i+=2))
do
for((j=$PadY;j<=$PadY+$Height;j++))
do
values[`CordToKey $i $j`]="$i|$j"
done
done
}
function FindPearl(){
local PosX PosY XBig YBig XSmall YSmall type numx numy i j hold bx by dnum
PosX=$1
PosY=$2
type=$3
hold=()
((dnum=number*2))
FoundedPearl=()
((numx=((number-1))*2))
((numy=number-1))
((XSmall=PosX-numx))
((XBig=PosX+numx))
((YSmall=PosY-numy))
((YBig=PosY+numy))
function PealDispel(){
local x y same
x=$1
y=$2
same=0
[[ ${values[`CordToKey $x $y`]} == $type ]] && same=1
[[ $same == 1 ]] && { hold[${#hold[*]}]=$x; hold[${#hold[*]}]=$y; }
[[ $same == 0 && ${#hold[*]} -lt $dnum ]] && hold=()
[[ $same == 0 && ${#hold[*]} -ge $dnum ]] && break
}
hold=()
for((i=$XSmall;i<=$XBig;i+=2))
do
PealDispel $i $PosY
done
FoundedPearl=(${FoundedPearl[*]} ${hold[*]})
hold=()
for((i=$XSmall,j=$YBig;i<=$XBig,j>=$YSmall;i+=2,j--))
do
PealDispel $i $j
done
FoundedPearl=(${FoundedPearl[*]} ${hold[*]})
hold=()
for((j=$YSmall;j<=$YBig;j++))
do
PealDispel $PosX $j
done
FoundedPearl=(${FoundedPearl[*]} ${hold[*]})
hold=()
for((i=$XSmall,j=$YSmall;i<=$XBig,j<=$YBig;i+=2,j++))
do
PealDispel $i $j
done
FoundedPearl=(${FoundedPearl[*]} ${hold[*]})
if [[ ${#FoundedPearl[*]} -ge $dnum ]];then
for((m=0;m<${#FoundedPearl[*]};m+=2))
do
((n=m+1))
echo -ne "\033[${FoundedPearl[$n]};${FoundedPearl[$m]}H\033[41m${Pearls[$type]}\033[0m"
done
sleep .2
for((f=0;f<${#FoundedPearl[*]};f+=2))
do
((h=f+1))
bx=${FoundedPearl[$f]}
by=${FoundedPearl[$h]}
echo -e "\033[$by;${bx}H|"
values[`CordToKey $bx $by`]="$bx|$by"
done
((score+=${#FoundedPearl[*]}/2-number+1))
echo -ne "\033[$ScoreY;${ScoreX}HScore: $score"
fi
}
function NewPearl(){
local newX newY loop key
loop=0
GameOver
while :
do
((newX=$RANDOM%Width*2+PadX+1))
((newY=$RANDOM%Height+PadY+1))
key=`CordToKey $newX $newY`
if [[ ${#values[$key]} -ne 1 ]];then
((loop++))
((pnum=$RANDOM%$PearlNum))
p=${Pearls[$pnum]}
values[$key]="$pnum"
echo -ne "\033[$newY;${newX}H$p"
FindPearl $newX $newY $pnum
sleep .1
else
continue
fi
if((loop==PerNum));then
X=$newX
Y=$newY
echo -ne "\033[$Y;${X}H"
break;
fi
done
}
function IfNew(){
local ifP
ifP=${values[`CordToKey $X $Y`]}
if [[ $NewP == 1 && ${#ifP} != 1 ]];then
NewPearl
elif [[ $NewP == 1 && ${#ifP} == 1 ]];then
downP=$ifP
MoveingP="${Pearls[$ifP]}"
values[`CordToKey $X $Y`]="$X|$Y"
MoveP=1
NewP=0
elif [[ $NewP == 0 && ${#ifP} != 1 ]];then
echo -ne "\033[$Y;${X}H$MoveingP"
values[`CordToKey $X $Y`]=$downP
FindPearl $X $Y $downP
NewP=1
MoveP=0
sleep .2
NewPearl
fi
}
function GameOver(){
local num i x y v
num=1
for i in ${values[*]}
do
[[ $i =~ "\|" ]] && ((num++))
done
if ((num<PerNum+Height+Width));then
((x=PadX+Width/2))
((y=PadY+Height+2))
echo -e "\033[$y;${x}H \033[32mGame Over!\033[0m"
sleep .5
exit
fi
}
function MoveXY(){
local Direction oldX oldY length
Direction=$1
oldX=$X
oldY=$Y
case $Direction in
x++)((maxX=Width*2+PadX))
((X+=2))
length=${values[`CordToKey $X $Y`]}
if [[ $X -ge $maxX ]] || [[ ${#length} == 1 && $MoveP == 1 ]];then
((X-=2))
continue
fi
;;
x--)((X-=2))
length=${values[`CordToKey $X $Y`]}
if [[ $X -le $PadX ]] || [[ ${#length} == 1 && $MoveP == 1 ]];then
((X+=2))
continue
fi
;;
y++)((maxY=Height+PadY+1))
((Y++))
length=${values[`CordToKey $X $Y`]}
if [[ $Y -ge $maxY ]] || [[ ${#length} == 1 && $MoveP == 1 ]] ;then
((Y--))
continue
fi
;;
y--)((Y--))
length=${values[`CordToKey $X $Y`]}
if [[ $Y -le $PadY ]] || [[ ${#length} == 1 && $MoveP == 1 ]];then
((Y++))
continue
fi
;;
esac
[ $MoveP == 0 ] && echo -ne "\033[$Y;${X}H"
[ $MoveP == 1 ] && {
echo -ne "\033[$oldY;${oldX}H|"
echo -ne "\033[$Y;${X}H$MoveingP"
}
}
function Move(){
local key curP
DrawBox
Value
NewPearl
NewP=1
MoveP=0
while :
do
read -s -n 1 key
[[ "$key" == "A" ]] && MoveXY y--
[[ "$key" == "B" ]] && MoveXY y++
[[ "$key" == "C" ]] && MoveXY x++
[[ "$key" == "D" ]] && MoveXY x--
[[ "[$key]" == "[]" ]] && IfNew
done
}
Move

复制代码

相同颜色的珠子，移动排成一条直线(水平方向，值方向，斜线方向，反斜线方向)，即可消除并得分。消掉越多得分越多。
空格：选择珠子，再敲空格则落下珠子
方向键：移动光标和珠子

cslz.jpg (39.83 KB, 下载次数: 49)

游戏截图

文库|博客

yinyuemi

大富大贵

论坛徽章:: 2

2楼 [报告]

发表于 2011-07-24 23:20 |只看该作者

回复 1# baoyu05

先赞一个！！

第31行代码报错：
s.sh: line 31: ((: i<=: syntax error: operand expected (error token is "=")

另外，我运行了下，有的圈圈跑到网格右边的空白处了，

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

baoyu05

丰衣足食

论坛徽章:: 0

3楼 [报告]

发表于 2011-07-24 23:26 |只看该作者

回复 2# yinyuemi

汗，你是什么环境？
[root@fc9 ~]# bash --version
bash --version
GNU bash, version 3.2.33(1)-release (i386-redhat-linux-gnu)
Copyright (C) 2007 Free Software Foundation, Inc.
echo -ne "\033]0;${USER}@${HOSTNAME%%.*}