JosephFerano/discord-bot-game
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

:(

Browse Source
This commit is contained in:
Joseph Ferano 2022-05-19 00:11:00 +07:00
parent d2d18114ef
commit 3c242cbb51
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Bot/InviteTracker.fs
View File

@ -373,18 +373,23 @@ To confirm your **Whitelist** please submit it below:
let btn = DiscordButtonComponent(ButtonStyle.Success, "WalletStatus", "Check Status") :> DiscordComponent let btn = DiscordButtonComponent(ButtonStyle.Success, "WalletStatus", "Check Status") :> DiscordComponent
builder.AddComponents [| btn |] |> ignore builder.AddComponents [| btn |] |> ignore
printfn "1"
let! msgs = channel.GetMessagesAsync() |> Async.AwaitTask let! msgs = channel.GetMessagesAsync() |> Async.AwaitTask
printfn "2"
let recruitBot = GuildEnvironment.botClientRecruit.Value let recruitBot = GuildEnvironment.botClientRecruit.Value
match msgs |> Seq.tryHead with match msgs |> Seq.tryHead with
| Some msg -> | Some msg ->
if msg.Author.Id = recruitBot.CurrentUser.Id then if msg.Author.Id = recruitBot.CurrentUser.Id then
printfn "3"
do! msg.ModifyAsync(builder) |> Async.AwaitTask |> Async.Ignore do! msg.ModifyAsync(builder) |> Async.AwaitTask |> Async.Ignore
printfn "4"
| None -> | None ->
printfn "2a"
do! recruitBot.SendMessageAsync(channel, builder) do! recruitBot.SendMessageAsync(channel, builder)
|> Async.AwaitTask |> Async.AwaitTask
|> Async.Ignore |> Async.Ignore
with e -> with e ->
printfn $"Error trying to get channel Whitelist\n\n{e.Message}" printfn $"Error trying to get channel Recruit thing\n\n{e.Message}"
} |> Async.RunSynchronously } |> Async.RunSynchronously
let handleCreateInvite (ctx : IDiscordContext) = let handleCreateInvite (ctx : IDiscordContext) =