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