From caf902725bd70639ed277837571f537ba6b4670a Mon Sep 17 00:00:00 2001
From: Joseph Ferano <joseph@ferano.io>
Date: Tue, 10 May 2022 18:09:11 +0700
Subject: [PATCH] Send message to HoP and analytics

---
 Bot/Analytics.fs   | 12 ++++++------
 Bot/Games/Store.fs | 14 +++++++++++---
 2 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/Bot/Analytics.fs b/Bot/Analytics.fs
index 1a19b85..9e35e41 100644
--- a/Bot/Analytics.fs
+++ b/Bot/Analytics.fs
@@ -108,19 +108,19 @@ let sellItemCommand (discordMember : DiscordMember) store =
     ]
     track "Sell Item Command Invoked" discordMember.Id data
 
-let buyWeaponButton (discordMember : DiscordMember) itemName itemPrice =
+let buyItemButton (discordMember : DiscordMember) itemName itemPrice =
     let data = [
         "user_display_name" , discordMember.Username
-        "weapon_name" , itemName
-        "weapon_price" , string itemPrice
+        "item_name" , itemName
+        "item_price" , string itemPrice
     ]
     track "Buy Weapon Button Clicked" discordMember.Id data
 
-let sellWeaponButton (discordMember : DiscordMember) (weapon : Item) price =
+let sellItemButton (discordMember : DiscordMember) (item : Item) price =
     let data = [
         "user_display_name" , discordMember.Username
-        "weapon_name" , weapon.Name
-        "weapon_price" , string price
+        "item_name" , item.Name
+        "item_price" , string price
     ]
     track "Sell Weapon Button Clicked" discordMember.Id data
 
diff --git a/Bot/Games/Store.fs b/Bot/Games/Store.fs
index bc66ef7..b19dc06 100644
--- a/Bot/Games/Store.fs
+++ b/Bot/Games/Store.fs
@@ -161,7 +161,7 @@ let purchaseItemEmbed quantity (item : Item) =
     embed.Title <- $"Purchased {quantity}x {item.Name}"
     match item.Type with
     | ItemType.Jpeg ->
-        embed.Description <- $"Congratulations! You are in the draw for the {item.Name}. The winner will be announced soon in the <#{GuildEnvironment.channelGiveaway}>"
+        embed.Description <- $"Congratulations! You are in the draw for the {item.Name}.\n\nThe winner will be announced soon in the <#{GuildEnvironment.channelGiveaway}>"
         embed.ImageUrl <- item.ImageUrl
         embed.Thumbnail <- DiscordEmbedBuilder.EmbedThumbnail()
         embed.Thumbnail.Url <- item.IconUrl
@@ -261,7 +261,15 @@ let handleBuyItem (ctx : IDiscordContext) itemId =
                 | _ -> ()
                 builder.AddEmbed(embed) |> ignore
                 do! ctx.FollowUp builder |> Async.AwaitTask
-                do! Analytics.buyWeaponButton (ctx.GetDiscordMember()) item.Name price
+                
+                let builder = DiscordMessageBuilder()
+                builder.WithContent($"{player.Name} just purchased {item.Name}!") |> ignore
+                let channel = ctx.GetGuild().GetChannel(GuildEnvironment.channelEventsHackerBattle)
+                do! channel.SendMessageAsync(builder)
+                    |> Async.AwaitTask
+                    |> Async.Ignore
+                    
+                do! Analytics.buyItemButton (ctx.GetDiscordMember()) item.Id price
             })
     })
 
@@ -279,7 +287,7 @@ let handleSell (ctx : IDiscordContext) itemId =
                   DbService.removeFromPlayerInventory player.DiscordId item |> Async.Ignore
                   DbService.removeShieldEvent player.DiscordId itemId |> Async.Ignore
                   sendFollowUpMessage ctx $"Sold {item.Name} for {price}! New Balance: {player.Bank + price}"
-                  Analytics.sellWeaponButton (ctx.GetDiscordMember()) item price ]
+                  Analytics.sellItemButton (ctx.GetDiscordMember()) item price ]
                 |> Async.Parallel
                 |> Async.Ignore
             | _ -> ()