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