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