tictactoe.txt

来自「A very smaller script interpretor that j」· 文本 代码 · 共 53 行

'主程序
      	'调用此脚本时，需要加入chess环境变量，类型Array ，int[3][3]
      	NONE=0
      	BLACK=1 '黑棋
      	RED=2  '红棋

      	B_WIN=0 '黑胜
      	B_FAIL=1'黑败
	B_NONE=2 '未分胜负

      	'行相同
      	i=0
	while(i<asize(chess))
        	result=check(chess[i][0],chess[i][1],chess[i][2])
                if(result<>B_NONE)
                	ret result
                endif
                i=i+1
        loop

        '列相同
        i=0
        while(i<asize(chess))
        	result=check(chess[0][i],chess[1][i],chess[2][i])
                if(result<>B_NONE)
                	ret result
                endif
        	i=i+1
        loop

        '斜线相同
        result=check(chess[0][0],chess[1][1],chess[2][2])
        if(result<>B_NONE)
                ret result
        endif
        result=check(chess[0][2],chess[1][1],chess[2][0])
        if(result<>B_NONE)
                ret result
        endif
ret  b_none

'检测三个值是否相同，以此判定胜负
sub check(x,y,z)
	if(x=y&x=z)
              	if(x=black)
			ret b_win
		endif
		if(x=red)
                	ret b_fail
                endif
        endif
ret b_none