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

Print debugging

Browse Source
This commit is contained in:
Joseph Ferano 2022-05-06 19:51:25 +07:00
parent a60f12c15e
commit 8cb20b414c
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Bot/InviteTracker.fs
View File

@ -286,23 +286,31 @@ let private processNewUser (eventArgs : GuildMemberAddEventArgs) =
let acceptInvite (guild : DiscordGuild) discordId memberName = let acceptInvite (guild : DiscordGuild) discordId memberName =
task { task {
printfn "1"
match! checkInviteAccepted discordId with match! checkInviteAccepted discordId with
| false -> | false ->
printfn "2"
let! _ = markInvitedAccepted discordId |> Async.Ignore let! _ = markInvitedAccepted discordId |> Async.Ignore
printfn "3"
try try
let! invite = getInviteFromInvitedUser discordId let! invite = getInviteFromInvitedUser discordId
printfn "4"
let! player = DbService.tryFindPlayer invite.Inviter let! player = DbService.tryFindPlayer invite.Inviter
printfn "5"
match player with match player with
| Some player -> | Some player ->
do! DbService.updatePlayerCurrency InviteRewardAmount player.DiscordId |> Async.Ignore do! DbService.updatePlayerCurrency InviteRewardAmount player.DiscordId |> Async.Ignore
printfn "6"
do! match GuildEnvironment.botClientRecruit with do! match GuildEnvironment.botClientRecruit with
| Some recruitBot -> async { | Some recruitBot -> async {
printfn "7"
let builder = DiscordMessageBuilder() let builder = DiscordMessageBuilder()
builder.WithContent($"{memberName} was recruited and is now a Degen. <@{player.DiscordId}> just earned {InviteRewardAmount} 💰$GBT for their efforts!") |> ignore builder.WithContent($"{memberName} was recruited and is now a Degen. <@{player.DiscordId}> just earned {InviteRewardAmount} 💰$GBT for their efforts!") |> ignore
let channel = guild.GetChannel(GuildEnvironment.channelEventsHackerBattle) let channel = guild.GetChannel(GuildEnvironment.channelEventsHackerBattle)
do! recruitBot.SendMessageAsync(channel, builder) do! recruitBot.SendMessageAsync(channel, builder)
|> Async.AwaitTask |> Async.AwaitTask
|> Async.Ignore |> Async.Ignore
printfn "8"
} }
| None -> async.Return() | None -> async.Return()
do! Analytics.invitedUserAccepted invite.Code player.DiscordId discordId player.Name memberName do! Analytics.invitedUserAccepted invite.Code player.DiscordId discordId player.Name memberName