1. 注释:X,Y定义为坐标,COL定义为颜色,j定义为按键
  2. (语句无法识别,可能有错误): Dim X,Y //坐标(4个点)
  3. (语句无法识别,可能有错误): Dim COL(127) //颜色(32个技能判断32*4)
  4. (语句无法识别,可能有错误): Dim SHOTCUT(31) //按键(32个按键)
  5. (语句无法识别,可能有错误): Dim GCD //公共CD时间
  6. (语句无法识别,可能有错误): Dim VALIDNUM //有效的技能数量
  7. 注释:临时变量
  8. 定义变量 i
  9. 定义变量 k, Key
  10. 定义变量 c1, c2, c3, c4
  11. 定义变量 FindValid
  12. 定义变量 TempStr
  13. 注释:配置文件路径
  14. 定义变量 INI_FILE
  15. 令 INI_FILE = "c:\dps.ini"
  16. 注释:*************************************************************************************
  17. 如果 MsgBox("是否开始自动攻击,进入或修改配置请点否?",4) = 6 则
  18.     跳转到标记 攻击准备
  19. 条件结束
  20. 令 TempStr = File.ReadINI("参数","GCD",INI_FILE)
  21. 如果 TempStr = "" 则
  22.     调用 File.WriteINI("参数","GCD","500",INI_FILE)
  23. 条件结束
  24. 弹出窗口 "请使用鼠标<左键单击>特征图标中心位置..."
  25. 标记 抓取坐标开始
  26. 令 k = (鼠标)等待按鼠标键
  27. 如果 k <> 32770 则
  28.     跳转到标记 抓取坐标开始
  29. 条件结束
  30. 把当前鼠标所在的位置保存到 (X, Y)
  31. 调用 File.WriteINI("坐标","X",X,INI_FILE)
  32. 调用 File.WriteINI("坐标","Y",Y,INI_FILE)
  33. 令 VALIDNUM = 0
  34. 注释:技能抓取循环
  35. 标记 抓取技能开始
  36. 弹出窗口 "手工调节技能图标位置, 然后输入对应技能按键..."
  37. 令 k = (键盘)等待按任意键
  38. 令 c1 = 得到指定点 (X - 10, Y - 10) 的颜色
  39. 令 c2 = 得到指定点 (X - 10, Y + 10) 的颜色
  40. 令 c3 = 得到指定点 (X + 10, Y - 10) 的颜色
  41. 令 c4 = 得到指定点 (X + 10, Y + 10) 的颜色
  42. 如果 MsgBox("您记录的技能按键为<" & k & ">是否保存按键?",4) = 6 则
  43.     调用 File.WriteINI("颜色特征",VALIDNUM * 4 + 0,c1,INI_FILE)
  44.     调用 File.WriteINI("颜色特征",VALIDNUM * 4 + 1,c2,INI_FILE)
  45.     调用 File.WriteINI("颜色特征",VALIDNUM * 4 + 2,c3,INI_FILE)
  46.     调用 File.WriteINI("颜色特征",VALIDNUM * 4 + 3,c4,INI_FILE)
  47.     调用 File.WriteINI("技能按键顺序",VALIDNUM,k,INI_FILE)
  48.     令 VALIDNUM = VALIDNUM + 1
  49. 条件结束
  50. 如果 MsgBox("您已保存" & VALIDNUM & "个技能,是否继续抓取其余的按键?",4) = 6 则
  51.     跳转到标记 抓取技能开始
  52. 条件结束
  53. 调用 File.WriteINI("参数","技能总数",VALIDNUM,INI_FILE)
  54. 弹出窗口 "按键设置完成"
  55. 注释:*************************************************************************************
  56. 标记 攻击准备
  57. (语句无法识别,可能有错误): TempStr = Plugin.File.ReadINI("参数","GCD",INI_FILE) //GCD赋值
  58. 令 GCD = CInt(TempStr)
  59. (语句无法识别,可能有错误): TempStr = Plugin.File.ReadINI("参数","技能总数",INI_FILE) //技能总数赋值
  60. 令 VALIDNUM = CInt(TempStr)
  61. 注释:技能按键赋值
  62. 循环 i 从 0 到 VALIDNUM - 1
  63.     令 TempStr = File.ReadINI("技能按键顺序",i,INI_FILE)
  64.     令 SHOTCUT(i) = CInt(TempStr)
  65. 循环结束
  66. 注释:坐标赋值
  67. 令 TempStr = File.ReadINI("坐标","X",INI_FILE)
  68. 令 X = CInt(TempStr)
  69. 令 TempStr = File.ReadINI("坐标","Y",INI_FILE)
  70. 令 Y = CInt(TempStr)
  71. 注释:颜色特征赋值
  72. 循环 i 从 0 到 VALIDNUM * 4 - 1
  73.     令 TempStr = File.ReadINI("颜色特征",i,INI_FILE)
  74.     令 COL(i) = TempStr
  75. 循环结束
  76. 注释:*************************************************************************************
  77. 标记 自动攻击
  78. 注释:判断当前技能状态
  79. 令 c1 = 得到指定点 (X - 10, Y - 10) 的颜色
  80. 令 c2 = 得到指定点 (X - 10, Y + 10) 的颜色
  81. 令 c3 = 得到指定点 (X + 10, Y - 10) 的颜色
  82. 令 c4 = 得到指定点 (X + 10, Y + 10) 的颜色
  83. 令 FindValid = 0
  84. (语句无法识别,可能有错误): For i = 0 To VALIDNUM - 1 //VALIDNUM值为需要判断的技能数量,之前已输入
  85. 注释:4个坐标点对比
  86. 如果 c1 = COL(i * 4) 并且 c2 = COL(i * 4 + 1) 并且 c3 = COL(i * 4 + 2) 并且 c4 = COL(i * 4 + 3) 则
  87.     令 FindValid = 1
  88.     (键盘)按 CByte(SHOTCUT(i)) 键, 2次
  89.     (语句无法识别,可能有错误): Delay GCD //延时
  90.     跳出循环
  91. 条件结束
  92. 循环结束
  93. 如果 FindValid = 0 则
  94.     (语句无法识别,可能有错误): Delay 50 //延时
  95. 条件结束
  96. (语句无法识别,可能有错误): Goto 自动攻击 //跳转到攻击开始