按键精灵CF狙击脚本源码

运行环境：分辨率：1280x960 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.50.11632

@880412    2012/12/21

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