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点微调"
Call FindPic(0,0,1280,1024,"Attachment:\dingwei.bmp",0.9,dwx,dwy)
wt=0
If dwx>0 and dwy>0 Then
    Goto 按键
End if
MessageBox "定位失败，请在进入舞台后再开启精灵"
EndScript
Rem 按键
IfColor dwx+410,dwy+420,"e76900",2 Then
    b=0
    Goto 方向
End if
IfColor dwx+410,dwy+420,"3100e7",2 Then
    b=0
    Goto 方向
End if
IfColor dwx+393,dwy+420,"e76900",2 Then
    b=18
    Goto 方向
End if
IfColor dwx+393,dwy+420,"3100e7",2 Then
    b=18
    Goto 方向
End if
zp = GetLastKey()
If zp=116 Then
    wt=wt-1
End if
If zp=117 Then
    wt=wt+1
End if
If zp=118 Then
    zs=1
End if
If zp=119 Then
    zs=2
End if
Goto 按键
Rem 方向
a=0
Rem 左上
For 11
    IfColor dwx+229+a+b,dwy+412,"e76900",2 Then
        Goto QMScript_8k
    End if
    IfColor dwx+229+a+b,dwy+412,"3100e7",2 Then
        Goto QMScript_8kf
    End if
    //以上8K脚本
    IfColor dwx+231+a+b,dwy+414,"e76900",2 Then
        Goto 右上
    End if
    //反
    IfColor dwx+231+a+b,dwy+414,"3100e7",2 Then
        Goto 右上反
    End if
    Rem 右下
    IfColor dwx+241+a+b,dwy+425,"e76900",2 Then
        Goto 左下
    End if
    //反
    IfColor dwx+241+a+b,dwy+425,"3100e7",2 Then
        Goto 左下反
    End if
    Goto 无键
    Rem 右上
    IfColor dwx+241+a+b,dwy+414,"e76900",2 Then
        Goto 按键8
    End if
    Goto 按键4
    Rem 左下
    IfColor dwx+231+a+b,dwy+425,"e76900",2 Then
        Goto 按键2
    End if
    Goto 按键6
    Rem 右上反
    IfColor dwx+241+a+b,dwy+414,"3100e7",2 Then
        Goto 按键2
    End if
    Goto 按键6
    Rem 左下反
    IfColor dwx+231+a+b,dwy+425,"3100e7",2 Then
        Goto 按键8
    End if
    Goto 按键4
    //以下8K脚本
    Rem QMScript_8k
    IfColor dwx+237+a+b,dwy+412,"e76900",2 Then
        Goto QMScript_79
    End if
    IfColor dwx+229+a+b,dwy+420,"e76900",2 Then
        Goto QMScript_13
    End if
    Goto 按键3
    Rem QMScript_79
    IfColor dwx+244+a+b,dwy+420,"e76900",2 Then
        Goto 按键9