- 展开附件 *.dll 到 .\plugin 文件夹
- 展开附件 *.bmp 到 f:\plugin\大漠梦想 文件夹
- 展开附件 *.txt 到 F:\plugin\大漠梦想 文件夹
- 展开附件 dm.dll 到 F:\plugin\大漠梦想 文件夹
- 注释:↑PutAttachment释放附件
- 注释: Call Plugin.DBSoft.RegDBSoft("0731A74F3AA9DC55C27CA168D151F792")
- 注释:↑大兵·注册
- 调用 RegDll.Reg("F:\plugin\大漠梦想\dm.dll")
- 令 dm = createobject("dm.dmsoft")
- dm.SetPath("F:\plugin\大漠梦想")
- 注释:↑大漠·注册
- dm.SetDict(0,"F:\plugin\大漠梦想\总字库.txt")
- 令 Hwnd = Window.Find("TianLongBaBu WndClass",0)
- 调用 Window.Active(Hwnd)
- 令 sRect = Window.GetClientRect(Hwnd)
- 定义变量 Array
- 令 Array = Split(sRect,"|")
- 令 Ux = CLng(Array(0))
- 令 Uy = CLng(Array(1))
- 令 Ux1 = CLng(Array(2))
- 令 Uy1 = CLng(Array(3))
- 注释: 去西湖
- 令 sTime3 = Sys.GetTime()
- 从左上到右下查找颜色 "00131B",把找到的坐标保存到 (X, Y),指定区域(左:0 上:0 右:1024 下:768)
- 注释:以下是条件判断;如果返回的坐标大于0,那么就说明找到了。
- 如果 X > 0 并且 Y > 0 则
- 注释:在这里可以添加找到坐标后,需要做的处理。
- (鼠标)移动到 (X, Y)
- (鼠标)左键单击, 1次
- 延时 500 毫秒
- 从左上到右下查找颜色 "63F2FF",把找到的坐标保存到 (X, Y),指定区域(左:0 上:0 右:1024 下:768)
- 如果 X > 0 并且 Y > 0 则
- (鼠标)移动到 (X, Y)
- (鼠标)左键单击, 1次
- 延时 100 毫秒
- (鼠标)移动到 (X + 30, Y)
- (鼠标)左键单击, 1次
- 延时 100 毫秒
- 输入文本 "279"
- 延时 100 毫秒
- (鼠标)移动到 (X + 60, Y)
- (鼠标)左键单击, 1次
- 输入文本 "416"
- (鼠标)移动到 (X + 120, Y)
- (鼠标)左键单击, 1次
- 延时 4000 毫秒
- (键盘)按 "Enter" 键, 1次
- 延时 5000 毫秒
- 条件结束
- 条件结束
- (鼠标)移动到 (490 + Ux, 329 + Uy)
- (鼠标)左键单击, 1次
- 延时 1500 毫秒
- 标记 加血
- 注释:80%时加血
- 令 sTime1 = Sys.GetTime()
- 如果点 (193 + Ux,34 + Uy) 的颜色等于 "393939" 则
- 延时 200 毫秒
- (键盘)按 "F7" 键, 1次
- 延时 5000 毫秒
- 否则
- 条件结束
- 注释:90%时加蓝
- 如果点 (197 + Ux,43 + Uy) 的颜色等于 "373737" 则
- 延时 200 毫秒
- (键盘)按 "F10" 键, 1次
- 延时 200 毫秒
- 否则
- 条件结束
- 标记 走步
- 向调试窗口输出:"1"
- 从左上到右下查找颜色 "FF1C51",把找到的坐标保存到 (X, Y),指定区域(左:0 上:0 右:1024 下:768)
- 如果 X > 0 并且 Y > 0 则
- (鼠标)移动到 (200 + X, Y + 200)
- 延时 200 毫秒
- (鼠标)左键单击, 1次
- 延时 1500 毫秒
- 条件结束
- 标记 寻怪打怪
- 调用 时间调用()
- 从左上到右下查找颜色 "00A8FB",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768)
- 如果 intX > 0 并且 intY > 0 则
- 向调试窗口输出:intX & "," & intY
- (鼠标)移动到 (intX, intY)
- (鼠标)左键双击, 1次
- 延时 2000 毫秒
- (键盘)按 "F11" 键, 1次
- 延时 100 毫秒
- 标记 继续打怪
- 循环 2 次
- (键盘)按 "F1" 键, 1次
- 延时 1000 毫秒
- 向调试窗口输出:"3"
- 循环结束
- 调用 判断是否死亡()
- (键盘)按 "F9" 键, 1次
- 延时 1500 毫秒
- 调用 捡包()
- 延时 200 毫秒
- 调用 判断周围是否还有怪()