End Sub
  Sub 测挂图()
  	If Rx>1000 then
  	//测“0”查挂图,以便报警。
    XY=Plugin.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)
    ZB = InStr(XY, "|")   
    X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))   
    If X > 0 and Y > 0 Then 
    Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",now  & " →  防挂图出现,报警!")
    NewDate = DateAdd("n", 30, now)
    Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",NewDate  & " ←  下次防挂图出现大致时间,请注意!")
    Call 报警()
    End If
    Else 
    //测“0”查挂图,以便报警。
    XY=Plugin.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)
    ZB = InStr(XY, "|")   
    X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))   
    If X > 0 and Y > 0 Then 
    Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",now  & " →  防挂图出现,报警!")
    NewDate = DateAdd("n", 30, now)
    Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",NewDate  & " ←  下次防挂图出现大致时间,请注意!")
    Call 报警()
    End If
    End If 
  End Sub
  Sub 报警()
 	If alerting = 0 Then 
    Call Plugin.Media.Beep(523, 200)   
    Call Plugin.Media.Beep(578, 200)   
    Call Plugin.Media.Beep(659, 200)   
    Call Plugin.Media.Beep(698, 200)   
    Call Plugin.Media.Beep(784, 200)   
    Call Plugin.Media.Beep(880, 200)     
    Call Plugin.Media.Beep(988, 200)  
    ElseIf  alerting = 1 Then 
    RunApp("C:\WINDOWS\Media\Windows XP 启动.wav") 
    ElseIf alerting = 2 Then 
    Hwnd = Plugin.Window.Foreground()   
    Call Plugin.Window.Active(Hwnd)
    Call Plugin.Window.CloseEx(Hwnd)  
    ElseIf alerting = 3 Then 
    Call Plugin.Sys.ExitOS(1)
    End If 
 End Sub
 Sub 辨状态()
  //↓passnum:人或宝宝是否被遮挡或已挂传递参数
  passnum = 0
  //↓rworbb:人或宝宝加血对像判断参数
  If rworbb = 1 Then 
  //↓当前为人的级别区域数据
  x1 = Lx + 72
  y1 = Ty + 73
  x2 = Lx + 99
  y2 = Ty + 87
  ElseIf rworbb = 2 Then
  //↓当前为珍兽的级别区域数据
  x1 = Lx + 146
  y1 = Ty + 119
  x2 = Lx + 173
  y2 = Ty + 135
  ElseIf rworbb = 0 Then
  Goto 级别数
  End If
  //↓测"0"
  xy=Plugin.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)
  MyArray=Split(xy,"|")
  x=Clng(MyArray(0)): y=Clng(MyArray(1))
  If x>0 and y>0 then
  passnum = 1
  Goto 级别数
  End If
  Delay 50
  //↓测"1"
  xy=Plugin.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)
  MyArray=Split(xy,"|")
  x=Clng(MyArray(0)): y=Clng(MyArray(1))
  If x>0 and y>0 then
  passnum = 1
  Goto 级别数
  End If
  Delay 50
  //↓测"2"
  xy=Plugin.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|0,0|3|0,1|3|0,2|3|1,3|3|0,-1|4|0,0|4|0,1|4|1,2|4|0,3|4|0,-1|5|0,0|5|1,1|5|0,2|5|0,3|5|0,-1|6|1,0|6|0,1|6|0,2|6|0,3|6|0,-1|7|1,0|7|1,1|7|1,2|7|1,3|7|1",0.8)
  MyArray=Split(xy,"|")
  x=Clng(MyArray(0)): y=Clng(MyArray(1))
  If x>0 and y>0 then
  passnum = 1
  Goto 级别数
  End If
  Delay 50
  //↓测"3"
  xy=Plugin.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|0,0|2|0,1|2|0,2|2|0,3|2|1,-1|3|0,0|3|0,1|3|1,2|3|1,3|3|0,-1|4|0,0|4|0,1|4|0,2|4|0,3|4|1,-1|5|0,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)
  MyArray=Split(xy,"|")
  x=Clng(MyArray(0)): y=Clng(MyArray(1))
  If x>0 and y>0 then
  passnum = 1
  Goto 级别数
  End If
  Delay 50