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