Private Downtime

Sub Script(Name, Major, Minor, Build, Author, Commands, Description)
	Name = "Downtime"
	Major = 1
	Minor = 0
	Build = 0
	Author = "Live"
	Commands = "downtime"
	Description = "Checks to see how long you have been disconnected."
End Sub

Sub Event_Load()
	Downtime = Now
	CreateCommand "downtime", "Downtime", "Command_Downtime", "", "", "Downtime command", 0, True
	AddChat RGB(255, 236, 179), "Downtime script loaded."
End Sub

Sub Event_Unload()
	AddChat RGB(159, 140, 83), "Downtime script unloaded."
End Sub

Sub Command_Downtime(CS)
	If IsOnline = True Then
		CS.Reply "Bot is online!"
	Else	
		SecondsAgo = DateDiff("s", Downtime, Now)
		DaysAgo = CLng(SecondsAgo / 86400)
		SecondsAgo = SecondsAgo - DaysAgo * 86400
		HoursAgo = CLng(SecondsAgo / 3600)
		SecondsAgo = SecondsAgo - HoursAgo * 3600
		MinutesAgo = CLng(SecondsAgo / 60)
		SecondsAgo = SecondsAgo - MinutesAgo * 60
		
		If SecondsAgo < 0 Then MinutesAgo = MinutesAgo - 1: SecondsAgo = SecondsAgo + 60
		If MinutesAgo < 0 Then HoursAgo = HoursAgo - 1: MinutesAgo = MinutesAgo + 60
		If HoursAgo < 0 Then DaysAgo = DaysAgo - 1: HoursAgo = HoursAgo + 24
		
		If DaysAgo <> 0 Then FinalDiff = DaysAgo & " days, "
		If DaysAgo = 1 Then FinalDiff = Replace(FinalDiff, "days", "day")
		If HoursAgo <> 0 Then FinalDiff = FinalDiff & HoursAgo & " hours, "
		If HoursAgo = 1 Then FinalDiff = Replace(FinalDiff, "hours", "hour")
		If MinutesAgo <> 0 Then FinalDiff = FinalDiff & MinutesAgo & " minutes, and "
		If MinutesAgo = 1 Then FinalDiff = Replace(FinalDiff, "minutes", "minute")
		FinalDiff = FinalDiff & SecondsAgo & " seconds"
		If SecondsAgo = 1 Then FinalDiff = Replace(FinalDiff, "seconds", "second")
		
		CS.Reply "Bot has been disconnected for " & FinalDiff & "."
	End If
End Sub

Sub Event_Disconnect()
	Downtime = Now
End Sub