锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net小游戏代码 vb游戏代码大全( 四 )

IT技术true


y(4) = (j - 1) - 1
x1(4) = i - 1''吃子坐标
y1(4) = j - 1
If x(4)0 And y(4)0 And x(4)9 And y(4)9 And ChessBoard(x(4), y(4)) = 0 Then _
EAT = True: IsEat(4) = True ''有可吃子，必需走此步，其余走法无效
End If
''吃子式走法2
If Int(ChessBoard(i - 1, j + 1) / 100) = NextCer(Cer) And (Cer = 1 Or ChessBoard(i, j) Mod 100 = 2) Then
x(5) = (i - 1) - 1
y(5) = (j + 1) + 1
x1(5) = i - 1
y1(5) = j + 1
If x(5)0 And y(5)0 And x(5)9 And y(5)9 And ChessBoard(x(5), y(5)) = 0 Then _
EAT = True: IsEat(5) = True ''有可吃子，必需走此步，其余走法无效
End If
''吃子式走法3
If Int(ChessBoard(i + 1, j - 1) / 100) = NextCer(Cer) And (Cer = 2 Or ChessBoard(i, j) Mod 100 = 2) Then
x(6) = (i + 1) + 1
y(6) = (j - 1) - 1
x1(6) = i + 1
y1(6) = j - 1
If x(6)0 And y(6)0 And x(6)9 And y(6)9 And ChessBoard(x(6), y(6)) = 0 Then _
EAT = True: IsEat(6) = True ''有可吃子，必需走此步，其余走法无效
End If
''吃子式走法4
If Int(ChessBoard(i + 1, j + 1) / 100) = NextCer(Cer) And (Cer = 2 Or ChessBoard(i, j) Mod 100 = 2) Then
x(7) = (i + 1) + 1
y(7) = (j + 1) + 1
x1(7) = i + 1
y1(7) = j + 1
If x(7)0 And y(7)0 And x(7)9 And y(7)9 And ChessBoard(x(7), y(7)) = 0 Then _
EAT = True: IsEat(7) = True ''有可吃子，必需走此步，其余走法无效
End If
''如果有吃子走法 ， 删除没有吃子的其它走法
If EAT = True Then
For a = 0 To 7
If IsEat(a) = False Then x(a) = -1
Next a
End If
''存入Sc(走法表)中
For a = 0 To 7
'If x(a) = 5 And y(a) = 2 Then Stop
''如果超过棋盘将不能走
If x(a)0 And y(a)0 And x(a)9 And y(a)9 Then
''如果目标有棋子则不能走，为0才存入
If ChessBoard(x(a), y(a)) = 0 Then
''将走法存入“走法表”
Sc(k).Initx = i
Sc(k).Inity = j
Sc(k).ObjX = x(a)
Sc(k).ObjY = y(a)
Sc(k).x1 = x1(a)''被吃子位置
Sc(k).y1 = y1(a)
If IsEat(a) = True Then Sc(k).Allow = True ''如果有吃子，则允许此着走法
k = k + 1
End If
End If
Next a
'If EAT = True Then i = 100: j = 100 ''如果有吃子则不必再搜索
End If
Next j
Next i
MaxValue = https://www.04ip.com/post/-30000''当前分数
tTemp = False
''搜索是否有允许走法 ， 如果没有则所有走法皆允许
For i = 0 To k - 1
If Sc(i).Allow = True Then tTemp = True
Next i
''如果有允许走法，则除允许走法外，其余走法皆不允许走
If tTemp = False Then
For i = 0 To k - 1: Sc(i).Allow = True: Next i
End If
''试走每种走法
For i = 0 To k - 1
If Sc(i).Allow = True Then
b1 = ChessBoard(Sc(i).Initx, Sc(i).Inity)''记录起点棋子和终点棋子
b2 = ChessBoard(Sc(i).ObjX, Sc(i).ObjY)
b = ChessBoard(Sc(i).x1, Sc(i).y1)''记录被吃子位置的棋子
ChessBoard(Sc(i).Initx, Sc(i).Inity) = 0 ''清除起点的棋子
ChessBoard(Sc(i).ObjX, Sc(i).ObjY) = b1 ''试下棋
ChessBoard(Sc(i).x1, Sc(i).y1) = 0''清除被吃子位置的棋子
''如果到边界则威力加强
''下句：如果是黑方(101、102)
If Cer = 1 Then
''下句：如果走到第一行则棋子变成102，威力加强
If Sc(i).ObjX = 1 Then ChessBoard(Sc(i).ObjX, Sc(i).ObjY) = 102
End If
''下句：如果是红方(201、202)
If Cer = 2 Then
''下句：如果走到第八行则棋子变成202，威力加强
If Sc(i).ObjX = 8 Then ChessBoard(Sc(i).ObjX, Sc(i).ObjY) = 202
End If
If b0 And IsLine(Cer, Sc(i).ObjX, Sc(i).ObjY) = True And EAT = True Then
''如果可连续吃子
v = CurrentValue(Cer) + 300''V为当前局面价值加300分

推荐阅读


上一篇：javascript实现效果，javascript放大镜效果

下一篇：html5兴起，html5概述