Prayer

在一般中寻求卓越
posts - 1256, comments - 190, trackbacks - 0, articles - 0
  C++博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理

俄罗斯方块代码

Posted on 2010-02-04 15:38 Prayer 阅读(321) 评论(0)  编辑 收藏 引用 所属分类: Shell
  1. #!/bin/bash

  3. # Tetris Game
  4. # 10.21.2003 xhchen<[email]xhchen@winbond.com.tw[/email]>

  6. #APP declaration
  7. APP_NAME="${0##*[\\/]}"
  8. APP_VERSION="1.0"


  11. #颜色定义
  12. cRed=1
  13. cGreen=2
  14. cYellow=3
  15. cBlue=4
  16. cFuchsia=5
  17. cCyan=6
  18. cWhite=7
  19. colorTable=($cRed $cGreen $cYellow $cBlue $cFuchsia $cCyan $cWhite)

  21. #位置和大小
  22. iLeft=3
  23. iTop=2
  24. ((iTrayLeft = iLeft + 2))
  25. ((iTrayTop = iTop + 1))
  26. ((iTrayWidth = 10))
  27. ((iTrayHeight = 15))

  29. #颜色设置
  30. cBorder=$cGreen
  31. cScore=$cFuchsia
  32. cScoreValue=$cCyan

  34. #控制信号
  35. #改游戏使用两个进程，一个用于接收输入，一个用于游戏流程和显示界面;
  36. #当前者接收到上下左右等按键时，通过向后者发送signal的方式通知后者。
  37. sigRotate=25
  38. sigLeft=26
  39. sigRight=27
  40. sigDown=28
  41. sigAllDown=29
  42. sigExit=30

  44. #七中不同的方块的定义
  45. #通过旋转，每种方块的显示的样式可能有几种
  46. box0=(0 0 0 1 1 0 1 1)
  47. box1=(0 2 1 2 2 2 3 2 1 0 1 1 1 2 1 3)
  48. box2=(0 0 0 1 1 1 1 2 0 1 1 0 1 1 2 0)
  49. box3=(0 1 0 2 1 0 1 1 0 0 1 0 1 1 2 1)
  50. box4=(0 1 0 2 1 1 2 1 1 0 1 1 1 2 2 2 0 1 1 1 2 0 2 1 0 0 1 0 1 1 1 2)
  51. box5=(0 1 1 1 2 1 2 2 1 0 1 1 1 2 2 0 0 0 0 1 1 1 2 1 0 2 1 0 1 1 1 2)
  52. box6=(0 1 1 1 1 2 2 1 1 0 1 1 1 2 2 1 0 1 1 0 1 1 2 1 0 1 1 0 1 1 1 2)
  53. #所有其中方块的定义都放到box变量中
  54. box=(${box0[@]} ${box1[@]} ${box2[@]} ${box3[@]} ${box4[@]} ${box5[@]} ${box6[@]})
  55. #各种方块旋转后可能的样式数目
  56. countBox=(1 2 2 2 4 4 4)
  57. #各种方块再box数组中的偏移
  58. offsetBox=(0 1 3 5 7 11 15)

  60. #每提高一个速度级需要积累的分数
  61. iScoreEachLevel=50        #be greater than 7

  63. #运行时数据
  64. sig=0                #接收到的signal
  65. iScore=0        #总分
  66. iLevel=0        #速度级
  67. boxNew=()        #新下落的方块的位置定义
  68. cBoxNew=0        #新下落的方块的颜色
  69. iBoxNewType=0        #新下落的方块的种类
  70. iBoxNewRotate=0        #新下落的方块的旋转角度
  71. boxCur=()        #当前方块的位置定义
  72. cBoxCur=0        #当前方块的颜色
  73. iBoxCurType=0        #当前方块的种类
  74. iBoxCurRotate=0        #当前方块的旋转角度
  75. boxCurX=-1        #当前方块的x坐标位置
  76. boxCurY=-1        #当前方块的y坐标位置
  77. iMap=()                #背景方块图表

  79. #初始化所有背景方块为-1, 表示没有方块
  80. for ((i = 0; i < iTrayHeight * iTrayWidth; i++)); do iMap[$i]=-1; done


  83. #接收输入的进程的主函数
  84. function RunAsKeyReceiver()
  85. {
  86.         local pidDisplayer key aKey sig cESC sTTY

  88.         pidDisplayer=$1
  89.         aKey=(0 0 0)

  91.         cESC=`echo -ne "\033"`
  92.         cSpace=`echo -ne "\040"`

  94.         #保存终端属性。在read -s读取终端键时，终端的属性会被暂时改变。
  95.         #如果在read -s时程序被不幸杀掉，可能会导致终端混乱，
  96.         #需要在程序退出时恢复终端属性。
  97.         sTTY=`stty -g`

  99.         #捕捉退出信号
  100.         trap "MyExit;" INT TERM
  101.         trap "MyExitNoSub;" $sigExit

  103.         #隐藏光标
  104.         echo -ne "\033[?25l"


  107.         while :
  108.         do
  109.                 #读取输入。注-s不回显，-n读到一个字符立即返回
  110.                 read -s -n 1 key

  112.                 aKey[0]=${aKey[1]}
  113.                 aKey[1]=${aKey[2]}
  114.                 aKey[2]=$key
  115.                 sig=0

  117.                 #判断输入了何种键
  118.                 if [[ $key == $cESC && ${aKey[1]} == $cESC ]]
  119.                 then
  120.                         #ESC键
  121.                         MyExit
  122.                 elif [[ ${aKey[0]} == $cESC && ${aKey[1]} == "[" ]]
  123.                 then
  124.                         if [[ $key == "A" ]]; then sig=$sigRotate        #<向上键>
  125.                         elif [[ $key == "B" ]]; then sig=$sigDown        #<向下键>
  126.                         elif [[ $key == "D" ]]; then sig=$sigLeft        #<向左键>
  127.                         elif [[ $key == "C" ]]; then sig=$sigRight        #<向右键>
  128.                         fi
  129.                 elif [[ $key == "W" || $key == "w" ]]; then sig=$sigRotate        #W, w
  130.                 elif [[ $key == "S" || $key == "s" ]]; then sig=$sigDown        #S, s
  131.                 elif [[ $key == "A" || $key == "a" ]]; then sig=$sigLeft        #A, a
  132.                 elif [[ $key == "D" || $key == "d" ]]; then sig=$sigRight        #D, d
  133.                 elif [[ "[$key]" == "[]" ]]; then sig=$sigAllDown        #空格键
  134.                 elif [[ $key == "Q" || $key == "q" ]]                        #Q, q
  135.                 then
  136.                         MyExit
  137.                 fi

  139.                 if [[ $sig != 0 ]]
  140.                 then
  141.                         #向另一进程发送消息
  142.                         kill -$sig $pidDisplayer
  143.                 fi
  144.         done
  145. }

  147. #退出前的恢复
  148. function MyExitNoSub()
  149. {
  150.         local y

  152.         #恢复终端属性
  153.         stty $sTTY
  154.         ((y = iTop + iTrayHeight + 4))

  156.         #显示光标
  157.         echo -e "\033[?25h\033[${y};0H"
  158.         exit
  159. }


  162. function MyExit()
  163. {
  164.         #通知显示进程需要退出
  165.         kill -$sigExit $pidDisplayer

  167.         MyExitNoSub
  168. }


  171. #处理显示和游戏流程的主函数
  172. function RunAsDisplayer()
  173. {
  174.         local sigThis
  175.         InitDraw

  177.         #挂载各种信号的处理函数
  178.         trap "sig=$sigRotate;" $sigRotate
  179.         trap "sig=$sigLeft;" $sigLeft
  180.         trap "sig=$sigRight;" $sigRight
  181.         trap "sig=$sigDown;" $sigDown
  182.         trap "sig=$sigAllDown;" $sigAllDown
  183.         trap "ShowExit;" $sigExit

  185.         while :
  186.         do
  187.                 #根据当前的速度级iLevel不同，设定相应的循环的次数
  188.                 for ((i = 0; i < 21 - iLevel; i++))
  189.                 do
  190.                         sleep 0.02
  191.                         sigThis=$sig
  192.                         sig=0

  194.                         #根据sig变量判断是否接受到相应的信号
  195.                         if ((sigThis == sigRotate)); then BoxRotate;        #旋转
  196.                         elif ((sigThis == sigLeft)); then BoxLeft;        #左移一列
  197.                         elif ((sigThis == sigRight)); then BoxRight;        #右移一列
  198.                         elif ((sigThis == sigDown)); then BoxDown;        #下落一行
  199.                         elif ((sigThis == sigAllDown)); then BoxAllDown;        #下落到底
  200.                         fi
  201.                 done
  202.                 #kill -$sigDown $$
  203.                 BoxDown        #下落一行
  204.         done
  205. }


  208. #BoxMove(y, x), 测试是否可以把移动中的方块移到(x, y)的位置, 返回0则可以, 1不可以
  209. function BoxMove()
  210. {
  211.         local j i x y xTest yTest
  212.         yTest=$1
  213.         xTest=$2
  214.         for ((j = 0; j < 8; j += 2))
  215.         do
  216.                 ((i = j + 1))
  217.                 ((y = ${boxCur[$j]} + yTest))
  218.                 ((x = ${boxCur[$i]} + xTest))
  219.                 if (( y < 0 || y >= iTrayHeight || x < 0 || x >= iTrayWidth))
  220.                 then
  221.                         #撞到墙壁了
  222.                         return 1
  223.                 fi
  224.                 if ((${iMap[y * iTrayWidth + x]} != -1 ))
  225.                 then
  226.                         #撞到其他已经存在的方块了
  227.                         return 1
  228.                 fi
  229.         done
  230.         return 0;
  231. }


  234. #将当前移动中的方块放到背景方块中去,
  235. #并计算新的分数和速度级。(即一次方块落到底部)
  236. function Box2Map()
  237. {
  238.         local j i x y xp yp line

  240.         #将当前移动中的方块放到背景方块中去
  241.         for ((j = 0; j < 8; j += 2))
  242.         do
  243.                 ((i = j + 1))
  244.                 ((y = ${boxCur[$j]} + boxCurY))
  245.                 ((x = ${boxCur[$i]} + boxCurX))
  246.                 ((i = y * iTrayWidth + x))
  247.                 iMap[$i]=$cBoxCur
  248.         done

  250.         #消去可被消去的行
  251.         line=0
  252.         for ((j = 0; j < iTrayWidth * iTrayHeight; j += iTrayWidth))
  253.         do
  254.                 for ((i = j + iTrayWidth - 1; i >= j; i--))
  255.                 do
  256.                         if ((${iMap[$i]} == -1)); then break; fi
  257.                 done
  258.                 if ((i >= j)); then continue; fi

  260.                 ((line++))
  261.                 for ((i = j - 1; i >= 0; i--))
  262.                 do
  263.                         ((x = i + iTrayWidth))
  264.                         iMap[$x]=${iMap[$i]}
  265.                 done
  266.                 for ((i = 0; i < iTrayWidth; i++))
  267.                 do
  268.                         iMap[$i]=-1
  269.                 done
  270.         done

  272.         if ((line == 0)); then return; fi

  274.         #根据消去的行数line计算分数和速度级
  275.         ((x = iLeft + iTrayWidth * 2 + 7))
  276.         ((y = iTop + 11))
  277.         ((iScore += line * 2 - 1))
  278.         #显示新的分数
  279.         echo -ne "\033[1m\033[3${cScoreValue}m\033[${y};${x}H${iScore}         "
  280.         if ((iScore % iScoreEachLevel < line * 2 - 1))
  281.         then
  282.                 if ((iLevel < 20))
  283.                 then
  284.                         ((iLevel++))
  285.                         ((y = iTop + 14))
  286.                         #显示新的速度级
  287.                         echo -ne "\033[3${cScoreValue}m\033[${y};${x}H${iLevel}        "
  288.                 fi
  289.         fi
  290.         echo -ne "\033[0m"


  293.         #重新显示背景方块
  294.         for ((y = 0; y < iTrayHeight; y++))
  295.         do
  296.                 ((yp = y + iTrayTop + 1))
  297.                 ((xp = iTrayLeft + 1))
  298.                 ((i = y * iTrayWidth))
  299.                 echo -ne "\033[${yp};${xp}H"
  300.                 for ((x = 0; x < iTrayWidth; x++))
  301.                 do
  302.                         ((j = i + x))
  303.                         if ((${iMap[$j]} == -1))
  304.                         then
  305.                                 echo -ne "  "
  306.                         else
  307.                                 echo -ne "\033[1m\033[7m\033[3${iMap[$j]}m\033[4${iMap[$j]}m[]\033[0m"
  308.                         fi
  309.                 done
  310.         done
  311. }


  314. #下落一行
  315. function BoxDown()
  316. {
  317.         local y s
  318.         ((y = boxCurY + 1))        #新的y坐标
  319.         if BoxMove $y $boxCurX        #测试是否可以下落一行
  320.         then
  321.                 s="`DrawCurBox 0`"        #将旧的方块抹去
  322.                 ((boxCurY = y))
  323.                 s="$s`DrawCurBox 1`"        #显示新的下落后方块
  324.                 echo -ne $s
  325.         else
  326.                 #走到这儿, 如果不能下落了
  327.                 Box2Map                #将当前移动中的方块贴到背景方块中
  328.                 RandomBox        #产生新的方块
  329.         fi
  330. }

  332. #左移一列
  333. function BoxLeft()
  334. {
  335.         local x s
  336.         ((x = boxCurX - 1))
  337.         if BoxMove $boxCurY $x
  338.         then
  339.                 s=`DrawCurBox 0`
  340.                 ((boxCurX = x))
  341.                 s=$s`DrawCurBox 1`
  342.                 echo -ne $s
  343.         fi
  344. }

  346. #右移一列
  347. function BoxRight()
  348. {
  349.         local x s
  350.         ((x = boxCurX + 1))
  351.         if BoxMove $boxCurY $x
  352.         then
  353.                 s=`DrawCurBox 0`
  354.                 ((boxCurX = x))
  355.                 s=$s`DrawCurBox 1`
  356.                 echo -ne $s
  357.         fi
  358. }


  361. #下落到底
  362. function BoxAllDown()
  363. {
  364.         local k j i x y iDown s
  365.         iDown=$iTrayHeight

  367.         #计算一共需要下落多少行
  368.         for ((j = 0; j < 8; j += 2))
  369.         do
  370.                 ((i = j + 1))
  371.                 ((y = ${boxCur[$j]} + boxCurY))
  372.                 ((x = ${boxCur[$i]} + boxCurX))
  373.                 for ((k = y + 1; k < iTrayHeight; k++))
  374.                 do
  375.                         ((i = k * iTrayWidth + x))
  376.                         if (( ${iMap[$i]} != -1)); then break; fi
  377.                 done
  378.                 ((k -= y + 1))
  379.                 if (( $iDown > $k )); then iDown=$k; fi
  380.         done

  382.         s=`DrawCurBox 0`        #将旧的方块抹去
  383.         ((boxCurY += iDown))
  384.         s=$s`DrawCurBox 1`        #显示新的下落后的方块
  385.         echo -ne $s
  386.         Box2Map                #将当前移动中的方块贴到背景方块中
  387.         RandomBox        #产生新的方块
  388. }


  391. #旋转方块
  392. function BoxRotate()
  393. {
  394.         local iCount iTestRotate boxTest j i s
  395.         iCount=${countBox[$iBoxCurType]}        #当前的方块经旋转可以产生的样式的数目

  397.         #计算旋转后的新的样式
  398.         ((iTestRotate = iBoxCurRotate + 1))
  399.         if ((iTestRotate >= iCount))
  400.         then
  401.                 ((iTestRotate = 0))
  402.         fi

  404.         #更新到新的样式, 保存老的样式(但不显示)
  405.         for ((j = 0, i = (${offsetBox[$iBoxCurType]} + $iTestRotate) * 8; j < 8; j++, i++))
  406.         do
  407.                 boxTest[$j]=${boxCur[$j]}
  408.                 boxCur[$j]=${box[$i]}
  409.         done

  411.         if BoxMove $boxCurY $boxCurX        #测试旋转后是否有空间放的下
  412.         then
  413.                 #抹去旧的方块
  414.                 for ((j = 0; j < 8; j++))
  415.                 do
  416.                         boxCur[$j]=${boxTest[$j]}
  417.                 done
  418.                 s=`DrawCurBox 0`

  420.                 #画上新的方块
  421.                 for ((j = 0, i = (${offsetBox[$iBoxCurType]} + $iTestRotate) * 8; j < 8; j++, i++))
  422.                 do
  423.                         boxCur[$j]=${box[$i]}
  424.                 done
  425.                 s=$s`DrawCurBox 1`
  426.                 echo -ne $s
  427.                 iBoxCurRotate=$iTestRotate
  428.         else
  429.                 #不能旋转，还是继续使用老的样式
  430.                 for ((j = 0; j < 8; j++))
  431.                 do
  432.                         boxCur[$j]=${boxTest[$j]}
  433.                 done
  434.         fi
  435. }


  438. #DrawCurBox(bDraw), 绘制当前移动中的方块, bDraw为1, 画上, bDraw为0, 抹去方块。
  439. function DrawCurBox()
  440. {
  441.         local i j t bDraw sBox s
  442.         bDraw=$1

  444.         s=""
  445.         if (( bDraw == 0 ))
  446.         then
  447.                 sBox="\040\040"
  448.         else
  449.                 sBox="[]"
  450.                 s=$s"\033[1m\033[7m\033[3${cBoxCur}m\033[4${cBoxCur}m"
  451.         fi

  453.         for ((j = 0; j < 8; j += 2))
  454.         do
  455.                 ((i = iTrayTop + 1 + ${boxCur[$j]} + boxCurY))
  456.                 ((t = iTrayLeft + 1 + 2 * (boxCurX + ${boxCur[$j + 1]})))
  457.                 #\033[y;xH, 光标到(x, y)处
  458.                 s=$s"\033[${i};${t}H${sBox}"
  459.         done
  460.         s=$s"\033[0m"
  461.         echo -n $s
  462. }


  465. #更新新的方块
  466. function RandomBox()
  467. {
  468.         local i j t

  470.         #更新当前移动的方块
  471.         iBoxCurType=${iBoxNewType}
  472.         iBoxCurRotate=${iBoxNewRotate}
  473.         cBoxCur=${cBoxNew}
  474.         for ((j = 0; j < ${#boxNew[@]}; j++))
  475.         do
  476.                 boxCur[$j]=${boxNew[$j]}
  477.         done


  480.         #显示当前移动的方块
  481.         if (( ${#boxCur[@]} == 8 ))
  482.         then
  483.                 #计算当前方块该从顶端哪一行"冒"出来
  484.                 for ((j = 0, t = 4; j < 8; j += 2))
  485.                 do
  486.                         if ((${boxCur[$j]} < t)); then t=${boxCur[$j]}; fi
  487.                 done
  488.                 ((boxCurY = -t))
  489.                 for ((j = 1, i = -4, t = 20; j < 8; j += 2))
  490.                 do
  491.                         if ((${boxCur[$j]} > i)); then i=${boxCur[$j]}; fi
  492.                         if ((${boxCur[$j]} < t)); then t=${boxCur[$j]}; fi
  493.                 done
  494.                 ((boxCurX = (iTrayWidth - 1 - i - t) / 2))

  496.                 #显示当前移动的方块
  497.                 echo -ne `DrawCurBox 1`

  499.                 #如果方块一出来就没处放，Game over!
  500.                 if ! BoxMove $boxCurY $boxCurX
  501.                 then
  502.                         kill -$sigExit ${PPID}
  503.                         ShowExit
  504.                 fi
  505.         fi



  509.         #清除右边预显示的方块
  510.         for ((j = 0; j < 4; j++))
  511.         do
  512.                 ((i = iTop + 1 + j))
  513.                 ((t = iLeft + 2 * iTrayWidth + 7))
  514.                 echo -ne "\033[${i};${t}H        "
  515.         done

  517.         #随机产生新的方块
  518.         ((iBoxNewType = RANDOM % ${#offsetBox[@]}))
  519.         ((iBoxNewRotate = RANDOM % ${countBox[$iBoxNewType]}))
  520.         for ((j = 0, i = (${offsetBox[$iBoxNewType]} + $iBoxNewRotate) * 8; j < 8; j++, i++))
  521.         do
  522.                 boxNew[$j]=${box[$i]};
  523.         done

  525.         ((cBoxNew = ${colorTable[RANDOM % ${#colorTable[@]}]}))

  527.         #显示右边预显示的方块
  528.         echo -ne "\033[1m\033[7m\033[3${cBoxNew}m\033[4${cBoxNew}m"
  529.         for ((j = 0; j < 8; j += 2))
  530.         do
  531.                 ((i = iTop + 1 + ${boxNew[$j]}))
  532.                 ((t = iLeft + 2 * iTrayWidth + 7 + 2 * ${boxNew[$j + 1]}))
  533.                 echo -ne "\033[${i};${t}H[]"
  534.         done
  535.         echo -ne "\033[0m"
  536. }


  539. #初始绘制
  540. function InitDraw()
  541. {
  542.         clear
  543.         RandomBox        #随机产生方块，这时右边预显示窗口中有方快了
  544.         RandomBox        #再随机产生方块，右边预显示窗口中的方块被更新，原先的方块将开始下落
  545.         local i t1 t2 t3

  547.         #显示边框
  548.         echo -ne "\033[1m"
  549.         echo -ne "\033[3${cBorder}m\033[4${cBorder}m"

  551.         ((t2 = iLeft + 1))
  552.         ((t3 = iLeft + iTrayWidth * 2 + 3))
  553.         for ((i = 0; i < iTrayHeight; i++))
  554.         do
  555.                 ((t1 = i + iTop + 2))
  556.                 echo -ne "\033[${t1};${t2}H||"
  557.                 echo -ne "\033[${t1};${t3}H||"
  558.         done

  560.         ((t2 = iTop + iTrayHeight + 2))
  561.         for ((i = 0; i < iTrayWidth + 2; i++))
  562.         do
  563.                 ((t1 = i * 2 + iLeft + 1))
  564.                 echo -ne "\033[${iTrayTop};${t1}H=="
  565.                 echo -ne "\033[${t2};${t1}H=="
  566.         done
  567.         echo -ne "\033[0m"


  570.         #显示"Score"和"Level"字样
  571.         echo -ne "\033[1m"
  572.         ((t1 = iLeft + iTrayWidth * 2 + 7))
  573.         ((t2 = iTop + 10))
  574.         echo -ne "\033[3${cScore}m\033[${t2};${t1}HScore"
  575.         ((t2 = iTop + 11))
  576.         echo -ne "\033[3${cScoreValue}m\033[${t2};${t1}H${iScore}"
  577.         ((t2 = iTop + 13))
  578.         echo -ne "\033[3${cScore}m\033[${t2};${t1}HLevel"
  579.         ((t2 = iTop + 14))
  580.         echo -ne "\033[3${cScoreValue}m\033[${t2};${t1}H${iLevel}"
  581.         echo -ne "\033[0m"
  582. }


  585. #退出时显示GameOVer!
  586. function ShowExit()
  587. {
  588.         local y
  589.         ((y = iTrayHeight + iTrayTop + 3))
  590.         echo -e "\033[${y};0HGameOver!\033[0m"
  591.         exit
  592. }


  595. #显示用法.
  596. function Usage
  597. {
  598.         cat << EOF
  599. Usage: $APP_NAME
  600. Start tetris game.

  602.   -h, --help              display this help and exit
  603.       --version           output version information and exit
  604. EOF
  605. }


  608. #游戏主程序在这儿开始.
  609. if [[ "$1" == "-h" || "$1" == "--help" ]]; then
  610.         Usage
  611. elif [[ "$1" == "--version" ]]; then
  612.         echo "$APP_NAME $APP_VERSION"
  613. elif [[ "$1" == "--show" ]]; then
  614.         #当发现具有参数--show时，运行显示函数
  615.         RunAsDisplayer
  616. else
  617.         bash $0 --show&        #以参数--show将本程序再运行一遍
  618.         RunAsKeyReceiver $!        #以上一行产生的进程的进程号作为参数
  619. fi

只有注册用户登录后才能发表评论。
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理