《Flash 动画设计实例教程 教学课件 ppt 作者 王兵华 编著 第9章 09-02-01》由会员分享，可在线阅读，更多相关《Flash 动画设计实例教程 教学课件 ppt 作者 王兵华 编著 第9章 09-02-01（30页珍藏版）》请在金锄头文库上搜索。
1、,老师,我们学了那么多,我们能不能自己设计游戏呢?,,能啊,现在就教你五子棋的做法,希望你能好好的学哦.,,好的,那我们开始吧。,,新建Flash文档，在场景中绘制一个棋盘。,,新建影片剪辑元件“白棋”，用 “椭圆工具”绘制一个放射状渐变 填充正圆，直径为18px，如图 所示。然后用相同的方法绘制影 片元件“黑棋”。,,新建按钮元件“棋”，只在“点击”帧处绘制直径为18px的正圆,,新建影片元件“下棋”，并将按钮元件“棋”拖放到场景中，并选中时间轴的第1帧，在“动作”面板中添加如下action语句。,stop();,,在场景中选中按钮元件，添加如下action语句。,on (release)
2、if (_root.playnow = “player“) _root.xpos = (int(this._x+0.5)-15)/20)1; _root.ypos = (int(this._y+0.5)-15)/20)1; temp = (int(this._x+0.5)-15)/20; _root.display = “Xpos : “+temp; temp = (int(this._y+0.5)-15)/20; temp = chr(temp+64); _root.display1 = “Ypos : “+temp; _root.num = (_root.ypos*15)+_root.xp
3、os; removeMovieClip(_root.b add _root.nm); duplicateMovieClip(_root.black, “black“,,add _ root.num, _root.num+300); setProperty(_root.black add _root.num, _x, 34.7+(_root.xpos*20); setProperty(_root.black add _root.num, _y, 34.7+(_root.ypos*20);,_root.tableyposxpos = 1; _root.playnow = “computer“; x
4、x = _root.xpos; yy = _root.ypos; k = 0; while (k4) if (_root.a_result != 6) _root.a_result = 0; x = xx;,y = yy;,,while (_root.tableyx = 1) and (y+_root.dirk1)=-1) and (x+_root.dirk0)=-1) x = x+_root.dirk0; y = y+_root.dirk1; _root.a_result = _root.a_result+1; x = xx; y = yy; while (_root.tableyx = 1
5、) and (y+_root.dirk+41)=-1) and (x+_root.dirk+40) =-1) x = x+_root.dirk+40; y = y+_root.dirk+41; _root.a_result = _root.a_result+1; ,,if (_root.a_result = 6) _root.playnow = “nobody“; k+; if (_root.playnow = “nobody“) _root.gameoverman.gotoAndPlay(3); if (_root.playnow = “computer“) _puterrun.gotoAn
6、dPlay(5); ,,新建影片元件“空白影片”，选中第1帧，添加如 下action语句。,function makelist(maker) if (maker = “white“) color = 2; color_bad = 1; else color = 1; color_bad = 2;, i = 0; while (i15) j = 0; while (j15) if (_root.tableij != 0) k = 0; while (k4) if (maker = “white“) ,,_puter(i*15)+jk = 0; else _root.player(i*15)+jk
7、 = 0; k+; else k = 0; while (k4) x = i; y = j; score = 5; while,(_root.tablex+_root.dirk0y+_root.dirk1 = color) and (x+_root.dirk0)=0) and (y+_root.dirk1)=0) ,,x = x+_root.dirk0; y = y+_root.dirk1; score = score*2; if (_root.tablex+_root.dirk0y+_root.dirk1 = color_bad) and (x+_root.dirk0)=0) and (y+
8、_root.dirk1)=0) score = score/2; x = i; y = j; while,(_root.tablex+_root.dirk+40y+_root.dirk+41 = color) and (x+_root.dirk+40)=0) and,,(y+_root.dirk+41)=0) x = x+_root.dirk+40; y = y+_root.dirk+41; score = score*2; if (30=0) and (y+_root.dirk+41)=0) score = score/2; ,,if (maker = “white“) _puter(i*1
9、5)+jk = score; else _root.player(i*15)+jk = score; k+; j+; i+; stop();,,新建按钮元件“重新开始”。,,新建影片元件“结束影片”，在“图层1”的第2和4帧插入关键帧，并将按钮元件“重新开始”拖拽到第2帧处，并添加如下action语句。然后新建“图层2”，在“图层2”的第2帧处添加文本“电脑获胜”，在第3帧处添加文本“恭喜获胜”。,on (release) gotoAndPlay(4); ,,新建“图层3”，在前3帧添加“stop()”语句，在第4帧添加如下action语句。,i = 0; while (225=i) remo
10、veMovieClip(_root.black add i); removeMovieClip(_root.white add i); removeMovieClip(_root.b add i); i+; _root.gotoAndPlay(“run“);,,新建影片元件“电脑走棋”，在第5帧处插入关键 帧，在第10帧处插入关键帧，并在第1关键帧添加文 本“黑棋”，在第5关键帧添加文本“白棋”。然后新建图层，在第1帧添加“stop()”语句，在第10帧添加如下action语句。,if (_root.playnow = “computer“) _root.func.makelist(“whit
11、e“); _root.func.makelist(“black“); max_computer = 0; max_player = 0; k = 0; j = 0; while (j15) i= 0; while (i15) k = 0; while (k4) ,,if (_puter(j*15)+ik = max_computer) rndnum = random(100)+1; if (50rndnum) max_computer = _puter(j*15)+ik; xc = i; yc = j; if (max_computer_puter(j*15)+ik) max_computer
12、 = _puter(j*15)+ik; xc = i; yc = j; ,if (max_player_root.player(j*15)+ik) max_player = _root.player(j*15)+ik; xp = i; yp = j; k+; i+; j+; ,,if (max_playermax_computer) x = xc; y = yc; else x = xp; y = yp; num = (y*15)+x; removeMovieClip(_root.b add num); duplicateMovieClip(_root.white, “white“ add n
13、um,num+300); setProperty(_root.white add num, _x, 34.7+(x*20); setProperty(_root.white add num, _y, 34.7+(y*20); _root.tableyx = 2; _root.display = “Xpos : “+(x+1); temp = chr(y+65); _root.display1 = “Ypos : “+temp; _root.playnow = “player“; xx = x; yy = y; k = 0; while (k4) if (_root.a_result != 6) _root.a_result = 0; x = xx; y = yy;,while (_root.tableyx = 2) and (y+_root.dirk1)=-1) and (x+_root.dirk0)=-1) ,www.themega
