//挂机前先将角色移动到要挂机的地方
Delay 100
Dim x,y,x1,y1,x2,y2,xa,ya,xb,yb,xc,yc,xd,yd
//定义变量
Rem 定点
Delay 1000
KeyPress 9,1
//TAB键出大地图，5秒内将鼠标移动到代表角色的黄点上
Delay 5000
VBSCall GetCursorPos(xd,yd)
//记录鼠标在大地图上的位置并保存为变量XD,XY
Delay 1000
KeyPress 9,1
//关闭大地图
Delay 50
Rem 找怪
Delay 50
Gosub 红蓝
Gosub 躲怪
Gosub 状态
Delay 50
VBSCall FindPic(0,0,1024,643,"1.bmp",0.9,x,y)
If x>0 and y>0
    MoveTo x+25,y+70
    Delay 50
    RightClick 1
    Delay 50
    VBSCall GetCursorPos(x1,y1)
    Goto 打怪
EndIf 
Delay 50
VBSCall FindPic(0,0,1024,643,"2.bmp",0.9,x,y)
If x>0 and y>0
    MoveTo x+25,y+70
    Delay 50
    RightClick 1
    Delay 50
    VBSCall GetCursorPos(x1,y1)
    Goto 打怪
EndIf 
Delay 50
VBSCall FindPic(0,0,1024,643,"3.bmp",0.9,x,y)
If x>0 and y>0
    MoveTo x+25,y+70
    Delay 50
    RightClick 1
    Delay 50
    VBSCall GetCursorPos(x1,y1)
    Goto 打怪
EndIf 
//以上参考qmmwn找怪脚本，加入了找到怪后记录鼠标位置VBSCall GetCursorPos(x1,y1)
Rem 红药
Delay 500
IfColor 60,757,000000,2
    IfColor 70,740,212421,2
        IfColor 78,751,424d42,2
            Goto 卷轴
        EndIf 
    EndIf 
EndIf 
//此段为红药检测，无要回城
Rem 小地图判断
VBSCall FindColorEx(863,71,963,171,"5a30de",1,0.8,x,y)
If x<=913 and y<=121 and x>0 and y>0
    MoveTo 340,260
    Delay 50
    LeftClick 1
    Delay 50
    Goto 找怪
ElseIf x>=913 and y>=121
    MoveTo 684,508
    Delay 50
    LeftClick 1
    Delay 50
    Goto 找怪
EndIf 
Delay 50
If x>=913 and y<=121
    MoveTo 684,260
    Delay 50
    LeftClick 1
    Delay 50
    Goto 找怪
ElseIf x<=913 and y>=121
    MoveTo 340,508
    Delay 50
    LeftClick 1
    Delay 50
    Goto 找怪
EndIf 
//此段参照qmmwn小地图找怪
Delay 50
KeyPress 9,1
Delay 100
Rem 范围
MoveTo xd,yd
Delay 500
LeftClick 1
Delay 1000
VBSCall FindColorEx(xd-10,yd-10,xd+10,yd+10,"00ebef",1,0.8,xa,ya)