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