Noi/BirthdayBot
1
0
Fork 0
mirror of https://github.com/NoiTheCat/BirthdayBot.git synced 2024-11-21 21:54:36 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add more input options for specifying announce channel

Browse source
This commit is contained in:
Noikoio 2019-09-09 22:15:25 -07:00
parent de7752eb21
commit de86ebae96
2 changed files with 24 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
BirthdayBot/BirthdayBot.vbproj
View file

@ -4,7 +4,7 @@
<OutputType>Exe</OutputType>
<RootNamespace>BirthdayBot</RootNamespace>
<TargetFramework>netcoreapp2.0</TargetFramework>
<Version>1.3.0</Version>
<Version>1.3.1</Version>
<Authors>Noiiko</Authors>
<Company />
<Description>Discord bot for birthday reminders.</Description>

34
BirthdayBot/UserInterface/ManagerCommands.vb
View file

@ -129,24 +129,36 @@ Friend Class ManagerCommands
gi.UpdateAnnounceChannel(Nothing)
Await reqChannel.SendMessageAsync(":white_check_mark: The announcement channel has been unset.")
Else
' Parameter check: This needs a channel mention to function.
' Determine channel from input
Dim chId As ULong = 0
' Try channel mention
Dim m = ChannelMention.Match(param(1))
If Not m.Success Then
Await reqChannel.SendMessageAsync(":x: The given parameter must be a channel. (The channel name must be clickable.)")
Return
If m.Success Then
chId = ULong.Parse(m.Groups(1).Value)
ElseIf ULong.TryParse(param(1), chId) Then
' Continue...
Else
' Try text-based search
Dim res = reqChannel.Guild.TextChannels _
.FirstOrDefault(Function(ch) String.Equals(ch.Name, param(1), StringComparison.OrdinalIgnoreCase))
If res IsNot Nothing Then
chId = res.Id ' Yeah... we are throwing the full result away only to look for it again later.
End If
End If
Dim chId = ULong.Parse(m.Groups(1).Value)
' Check if the channel isn't in the local guild.
Dim chInst = reqChannel.Guild.GetTextChannel(chId)
If chInst Is Nothing Then
Await reqChannel.SendMessageAsync(":x: Unable to find the specified channel on this server.")
' Attempt to find channel in guild
Dim chTt As SocketTextChannel = Nothing
If chId <> 0 Then
chTt = reqChannel.Guild.GetTextChannel(chId)
End If
If chTt Is Nothing Then
Await reqChannel.SendMessageAsync(":x: Unable to find the specified channel.")
Return
End If
' Update the value
Dim gi = Instance.GuildCache(reqChannel.Guild.Id)
gi.UpdateAnnounceChannel(chId)
Instance.GuildCache(reqChannel.Guild.Id).UpdateAnnounceChannel(chId)
' Report the success
Await reqChannel.SendMessageAsync($":white_check_mark: The announcement channel is now set to <#{chId}>.")