00恢复空格状态r
cc开始统计尝试次数r
ifcc64score1score2如果尝试超过空格数则停步r
r
MoveColorxyr
fillellipsexy1515r
breakr
r
elser
co
ti
ue如果按键无效r
r
DoScore分数的改变r
break棋盘变化了，则轮对方走棋r
r
else已经有棋子就继续按键r
co
ti
uer
r
else四个方向按键的判断r
ifkeyLEFTx120左方向键r
r
MoveColorxyr
fillellipsexy1515r
SetPlayColortr
x40r
fillellipsexy1515r
r
elser
ifkeyRIGHTx400y80右方向键r
r
MoveColorxyr
fillellipsexy1515r
SetPlayColortr
x40r
fillellipsexy1515r
r
elser
ifkeyUPy120上方向键r
r
MoveColorxyr
fillellipsexy1515r
SetPlayColortr
y40r
fillellipsexy1515r
r
elser
ifkeyDOWNy400下方向键r
r
MoveColorxyr
fillellipsexy1515r
SetPlayColortr
y40r
fillellipsexy1515r
r
r
ifkeyESC结束游戏r
breakr
ifscore1score264score10score20格子已经占满或一方棋子为0判断胜负r
r
playWi
输出最后结果r
breakr
r
tt21一方走后，改变棋子颜色即轮对方走r
cc0计数值恢复为0r
e
dwhiler
r
voidSetPlayColori
tt设置棋子颜色r
r
ift21r
setfillstyleSOLID_FILL15白色r
elser
setfillstyleSOLID_FILL8灰色r
r
voidMoveColori
txi
ty走了一步后恢复原来格子的状态r
r
ify100如果是从起点出发就恢复蓝色r
setfillstyleSOLID_FILLBLUEr
else其他情况如果是1就恢复白色棋子2恢复黑色棋子或恢复蓝色棋盘r
switchax12040y12040r
r
case1r
setfillstyleSOLID_FILL15break白色r
case2r
setfillstyleSOLID_FILL8break黑色r
defaultr
setfillstyleSOLID_FILLBLUE蓝色r
r
r
i
tQpCha
gei
txi
tyi
tt判断棋盘的变化r
r
i
tijkkkiijjyesr
yes0r
ix12040计算数组元素的行下标r
jy12040计算数组元素的列下标r
SetPlayColort设置棋子变化的颜色r
开始往8个方向判断变化r
ifj6往右边r
r
forkj1k8kr
ifaikaijaik0遇到自己的棋子或空格结束r
breakr
ifaik0k8r
r
forkkj1kkkk8kk判断右边r
r
aikkaij改变棋子颜色r
fillellipse120i40120kk401515r
r
ifkkj1条件成立则有棋子改变过颜色r
yes1r
r
r
ifj1判断左边r
r
r