UserVar s=DropList{是:值1|否:值2}=0 是否检查红蓝
UserVar rh = 80 当人物红<%加红
UserVar rl = 80 当人物蓝<%加蓝
UserVar ch = 80 当宠物红<%加红
UserVar cl = 80 当宠物蓝<%加蓝
UserVar r = 80 打怪时角色红<%防御
UserVar c = 80 打怪时宠物红<%防御
UserVar r1 = 80 打怪时角色红<%逃跑
UserVar c1 = 80 打怪时宠物红<%逃跑
VBSCall Call GetScreenResolution(cx,cy)
If cx<>1024
    MessageBox "建议您修改分辩率"&Vbcrlf&"以免影响脚本运行"&Vbcrlf&"按确定修改  [1024*768]"
    //下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)
    Plugin Sys.SetSc(1024,768,32)
    Goto 分辩率
Else 
    If cy<>768
        MessageBox "建议您修改分辩率"&Vbcrlf&"以免影响脚本运行"&Vbcrlf&"按确定修改  [1024*768]"
        //下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)
        Plugin Sys.SetSc(1024,768,32)
        Goto 分辩率
    Else 
    EndIf 
EndIf 
Rem 分辩率
Rem 重来
Delay 2000
//下面这句是得到当前最前面的窗口句柄
Plugin Hwnd = Window.Foreground()
//下面这句是移动窗口到(100, 100)位置
Plugin Window.Move(Hwnd, 156, 68)
Rem da1
If s="值1"
    VBSCall Call GetScreenResolution(cx1,cy1)
    IfColor 214,109,4038f8,2
        x=214
        y=108
        z=rh/100*60
        z=z+214
        IfColor z,108,4038f8,2
        Else 
            MoveTo z,108
            Delay 500
            RightClick 1
        EndIf 
    EndIf 
    x=214
    y=121
    z=rl/100*60
    z=z+214
    IfColor z,121,f86008,2
    Else 
        MoveTo z,121
        Delay 500
        RightClick 1
    EndIf 
    IfColor 299,117,c09468,2
        //没带宠
        d=50
        Goto 没带宠
    Else 
    EndIf 
    IfColor 289,104,d0b8a8,2
        //没带宠
        d=50
        Goto 没带宠
    Else 
        x=324
        y=110
        z=ch/100*33
        z=z+214
        IfColor z,110,4038f8,2
        Else 
            MoveTo z,110
            Delay 500
            RightClick 1
            ///桃跑
            Goto da1
        EndIf 
    EndIf 
    x=324
    y=121
    z=cl/100*33
    z=z+324
    IfColor z,121 F86008 2
    Else 
        MoveTo z,121
        Delay 500
        RightClick 1
        Goto da1
        //逃跑
    EndIf 
Else 
EndIf 
Rem 没带宠
////////////开始================
Rem da
IfColor 812,110,4038f8,2
    x=812
    y=109