Flash游戏制作–五子连珠(二).docVIP

// 显示棋子_root.display = Xpos : + (x + 1);temp = chr ( y + 65);_root.display1 = Ypos : + temp;_root.playnow = player;//判断是否获胜xx = x;yy = y;for (k=0; k4; k++) {if (_root.a_result 6) {_root.a_result = 0;x = xx;y = yy;while ((_root.table[y][x] == 2) and (y+_root.dir[k][1] 16) and (x+_root.dir[k][0] = -1) and (x+_root.dir[k][0] 16) and (y+_root.dir[k][1] = -1)) {x = x + _root.dir[k][0];y = y + _root.dir[k][1];// _root.table[+y+][+x+]=+_root.table[y][x]_root.a_result = _root.a_result+1;}x = xx;y = yy;while ((_root.table[y][x] == 2) and (y+_root.dir[k+4][1] 16) and (x+_root.dir[k+4][0] = -1) and (x+_root.dir[k+4][0] 16) and (y+_root.dir[k+4][1] = -1)) {x = x + _root.dir[k+4][0];y = y + _root.dir[k+4][1];_root.a_result = _root.a_result+1;}if (_root.a_result == 6) {_root.playnow = nobody;}}}if (_root.playnow ==nobody) {_root.gameoverman.gotoAndPlay(2);}}C:新建一个Movie clip组件，并命名为bb,此组件用来计算电脑如何走棋，进入组件编辑状态后，在图层layer1绘制一个有填充色的矩形，然后在第5桢插入一个关键桢，在同样位置绘制一个大小相同填充色不同的矩形。新建一个图层，在矩形里输入提示文字：电脑走棋，然后再新建一个图层Action,在第一桢添加AS: stop();,在第8桢插入一个关键桢，在此桢添加如下AS:if (_root.playnow == computer) {//初始化棋盘_root.func.makelist(white);_root.func.makelist(black);//调用自定义函数max_computer = 0;max_player = 0;k = 0;//定义三变量for (j=0; j15; j++) {for (i=0; i15; i++) {for (k=0; k4; k++) {if (_puter[j*15+i][k] == max_computer) {rndnum = random ( 100 ) + 1;if (rndnum 50) {max_computer = _puter[j*15+i][k] ;xc = i;yc = j;}}if (_puter[j*15+i][k] max_computer) {max_computer = _puter[j*15+i][k] ;xc = i;yc = j;}if (_root.player[j*15+i][k] max_player) {max_player = _root.player[j*15+i][k] ;xp = i;yp = j;}}}} if (max_computer max_player) {x = xc;y = yc;} else {x = xp;y = yp;}// 绘制棋子num = y * 15 + x;removeMovieClip(_root.b add num);duplicateMovieClip(_root.white, white add num, num + 300);setProperty(_root.white add num, _x, 34.7 + x * 20);setProperty(_root.white add