資源描述:
《unix shell游戲編程之俄羅斯方塊(tetris for unix shell game programming)》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、unixshell游戲編程之俄羅斯方塊(TetrisforUNIXshellgameprogramming)#shell版方塊#!/bin/bash#tetrisgame#10.21.2003xhchen<>@winbond.com.twxhchen#顏色定義specifics=1cgreen=2cyellow=3cblue=4cfuchsia=5ccyan=6cwhite=7colortable=($$$$cbluespecificscgreencyellow$$$cfuchsiaccyancwhite)#位置和大小ileft=3itop=2(itrayleft=ile
2、ft+2))(itraytop=itop+1))(itraywidth=10))(itrayheight=15))#顏色設置cborder=$cgreencscore=$cfuchsiacscorevalue=$ccyan#控制信號#改游戲使用兩個進程,一個用于接收輸入,一個用于游戲流程和顯示界面;#當前者接收到上下左右等按鍵時,通過向后者發(fā)送signal的方式通知后者.sigrotate=25sigleft=26sigright=27sigdown=28sigalldown=29sigexit=30#七中不同的方塊的定義#通過旋轉(zhuǎn),每種方塊的顯示的樣式可能有幾種box0
3、=(00011011)box1=(0212222232101111213)box2=(0001111101101120)box3=(0102101100101121)box4=(0102112110111222221112021001011112)box5=(0111121221011122220000111121021011112)box6=(011112222110111122101101121011011112)#所有其中方塊的定義都放到box變量中box=(${box0[@]}is${box1[@]}is${box2[@]}is${box3[@]}is${box4
4、[@]}is${box5[@]}is${box6[@]})#各種方塊旋轉(zhuǎn)后可能的樣式數(shù)目countbox=(122222444)#各種方塊再box數(shù)組中的偏移offsetbox=(013571115)#每提高一個速度級需要積累的分數(shù)iscoreeachlevel=50#begreaterthan7#運行時數(shù)據(jù)sig=0#接收到的signaliscore=0#總分ilevel=0#速度級boxnew=()#新下落的方塊的位置定義cboxnew=0#新下落的方塊的顏色iboxnewtype=0#新下落的方塊的種類iboxnewrotate=0#新下落的方塊的旋轉(zhuǎn)角度boxcu
5、r=()#當前方塊的位置定義cboxcur=0#當前方塊的顏色iboxcurtype=0#當前方塊的種類iboxcurrotate=0#當前方塊的旋轉(zhuǎn)角度boxcurx=-1#當前方塊的x坐標位置boxcury=-1#當前方塊的y坐標位置imap=()#背景方塊圖表#初始化所有背景方塊為-1,表示沒有方塊for(i=0;i6、player=$1akey=(0)cesc:"echo"33"acspace=`echo-a"40"#保存終端屬性.在read-s讀取終端鍵時,終端的屬性會被暫時改變.#如果在read-s時程序被不幸殺掉,可能會導致終端混亂,#需要在程序退出時恢復終端屬性.stty=`g`stty#捕捉退出信號trap"myexit;"thetermtrap"myexitnosub;"$sigexit#隱藏光標echo-n"^33[?25l"while((1))die#讀取輸入.注-s不回顯,n讀到一個字符立即返回read-p-n1keyakey[0]=${akey[1]}akey[
7、1]=${akey[2]}akey[2]=$keyup=0#判斷輸入了何種鍵if[[$key==$cesc&&${akey[1]}==$cesc]]then#esc鍵myexitelif[[${akey[0]}==$cesc&&${akey[1]}=="["]]thenif[[$key=="a"]];thensay=$sigrotate#<向上鍵>elif[[$key=="b"]];thensay=$sigdown#<向下鍵>elif[[$key=="d"]];thensay=$sigleft#<向左鍵>elif[[$key=