Dim x,y,m,n,M,N,j,k
Rem 找怪
VBSCall FindPic(336,128,673,450,"Attachment:\血.bmp",0.6,x,y)
If x>=0 and y>=0
    Goto 打怪
Else 
    Goto 捡
EndIf 
Rem 打怪
MoveTo x+45,y+50
Delay 700
LeftClick 1
Delay 6000
VBSCall FindPic(350,280,500,400,"Attachment:\血.bmp",0.6,x,y)
If x>=0 and y>=0
    Goto 打怪
EndIf 
Goto 找怪
//============================================================
//=====================等怪掉钱延时^_^==================
//===============================捡钱=============================
Rem 捡
VBSCall FindPic(336,128,673,450,"Attachment:\钱.bmp",0.6,x,y)
If x>=0 and y>=0
    MoveTo x+25,y+10
    LeftDown 1
    Delay 1500
    LeftUp 1
    Delay 500
Else 
EndIf 
VBSCall FindPic(336,128,673,450,"Attachment:\jinbi2.bmp",0.6,x,y)
If x>=0 and y>=0
    MoveTo x+25,y+10
    LeftDown 1
    Delay 1500
    LeftUp 1
    Goto 找怪
Else 
    Goto 小地图找怪
EndIf 
Rem 小地图找怪
VBSCall FindColor(673,1,799,127,"63FB63",m,n)
VBSCall FindColor(673,1,799,127,"0000FF",x,y)
If m>0 and n>0
    M=400+(x-m)*35
    N=200+(y-n)*35
    MoveTo M,N
    RightDown 1
    Delay 1000
    RightUp 1
    Delay 500
    Goto 找怪
EndIf