End if
    Goto 按键7
    Rem QMScript_13
    IfColor dwx+237+a+b,dwy+427,"e76900",2 Then
        Goto 按键1
    End if
    Goto 无键
    Rem QMScript_8kf
    IfColor dwx+237+a+b,dwy+412,"3100e7",2 Then
        Goto QMScript_79f
    End if
    IfColor dwx+229+a+b,dwy+420,"3100e7",2 Then
        Goto QMScript_13f
    End if
    Goto 按键7
    Rem QMScript_79f
    IfColor dwx+244+a+b,dwy+420,"3100e7",2 Then
        Goto 按键1
    End if
    Goto 按键3
    Rem QMScript_13f
    IfColor dwx+237+a+b,dwy+427,"3100e7",2 Then
        Goto 按键9
    End if
    Goto 无键
    //以上8K脚本
    Rem 按键8
    KeyPress 104,1
    Goto 增加
    Rem 按键2
    KeyPress 98,1
    Goto 增加
    Rem 按键4
    KeyPress 100,1
    Goto 增加
    Rem 按键6
    KeyPress 102,1
    Goto 增加
    Rem 按键7
    KeyPress 103,1
    Goto 增加
    Rem 按键9
    KeyPress 105,1
    Goto 增加
    Rem 按键1
    KeyPress 97,1
    Goto 增加
    Rem 按键3
    KeyPress 99,1
    Goto 增加
    Rem 无键
    Rem 增加
    Delay CD
    a=a+35
Next
If zs=2 Then
    Delay 150
    Goto 按键
End if
If zs=1 Then
    Goto P点
End if
If pd=0 Then
    Delay 150
    Goto 按键
End if
Rem P点
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
IfColor dwx+534+p+wt,dwy+385,"3961ff",2 Then
    KeyPress 17,1
    Delay 200
    Goto 按键
End if
Goto P点
Sub OnScriptLoad()
    SayString "小朱QQ750176327"
    MessageBox "小朱QQ750176327"
    SetSimMode 2
    MessageBox "欢迎使用小朱旋舞辅助，如果有任何问题或建议请联系QQ：750176327"
    RunApp "notepad.exe"
End Sub