Const vbsTrue = 1
Const vbsFalse = 0
Dim SS_HB,      SD_HB,      SC_HB
Dim SS_MB,      SD_MB,      SC_MB
Dim SS_BC,      SD_BC,      SC_BC
Dim SS_GS,      SD_GS,      SC_GS
Dim SS_AOR,     SD_AOR,     SC_AOR
Dim SS_Berserk, SD_Berserk, SC_Berserk

Function TimeDiff (StartTime, EndTime)
	Dim Hours, Minutes, Seconds
	Seconds = DateDiff("s", StartTime, EndTime)
	If Seconds > 90000 Then Seconds = 90000
	If Seconds < 0 Then Seconds = 0
	Minutes = Seconds / 60
	Minutes = Fix(Minutes)
	Seconds = Seconds - (Minutes * 60)
	Hours = Minutes / 60
	Hours = Fix(Hours)
	Minutes = Minutes - (Hours * 60)
	Seconds = CStr(Seconds)
	Minutes = CStr(Minutes)
	Hours = CStr(Hours)
	If Len(Seconds) = 1 Then Seconds = "0" + Seconds
	If Len(Minutes) = 1 Then Minutes = "0" + Minutes
	If Len(Hours) = 1 Then Hours = "0" + Hours
	TimeDiff = Hours & ":" & Minutes & ":" & Seconds
End Function

Sub Grab_BodyClock (thename, theoutput, arrWildcards)
	SS_BC = Now()
	SC_BC = arrWildcards(2)
End Sub

Sub Display_End_BodyClock (thename, theoutput, arrWildcards)
	Dim TimeStamp
	If SS_BC <> Empty Then
		SD_BC = TimeDiff(SS_BC, Now())
		TimeStamp = " (" & SD_BC & " - " & SC_BC & ")."
	End If
	If World.GetVariable("InParty") Then
		World.EchoInput = vbsFalse
		World.Send "party emote no longer has a fastened body clock." & TimeStamp
	Else
		World.Note "END: Body Clock" & TimeStamp
	End If
	SS_BC = Empty
	World.EchoInput = vbsTrue
End Sub

Sub Grab_GodShield (thename, theoutput, arrWildcards)
	SS_GS = Now()
	SC_GS = arrWildcards(2)
End Sub

Sub Display_End_Godshield (thename, theoutput, arrWildcards)
	Dim TimeStamp
	If SS_GS <> Empty Then
		SD_GS = TimeDiff(SS_GS, Now())
		TimeStamp = " (" & SD_GS & " - " & SC_GS & ")."
	End If
	If World.GetVariable("InParty") Then
		World.EchoInput = vbsFalse
		World.Send "party emote no longer has a Godshield." & TimeStamp
	Else
		World.Note "END: GodShield" & TimeStamp
	End If
	SS_GS = Empty
	World.EchoInput = vbsTrue
End Sub

Sub Grab_HealthBlessing (thename, theoutput, arrWildcards)
	Dim Minutes
	SS_HB = Now()
	SC_HB = arrWildcards(2)
	If SD_HB <> Empty Then
		Minutes = Mid(SD_HB, 4, 2)
		Minutes = CInt(Minutes) - 3
		World.AddTimer "Warning_HB_Timer", 0, Minutes, 0, "", 5, "Display_HealthBlessing_Warning"
	End If
End Sub

Sub Display_End_HealthBlessing (thename, theoutput, arrWildcards)
	Dim TimeStamp
	FleeNow "Display_End_HealthBlessing", theoutput, arrWildcards
	If SS_HB <> Empty Then
		SD_HB = TimeDiff(SS_HB, Now())
		TimeStamp = " (" & SD_HB & " - " & SC_HB & ")."
	End If
	If World.GetVariable("InParty") Then
		World.EchoInput = vbsFalse
		World.Send "party emote no longer has blessed health." & TimeStamp
	Else
		World.Note "END: Health Blessing" & TimeStamp
	End If
	SS_HB = Empty
	World.EchoInput = vbsTrue
End Sub

Sub Display_HealthBlessing_Warning (TimerName)
	If World.GetVariable("InParty") Then
		World.EchoInput = vbsFalse
		World.Send "party emote expects Health Blessing will drop within 3 minutes."
	Else
		World.Note "WARNING: Health Blessing will drop within 3 minutes."
	End If
End Sub

Sub OnLostAura (strTriggerName, strOutput, arrWildCards)
Dim CurrentTime, Elapsed
  world.EnableTimer "CheckAura", 0
  World.SetStatus "Ready."
  CurrentTime = Now ()
  Elapsed = DateDiff ("s", AuraTime, CurrentTime)
  World.Note "Aura was active for: " & Elapsed & " seconds."
End Sub

Dim AuraTime

Sub OnNewAura(strTriggerName, strOutput, arrWildCards)
  AuraTime = Now () 
  world.EnableTimer "CheckAura", 1
End Sub

Sub OnCheckAura(strTimerName)
Dim CurrentTime, Elapsed
  CurrentTime = Now ()
  Elapsed = DateDiff ("s", AuraTime, CurrentTime)
  World.SetStatus "Aura for: " & Elapsed & " seconds."
End Sub

Sub OnLostAura(strTriggerName, strOutput, arrWildCards)
  world.EnableTimer "CheckAura", 0
  World.SetStatus "Ready."
End Sub