From de7752eb21c5d28e58eb5b7b46879587c6116bd6 Mon Sep 17 00:00:00 2001 From: Noikoio Date: Fri, 6 Sep 2019 21:50:10 -0700 Subject: [PATCH] Add shard info to stats embed --- BirthdayBot/UserInterface/HelpInfoCommands.vb | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/BirthdayBot/UserInterface/HelpInfoCommands.vb b/BirthdayBot/UserInterface/HelpInfoCommands.vb index 7259db5..c1e3a33 100644 --- a/BirthdayBot/UserInterface/HelpInfoCommands.vb +++ b/BirthdayBot/UserInterface/HelpInfoCommands.vb @@ -140,12 +140,13 @@ Friend Class HelpInfoCommands End Function Private Async Function CmdInfo(param As String(), reqChannel As SocketTextChannel, reqUser As SocketGuildUser) As Task - ' Bot status field - Dim strStatus As New StringBuilder + ' Bot stats field + Dim strStats As New StringBuilder Dim asmnm = Reflection.Assembly.GetExecutingAssembly.GetName() - strStatus.AppendLine("Birthday Bot v" + asmnm.Version.ToString(3)) - strStatus.AppendLine("Server count: " + Discord.Guilds.Count.ToString()) - strStatus.AppendLine("Uptime: " + BotUptime()) + strStats.AppendLine("Birthday Bot v" + asmnm.Version.ToString(3)) + strStats.AppendLine("Server count: " + Discord.Guilds.Count.ToString()) + strStats.AppendLine("Shard #" + Discord.GetShardIdFor(reqChannel.Guild).ToString()) + strStats.AppendLine("Uptime: " + BotUptime()) ' TODO fun stats ' current birthdays, total names registered, unique time zones @@ -162,7 +163,7 @@ Friend Class HelpInfoCommands Dim verstr = Reflection.Assembly.GetExecutingAssembly().GetName().Version.ToString(3) embed.AddField(New EmbedFieldBuilder With { .Name = "Statistics", - .Value = strStatus.ToString() + .Value = strStats.ToString() }) Await reqChannel.SendMessageAsync(embed:=embed.Build()) End Function