Sub Process_Globals
Public logError = 0
Public logWarning = 1
Public logNotice = 2
Public logDebug = 3
End Sub
Sub MyLog(LogType As Int, text As String)
Select LogType
Case 0
LogColor(" Error: "&text,Colors.Red)
Case 1
LogColor("Warning: "&text,Colors.ARGB(255,255,140,0))
Case 2
LogColor(" Notice: "&text,Colors.Blue)
Case 3
LogColor(" Debug: "&text,Colors.ARGB(255,139,0,0))
End Select
End Sub
Sub Activity_Create(FirstTime As Boolean)
MyLog(logError,"Error bla")
MyLog(logWarning," bla")
MyLog(logNotice," bla")
MyLog(logDebug," bla")
End Sub