add Duel Links format

Author: okkdev

README.md

@@ -1,6 +1,6 @@
 # 🎴 Cardian
 
-Yu-Gi-Oh! Paper and Master Duel Discord Bot
+Yu-Gi-Oh! Paper, Master Duel and Duel Links Discord Bot
 
 Fetches data from the [YGOPRODeck](https://ygoprodeck.com/) and [Master Duel Meta](https://masterduelmeta.com/) APIs
 

lib/cardian/api/duellinksmeta.ex

@@ -0,0 +1,130 @@
+defmodule Cardian.Api.Duellinksmeta do
+  alias Cardian.Struct.{Card, Set}
+
+  @url "https://www.duellinksmeta.com/api/v1"
+
+  @rarity_mapping %{
+    "N" => :normal,
+    "R" => :rare,
+    "SR" => :super,
+    "UR" => :ultra
+  }
+
+  @status_mapping %{
+    "Limited 2" => :semilimited,
+    "Limited 1" => :limited,
+    "Forbidden" => :forbidden
+  }
+
+  def get_all_cards_raw() do
+    pages = ceil(get_card_amount() / 3000)
+
+    1..pages
+    |> Task.async_stream(fn page ->
+      url =
+        "#{@url}/cards?limit=3000&page=#{page}"
+        |> URI.encode()
+
+      Req.request(url: url)
+      |> handle_response()
+    end)
+    |> Stream.flat_map(fn {:ok, res} -> res end)
+    |> Stream.filter(&(&1["alternateArt"] != true))
+    |> Stream.filter(&(&1["konamiID"] != nil))
+    |> Enum.to_list()
+  end
+
+  def update_card_details(cards, raw_dl_cards) do
+    dl_cards_by_id = raw_dl_cards |> Enum.map(&{&1["konamiID"], &1}) |> Enum.into(%{})
+
+    Enum.map(cards, &cast_dl_details(&1, dl_cards_by_id))
+  end
+
+  def get_card_amount() do
+    url =
+      (@url <> "/cards?collectionCount=true")
+      |> URI.encode()
+
+    Req.request(url: url)
+    |> case do
+      {:ok, res} ->
+        String.to_integer(res.body)
+
+      {:error, reason} ->
+        raise(inspect(reason))
+    end
+  end
+
+  def get_all_sets() do
+    pages = ceil(get_sets_amount() / 3000)
+
+    1..pages
+    |> Stream.flat_map(fn page ->
+      url =
+        "#{@url}/sets?limit=3000&page=#{page}"
+        |> URI.encode()
+
+      Req.request(url: url)
+      |> handle_response()
+    end)
+    |> Stream.map(&cast_set/1)
+    |> Enum.to_list()
+  end
+
+  def get_sets_amount() do
+    url =
+      (@url <> "/sets?collectionCount=true")
+      |> URI.encode()
+
+    Req.request(url: url)
+    |> case do
+      {:ok, res} ->
+        String.to_integer(res.body)
+
+      {:error, reason} ->
+        raise(inspect(reason))
+    end
+  end
+
+  defp get_set_link(url_path) when is_binary(url_path) do
+    ("https://www.duellinksmeta.com/articles" <> url_path)
+    |> URI.encode()
+  end
+
+  defp get_set_link(_), do: nil
+
+  defp handle_response(resp) do
+    case resp do
+      {:ok, res} ->
+        res.body
+
+      {:error, reason} ->
+        raise(inspect(reason))
+    end
+  end
+
+  defp cast_dl_details(card, dl_cards) do
+    case Map.fetch(dl_cards, card.id) do
+      {:ok, dl_card} ->
+        %Card{
+          card
+          | status_dl: @status_mapping[dl_card["banStatus"]],
+            rarity_dl: @rarity_mapping[dl_card["rarity"]],
+            sets_dl: Enum.map(dl_card["obtain"], & &1["source"]["_id"])
+        }
+
+      :error ->
+        card
+    end
+  end
+
+  defp cast_set(resp) do
+    %Set{
+      id: resp["_id"],
+      name: resp["name"],
+      type: resp["type"],
+      url: get_set_link(resp["linkedArticle"]["url"]),
+      image_url: "https://s3.duellinksmeta.com" <> resp["bannerImage"]
+    }
+  end
+end

lib/cardian/api/masterduelmeta.ex

@@ -34,7 +34,7 @@ defmodule Cardian.Api.Masterduelmeta do
     |> Enum.to_list()
   end
 
-  def update_all_md_details(cards, raw_md_cards) do
+  def update_card_details(cards, raw_md_cards) do
     md_cards_by_id = raw_md_cards |> Enum.map(&{&1["konamiID"], &1}) |> Enum.into(%{})
 
     Enum.map(cards, &cast_md_details(&1, md_cards_by_id))
@@ -108,7 +108,7 @@ defmodule Cardian.Api.Masterduelmeta do
       {:ok, md_card} ->
         %Card{
           card
-          | status_md: @status_mapping[md_card["banStatus"]] || "Unlimited",
+          | status_md: @status_mapping[md_card["banStatus"]],
             rarity_md: @rarity_mapping[md_card["rarity"]],
             sets_md: Enum.map(md_card["obtain"], & &1["source"]["_id"])
         }

lib/cardian/builder.ex

@@ -65,6 +65,7 @@ defmodule Cardian.Builder do
     |> try_put_field("Arrows", card.arrows, true)
     |> put_monster_atk(card)
     |> try_put_field("Released in", build_sets(card, format))
+    |> put_format_footer(format)
   end
 
   def build_art_message(%Card{} = card, image_url) when is_binary(image_url) do
@@ -83,6 +84,10 @@ defmodule Cardian.Builder do
     }
   end
 
+  defp put_format_footer(embed, :paper), do: put_footer(embed, "Format: Paper")
+  defp put_format_footer(embed, :md), do: put_footer(embed, "Format: Master Duel")
+  defp put_format_footer(embed, :dl), do: put_footer(embed, "Format: Duel Links")
+
   defp put_ocg_footer(embed, %Card{ocg: true}) do
     embed
     |> put_footer("OCG Art")
@@ -163,6 +168,9 @@ defmodule Cardian.Builder do
 
         :md ->
           "**Attribute**: #{@attribute_icons[card.attribute]} #{put_card_rarity(card.rarity_md)}"
+
+        :dl ->
+          "**Attribute**: #{@attribute_icons[card.attribute]} #{put_card_rarity(card.rarity_dl)}"
       end
 
     put_description(
@@ -186,6 +194,9 @@ defmodule Cardian.Builder do
 
         :md ->
           "**Type**: #{@spell_trap_icons[card.type]} #{@card_type_icons[card.race]} #{put_card_rarity(card.rarity_md)}"
+
+        :dl ->
+          "**Type**: #{@spell_trap_icons[card.type]} #{@card_type_icons[card.race]} #{put_card_rarity(card.rarity_dl)}"
       end
 
     put_description(
@@ -207,13 +218,17 @@ defmodule Cardian.Builder do
   defp put_card_rarity(_), do: ""
 
   defp put_card_status(%Card{} = card, :paper) do
-    "**TCG Status**: #{status_icon(card.status_tcg)} **OCG Status**: #{status_icon(card.status_ocg)}"
+    "**TCG Status**: #{status_icon(card.status_tcg)}\n**OCG Status**: #{status_icon(card.status_ocg)}"
   end
 
   defp put_card_status(%Card{} = card, :md) do
     "**Status**: #{status_icon(card.status_md)}"
   end
 
+  defp put_card_status(%Card{} = card, :dl) do
+    "**Status**: #{status_icon(card.status_dl)}"
+  end
+
   defp status_icon(status) when is_map_key(@status_icons, status) do
     @status_icons[status]
   end
@@ -264,6 +279,19 @@ defmodule Cardian.Builder do
     |> Enum.join(", ")
   end
 
+  defp build_sets(%Card{} = card, :dl) when is_list(card.sets_dl) and length(card.sets_dl) > 0 do
+    card.sets_dl
+    |> Enum.flat_map(&CardRegistry.get_set_by_id(&1))
+    |> Enum.map(
+      &if &1.url do
+        "[#{&1.name}](#{&1.url})"
+      else
+        &1.name
+      end
+    )
+    |> Enum.join(", ")
+  end
+
   defp build_sets(_, _), do: "Unreleased"
 
   defp try_put_color(embed, color) when is_integer(color) do

lib/cardian/card_registry.ex

@@ -1,6 +1,7 @@
 defmodule Cardian.CardRegistry do
   use GenServer
   require Logger
+  alias Cardian.Api.Duellinksmeta
   alias Cardian.Api.Ygoprodeck
   alias Cardian.Api.Masterduelmeta
 
@@ -148,7 +149,7 @@ defmodule Cardian.CardRegistry do
   end
 
   defp update_sets() do
-    sets = @extra_sets ++ Masterduelmeta.get_all_sets()
+    sets = @extra_sets ++ Masterduelmeta.get_all_sets() ++ Duellinksmeta.get_all_sets()
 
     true = :ets.insert(:sets, Enum.map(sets, &{&1.id, &1}))
 
@@ -158,7 +159,12 @@ defmodule Cardian.CardRegistry do
   defp update_cards() do
     ygopro_cards = Ygoprodeck.get_all_cards()
     md_cards_raw = Masterduelmeta.get_all_cards_raw()
-    updated_cards = Masterduelmeta.update_all_md_details(ygopro_cards, md_cards_raw)
+    dl_cards_raw = Duellinksmeta.get_all_cards_raw()
+
+    updated_cards =
+      ygopro_cards
+      |> Masterduelmeta.update_card_details(md_cards_raw)
+      |> Duellinksmeta.update_card_details(dl_cards_raw)
 
     cards = @extra_cards ++ updated_cards
 

lib/cardian/interactions.ex

@@ -41,6 +41,10 @@ defmodule Cardian.Interactions do
             %{
               name: "Master Duel",
               value: "md"
+            },
+            %{
+              name: "Duel Links",
+              value: "dl"
             }
           ]
         }
@@ -107,6 +111,7 @@ defmodule Cardian.Interactions do
         format =
           case Enum.find(options, &(&1.name == "format")) do
             %{name: "format", value: "md"} -> :md
+            %{name: "format", value: "dl"} -> :dl
             _ -> :paper
           end
 

lib/cardian/struct/card.ex

@@ -15,14 +15,17 @@ defmodule Cardian.Struct.Card do
     :scale,
     :arrows,
     :status_md,
+    :status_dl,
     :status_tcg,
     :status_ocg,
     :status_goat,
     :rarity_md,
+    :rarity_dl,
     :image_url,
     :url,
     :sets_paper,
     :sets_md,
+    :sets_dl,
     :ocg
   ]
 end