MyUserName:MyModName:UserLog

Scriptname MyUserName:MyModName:UserLog Hidden

string Function GetName() Global
    return "MyModName"
EndFunction


string Function GetAuthor() Global
    return "MyUserName"
EndFunction


Function WriteLine(string asMessage, var aObject = none) Global
    string sLogName = GetAuthor() + "_" + GetName()
    string sLog = aObject + " :: " + asMessage
    If(Debug.TraceUser(sLogName, sLog))
        return
    Else
        Debug.OpenUserLog(sLogName)
        Debug.TraceUser(sLogName, sLog)
    EndIf
EndFunction


Function WriteChangedValue(string asPropertyName, var aFromValue, var aToValue, var aObject = none) Global
    WriteLine("Setting "+asPropertyName+" from " + aFromValue + " to " + aToValue, aObject)
EndFunction