Fix bug with achievements

Bot/DbService.fs

@@ -346,11 +346,9 @@ let checkHasAchievement (did : uint64) (achievement : string) = async {
             [ ( "did" , Sql.string (string did) )
               ( "symbol", Sql.string achievement ) ]
         |> Sql.query """
-                WITH ach AS (SELECT id FROM achievement WHERE id = @symbol),
-                     usr AS (SELECT id FROM "user" WHERE id = @did)
-                SELECT achievement_id FROM user_achievements_achievement, ach, usr WHERE user_id = usr.id AND achievement_id = ach.id;
+                SELECT achievement_id FROM user_achievements_achievement WHERE user_id = @did AND achievement_id = @symbol;
             """
-        |> Sql.executeAsync (fun read -> read.int "achievement_id")
+        |> Sql.executeAsync (fun read -> read.string "achievement_id")
         |> Async.AwaitTask
     return List.isEmpty result |> not
 }

Bot/Games/HackerBattle.fs

@@ -165,7 +165,6 @@ let handleAttack (ctx : IDiscordContext) =
     executePlayerAction ctx (fun attacker -> async {
         let tokens = ctx.GetInteractionId().Split("-")
         let hackId = tokens.[1]
-        // TODO: This sucks
         let item = Arsenal.weapons |> Inventory.findItemById hackId
         let hackItem =  (Inventory.getHackItem item).Value
         let resultId , targetId = UInt64.TryParse tokens.[2]

Bot/Games/Store.fs

@@ -119,7 +119,7 @@ let getBuyItemsEmbed storeId (playerInventory : Inventory) (storeInventory : Sto
         
 let purchaseItemEmbed (item : Item) =
     let embed = DiscordEmbedBuilder()
-    embed.ImageUrl <- item.IconUrl
+    embed.ImageUrl <- item.ImageUrl
     embed.Title <- $"Purchased {item.Name}"
     match item.Type with
     | ItemType.Jpeg ->