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