1. 注释:注意:在自定义界面的VB源代码里设置变量默认值即可,脚本里不用设置默认值
  2. 用户定义变量 NongTian=DropList{"关闭":0|"开启":1}=1 "自动占农田"
  3. 用户定义变量 MinFang=DropList{"关闭":0|"开启":1}=1 "升级民房"
  4. 用户定义变量 XunLian=DropList{"关闭":0|"开启1234位置":1|"开启1345位置":2|"开启12345位置":3}=2 "自动训练"
  5. 用户定义变量 XL1="175,307" "训练链接坐标"
  6. 用户定义变量 XLwujiang1="440,320" "训练第一位置武将坐标"
  7. 用户定义变量 XLTuFeiMengJin=DropList{"关闭":0|"开启突一位置":1|"开启突二位置":2|"开启突三位置":3|"开启突四位置":4|"开启突五位置":5}=1 "突飞猛进"
  8. 用户定义变量 YiBing=DropList{"关闭":0|"开启":1}=1 "自动收义兵"
  9. 用户定义变量 KeJi=DropList{"关闭":0|"科技铠甲":1|"科技甲胄":2|"科技侦察队":3|"科技列队":4|"科技雁行阵":5|"科技战争檄文":6}=1 "升级科技"
  10. 用户定义变量 CK1=DropList{"关闭":0|"开启":1}=0 "游戏窗口一"
  11. 用户定义变量 CKJB1="" "窗口一句柄"
  12. 用户定义变量 CK2=DropList{"关闭":0|"开启":1}=0 "游戏窗口二"
  13. 用户定义变量 CKJB2="" "窗口二句柄"
  14. 用户定义变量 CK3=DropList{"关闭":0|"开启":1}=0 "游戏窗口三"
  15. 用户定义变量 CKJB3="" "窗口三句柄"
  16. 用户定义变量 ZJ1="628,273" "建筑1"
  17. 用户定义变量 ZJ2="" "建筑2"
  18. 用户定义变量 ZJ3="" "建筑3"
  19. 用户定义变量 ZJ4="" "建筑4"
  20. 用户定义变量 ZJ5="" "建筑5"
  21. 用户定义变量 ZJ6="" "建筑6"
  22. 用户定义变量 ZJ7="" "建筑7"
  23. 用户定义变量 ZJ8="" "建筑8"
  24. 用户定义变量 ZJ9="" "建筑9"
  25. 用户定义变量 ZJ10="" "建筑10"
  26. 用户定义变量 NT1="" "农田1"
  27. 用户定义变量 NT2="" "农田2"
  28. 用户定义变量 NT3="" "农田3"
  29. 用户定义变量 NT4="" "农田4"
  30. 用户定义变量 NT5="" "农田5"
  31. 定义变量 Cor
  32. (语句无法识别,可能有错误): dim s,x,y,MFi,allx,ally,outi,x1,y1,shuaxini //控制循环最大次数
  33. 定义变量 found, found1, s1
  34. (语句无法识别,可能有错误): dim MF(20,2) //记录已经升级过的建筑坐标,直到找不到再清空
  35. (语句无法识别,可能有错误): Dim NT(5,2) //记录5块农田的坐标
  36. 定义变量 t1
  37. 令 t1 = now
  38. 令 t2 = now
  39. (语句无法识别,可能有错误): t2jg=600 //农田间隔默认10分钟检测
  40. 令 allx = Sys.GetScRX()
  41. 令 ally = Sys.GetScRY()
  42. 令 s1 = InStr(XL1,",")
  43. 如果 s1 <= 0 则
  44.     弹出窗口 ("训练坐标必须指定,请按F9取得坐标")
  45.     脚本停止运行
  46. 条件结束
  47. 令 s1 = InStr(ZJ1,",")
  48. 如果 s1 > 0 则
  49.     令 MF(1,1) = int(Mid(ZJ1,1,s1 - 1))
  50.     令 MF(1,2) = int(Mid(ZJ1,s1 + 1))
  51. 否则
  52.     令 MF(1,1) = 0
  53.     令 MF(1,2) = 0
  54. 条件结束
  55. 令 s1 = InStr(ZJ2,",")
  56. 如果 s1 > 0 则
  57.     令 MF(2,1) = int(Mid(ZJ2,1,s1 - 1))
  58.     令 MF(2,2) = int(Mid(ZJ2,s1 + 1))
  59. 否则
  60.     令 MF(2,1) = 0
  61.     令 MF(2,2) = 0
  62. 条件结束
  63. 令 s1 = InStr(ZJ3,",")
  64. 如果 s1 > 0 则
  65.     令 MF(3,1) = int(Mid(ZJ3,1,s1 - 1))
  66.     令 MF(3,2) = int(Mid(ZJ3,s1 + 1))
  67. 否则
  68.     令 MF(3,1) = 0
  69.     令 MF(3,2) = 0
  70. 条件结束
  71. 令 s1 = InStr(ZJ4,",")
  72. 如果 s1 > 0 则
  73.     令 MF(4,1) = int(Mid(ZJ4,1,s1 - 1))
  74.     令 MF(4,2) = int(Mid(ZJ4,s1 + 1))
  75. 否则
  76.     令 MF(4,1) = 0
  77.     令 MF(4,2) = 0
  78. 条件结束
  79. 令 s1 = InStr(ZJ5,",")
  80. 如果 s1 > 0 则
  81.     令 MF(5,1) = int(Mid(ZJ5,1,s1 - 1))
  82.     令 MF(5,2) = int(Mid(ZJ5,s1 + 1))
  83. 否则
  84.     令 MF(5,1) = 0
  85.     令 MF(5,2) = 0
  86. 条件结束
  87. 令 s1 = InStr(ZJ6,",")
  88. 如果 s1 > 0 则
  89.     令 MF(6,1) = int(Mid(ZJ6,1,s1 - 1))
  90.     令 MF(6,2) = int(Mid(ZJ6,s1 + 1))
  91. 否则
  92.     令 MF(6,1) = 0
  93.     令 MF(6,2) = 0
  94. 条件结束
  95. 令 s1 = InStr(ZJ7,",")
  96. 如果 s1 > 0 则
  97.     令 MF(7,1) = int(Mid(ZJ7,1,s1 - 1))
  98.     令 MF(7,2) = int(Mid(ZJ7,s1 + 1))
  99. 否则
  100.     令 MF(7,1) = 0