End If
	
 
	Call Plugin.Window.Active(Hwnd)
	KeyDown 18, 1
	
	If key1 < 1 Then 
		KeyPress 65, 1
	Else 
		If key1 = 1 Then 
			KeyPress 81, 1
			Else 
			KeyPress 68, 1
		End If
	End If
	
	
	If key2 < 1 Then 
		KeyPress 65, 1
	Else 
		If key2 = 1 Then 
			KeyPress 81, 1
			Else 
			KeyPress 68, 1
		End If
	End If

	KeyUp 18, 1
	
Else 
Rem 战斗后



	'把对话框点掉
	MoveTo 232, 366
	LeftDown 1
	Delay 200
	LeftUp 1
	Delay 200
	//***********************战斗结束后自动补血***********************
	If red = 50 Then 
		//判断人物红50%
		GetColor = GetPixelColor(611, 34)
		Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
		If B > 100  Then 
			Call Plugin.Window.Active(Hwnd)
			MoveTo 596, 37
			RightClick 1
			Delay 500
			GetColor = GetPixelColor(611, 34)
			Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
			If B > 100 Then 
				MoveTo 596, 37
				RightClick 1
			End If
		End If	
		//判断宝宝红50%
		GetColor = GetPixelColor(496, 34)
		Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
		If B > 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, 37
				RightClick 1 
			End If
		End If
	Else 
		//判断人物红25%
		GetColor = GetPixelColor(602, 34)
		Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
		If B > 100  Then 
			Call Plugin.Window.Active(Hwnd)
			MoveTo 596, 37
			RightClick 1
		End If	
		//判断宝宝红25%
		GetColor = GetPixelColor(486, 34)
		Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
		If B > 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, 37
				RightClick 1 
			End If
		End If
	End If
	//***********************战斗结束后自动补蓝***********************