感谢神仙XX的建议，解决一个三国志开发难题

游戏之家

感谢神仙XX的建议，解决一个三国志开发难题

和神仙XX讨论了一下我的三国新作里的问题，神仙XX看出了我程序的问题，
就是我每个城市只设置了3个武将和一个君主，实际上一个国家只有一名武将，
这样如果发生战争后，武将战死或逃到其他城市程序将出现漏洞，

我现在将原来每个城市的属性增加到7种，后增加的几种是蜀、魏、吴三国无太守自治三种，
最后一个是空城状态。

这个游戏做起来没有想象的那么简单，目前争取把城市属性和城市之间关系、及内政部分做好再做打仗。

AG1=N ，N是城市的属性（注意：以下不是完整的游戏代码，请不要乱批评，谢谢！）

Private Sub CMD1_Click()          '成都
UPDT = 1: KA(0).Caption = "成都"
Call CMD1DATA
End Sub
Sub CMD1DATA()
If AG1 = 7 Then A3 = 0: A4 = 0: A11 = 0: Call KCITY               '空城
KA(3).Caption = A3: KA(4).Caption = A4: KA(5).Caption = A5
KA(6).Caption = A6: KA(7).Caption = A7: KA(8).Caption = A8
KA(9).Caption = A9: KA(10).Caption = A10: KA(11).Caption = A11
If AG1 = 1 Then
KA(1).Caption = "刘禅": KA(2).Caption = "姜维"
BitBlt Me.hDC, 12, 515, 25, 15, QI3.hDC, 25, 0, SRCCOPY
BitBlt Me.hDC, 374, 494, 153, 105, MANPIC.hDC, 154, 0, SRCCOPY
End If
If AG1 = 2 Then
KA(1).Caption = "曹??quot;: KA(2).Caption = "州泰"
BitBlt Me.hDC, 12, 515, 25, 15, QI3.hDC, 50, 0, SRCCOPY
BitBlt Me.hDC, 374, 494, 153, 105, MANPIC.hDC, 154, 106, SRCCOPY
End If
If AG1 = 3 Then
KA(1).Caption = "孙权": KA(2).Caption = "陆逊"
BitBlt Me.hDC, 12, 515, 25, 15, QI3.hDC, 75, 0, SRCCOPY
BitBlt Me.hDC, 374, 494, 153, 105, MANPIC.hDC, 154, 212, SRCCOPY
End If
If AG1 = 4 Then Call ZIZHIA
If AG1 = 5 Then Call ZIZHIB
If AG1 = 6 Then Call ZIZHIC
Me.Refresh
End Sub

superdai

楼上的不要太打击人么。

游戏之家

他们是VB情报局论坛过来踩场的，因为我们这里是中国最大的业余游戏开发论坛，
最近我写了些VB作品，有些人狗急跳墙了。