00 FindPic 0,0,500,300,"Attachment:\zb.bmp",0.9,zbX,zbY If zbX > 0 And zbY > 0 Then End If Rem 轮 Dim x x=0 Rem 开始 UserVar zhengshou=DropList{"否":"1"|"是":"2"}=0 "自动征收" UserVar nontian=DropList{"否":"1"|"是":"2"}=0"自动占领农田" UserVar yinkuang=DropList{"否":"1"|"是":"2"}=0 "自动占领银矿" UserVar xunlian=DropList{"否":"0"|"武将一":"1"|"武将二":"2"|"武将三":"3"|"武将四":"4"}=0 "训练-突飞猛进" UserVar keji=DropList{"否":"0"|"第一个":"1"|"第二个":"2"|"第三个":"3"|"第四个":"4"|"第五个":"5"|"第六个":"6"|"第七个":"7"|"第八个":"8"|"第九个":"9"|"第十个":"10"|"第十一个":"11"|"第十二个":"12"|"第十三个":"13"}=0 "科技升级(重复)" UserVar jianzhu1=DropList{"否":"0"|"主城":"1"|"军机处":"2"|"兵营":"3"|"校场":"4"|"商店":"5"|"市场":"6"|"粮仓":"7"|"银库":"8"|"帐房":"9"|"民居一":"10"|"民居二":"11"|"民居三":"12"|"民居四":"13"|"民居五":"14"|"民居六":"15"|"民居七":"16"}=0 "建筑一" UserVar jianzhu2=DropList{"否":"0"|"主城":"1"|"军机处":"2"|"兵营":"3"|"校场":"4"|"商店":"5"|"市场":"6"|"粮仓":"7"|"银库":"8"|"帐房":"9"|"民居一":"10"|"民居二":"11"|"民居三":"12"|"民居四":"13"|"民居五":"14"|"民居六":"15"|"民居七":"16"}=0 "建筑二" UserVar jianzhu3=DropList{"否":"0"|"主城":"1"|"军机处":"2"|"兵营":"3"|"校场":"4"|"商店":"5"|"市场":"6"|"粮仓":"7"|"银库":"8"|"帐房":"9"|"民居一":"10"|"民居二":"11"|"民居三":"12"|"民居四":"13"|"民居五":"14"|"民居六":"15"|"民居七":"16"}=0 "建筑三" UserVar jianzhu4=DropList{"否":"0"|"主城":"1"|"军机处":"2"|"兵营":"3"|"校场":"4"|"商店":"5"|"市场":"6"|"粮仓":"7"|"银库":"8"|"帐房":"9"|"民居一":"10"|"民居二":"11"|"民居三":"12"|"民居四":"13"|"民居五":"14"|"民居六":"15"|"民居七":"16"}=0 "建筑四" UserVar jianzhu5=DropList{"否":"0"|"主城":"1"|"军机处":"2"|"兵营":"3"|"校场":"4"|"商店":"5"|"市场":"6"|"粮仓":"7"|"银库":"8"|"帐房":"9"|"民居一":"10"|"民居二":"11"|"民居三":"12"|"民居四":"13"|"民居五":"14"|"民居六":"15"|"民居七":"16"}=0 "建筑五" UserVar jianzhu6=DropList{"否":"0"|"主城":"1"|"军机处":"2"|"兵营":"3"|"校场":"4"|"商店":"5"|"市场":"6"|"粮仓":"7"|"银库":"8"|"帐房":"9"|"民居一":"10"|"民居二":"11"|"民居三":"12"|"民居四":"13"|"民居五":"14"|"民居六":"15"|"民居七":"16"}=0 "建筑六" UserVar jianzhu7=DropList{"否":"0"|"主城":"1"|"军机处":"2"|"兵营":"3"|"校场":"4"|"商店":"5"|"市场":"6"|"粮仓":"7"|"银库":"8"|"帐房":"9"|"民居一":"10"|"民居二":"11"|"民居三":"12"|"民居四":"13"|"民居五":"14"|"民居六":"15"|"民居七":"16"}=0 "建筑七" UserVar jianzhu8=DropList{"否":"0"|"主城":"1"|"军机处":"2"|"兵营":"3"|"校场":"4"|"商店":"5"|"市场":"6"|"粮仓":"7"|"银库":"8"|"帐房":"9"|"民居一":"10"|"民居二":"11"|"民居三":"12"|"民居四":"13"|"民居五":"14"|"民居六":"15"|"民居七":"16"}=0 "建筑八" UserVar jianzhu9=DropList{"否":"0"|"主城":"1"|"军机处":"2"|"兵营":"3"|"校场":"4"|"商店":"5"|"市场":"6"|"粮仓":"7"|"银库":"8"|"帐房":"9"|"民居一":"10"|"民居二":"11"|"民居三":"12"|"民居四":"13"|"民居五":"14"|"民居六":"15"|"民居七":"16"}=0 "建筑九" UserVar jianzhu10=DropList{"否":"0"|"主城":"1"|"军机处":"2"|"兵营":"3"|"校场":"4"|"商店":"5"|"市场":"6"|"粮仓":"7"|"银库":"8"|"帐房":"9"|"民居一":"10"|"民居二":"11"|"民居三":"12"|"民居四":"13"|"民居五":"14"|"民居六":"15"|"民居七":"16"}=0 "建筑十" //---------------主程序----------- //---------------科技----------- IfColor 49,253,"33cc66",0 Then Call 升级科技() End If //-------------科技结束----------- Delay 3000 //---------------征收----------- If zhengshou=2 Then IfColor zbX-206,zbY+123,"33cc66",0 Then Call 征收() End If End If //-------------征收结束----------- Delay 3000 //---------------训练----------- If xunlian=2 Then IfColor zbX-138,zbY+161,"ffcc33",0 Then Else Call 突飞猛进() End If End If //-------------训练结束----------- Delay 3000 //---------------建筑----------- IfColor zbX-205,zbY+179,"33cc66",0 Then Call 建筑排程() End If IfColor zbX-205,zbY+199,"33cc66",0 Then Call 建筑排程() End If IfColor zbX-205,zbY+218,"33cc66",0 Then Call 建筑排程() End If //-------------建筑结束----------- Delay 3000 //---------------农田----------- If nontian=2 Then Call 占领农田() End If Rem NT //-------------农田结束----------- Delay 3000 //----------------银矿----------- If yinkuang=2 Then Call 银矿占领() End If Rem YKZL //--------------银矿结束----------- Delay 300000 Goto 开始 //-------------主程序结束----------- //---------------升级部分----------- Sub 建筑排程() x=x+1 If x=1 Then Call 建筑1() End If If x=2 Then Call 建筑2() End If If x=3 Then Call 建筑3() End If If x=4 Then Call 建筑4() End If If x=5 Then Call 建筑5() End If If x=6 Then Call 建筑6() End If If x=7 Then Call 建筑7()