tboss=now
  End If
  End If
  Rem 下一个
  tmax = now
  //↑杀怪限时
End Sub
Sub 延时()
	Rem 等待
	If xuelank = 1 Then 
	Delay 1000
	Goto 等待
	Else 
	Goto 到时
	End If
	Rem 到时
End Sub
Sub 声音()
	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)
    MessageBox "测试结束"
    EndScript  
End Sub
Sub 乐曲()
    RunApp ("C:\WINDOWS\Media\air.wav")
    MessageBox "测试结束" 
    EndScript 
End Sub
 Sub 喂食()  
  rworbb = 2
  //↑(人或)宝宝加血对像判断参数
  Call 辨状态()
  //↓passnum:人或宝宝是否被遮挡或已挂传递参数
  If passnum = 1 Then 
  Goto 待喂
  Else 
  Goto 不喂
  End If
  //↑经过上面测数，如没测到，则说明宝宝挂了或被遮挡住了
  Rem 待喂
  Delay 50
  //↓测黑色
  bbcolor = GetPixelColor(Lx + 241-round((1-bbxue)*95), Ty + 110)
  Call Plugin.Color.ColorToRGB(bbcolor, R, G, B)  
  //↑红色(R)、绿色(G)、蓝色(B)
  Call Plugin.Color.ColorToHSL(bbcolor, H, S, L)  
  //↑色调(H)、饱和度(S)、亮度(L)
  If R < 66 and S < 40 Then 
  //↑宝宝缺血，需喂食
  Dim bbn
  bbn = 0
  Rem 再喂食
  bbn = bbn + 1
  If bbn > 5 Then 
  	//↑此处限制喂食次数，以防陷入死循环
  	Goto 不喂
  End If
  KeyPress "F10", 1
  Delay 1000
  //↓测红色
  bbcolor = GetPixelColor(Lx + 236, Ty + 110)
  Call Plugin.Color.ColorToRGB(bbcolor, R, G, B)  
  //↑红色(R)、绿色(G)、蓝色(B)
  Call Plugin.Color.ColorToHSL(bbcolor, H, S, L)  
  //↑色调(H)、饱和度(S)、亮度(L)
  If R > 210 and B < 10 and H < 10 and S > 230 Then 
  //↑测红色，如测不到,则说明宝宝加没加满血，需继续喂食
  Goto 不喂
  Else 
  Goto 再喂食
  End If 
  Else 
  Goto 不喂
  End If
  Rem 不喂
 End Sub
Sub 人加蓝()  
  rworbb = 1
  //↑人(或宝宝)加血对像判断参数
  Call 辨状态()
  //↓passnum:人或宝宝是否被遮挡或已挂传递参数
  If passnum = 1 Then 
  Goto 待加蓝
  Else 
  Goto 已加蓝
  End If
  //↑经过上面测数，如没测到，则说明人物被遮挡住了
  Rem 待加蓝
  Delay 50
  //↓测黑色
  mycolor = GetPixelColor(Lx + 220-round((1-pplan)*139), Ty + 62)
  Call Plugin.Color.ColorToRGB(mycolor, R, G, B)  
  //↑红色(R)、绿色(G)、蓝色(B)
  Call Plugin.Color.ColorToHSL(mycolor, H, S, L)  
  //↑色调(H)、饱和度(S)、亮度(L)