End If
    If x=8 Then
        Call 建筑8()
    End If
    If x=9 Then
        Call 建筑9()
    End If
    If x=10 Then
        Call 建筑10()
    End If
End Sub
Sub 建筑1()
    If jianzhu1=1Then
        Call 升级主城()
    End If
    If jianzhu1=2Then
        Call 升级军机处()
    End If
    If jianzhu1=3 Then
        Call 升级兵营()
    End If
    If jianzhu1=4 Then
        Call 升级校场()
    End If
    If jianzhu1=5 Then
        Call 升级商店()
    End If
    If jianzhu1=6 Then
        Call 升级市场()
    End If
    If jianzhu1=7 Then
        Call 升级粮仓()
    End If
    If jianzhu1=8 Then
        Call 升级银库()
    End If
    If jianzhu1=9 Then
        Call 升级帐房()
    End If
    If jianzhu1=10 Then
        Call 升级民房1()
    End If
    If jianzhu1=11 Then
        Call 升级民房2()
    End If
    If jianzhu1=12 Then
        Call 升级民房3()
    End If
    If jianzhu1=13 Then
        Call 升级民房4()
    End If
    If jianzhu1=14 Then
        Call 升级民房5()
    End If
    If jianzhu1=15 Then
        Call 升级民房6()
    End If
    If jianzhu1=16 Then
        Call 升级民房7()
    End If
    Goto 开始
End Sub
Sub 建筑2()
    If jianzhu2=1Then
        Call 升级主城()
    End If
    If jianzhu2=2Then
        Call 升级军机处()
    End If
    If jianzhu2=3 Then
        Call 升级兵营()
    End If
    If jianzhu2=4 Then
        Call 升级校场()
    End If
    If jianzhu2=5 Then
        Call 升级商店()
    End If
    If jianzhu2=6 Then
        Call 升级市场()
    End If
    If jianzhu2=7 Then
        Call 升级粮仓()
    End If
    If jianzhu2=8 Then
        Call 升级银库()
    End If
    If jianzhu2=9 Then
        Call 升级帐房()
    End If
    If jianzhu2=10 Then
        Call 升级民房1()
    End If
    If jianzhu2=11 Then
        Call 升级民房2()
    End If
    If jianzhu2=12 Then
        Call 升级民房3()
    End If
    If jianzhu2=13 Then