1.         条件结束
  2.     否则如果 DaGmoshi = 2 则
  3.         调用 按键选怪
  4.         调用 查怪色
  5.         调用 查怪血
  6.         如果 怪色 = 0 或者 怪色 = 1 或者 怪血 = 0 则
  7.             跳转到标记 重新选怪(子程序 选怪打怪)
  8.         否则
  9.             调用 打怪
  10.         条件结束
  11.     条件结束
  12.     标记 本轮结束(子程序 选怪打怪)
  13. 子程序结束
  14. 子程序 按键选怪
  15.     如果 QHTmoshi = 0 则
  16.         调用 Window.Active(Hwnd)
  17.         如果 zhaoguai = 0 则
  18.             （键盘）按下 "Ctrl" 键
  19.             延时 10 毫秒
  20.             （键盘）按 "Tab" 键, 1次
  21.             延时 10 毫秒
  22.             （键盘）弹起 "Ctrl" 键
  23.             延时 10 毫秒
  24.         否则
  25.             （键盘）按 "F11" 键, 1次
  26.             延时 10 毫秒
  27.         条件结束
  28.     否则
  29.         调用 Bkgnd.KeyPress(Hwnd,122)
  30.         延时 10 毫秒
  31.     条件结束
  32.     延时 50 毫秒
  33.     令 xgt = now
  34. 子程序结束
  35. 子程序 打怪
  36.     令 djt = now
  37.     如果 QHTmoshi = 0 则
  38.         调用 Window.Active(Hwnd)
  39.         循环当 datediff("s",djt,now) < 1 时
  40.             （键盘）按 F1 键, 1次
  41.             延时 300 毫秒
  42.         循环结束
  43.     否则
  44.         循环当 datediff("s",djt,now) < 1 时
  45.             调用 Bkgnd.KeyPress(Hwnd,112)
  46.             延时 300 毫秒
  47.         循环结束
  48.     条件结束
  49. 子程序结束
  50. 子程序 获取客户区
  51.     令 tlflag = 1
  52.     循环当 tlflag = 1 时
  53.         令 Hwnd = Window.Foreground()
  54.         令 sText = Window.GetText(Hwnd)
  55.         如果 InStr(sText,"天龙八部OL") > 0 则
  56.             令 WRect = Window.GetWindowRect(hwnd)
  57.             令 WinArray = Split(WRect,"|",- 1 ,1)
  58.             令 XL = WinArray(0)
  59.             令 YL = WinArray(1)
  60.             令 XR = WinArray(2)
  61.             令 YR = WinArray(3)
  62.             令 winRect = Window.GetClientRect(hwnd)
  63.             令 winPoint = Split(winRect,"|",- 1 ,1)
  64.             令 DX = CInt(winPoint(0))
  65.             令 DY = CInt(winPoint(1))
  66.             调用 Window.Active(Hwnd)
  67.             令 tlflag = 2
  68.         否则
  69.             延时 200 毫秒
  70.         条件结束
  71.     循环结束
  72. 子程序结束
  73. 子程序 识别等级
  74.     令 rwdj = dm.Ocr(DX + 64,Dy + 57,DX + 89,Dy + 70,"ded784-000000|bfba74-000000",0.9)
  75.     注释：rwdj = dm.Ocr(DX + 73, Dy + 73, DX + 97, Dy + 86, "ded784-000000|bfba74-000000", 0.9)
  76.     如果 IsNumeric(rwdj) = False 则
  77.         令 sbrfdj = 0
  78.     否则
  79.         令 sbrfdj = 1
  80.     条件结束
  81.     如果 sbrfdj = 1 则
  82.     否则
  83.         循环 3 次
  84.             响一声
  85.             延时 50 毫秒
  86.         循环结束
  87.         弹出窗口 "请检查游戏:是否显示2D头像,是否显示32色,然后重新开始本程序"
  88.     条件结束
  89. 子程序结束
  90. 子程序 识别坐标
  91.     注释：识别所站位置坐标
  92.     令 XY = Color.FindShape(xl,yl,xr,yr,"1|0|1,2|0|1,0|1|0,1|1|0,2|1|0,47|1|0,48|1|0,49|1|1,50|1|1,51|1|0,52|1|0,53|1|0,54|1|0,55|1|0,56|1|0,57|1|0,0|2|0,1|2|0,2|2|0,47|2|0,48|2|0,49|2|0,50|2|1,51|2|1,52|2|0,53|2|0,54|2|0,55|2|0,56|2|0,57|2|0,0|3|1,1|3|1,2|3|1,47|3|1,48|3|1,49|3|0,50|3|0,51|3|1,52|3|1,53|3|0,54|3|0,55|3|0,56|3|0,57|3|0,47|4|0,48|4|0,49|4|0,50|4|0,51|4|0,52|4|0,53|4|0,54|4|0,55|4|0,56|4|0,57|4|0",1)
  93.     令 ZB = InStr(XY,"|")
  94.     令 aX = Clng(Left(XY,ZB - 1))
  95.     令 aY = Clng(Right(XY,Len(XY) - ZB))
  96.     向调试窗口输出：ax
  97.     向调试窗口输出：ay
  98.     如果 aX > 0 并且 aY > 0 则
  99.         令 zb11 = dm.Ocr(ax - 5,ay + 1,ax + 22,ay + 18,"fdff73-000000",1.0)
  100.         令 zb12 = dm.Ocr(ax + 22,ay + 1,ax + 48,ay + 18,"fdff73-000000",1.0)