自定义界面的VB源代码里设置变量默认值即可，脚本里不用设置默认值
UserVar NongTian=DropList{"关闭":0|"开启":1}=1 "自动占农田"
UserVar MinFang=DropList{"关闭":0|"开启":1}=1 "升级民房"
UserVar XunLian=DropList{"关闭":0|"开启1234位置":1|"开启1345位置":2|"开启12345位置":3}=2 "自动训练"
UserVar XL1="175,307" "训练链接坐标"
UserVar XLwujiang1="440,320" "训练第一位置武将坐标"
UserVar XLTuFeiMengJin=DropList{"关闭":0|"开启突一位置":1|"开启突二位置":2|"开启突三位置":3|"开启突四位置":4|"开启突五位置":5}=1 "突飞猛进"
UserVar YiBing=DropList{"关闭":0|"开启":1}=1 "自动收义兵"
UserVar KeJi=DropList{"关闭":0|"科技铠甲":1|"科技甲胄":2|"科技侦察队":3|"科技列队":4|"科技雁行阵":5|"科技战争檄文":6}=1 "升级科技"
UserVar CK1=DropList{"关闭":0|"开启":1}=0 "游戏窗口一"
UserVar CKJB1="" "窗口一句柄"
UserVar CK2=DropList{"关闭":0|"开启":1}=0 "游戏窗口二"
UserVar CKJB2="" "窗口二句柄"
UserVar CK3=DropList{"关闭":0|"开启":1}=0 "游戏窗口三"
UserVar CKJB3="" "窗口三句柄"
UserVar ZJ1="628,273" "建筑1"
UserVar ZJ2="" "建筑2"
UserVar ZJ3="" "建筑3"
UserVar ZJ4="" "建筑4"
UserVar ZJ5="" "建筑5"
UserVar ZJ6="" "建筑6"
UserVar ZJ7="" "建筑7"
UserVar ZJ8="" "建筑8"
UserVar ZJ9="" "建筑9"
UserVar ZJ10="" "建筑10"
UserVar NT1="" "农田1"
UserVar NT2="" "农田2"
UserVar NT3="" "农田3"
UserVar NT4="" "农田4"
UserVar NT5="" "农田5"
dim Cor
dim s,x,y,MFi,allx,ally,outi,x1,y1,shuaxini //控制循环最大次数
Dim found,found1,s1
dim MF(20,2) //记录已经升级过的建筑坐标，直到找不到再清空
Dim NT(5,2) //记录5块农田的坐标
Dim t1
t1=now
t2=now
t2jg=600 //农田间隔默认10分钟检测
allx=Plugin.Sys.GetScRX()
ally=Plugin.Sys.GetScRY()
s1=InStr(XL1,",")
If s1<=0 Then
  MessageBox("训练坐标必须指定，请按F9取得坐标")
  EndScript
End If

s1=InStr(ZJ1,",")
If s1>0 Then
  MF(1,1)=int(Mid(ZJ1,1,s1-1)):MF(1,2)=int(Mid(ZJ1,s1+1))
Else
  MF(1,1)=0:MF(1,2)=0
End If
s1=InStr(ZJ2,",")
If s1>0 Then
  MF(2,1)=int(Mid(ZJ2,1,s1-1)):MF(2,2)=int(Mid(ZJ2,s1+1))
Else
  MF(2,1)=0:MF(2,2)=0
End If
s1=InStr(ZJ3,",")
If s1>0 Then
  MF(3,1)=int(Mid(ZJ3,1,s1-1)):MF(3,2)=int(Mid(ZJ3,s1+1))
Else
  MF(3,1)=0:MF(3,2)=0
End If
s1=InStr(ZJ4,",")
If s1>0 Then
  MF(4,1)=int(Mid(ZJ4,1,s1-1)):MF(4,2)=int(Mid(ZJ4,s1+1))
Else
  MF(4,1)=0:MF(4,2)=0
End If
s1=InStr(ZJ5,",")
If s1>0 Then
  MF(5,1)=int(Mid(ZJ5,1,s1-1)):MF(5,2)=int(Mid(ZJ5,s1+1))
Else
  MF(5,1)=0:MF(5,2)=0
End If
s1=InStr(ZJ6,",")
If s1>0 Then
  MF(6,1)=int(Mid(ZJ6,1,s1-1)):MF(6,2)=int(Mid(ZJ6,s1+1))
Else
  MF(6,1)=0:MF(6,2)=0
End If
s1=InStr(ZJ7,",")
If s1>0 Then
  MF(7,1)=int(Mid(ZJ7,1,s1-1)):MF(7,2)=int(Mid(ZJ7,s1+1))
Else
  MF(7,1)=0:MF(7,2)=0
End If
s1=InStr(ZJ8,",")
If s1>0 Then
  MF(8,1)=int(Mid(ZJ8,1,s1-1)):MF(8,2)=int(Mid(ZJ8,s1+1))
Else
  MF(8,1)=0:MF(8,2)=0
End If
s1=InStr(ZJ9,",")
If s1>0 Then
  MF(9,1)=int(Mid(ZJ9,1,s1-1)):MF(9,2)=int(Mid(ZJ9,s1+1))
Else
  MF(9,1)=0:MF(9,2)=0