End if  
    
    call 捡物品()
    
    
End Sub




Sub 挂机加血()
    Call 加红()

End sub 


Sub 加红()

    hongx =99+w1+hong*1.22
    hongy =91+h1

    
    hangsj1=Plugin.GetSysInfo.GetTime()
    hangsj2 =hangsj1 - hangsj
    If hangsj2>hsjjg*1000 then
        IfColor hongx,hongy,"2028D0",0 Then
            Call 加蓝()
        Else    
            Delay 30
            MoveTo 495+w1,775+h1
            Delay 30
            RightClick 1
            Delay 100
            hangsj=Plugin.GetSysInfo.GetTime() 
            Call 加蓝()
        End If


    Else
    End if

End sub





Sub 加蓝()
    lanx =99+w1+lan*1.22
    lany =106+h1
    lansj1=Plugin.GetSysInfo.GetTime() 
    lansj2=lansj1 - lansj
    If lansj2 >30000 then 

        Delay 30
        IfColor lanx,lany,"D87430",0 Then

            Goto 杀怪
        Else 
        
            Delay 30
            MoveTo 543+w1,775+h1
            Delay 30
            RightClick 1
            Delay 100
            lansj=Plugin.GetSysInfo.GetTime()
            Goto 杀怪
            
            
        End if
    End if



End sub


Sub 买红蓝()


    
    Delay 300
        
    moveto 1005+w1,199+h1
    Delay 1000

    LeftClick 1

        
    Delay 1000


    FindPic 0,0,1024,768,"寻.bmp",0.8,zdslX,zdslY
    If zdslX > 0 And zdslY > 0 Then
        MoveTo zdslx,zdsly
        Delay 100

    End If