Rem 挂机打怪
FindColor 0,0,1600,900,"053662",X,Y
Sub 检测状态
YS2=GetPixelColor(X+144,Y-213)
If YS2 = "989999" Then 
	MsgBox "角色已移动地图，请暂停脚本"
	Else 
End If
End Sub
Sub 技能切换
KeyPress "5", 1
Delay 200
KeyPress "1", 1
Delay 100
End Sub
Sub 自动回复
YS=GetPixelColor(X-32,Y-8)
If YS = "333333" Then 
	KeyPress "Q", 2
	Delay 10
Else 
    End If
YS1 = GetPixelColor(X + 321, Y - 8)
If YS1 = "363636" Then 
		KeyPress "W", 2
Delay 10
Else 
End If
End Sub
rem 自动找怪
Call 检测状态
Call 自动回复
MoveTo X, Y-569
LeftClick 1
Delay 150
Call 技能切换

Call 自动回复

    Dim q,w,v,i,j,k
    q=X+162: w=Y-280
    v=35
    i=1
    For 15
        j=0:k=v
        For 2
            For i
                q=q+j:w=w+k
                MoveTo q, w
                Delay 12
               EE=GetPixelColor(X+120,Y-542)
ER=GetPixelColor(X+120,Y-541)
If EE = "000064" OR ER = "000064" Then 
	GetCursorPos ux, uy
MoveTo ux, uy
KeyPress "F10", 1
Delay 3000
KeyPress "F10", 1
Else 
End If
                            Next 
            j = v : k = 0
        Next 
        i = i + 1 : v = v * (- 1 )
    Next
Goto 挂机打怪