Remove messages

This commit is contained in:
Joseph Ferano 2022-03-04 15:54:25 +07:00
parent 3f4d785bcb
commit 4ef8243e22

View File

@ -97,17 +97,13 @@ let getInvitedUsers userId =
let createGuildInvite (ctx : IDiscordContext) =
task {
printfn $"{GuildEnvironment.channelWelcome}"
let ( result , channel ) = ctx.GetGuild().Channels.TryGetValue(GuildEnvironment.channelWelcome)
printfn $"{result} {channel.Name}"
let channel = ctx.GetGuild().Channels.[GuildEnvironment.channelWelcome]
let! invite = channel.CreateInviteAsync(max_age = 86400)
printfn $"{invite.Code}"
// When a player generates an invite code but it hasn't expired, it generates the same code, creating a duplicate entry
// so catch the exception thrown because the code column is unique
try
let! result = createInvite (ctx.GetDiscordMember().Id) invite.Code
printfn "%A" result
let! _ = createInvite (ctx.GetDiscordMember().Id) invite.Code
return ()
with ex ->
printfn "%A" ex.Message