//↓存储游戏窗口在正常状态下的颜色，防止窗口不在最前端。
    Gcolor = GetPixelColor(Lx + 486, Ty - 15)
    If Gcolor <> Tcolor Then 
    Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",now  & " →  当前游戏窗口不在最前端了!")
    MoveTo Lx + 490, Ty - 15
    Delay 1000
    LeftDown 1
    Delay 500
    LeftUp 1
    Delay 700
    End If
End Sub
Sub 测级别()
  	rworbb = 2
    //↑(人或)宝宝加血对像判断参数
    Call 辨状态()
    //↓passnum:（人或）宝宝是否被遮挡，如被遮挡,则认为出现挂图，这种间接测图法，不能保证挂图出现正好挡住宝宝级别
    If passnum = 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 Sub
Sub boss辨别()
  //↓测红色
  rcolor = GetPixelColor(Lx + 278, Ty + 62)
  Call Plugin.Color.ColorToRGB(rcolor, R, G, B)  
  //↑红色(R)、绿色(G)、蓝色(B)
  Call Plugin.Color.ColorToHSL(rcolor, H, S, L)  
  //↑色调(H)、饱和度(S)、亮度(L)
  If R > 210 and B < 10 and H < 10 and S > 230 Then 
  bossk = 1
  If bossmode = 1 Then 
  Call 报警()
  End If
  Else 
  bossk = 0
  End If
  If pkboss = 2 Then 
  //↑限定是出现过BOSS的标记
  //↓测黑色
  hcolor = GetPixelColor(Lx + 451-round((1-gwxue)*174), Ty + 54)
  Call Plugin.Color.ColorToRGB(hcolor, R, G, B)  
  //↑红色(R)、绿色(G)、蓝色(B)
  Call Plugin.Color.ColorToHSL(hcolor, H, S, L)  
  //↑色调(H)、饱和度(S)、亮度(L)
  If R < 66 and S < 40 Then 
  pkboss = 1
  End If
  End If
End Sub
Sub 等副本()
	//↓下面是被动（不是队长）的情况下进副本等待延时
	If Rx>1000 then
	Call Plugin.Pic.PrintScreen(857, 4, 943, 17, "C:\场景.bmp")
	Else 
	Call Plugin.Pic.PrintScreen(633, 4, 717, 17, "C:\场景.bmp")
	End If 
	Delay 2000
	Rem waiting
	If Rx>1000 then
	FindPic 839, 0, 957, 19,"C:\场景.bmp",0.7,intM,intN
    Else 
    FindPic 615, 0, 732, 19,"C:\场景.bmp",0.7,intM,intN
    End If 
    If intM > 0 And intN > 0 Then 
    Delay 2000
    Goto waiting
    End If
End Sub
Sub 进副本()
	//↓下面是主动（当队长）的情况下点击左键进副本等待延时
	SayString "队长提前将鼠标移动到(进副本)选项上,等待！"
	Delay 1000
	KeyPress "Enter", 1
	Delay yanshi
	LeftClick 2
	Delay 1000
End Sub
Event Form1.Button1.Click

End Event