Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Plugin.Msg.ShowScrTXT 0, 0, 100, 100, "程序启动", ""

UserVar zdnum=1 "射击次数"
UserVar sjnum=20 "射击延迟"

While 1 = 1
	c1 = GetPixelColor(510, 382)
	c2 = GetPixelColor(510, 383)
	c3 = GetPixelColor(510, 384)
	c4 = GetPixelColor(511, 382)
	c5 = GetPixelColor(511, 383)
	c6 = GetPixelColor(511, 384)
	c7 = GetPixelColor(512, 382)
	c8 = GetPixelColor(512, 383)
	c9 = GetPixelColor(512, 384)
	If c1 = "0000FF" and c2 = "0000FF" and c3 = "0000FF" and c4 = "0000FF" and c5 = "0000FF" and c6 = "0000FF" and c7 = "0000FF" and c8 = "0000FF" and c9 = "0000FF" Then 
		Plugin.Msg.ShowScrTXT 0,0,100,100,"狙击状态",""
		ajt = GetAsyncKeyState(84)
		ac1 = GetPixelColor(509, 381)
		ac2 = GetPixelColor(509, 383)
		ac3 = GetPixelColor(509, 385)
		ac4 = GetPixelColor(511, 381)
		ac5 = GetPixelColor(511, 385)
		ac6 = GetPixelColor(513, 381)
		ac7 = GetPixelColor(513, 383)
		ac8 = GetPixelColor(513, 385)
		While ajt <> 0
			Plugin.Msg.ShowScrTXT 0, 0, 100, 100, "监控状态", ""
			ajt = GetAsyncKeyState(84)
			bc1 = GetPixelColor(509, 381)
			bc2 = GetPixelColor(509, 383)
			bc3 = GetPixelColor(509, 385)
			bc4 = GetPixelColor(511, 381)
			bc5 = GetPixelColor(511, 385)
			bc6 = GetPixelColor(513, 381)
			bc7 = GetPixelColor(513, 383)
			bc8 = GetPixelColor(513, 385)
			If ac1 <> bc1 or ac2 <> bc2 or ac3 <> bc3 or ac4 <> bc4 or ac5 <> bc5 or ac6 <> bc6 or ac7 <> bc7 or ac8 <> bc8 Then
				LeftClick 1
				ajt=0
			End If
			Delay 1
		Wend
	ElseIf c2 = "00FE00" and c4 = "00FE00" and c5 = "00FF00" and c6 = "00FE00" and c8 = "00FE00" Then
		Plugin.Msg.ShowScrTXT 0, 0, 100, 100, "机枪状态", ""
		FindColor 502,446,520,459,"0000FF",cx,cy
		While cx > 0 And cy > 0
			LeftClick zdnum
			Delay sjnum
			cx = 0
			cy = 0
		Wend
	Else
		Plugin.Msg.ShowScrTXT 0,0,100,100,"正常状态",""
		ajt=GetLastKey()
		If ajt = 84 Then 
			RightClick 1
			Delay 10
			LeftClick 1
			Delay 10
			ajt=0
		End If
	End If
	Delay 1
Wend