- 注释:X,Y定义为坐标,COL定义为颜色,j定义为按键
- (语句无法识别,可能有错误): Dim X,Y //坐标(4个点)
- (语句无法识别,可能有错误): Dim COL(127) //颜色(32个技能判断32*4)
- (语句无法识别,可能有错误): Dim SHOTCUT(31) //按键(32个按键)
- (语句无法识别,可能有错误): Dim GCD //公共CD时间
- (语句无法识别,可能有错误): Dim VALIDNUM //有效的技能数量
- 注释:临时变量
- 定义变量 i
- 定义变量 k, Key
- 定义变量 c1, c2, c3, c4
- 定义变量 FindValid
- 定义变量 TempStr
- 注释:配置文件路径
- 定义变量 INI_FILE
- 令 INI_FILE = "c:\dps.ini"
- 注释:*************************************************************************************
- 如果 MsgBox("是否开始自动攻击,进入或修改配置请点否?",4) = 6 则
- 跳转到标记 攻击准备
- 条件结束
- 令 TempStr = File.ReadINI("参数","GCD",INI_FILE)
- 如果 TempStr = "" 则
- 调用 File.WriteINI("参数","GCD","500",INI_FILE)
- 条件结束
- 弹出窗口 "请使用鼠标<左键单击>特征图标中心位置..."
- 标记 抓取坐标开始
- 令 k = (鼠标)等待按鼠标键
- 如果 k <> 32770 则
- 跳转到标记 抓取坐标开始
- 条件结束
- 把当前鼠标所在的位置保存到 (X, Y)
- 调用 File.WriteINI("坐标","X",X,INI_FILE)
- 调用 File.WriteINI("坐标","Y",Y,INI_FILE)
- 令 VALIDNUM = 0
- 注释:技能抓取循环
- 标记 抓取技能开始
- 弹出窗口 "手工调节技能图标位置, 然后输入对应技能按键..."
- 令 k = (键盘)等待按任意键
- 令 c1 = 得到指定点 (X - 10, Y - 10) 的颜色
- 令 c2 = 得到指定点 (X - 10, Y + 10) 的颜色
- 令 c3 = 得到指定点 (X + 10, Y - 10) 的颜色
- 令 c4 = 得到指定点 (X + 10, Y + 10) 的颜色
- 如果 MsgBox("您记录的技能按键为<" & k & ">是否保存按键?",4) = 6 则
- 调用 File.WriteINI("颜色特征",VALIDNUM * 4 + 0,c1,INI_FILE)
- 调用 File.WriteINI("颜色特征",VALIDNUM * 4 + 1,c2,INI_FILE)
- 调用 File.WriteINI("颜色特征",VALIDNUM * 4 + 2,c3,INI_FILE)
- 调用 File.WriteINI("颜色特征",VALIDNUM * 4 + 3,c4,INI_FILE)
- 调用 File.WriteINI("技能按键顺序",VALIDNUM,k,INI_FILE)
- 令 VALIDNUM = VALIDNUM + 1
- 条件结束
- 如果 MsgBox("您已保存" & VALIDNUM & "个技能,是否继续抓取其余的按键?",4) = 6 则
- 跳转到标记 抓取技能开始
- 条件结束
- 调用 File.WriteINI("参数","技能总数",VALIDNUM,INI_FILE)
- 弹出窗口 "按键设置完成"
- 注释:*************************************************************************************
- 标记 攻击准备
- (语句无法识别,可能有错误): TempStr = Plugin.File.ReadINI("参数","GCD",INI_FILE) //GCD赋值
- 令 GCD = CInt(TempStr)
- (语句无法识别,可能有错误): TempStr = Plugin.File.ReadINI("参数","技能总数",INI_FILE) //技能总数赋值
- 令 VALIDNUM = CInt(TempStr)
- 注释:技能按键赋值
- 循环 i 从 0 到 VALIDNUM - 1
- 令 TempStr = File.ReadINI("技能按键顺序",i,INI_FILE)
- 令 SHOTCUT(i) = CInt(TempStr)
- 循环结束
- 注释:坐标赋值
- 令 TempStr = File.ReadINI("坐标","X",INI_FILE)
- 令 X = CInt(TempStr)
- 令 TempStr = File.ReadINI("坐标","Y",INI_FILE)
- 令 Y = CInt(TempStr)
- 注释:颜色特征赋值
- 循环 i 从 0 到 VALIDNUM * 4 - 1
- 令 TempStr = File.ReadINI("颜色特征",i,INI_FILE)
- 令 COL(i) = TempStr
- 循环结束
- 注释:*************************************************************************************
- 标记 自动攻击
- 注释:判断当前技能状态
- 令 c1 = 得到指定点 (X - 10, Y - 10) 的颜色
- 令 c2 = 得到指定点 (X - 10, Y + 10) 的颜色
- 令 c3 = 得到指定点 (X + 10, Y - 10) 的颜色
- 令 c4 = 得到指定点 (X + 10, Y + 10) 的颜色
- 令 FindValid = 0
- (语句无法识别,可能有错误): For i = 0 To VALIDNUM - 1 //VALIDNUM值为需要判断的技能数量,之前已输入
- 注释:4个坐标点对比
- 如果 c1 = COL(i * 4) 并且 c2 = COL(i * 4 + 1) 并且 c3 = COL(i * 4 + 2) 并且 c4 = COL(i * 4 + 3) 则
- 令 FindValid = 1
- (键盘)按 CByte(SHOTCUT(i)) 键, 2次
- (语句无法识别,可能有错误): Delay GCD //延时
- 跳出循环
- 条件结束
- 循环结束
- 如果 FindValid = 0 则
- (语句无法识别,可能有错误): Delay 50 //延时
- 条件结束
- (语句无法识别,可能有错误): Goto 自动攻击 //跳转到攻击开始