UserVar VarQ=1000 "延迟"
Rem A
kd= Plugin.Sys.GetScRX()
gd= Plugin.Sys.GetScRY()
Call Plugin.Msg.ShowScrTXT(1,1,200,100,"狙击模式","0000FF")
 Call Plugin.Msg.ShowScrTXT(kd/2-2,gd/2+2,kd/2+3,gd/2+3,"■","F3F3F3")
    Call Plugin.Msg.ShowScrTXT(kd/2,gd/2+1,kd/2+1,gd/2+15,"■","F3F3F3")
FindColorEx kd*0.47,gd*0.52,kd*0.53,gd*0.6,"303AA5",0,0.7,intX,intY
If intX > 0 And intY > 0 Then
    IfColor 15,15,"000000",2 Then
        Call Q()
    Else
        Call W()
    End If
End If
Goto A
Sub Q()
    SetSimMode 2
    LeftClick 1
    Delay 5
    KeyPress "3", 1
    Delay 5
    KeyPress "1", 1
    Delay VarQ
End Sub
Sub W()
    SetSimMode 2
    RightClick 1
    Delay 5
    LeftClick 1
    Delay 5
    KeyPress "3", 1
    Delay 5
    KeyPress "1", 1
    Delay VarQ
End Sub