std = std & vbCrLf & CStr(XYArray(0, i)) & "," & CStr(XYArray(1, i)) & FileNatureArray(XYArray(2, i))
            Else 
                std=CStr(XYArray(0,i)) & "," & CStr(XYArray(1,i)) & "," & FileNatureArray(XYARRAY(2,i))
            End If
            i=i+1
        Next
        Call Lib.xyq.鼠标移动(XYArray(0, 0) + 2, XYArray(1, 0) + 1)
        Delay 50
        RightClick 1
        //在调用一次关闭对话框
    End If
End Sub
//检查加血蓝
Sub 加血蓝()
    rhp1 = 0 : rhp2 = 0 : rhp3 = 0 : rhp4 = 0 : rhp5 = 0
    rmp1 = 0 : rmp2 = 0 : rmp3 = 0 : rmp4 = 0 : rmp5 = 0
    bhp1 = 0 : bhp2 = 0 : bhp3 = 0 : bhp4 = 0 : bhp5 = 0
    bmp1 = 0 : bmp2 = 0 : bmp3 = 0 : bmp4 = 0 : bmp5 = 0
    
    i=0
    For 2
        For 5
        	
        Next 
    Next
End Sub
//OnScriptExit过程在脚本结束时执行，即使脚本执行到一半的时候，你按了停止热键，它也会执行了这个过程再停止，这样能保证占用的资源被释放
Sub OnScriptExit()
    //释放用LoadBMP命令载入到内存中的图片数据
    Call Plugin.FindPicture5_04.FreeBMP(HandleArray)
End Sub