If blue = 50  Then 
		//判断人物蓝50%
		GetColor = GetPixelColor(611, 45)
		Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
		If R > 100  Then 
			Call Plugin.Window.Active(Hwnd)
			MoveTo 602, 47
			RightClick 1
		End If
		 
		//判断宝宝蓝50%
		GetColor = GetPixelColor(496, 45)
		Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
		If R > 100 Then 
			If vet = 1 Then 
				If mouth = 1 Then 
					Call Plugin.Bkgnd.SendString(Hwnd, shout)
					Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
					mouth = 0	
				End If
			Else 
				Call Plugin.Window.Active(Hwnd)
				MoveTo 486, 47
				RightClick 1 	
			End If
		End If	

	Else 
		//判断人物蓝25%
		GetColor = GetPixelColor(602, 45)
		Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
		If R > 100  Then 
			Call Plugin.Window.Active(Hwnd)
			MoveTo 602, 47
			RightClick 1
		End If
		//判断宝宝蓝25%
		GetColor = GetPixelColor(486, 45)
		Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
		If R > 100 Then 
			If vet = 1 Then 
				If mouth = 1 Then 
					Call Plugin.Bkgnd.SendString(Hwnd, shout)
					Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
					mouth = 0	
				End If
			Else 
				Call Plugin.Window.Active(Hwnd)
				MoveTo 486, 47
				RightClick 1	
			End If
		End If
	End If
	//*********************自动巫医************************
	If vet = 1 Then 
		IfColor 108, 82, "303460", 0 Then
			
			Call Plugin.Window.Active(Hwnd)
			MoveTo 232, 366
			Delay 500
			LeftDown 1
			Delay 500
			LeftUp 1
			
			Delay 500
			LeftClick 1
			mouth = 1
		End If
	End If
End If

End If


Goto start


Sub OnScriptExit()
	Call Plugin.Window.Top(Hwnd, 1)
	Call Plugin.Window.SetText(Hwnd, sText)
	Call Plugin.Window.SetClientSize(Hwnd, 640, 480)
End Sub