1.         （鼠标）移动到 (x, y)
  2.         延时 20 毫秒
  3.         令 shape = 返回当前鼠标的形状特征（0）
  4.         如果 shape = bagdm 则
  5.             （鼠标）右键单击, 2次
  6.             延时 500 毫秒
  7.             跳转到标记 已搜(子程序 搜包)
  8.         条件结束
  9.         令 n = n + w / r
  10.     循环结束
  11.     如果 Rx > 1000 则
  12.         令 r = r + 20
  13.     否则
  14.         令 r = r + 10
  15.     条件结束
  16.     如果 r < 40 * searchn 则
  17.         令 n = 0
  18.         跳转到标记 重搜(子程序 搜包)
  19.     条件结束
  20.     标记 已搜(子程序 搜包)
  21. 子程序结束
  22. 子程序 测挂图()
  23.     如果 Rx > 1000 则
  24.         注释：测“0”查挂图,以便报警。
  25.         令 XY = Color.FindShape(Lx,Ty + 150,Lx + 730,Ty + 580,"-1|0|0,1|0|1,2|0|1,3|0|0,-1|1|1,0|1|0,1|1|0,2|1|0,3|1|1,6|1|0,7|1|0,8|1|0,-1|2|1,0|2|0,1|2|0,2|2|0,3|2|1,6|2|0,7|2|1,8|2|0,-1|3|1,0|3|0,1|3|0,2|3|0,3|3|1,6|3|0,7|3|0,8|3|0,-1|4|1,0|4|0,1|4|0,2|4|0,3|4|1,-1|5|1,0|5|0,1|5|0,2|5|0,3|5|1,-1|6|1,0|6|0,1|6|0,2|6|0,3|6|1,6|6|0,7|6|0,8|6|0,-1|7|0,0|7|1,1|7|1,2|7|1,3|7|0,6|7|0,7|7|1,8|7|0,6|8|0,7|8|0,8|8|0",0.8)
  26.         令 ZB = InStr(XY,"|")
  27.         令 X = Clng(Left(XY,ZB - 1))
  28.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  29.         如果 X > 0 并且 Y > 0 则
  30.             调用 File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",now & " → 防挂图出现,报警!")
  31.             令 NewDate = DateAdd("n",30,now)
  32.             调用 File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",NewDate & " ← 下次防挂图出现大致时间,请注意!")
  33.             调用 报警()
  34.         条件结束
  35.     否则
  36.         注释：测“0”查挂图,以便报警。
  37.         令 XY = Color.FindShape(Lx,Ty + 150,Lx + 600,Ty + 480,"-1|0|0,1|0|1,2|0|1,3|0|0,-1|1|1,0|1|0,1|1|0,2|1|0,3|1|1,6|1|0,7|1|0,8|1|0,-1|2|1,0|2|0,1|2|0,2|2|0,3|2|1,6|2|0,7|2|1,8|2|0,-1|3|1,0|3|0,1|3|0,2|3|0,3|3|1,6|3|0,7|3|0,8|3|0,-1|4|1,0|4|0,1|4|0,2|4|0,3|4|1,-1|5|1,0|5|0,1|5|0,2|5|0,3|5|1,-1|6|1,0|6|0,1|6|0,2|6|0,3|6|1,6|6|0,7|6|0,8|6|0,-1|7|0,0|7|1,1|7|1,2|7|1,3|7|0,6|7|0,7|7|1,8|7|0,6|8|0,7|8|0,8|8|0",0.8)
  38.         令 ZB = InStr(XY,"|")
  39.         令 X = Clng(Left(XY,ZB - 1))
  40.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  41.         如果 X > 0 并且 Y > 0 则
  42.             调用 File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",now & " → 防挂图出现,报警!")
  43.             令 NewDate = DateAdd("n",30,now)
  44.             调用 File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",NewDate & " ← 下次防挂图出现大致时间,请注意!")
  45.             调用 报警()
  46.         条件结束
  47.     条件结束
  48. 子程序结束
  49. 子程序 报警()
  50.     如果 alerting = 0 则
  51.         调用 Media.Beep(523,200)
  52.         调用 Media.Beep(578,200)
  53.         调用 Media.Beep(659,200)
  54.         调用 Media.Beep(698,200)
  55.         调用 Media.Beep(784,200)
  56.         调用 Media.Beep(880,200)
  57.         调用 Media.Beep(988,200)
  58.     否则如果 alerting = 1 则
  59.         启动程序或打开文件 ("C:\WINDOWS\Media\Windows XP 启动.wav")
  60.     否则如果 alerting = 2 则
  61.         令 Hwnd = Window.Foreground()
  62.         调用 Window.Active(Hwnd)
  63.         调用 Window.CloseEx(Hwnd)
  64.     否则如果 alerting = 3 则
  65.         调用 Sys.ExitOS(1)
  66.     条件结束
  67. 子程序结束
  68. 子程序 辨状态()
  69.     注释：↓passnum:人或宝宝是否被遮挡或已挂传递参数
  70.     令 passnum = 0
  71.     注释：↓rworbb:人或宝宝加血对像判断参数
  72.     如果 rworbb = 1 则
  73.         注释：↓当前为人的级别区域数据
  74.         令 x1 = Lx + 72
  75.         令 y1 = Ty + 73
  76.         令 x2 = Lx + 99
  77.         令 y2 = Ty + 87
  78.     否则如果 rworbb = 2 则
  79.         注释：↓当前为珍兽的级别区域数据
  80.         令 x1 = Lx + 146
  81.         令 y1 = Ty + 119
  82.         令 x2 = Lx + 173
  83.         令 y2 = Ty + 135
  84.     否则如果 rworbb = 0 则
  85.         跳转到标记 级别数(子程序 辨状态)
  86.     条件结束
  87.     注释：↓测"0"
  88.     令 xy = Color.FindShape(x1,y1,x2,y2,"-1|0|0,1|0|1,2|0|1,3|0|0,-1|1|1,0|1|0,1|1|0,2|1|0,3|1|1,-1|2|1,0|2|0,1|2|0,2|2|0,3|2|1,-1|3|1,0|3|0,1|3|0,2|3|0,3|3|1,-1|4|1,0|4|0,1|4|0,2|4|0,3|4|1,-1|5|1,0|5|0,1|5|0,2|5|0,3|5|1,-1|6|1,0|6|0,1|6|0,2|6|0,3|6|1,-1|7|0,0|7|1,1|7|1,2|7|1,3|7|0",0.8)
  89.     令 MyArray = Split(xy,"|")
  90.     令 x = Clng(MyArray(0))
  91.     令 y = Clng(MyArray(1))
  92.     如果 x > 0 并且 y > 0 则
  93.         令 passnum = 1
  94.         跳转到标记 级别数(子程序 辨状态)
  95.     条件结束
  96.     延时 50 毫秒
  97.     注释：↓测"1"
  98.     令 xy = Color.FindShape(x1,y1,x2,y2,"-2|0|0,-1|0|0,1|0|0,2|0|0,-2|1|0,-1|1|1,0|1|1,1|1|0,2|1|0,-2|2|0,-1|2|0,0|2|1,1|2|0,2|2|0,-2|3|0,-1|3|0,0|3|1,1|3|0,2|3|0,-2|4|0,-1|4|0,0|4|1,1|4|0,2|4|0,-2|5|0,-1|5|0,0|5|1,1|5|0,2|5|0,-2|6|0,-1|6|0,0|6|1,1|6|0,2|6|0,-2|7|0,-1|7|1,0|7|1,1|7|1,2|7|0",0.8)
  99.     令 MyArray = Split(xy,"|")
  100.     令 x = Clng(MyArray(0))