UserVar rhong =80 角色红低于%时补红 UserVar rlan =80 角色蓝低于%时补蓝 UserVar chong =80 宠红低于%时补红 UserVar clan =80 宠蓝低于%时补蓝 Rem ======================================================= //下面这句是得到当前最前面的窗口句柄 Plugin Hwnd = Window.Foreground() //下面这句是移动窗口到(0, 0)位置 Plugin Window.Move(Hwnd, 0, 0) Delay 1000 Rem H Rem 打完重来 VBSCall Call FindPic(0,0,1023,767,"眼睛.bmp",0.8,x,y) ///找到 眼睛 并点击 If x>=0 and y>=0 MoveTo x y Delay 500 LeftClick 1 Else VBSCall Call FindColorEx(0,0,800,600,"48fcf8",1,0.8,x,y) If x>=0 and y>=0 MoveTo x y Delay 500 LeftClick 1 Else Goto H EndIf EndIf Delay 1000 Rem cuo1 VBSCall Call FindPic(0,0,1023,767,"眼睛1.bmp",0.8,x,y) ///找到 眼睛 在偏移鼠标 If x>=0 and y>=0 MoveTo x y+130 Delay 500 LeftClick 1 Else Goto cuo1 EndIf Delay 1000 Rem cuo2 VBSCall Call FindPic(0,0,1023,767,"差.bmp",0.8,x,y) ///找到 眼睛(偏移点) 查找差进入打怪 If x>=0 and y>=0 MoveTo x-100*4-15 y+56 Delay 500 LeftClick 1 Else Goto cuo2 EndIf //======================进入打怪========================== Rem 541 Delay 1000 IfColor 656,40,4038f8,2 Delay 100 MoveTo 768,99 Delay 850 LeftClick 1 Delay 300 Else Goto 541 EndIf Delay 1000 Rem 怪 Delay 100 IfColor 58,40,4038f8,1 For 3 IfColor 766,101,885028,2 Else Delay 100 MoveTo 768,99 Delay 850 LeftClick 1 Delay 300 EndIf Delay 1000 Goto 怪 EndFor Else EndIf Delay 1000 Gosub 检查红蓝 Goto 打完重来 Rem ====================循环打怪================= EndScript Sub 检查红蓝 Rem ===================角色红====================== rx=58 ry=41 rx1=118 ry1=40 rxue=rx1-rx rhong1=rhong/100*rxue rhong2=rhong1+58 Delay 100 IfColor rhong2,41 4038f8 2 /////不用加红 Else MoveTo rhong2,41 Delay 800