Dimenv follow
//↑follow:跟随设置
follow = gsms
Dimenv ppxue, pplan, bbxue, gwxue
//↑ppxue:人血, pplan：人蓝, bbxue：宝宝血,gwxue:怪物血
ppxue = rxue
pplan = rlan
bbxue = sxue
gwxue = gxue
Dimenv searchn
//↑searchn:鼠标移动圈数
searchn = mousen
DimEnv xuelank
//↑加血蓝开关xuelank
xuelank = 0
Dimenv daqunk
//↑大群开关daqunk
daqunk = 0
Dimenv bagdm
//↑bagdm:鼠标(包/箱)形状代码
bagdm = sbdm
Dimenv passnum, rworbb
//↑passnum:人或宝宝是否被遮挡或已挂传递参数, rworbb:人或宝宝加血对像判断参数
passnum = 0
rworbb = 0
Dimenv bossk, bossmode，pkboss
//↑bossk大怪判断传递参数,bossmodeBOSS模式,pkboss打BOSS怪参数
bossk = 0
bossmode = bossms
pkboss = 0
//※※※※※※※※※【等待延时】※※※※※※※※
If fuben = 1 Then 
Call 等副本()
ElseIf fuben = 2 Then
Call 进副本()
End If
//※※※※※※※※※【打怪区域】※※※※※※※※
线程ID = BeginThread(双线程)
Rem 开始
Call 找怪()
Call 杀怪()
Goto 开始
Sub 双线程()
	While True
	Call 喂食()
	Delay 100
	If xuemode = 1 Then 
	Call 人加血()
	ElseIf xuemode = 2 Then
	Call 清心()
	End If
	Delay 100
	If lanmode = 1 Then 
	Call 人加蓝()
	End If
	Delay 100
	If photo = 1 Then 
	Call 测挂图()
	ElseIf photo = 2 Then
	Call 测级别()
	//↑间接测珍兽级别数字，准确率不高
	End If
	Delay 100
	If jbmode = 1 Then 
	Call 搜包()
	End If
	Delay 100
	Call 右击()
	Delay 100
	Call 窗体()
	Delay 100
	Call boss辨别()
	Delay 100
	Wend
End Sub
Sub 找怪()
  Rem 再找怪
  KeyDown "Ctrl", 1
  Delay 49
  KeyPress "Tab", 1
  Delay 51
  KeyUp "Ctrl", 1
  Delay delayt
  //↓测红色
  rcolor = GetPixelColor(Lx + 278, Ty + 54)
  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 
  Goto 找到怪
  Else 
  Goto 再找怪
  End If
  Rem 找到怪
End Sub
Sub 杀怪()
  //↓测灰白色(怪血条左上方，不打无经验的怪)
  hcolor = GetPixelColor(Lx + 279, Ty + 34)
  Call Plugin.Color.ColorToRGB(hcolor, R, G, B)