Rem 定位
UserVar CD=10 按键延时(如果卡键请设置大一点)
UserVar pd=DropList{手动P点:0|自动P点:1}=0 手动/自动P点
UserVar p=DropList{-5:-5|-4:-4|-3:-3|-2:-2|-1:1|0:0|1:1|2:2|3:3}=0 P点微调
VBSCall FindPic(0,0,1280,1024,"Attachment:\dingwei.bmp",0.9,dwx,dwy)
wt=0
If dwx>0 and dwy>0
    Goto 按键
EndIf 
MessageBox "定位失败，请在进入舞台后再开启精灵"
EndScript 
Rem 按键
IfColor dwx+410,dwy+420,e76900,2
    b=0
    Goto 方向
EndIf 
IfColor dwx+410,dwy+420,3100e7,2
    b=0
    Goto 方向
EndIf 
IfColor dwx+393,dwy+420,e76900,2
    b=18
    Goto 方向
EndIf 
IfColor dwx+393,dwy+420,3100e7,2
    b=18
    Goto 方向
EndIf 
GetLastKey zp
If zp=116
    wt=wt-1
EndIf 
If zp=117
    wt=wt+1
EndIf 
If zp=118
    zs=1
EndIf 
If zp=119
    zs=2
EndIf 
Goto 按键
Rem 方向
a=0
Rem 左上
For 11
    IfColor dwx+229+a+b,dwy+412,e76900,2
        Goto 8k
    EndIf 
    IfColor dwx+229+a+b,dwy+412,3100e7,2
        Goto 8kf
    EndIf 
    //以上8K脚本
    IfColor dwx+231+a+b,dwy+414,e76900,2
        Goto 右上
    EndIf 
    //反
    IfColor dwx+231+a+b,dwy+414,3100e7,2
        Goto 右上反
    EndIf 
    Rem 右下
    IfColor dwx+241+a+b,dwy+425,e76900,2
        Goto 左下
    EndIf 
    //反
    IfColor dwx+241+a+b,dwy+425,3100e7,2
        Goto 左下反
    EndIf 
    Goto 无键
    Rem 右上
    IfColor dwx+241+a+b,dwy+414,e76900,2
        Goto 按键8
    EndIf 
    Goto 按键4
    Rem 左下
    IfColor dwx+231+a+b,dwy+425,e76900,2
        Goto 按键2
    EndIf 
    Goto 按键6
    Rem 右上反
    IfColor dwx+241+a+b,dwy+414,3100e7,2
        Goto 按键2
    EndIf 
    Goto 按键6
    Rem 左下反
    IfColor dwx+231+a+b,dwy+425,3100e7,2
        Goto 按键8
    EndIf 
    Goto 按键4
    //以下8K脚本
    Rem 8k
    IfColor dwx+237+a+b,dwy+412,e76900,2
        Goto 79
    EndIf 
    IfColor dwx+229+a+b,dwy+420,e76900,2
        Goto 13
    EndIf 
    Goto 按键3
    Rem 79
    IfColor dwx+244+a+b,dwy+420,e76900,2