Remove messages
This commit is contained in:
parent
3f4d785bcb
commit
4ef8243e22
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user