Attribute VB_Name = "GazModule"
Option Explicit
' This will slowly become my own little library of
' functions
'
' So far:
'
' IntRandNum(MaxNumber As Integer) As Integer

Public Function IntRandNum(MaxNumber As Integer) As Integer
' Generates a random integer between 0 and Maxnumber
    Randomize (Second(Time) * (22 / 7))
    IntRandNum = (Rnd() * MaxNumber)
End Function

Public Function intDistBetween(X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As Integer
' Tells you the distance between two points
'  2    2     2
' O  + A  == H
    Dim Dx As Double
    Dim Dy As Double
    Dim Result As Double
    
    Dx = X2 - X1: Dy = Y2 - Y1
    Result = (Dx * Dx) + (Dy * Dy)
    intDistBetween = Sqr(Result)
End Function