From 2ea9b65c46c1339046c1495086096eec8f3cd796 Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Fri, 6 May 2022 16:53:06 +0700 Subject: [PATCH] Fix bug with achievements --- Bot/DbService.fs | 6 ++---- Bot/Games/HackerBattle.fs | 1 - Bot/Games/Store.fs | 2 +- 3 files changed, 3 insertions(+), 6 deletions(-) diff --git a/Bot/DbService.fs b/Bot/DbService.fs index 67243af..af7fa00 100644 --- a/Bot/DbService.fs +++ b/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 } diff --git a/Bot/Games/HackerBattle.fs b/Bot/Games/HackerBattle.fs index 14b3b17..40895fa 100644 --- a/Bot/Games/HackerBattle.fs +++ b/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] diff --git a/Bot/Games/Store.fs b/Bot/Games/Store.fs index 737f592..ab4ddf5 100644 --- a/Bot/Games/Store.fs +++ b/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 ->