
平台论坛博客文库

› 论坛 › 程序设计 › Shell › Shell版推箱子[游戏]

Shell版推箱子[游戏] [复制链接]

lovesaka

家境小康

论坛徽章:: 0

电梯直达

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

发表于 2006-11-16 15:27 |只看该作者 |倒序浏览

#!/bin/sh
########################################
#
#作者:Minuit
#时间:2006年11月15日星期三 14时44分27秒
#文件名:blocktest.sh
#描述:
########################################
#结构
level=1 #游戏级别
blockmap1=0
blockmap2=0
blockmap3=0
blockmap4=0
blockmap5=0
blockmap6=0
blockmap7=0
blockmap8=0
blockmap9=0
blockmap10=0
blockmap11=0
cursor=0
blockkey1=0
blockkey2=0
blockkey3=0
block=0
#图形描述
#坐标值
TTYCOL=$(tput cols)
blocksize=11 #每个小方块组的元素个数
blocknumber=0 #小方块组的数量
if (( TTYCOL>80 ))
then
blockhigth=2 #方块高度
blockwidth=4 #方块宽度
initx=3 #起始x坐标值
inity=20 #起始y坐标值
else
blockhigth=1 #方块高度
blockwidth=2 #方块宽度
initx=3 #起始x坐标值
inity=20 #起始y坐标值
fi
#color
blockblack='\033[1;40m \033[0m'
blockred='\033[1;41m \033[0m'
blockgreen='\033[1;42m \033[0m'
blockyellow='\033[1;43m \033[0m'
blockblue='\033[1;44m \033[0m'
blockpuce='\033[1;45m \033[0m'
blockmidblue='\033[1;46m \033[0m'
blockgray='\033[1;47m \033[0m'
blockwhite=' '
blocktxt='*'
blockbg1=$blockblack #背景彩色值1
blockbg2=$blockgreen #背景彩色值2
blockbg3=$blockpuce
blockbg4=$blockred
black=1
red=2
green=3
yellow=4
blue=5
gray=6
white=0
txt=9
#
clear=$( tput clear )
cursor_off=$( tput civis )
cursor_on=$( tput cnorm )
#游戏状态和按键计数
drawx=0
drawy=0
savedrawx=0
savedrawy=0
savecursor=0
Game_state=1
key_count=0
save_key=""
trap "Game_state=0" 1 2 3 15
#定位函数
function gotoxy()
{
tput cup $1 $2
}
#初始化全局地图,级别和玩家光标位置
function block_map()
{
case $level in
1)
blockmap1=(1 1 1 1 1 1 1 1 1 1 1 )
blockmap2=(1 1 1 1 1 1 1 1 1 1 1 )
blockmap3=(1 1 1 1 1 1 1 3 0 0 1 )
blockmap4=(1 1 1 1 1 1 1 3 1 0 1 )
blockmap5=(1 1 1 1 1 1 1 3 1 0 1 )
blockmap6=(1 0 0 0 2 0 2 0 2 0 1 )
blockmap7=(1 0 1 0 1 0 1 0 1 1 1 )
blockmap8=(1 0 0 0 0 0 0 0 1 1 1 )
blockmap9=(1 1 1 1 1 1 1 1 1 1 1 )
blockmap10=(1 1 1 1 1 1 1 1 1 1 1 )
blockmap11=(1 1 1 1 1 1 1 1 1 1 1 )
cursor=58
blockkey1=29
blockkey2=40
blockkey3=51
;;
2)
blockmap1=(1 1 1 1 1 1 1 1 1 1 1 )
blockmap2=(1 1 1 1 1 1 1 1 1 1 1 )
blockmap3=(1 1 1 1 0 0 1 1 1 1 1 )
blockmap4=(1 0 0 0 0 0 1 1 1 1 1 )
blockmap5=(1 0 2 0 1 0 0 3 0 1 1 )
blockmap6=(1 0 0 1 0 0 0 3 0 0 1 )
blockmap7=(1 1 0 1 2 2 1 3 0 0 1 )
blockmap8=(1 1 0 0 0 0 1 1 1 1 1 )
blockmap9=(1 0 0 0 1 1 1 1 1 1 1 )
blockmap10=(1 0 0 0 1 1 1 1 1 1 1 )
blockmap11=(1 1 1 1 1 1 1 1 1 1 1 )
cursor=91
blockkey1=51
blockkey2=62
blockkey3=73
;;
3)
blockmap1=(1 1 1 1 1 1 1 1 1 1 1 )
blockmap2=(1 1 1 1 0 1 1 1 1 1 1 )
blockmap3=(1 1 1 0 0 1 1 1 0 0 1 )
blockmap4=(1 1 0 2 0 0 0 0 0 0 1 )
blockmap5=(1 0 0 0 0 2 0 1 0 0 1 )
blockmap6=(1 1 1 0 2 1 1 1 0 0 1 )
blockmap7=(1 1 1 0 0 1 3 3 0 0 1 )
blockmap8=(1 1 1 0 1 1 3 1 0 1 1 )
blockmap9=(1 1 0 0 0 0 0 0 1 1 1 )
blockmap10=(1 1 0 0 0 0 0 1 1 1 1 )
blockmap11=(1 1 1 1 1 1 1 1 1 1 1 )
cursor=49
blockkey1=72
blockkey2=73
blockkey3=83
;;
*);;
esac
block=(${blockmap1[@]} ${blockmap2[@]} ${blockmap3[@]} ${blockmap4[@]} ${blockmap5[@]} ${blockmap6[@]} ${blockmap7[@]} ${blockmap8[@]} ${blockmap9[@]} ${blockmap10[@]} ${blockmap11[@]})
blocknumber=$(( ${#block[@]}/blocksize )) #小方块组的数量
}
#检查游戏状态
function check_state()
{
#判断箱子是否移最终位置
if (( block[blockkey1]==2 && block[blockkey2]==2 && block[blockkey3]==2 ))
then
#如果没有穿关那继续下一关重新初始化地图按键计数和级别
tput clear
gotoxy 10 $(( TTYCOL/2-10 ))
(( ++level ))
if (( level==4 ))
then
echo "恭喜您已经把本游戏穿关了!!!"
sleep 1
Game_state=0
else
echo "成功过第"$(( level-1 ))"关!!!"
sleep 1
key_count=0
block_map
initmap
fi
else
#否则检查最终位置是否被覆盖
(( block[blockkey1]!=2 )) && (( block[blockkey1]=3 ))
(( block[blockkey2]!=2 )) && (( block[blockkey2]=3 ))
(( block[blockkey3]!=2 )) && (( block[blockkey3]=3 ))
fi
}
#画地图
function depict_block()
{
x=$initx #x坐标值
y=$inity #y坐标值
for (( i=0;i<blocknumber;i++ ))
do
for(( j=0;j<blocksize;j++ ))
do
(( ${block[$(( i*blocksize+j ))]} ))&& drawcolor=$blockbg1||drawcolor=$blockbg2
(( ${block[$(( i*blocksize+j ))]}==2 ))&& drawcolor=$blockbg3
(( ${block[$(( i*blocksize+j ))]}==3 ))&& drawcolor=$blockbg4
for(( k=0;k<blockhigth;k++ ))
do
for(( l=0;l<blockwidth;l++ ))
do
echo -e "\033[$(( x+k ));$(( y+l ))H${drawcolor}\033[0m"
done
done
(( y+=blockwidth ))
done
(( y=inity ))
(( x+=blockhigth ))
done
}
#画方块
#第一个参数是block数组索引第二个是彩色值默认恢复背景彩色值
function drawblock()
{
drawx=$(( $1/blocksize*blockhigth+initx ))
drawy=$(( $1%blocksize*blockwidth+inity ))
savedrawx=$drawx
savedrawy=$drawy
if (( $2 ))
then
case $2 in
1) drawcolor=$blockblack;;
2) drawcolor=$blockred;;
3) drawcolor=$blockgreen;;
4) drawcolor=$blockyellow;;
5) drawcolor=$blockblue1;;
6) drawcolor=$blockgray;;
7) drawcolor=$blockpuce;;
8) drawcolor=$blockmidblue;;
9) drawcolor=$blocktxt;;
*) drawcolor=$blockwhite;;
esac
else
(( block[$1] )) && drawcolor=$blockbg1 ||drawcolor=$blockbg2
(( block[$1]==2 )) && drawcolor=$blockbg3
(( block[$1]==3 ))&& drawcolor=$blockbg4
fi
for(( k=0;k<blockhigth;k++ ))
do
for(( l=0;l<blockwidth;l++ ))
do
echo -e "\033[$(( drawx+k ));$(( drawy+l ))H${drawcolor}\033[0m"
done
done
}
#移动箱子同时恢复上一次移动位置背景
function runkey()
{
flags=0
tmp=0
gotoxy $initx $inity
echo -e "\033[4;30m级别\033[0m:\033[1;35m${level}\033[0m \033[4;30m步数\033[0m:\033[1;35m$key_count\033[0m"
case "$1" in
'left')
if (( cursor-1>=0 )) && (( cursor%blocksize!=1 )) && (( block[cursor-2] !=1 ))
then
if (( block[cursor-2]==2 )) && (( block[cursor-3]==0 ||block[cursor-3]==3 ))
then
(( block[cursor-3]=2 ))
drawblock $(( cursor-3 ))
(( block[cursor-2]=0 ))
drawblock $(( cursor-2 ))
fi
(( flags=1 ))&&(( block[cursor-2]!=2 ))&&(( cursor-- ))
drawblock $savecursor
fi
;;
'right')
if (( cursor+1<=blocksize*blocknumber )) && (( cursor%blocksize!=0 )) && (( block[cursor]!=1 ))
then
if (( block[cursor]==2 )) &&(( block[cursor+1]==0|| block[cursor+1]==3 ))
then
(( block[cursor+1]=2 ))
drawblock $(( cursor+1 ))
(( block[cursor]=0 ))
drawblock $(( cursor ))
fi
(( flags=1 ))&&(( block[cursor]!=2 ))&&(( cursor++ ))
drawblock $savecursor
fi
;;
'up')
if (( cursor-blocksize >=0 )) && (( block[cursor-blocksize-1] !=1 ))
then
if (( block[cursor-blocksize-1]==2 )) &&(( block[cursor-blocksize*2-1]==0 || block[cursor-blocksize*2-1]==3 ))
then
(( block[cursor-blocksize*2-1]=2 ))
drawblock $(( cursor-blocksize*2-1 ))
(( block[cursor-blocksize-1]=0 ))
drawblock $(( cursor-blocksize-1 ))
fi
(( flags=1 ))&&(( block[cursor-blocksize-1]!=2 ))&&(( cursor-=blocksize ))
drawblock $savecursor
fi
;;
'down')
if (( cursor+blocksize<=blocksize*blocknumber )) && (( block[cursor+blocksize-1]!=1 ))
then
if (( block[cursor+blocksize-1]==2 ))&&(( block[cursor+blocksize*2-1]==0 || block[cursor+blocksize*2-1]==3 ))
then
(( block[cursor+blocksize*2-1]=2 ))
drawblock $(( cursor+blocksize*2-1 ))
(( block[cursor+blocksize-1]=0 ))
drawblock $(( cursor+blocksize-1 ))
fi
(( flags=1 )) &&(( block[cursor+blocksize-1]!=2 ))&&(( cursor+=blocksize ))
drawblock $savecursor
fi
;;
esac
if (( flags ))
then
savecursor=$(( cursor-1 ))
drawblock $(( cursor-1 )) $txt
(( key_count++ ))
check_state
fi
}
#初始化地图
function initmap()
{
depict_block
drawblock $(( cursor-1 )) $txt
savecursor=$(( cursor-1 ))
}
#解释按键
function tran_key()
{
case "$1" in
'a'|'A')
if [ "$save_key" == '[' ]
then
runkey 'up'
else
runkey 'left'
fi
;;
'd'|'D')
if [ "$save_key" == '[' ]
then
runkey 'left'
else
runkey 'right'
fi
;;
'w'|'W') runkey 'up' ;;
's'|'S') runkey 'down' ;;
'B') runkey 'down' ;;
'C') runkey 'right' ;;
'')
# ^[ ESC按键处理 C-v [ 组合
if [ "$save_key" == '' ]
then
Game_state=0
fi
;;
esac
}
echo $clear
echo $cursor_off
block_map
initmap
#主循环
while (( Game_state ))
do
read -s -n 1 key
tran_key "$key"
save_key=$key
done
echo $cursor_on
echo $clear
gotoxy 0 0
echo "Game Over!"

复制代码

最新比较忙没时间上CU还真难受^_^
昨天写了一个推箱子游戏贴上来给让大家批评一下
说实在我也是第一次写游戏写不好尽量提出我乐意接受,很多地方可能有更好的方法实现
本来想写俄罗斯方块的可是已经有人写过了只要重新来一个

[ 本帖最后由 lovesaka 于 2006-11-16 19:00 编辑 ]

评分

参与人数 1	可用积分 +1	收起理由
waker	+ 1

查看全部评分

文库|博客

awk就是awp加ak

丰衣足食

论坛徽章:: 0

2楼 [报告]

发表于 2006-11-16 15:31 |只看该作者

推箱子的也有shell版了，期待perl版

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

lovesaka

家境小康

论坛徽章:: 0

3楼 [报告]

发表于 2006-11-16 15:49 |只看该作者

如果用perl写的话就那可能比这简单些可以用tk模块写个图形的但是我对这不熟有时间看看能不能整一个出来
刚看了一下原来有人已经用sed的写了一个我五体投地^_^

awk就是awp加ak

丰衣足食

论坛徽章:: 0

4楼 [报告]

发表于 2006-11-16 15:57 |只看该作者

是啊！pf！
shell得偶也不会，pf！

twf_cc

丰衣足食

论坛徽章:: 0

5楼 [报告]

发表于 2006-11-16 18:00 |只看该作者

強帖

寂寞烈火

家境小康

论坛徽章:: 1

6楼 [报告]

发表于 2006-11-16 18:58 |只看该作者

强人强贴

lovesaka

家境小康

论坛徽章:: 0

7楼 [报告]

发表于 2006-11-16 19:00 |只看该作者

原帖由 lovesaka 于 2006-11-16 15:27 发表
[code]
#/bin/sh
########################################
#
#作者:Minuit
#时间:2006年11月15日星期三 14时44分27秒
#文件名:blocktest.sh
#描述:
########################################
#结构
...

sorry.编辑没把#!/bin/sh中的!给打上
改正一下

lovesaka

家境小康

论坛徽章:: 0

8楼 [报告]

发表于 2006-11-16 19:03 |只看该作者

我的这点小知识都是像你们楼上这些老大学得^_^

mokai

稍有积蓄

论坛徽章:: 0

9楼 [报告]

发表于 2006-11-17 10:46 |只看该作者

偶忍不住，运行调试了一下，但是只能够，移动不能推箱子呀。。

还有楼主最好写个，说明，我是看脚本内容才知道有ADSW的。5555，推不动箱子，到底红的是箱子，还是黑的是箱子了，最好做点特别的标记。

lovesaka

家境小康

论坛徽章:: 0

10楼 [报告]

发表于 2006-11-17 13:09 |只看该作者

原帖由 mokai 于 2006-11-17 10:46 发表
偶忍不住，运行调试了一下，但是只能够，移动不能推箱子呀。。

还有楼主最好写个，说明，我是看脚本内容才知道有ADSW的。5555，推不动箱子，到底红的是箱子，还是黑的是箱子了，最好做点特别的标记。

嗯
因为是第一次写这玩意没留意这东西谢谢提醒

使用方法
[aA]  左
[dD]  右
[wW]  上
[sS]    下
方向键左    左
方向键右    右
方向键上                上
方向键下       下
按两下ESC退出
见下图白色为玩家方块
黄色为箱子
所有关里红色为终点
黒色为背景
绿色为可移动区域(包括红色)
还有它会跟据终端的初始大小来改变游戏显示大图还是小图

[ 本帖最后由 lovesaka 于 2006-11-17 13:26 编辑 ]

抓图13.png (9.02 KB, 下载次数: 43)

抓图15.png (6.97 KB, 下载次数: 43)

返回列表

Chinaunix › 论坛 › 程序设计 › Shell › Shell版推箱子[游戏]

Shell版 推箱子[游戏] [复制链接]

评分

浏览过的版块

Shell版推箱子[游戏] [复制链接]