z=r/100*60
    z=z+812
    IfColor z,109 4038F8 2
    Else 
        KeyDown 18,1
        Delay 10
        KeyPress 68,1
        Delay 10
        KeyUp 18,1
        Goto da
        ///按防御
    EndIf 
    x=812
    y=108
    z=r1/100*33
    z=z+812
    Delay 1000
    IfColor z,108 4038F8 2
    Else 
        MoveTo 926,368
        Delay 500
        LeftClick 1
        Goto da
        //按逃跑
    EndIf 
    ////角色
    x=903
    y=96
    z=c1/100*33
    z=z+33
    IfColor z,96 4038F8 2
    Else 
        MoveTo 926,368
        Delay 500
        LeftClick 1
        Delay 500
        Goto da
    EndIf 
EndIf 
    Goto 重来
    Sub OnScriptExit
        If cx<>cx1
            MessageBox "检查到您的分辩率已经改变"&Vbcrlf&"按确定修改成原来状态"
            //下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)
            Plugin Sys.SetSc(cx,cy,32)
        Else 
            If cy<>cy1
                MessageBox "检查到您的分辩率已经改变"&Vbcrlf&"按确定修改成原来状态"
                //下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)
                Plugin Sys.SetSc(cx,cy,32)
            Else 
            EndIf 
        EndIf 
        MessageBox "已停止运行"&Vbcrlf&"欢迎使用"
        EndScript 
    Return