【正文】 r (i=0。 i5。 i++) { //為當(dāng)前方塊賦初值0 ret[i][0] = ret[i][1]=0。 } generate(ret)。 //產(chǎn)生當(dāng)前方塊 generate(nextret)。 //產(chǎn)生下一個方塊 y=0, x=3, score=lines=0, level=0。 //當(dāng)前位置坐標(biāo)和計(jì)分系統(tǒng)初始化 ()。 //如果從結(jié)束過的游戲恢復(fù)，刪除結(jié)束標(biāo)志 display()。 //顯示畫面 frameflag = 0。 //標(biāo)示下落時間間隔 onEnterFrame = function () { frameflag++。 if (10frameflaglevel) { //根據(jù)等級level確定下落時間間隔 frameflag = 0。 go()。 //下落及判斷 } }。}function drawblock(a, b, c, d) { //繪制方塊的小塊 with (panel) { beginFill(0x000FFF, 100)。 lineStyle(1, 0xFF00FF)。 moveTo(+a, +b)。 lineTo(+c, +b)。 lineTo(+c, +d)。 lineTo(+a, +d)。 lineTo(+a, +b)。 endFill()。 }}function erase() { //刪除一行方塊 var n:Number = 0, i:Number, j:Number, k:Number, l:Number。 for (i=0。 iN1。 i++) { for (j=0。 j10。 j++) { if (bg[i][j] == 39。 39。) { //如果該行有空，則開始判斷下一行 i++, j=1。 if (i == N1) { //行N1為底線，不判斷 break。 } } else if (j == 9) { //判斷到該行最后一列都沒有空 for (k=i。 k=1。 k) { //上方方塊下落 for (l=0。 l10。 l++) { bg[k][l] = bg[k1][l]。 } } for (l=0。 l10。 l++) { //刪除該行 bg[0][l] = 39。 39。 } n++。 //此次刪除行數(shù)變量增一 if ((lines+n)%30 == 0) { //刪除行數(shù)總數(shù)到30的倍數(shù)則等級上升 level = (level+1)%10。 } } } } lines += n, score += (n*n+n)*50。 //總行數(shù)增n，計(jì)算得分}function display() { //顯示函數(shù)，采用全部清除再重繪制的方法 var i:Number, j:Number。 ()。 with (panel) { //畫邊界 lineStyle(1, 0x0000FF)。 moveTo(, )。 lineTo(+WIDTH*10, )。 lineTo(+WIDTH*10, +WIDTH*(N1))。 lineTo(, +WIDTH*(N1))。 lineTo(, )。 } for (i=0。 i4。 i++) { //當(dāng)前方塊占據(jù)的地方賦值為邊界類型219 bg[y+ret[i][1]][x+ret[i][0]] = 219。 } for (i=0。 iN1。 i++) { //繪制背景方塊 for (j=0。 j10。 j++) { if (bg[i][j] == 219) { drawblock(j*WIDTH+X, i*WIDTH+Y, j*WIDTH+WIDTH+X, i*WIDTH+WIDTH+Y)。 } } } for (i=0。 i4。 i++) { //繪制當(dāng)前方塊 drawblock(nextret[i][0]*WIDTH+14*WIDTH+X, nextret[i][1]*WIDTH+12*WIDTH+Y, nextret[i][0]*WIDTH+WIDTH+14*WIDTH+X, nextret[i][1]*WIDTH+WIDTH+12*WIDTH+Y)。 } for (i=0。 i4。 i++) { //當(dāng)前方塊繪制完畢，重新將當(dāng)前位置改為39。 39。 bg[y+ret[i][1]][x+ret[i][0]] = 39。 39。 } createTextField(_lvltxt, 1, 270, 100, 100, 20)。 //繪制計(jì)分系統(tǒng) createTextField(_scrtxt, 2, 270, 130, 100, 20)。 createTextField(_lnstxt, 3, 270, 160, 100, 20)。 = Level: +level。 = Score: +score。 = Lines: +lines。}function go() { //下落函數(shù) var sss:Number = reach(x, y, ret)。 //當(dāng)前方塊下落一格是否碰到邊界或方塊 var ii:Number。 if (!sss) { y++。 //如果當(dāng)前方塊下落一格沒有碰到邊界或方塊則下落一格 } display()。 //重新繪制 if (sss) { //碰到邊界或方塊 display()。 //重新繪制 for (ii=0。 ii4。 ii++) { //修改背景數(shù)組，將當(dāng)前方塊的位置改為邊界類型 bg[y+ret[ii][1]][x+ret[ii][0]] = 219。 } erase()。 //刪除行判斷及執(zhí)行 rv(nextret, ret)。 //將下一個方塊賦值為當(dāng)前方塊 y=0, x=3。 //重置方塊位置 generate(nextret)。 //生成下一個方塊 display()。 //重新繪制 if (reach(x, y, ret)) { //如果下一格碰到方塊則游戲結(jié)束 createTextField(_tetris, 100000, WIDTH*, WIDTH*N/3, 70, 20)。 += 200。 += 50。 = 300。 = 300。 = true。 = Game Over!。 onEnterFrame = function () { //停止下落 }。 } }}function key() { if (()) { rotate(ret)。 display()。 } if (()) { if (lrnotout(1, ret)) { //左移可行性判斷 x。 display()。 } } if (()) { if (lrnotout(1, ret)) { //右移可行性判斷 x++。 display()。 } 第四章 FLASH版俄羅斯方塊游戲開發(fā)心得 通過FLASH版俄羅斯方塊游戲設(shè)計(jì)，我不僅復(fù)習(xí)熟練了相關(guān)的課程、專業(yè)，還學(xué)習(xí)掌握了很多以前不曾掌握的知識，同時也認(rèn)識到還有很多基礎(chǔ)知識要去學(xué)習(xí)，去鞏固。在以后的時間里，我將花費(fèi)大量的時間用于學(xué)習(xí)上，以彌補(bǔ)自己不足的地方。參考文獻(xiàn)[1] 陳青,Flash ，2006.[2] 瑞哈特（美），曹銘。Flash寶典，電子工業(yè)出版社，2003.[3] 趙子江，：機(jī)械工業(yè)出版社，2000.[4] 美國Adobe公司，Adobe Flash CS4 ActionScript .[5] 馬謐挺, 閃魂——Flash ,2009.[6] 吳濤，F(xiàn)lash MX2004 ActionScript動畫設(shè)計(jì). 北京科海電子出版社，2005[7] Adobe專家委員會，Adobe Flash CS3案例風(fēng)暴. 人民郵電出版社，200831