- (语句无法识别,可能有错误): MoveTo 50, 50 '【网络坐标】请自行修改
- 情况 1:
- (语句无法识别,可能有错误): MoveTo 50, 100 '【网络坐标】请自行修改
- 情况 2:
- (语句无法识别,可能有错误): MoveTo 50, 150 '【网络坐标】请自行修改
- 选择结束
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- (语句无法识别,可能有错误): LeftClick 1 '鼠标左键点击一次
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- 注释:选择服务器
- 根据 Form1.服务器.ListIndex 选择
- 情况 0:
- (语句无法识别,可能有错误): MoveTo 100, 50 '【服务器坐标】请自行修改
- 情况 1:
- (语句无法识别,可能有错误): MoveTo 100, 100 '【服务器坐标】请自行修改
- 选择结束
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- (语句无法识别,可能有错误): LeftClick 1 '鼠标左键点击一次
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- 注释:选择角色
- 根据 Form1.角色.ListIndex 选择
- 情况 0:
- (语句无法识别,可能有错误): MoveTo 100, 100 '【角色坐标】请自行修改
- 情况 1:
- (语句无法识别,可能有错误): MoveTo 200, 100 '【角色坐标】请自行修改
- 情况 2:
- (语句无法识别,可能有错误): MoveTo 300, 100 '【角色坐标】请自行修改
- 选择结束
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- (语句无法识别,可能有错误): LeftClick 1 '鼠标左键点击一次
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- 注释:循环等待游戏登录到场景中
- 循环开始
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- (语句无法识别,可能有错误): IfColor 50,5,"0000FF",0 Then '【坐标与颜色】需要自行修改。判断游戏已经进入场景了
- (语句无法识别,可能有错误): Exit Do '离开循环等待
- 条件结束
- 循环结束
- 注释:初始防卡时间设置
- 定义变量 t1
- 令 t1 = now
- 注释:<>--------------------------------------------------开始执行挂机脚本--------------------------<>
- 标记 开始
- 调用 人物状态保护
- 标记 找怪
- (语句无法识别,可能有错误): KeyPress "Tab",1 '找怪热键
- 延时 500 毫秒
- 注释:在这里2个延时中间可以加入【捡物】处理
- 延时 500 毫秒
- 注释:判断是否找到怪物
- (语句无法识别,可能有错误): IfColor 50,5,"0000FF",0 Then '【坐标与颜色】需要自行修改
- 注释:开始打怪
- 循环开始
- (语句无法识别,可能有错误): KeyPress "A", 1 '打怪攻击热键
- 延时 200 毫秒
- 调用 人物状态保护
- 注释:<>------------------------------------------防卡设置--------------------------<>
- 如果 DateDiff("s",t1,now) >= Form1.等待.Text 则
- 令 t1 = now
- 跳出循环
- 条件结束
- 延时 200 毫秒
- 循环结束
- 条件结束
- 注释:<>--------------------------------------------------复活方式设置--------------------------<>
- 如果 Form1.复活方式.ListIndex > 0 则
- (语句无法识别,可能有错误): IfColor 0,0,"0",0 Then '【坐标与颜色】需要自行修改
- 注释:执行复活方式
- 如果 Form1.复活方式.ListIndex = 1 则
- 否则如果 Form1.复活方式.ListIndex = 2 则
- 否则如果 Form1.复活方式.ListIndex = 3 则
- 条件结束
- 条件结束
- 条件结束
- 注释:<>--------------------------------------------------死亡处理设置--------------------------<>
- 如果 Form1.死亡处理.ListIndex > 0 则
- (语句无法识别,可能有错误): IfColor 0,0,"0",0 Then '【坐标与颜色】需要自行修改
- 注释:执行报警
- 如果 Form1.死亡处理.ListIndex = 1 则
- 调用 Media.Play(Form1.路径.Text)
- 延时 5000 毫秒
- (语句无法识别,可能有错误): Goto 结束 '脚本停止
- 否则如果 Form1.死亡处理.ListIndex = 2 则
- 否则如果 Form1.死亡处理.ListIndex = 3 则
- 条件结束
- 条件结束
- 条件结束
- 延时 200 毫秒
- 跳转到标记 开始
- 标记 结束
- 注释:<>------------------------------ 脚本子程序内容 --------------------------<>
- 脚本停止运行
- (语句无法识别,可能有错误): Sub OnScriptExit() '脚本停止事件
- 调用 Media.Stop()
- 弹出窗口 "测试结束,脚本停止!"
- 子程序结束
- 子程序 人物状态保护()
- 注释:<>--------------------------人物补血设置
- 如果 血键 > 0 则
- (语句无法识别,可能有错误): IfColor 5+(10-5)*补血,5,"0000FF",0 Then '【坐标与颜色】需要自行修改