Add Building cache, new testable events

Author: goncalotomas

config/dev.exs

@@ -73,7 +73,7 @@ config :galaxies, dev_routes: true
 
 # Do not include metadata nor timestamps in development logs
 config :logger, :console, format: "[$level] $message\n"
-config :logger, level: :info
+config :logger, level: :debug
 
 # Set a higher stacktrace during development. Avoid configuring such
 # in production as building large stacktraces may be expensive.

lib/galaxies/accounts.ex

@@ -49,17 +49,17 @@ defmodule Galaxies.Accounts do
             preload: :research
         )
 
-      if player_research.current_level == level - 1 do
+      if player_research.level == level - 1 do
         {:ok, _} =
           Repo.update(
             PlayerResearch.upgrade_changeset(player_research, %{
-              current_level: level
+              level: level
             })
           )
 
         {:ok, player_research}
       else
-        {:error, "Cannot upgrade from level #{player_research.current_level} to #{level}"}
+        {:error, "Cannot upgrade from level #{player_research.level} to #{level}"}
       end
     end)
     |> Ecto.Multi.run(:update_planet, fn repo, %{player_research: player_research} ->
@@ -205,7 +205,7 @@ defmodule Galaxies.Accounts do
           %{
             player_id: player.id,
             research_id: research.id,
-            current_level: 0,
+            level: 0,
             inserted_at: now,
             updated_at: now
           }
@@ -234,7 +234,11 @@ defmodule Galaxies.Accounts do
         image_id: 1,
         metal_units: 5_000.0,
         crystal_units: 5_000.0,
-        deuterium_units: 500.0
+        deuterium_units: 500.0,
+        total_energy: 0,
+        available_energy: 0,
+        total_fields: 250,
+        used_fields: 0
       })
     end)
     |> Ecto.Multi.run(:planet_buildings, fn repo, %{player: player, planet: planet} ->
@@ -244,7 +248,7 @@ defmodule Galaxies.Accounts do
           %{
             planet_id: planet.id,
             building_id: building.id,
-            current_level: 0,
+            level: 0,
             inserted_at: now,
             updated_at: now
           }
@@ -532,7 +536,7 @@ defmodule Galaxies.Accounts do
           description_short: building.short_description,
           description_long: building.long_description,
           image_src: building.image_src,
-          current_level: planet_building.current_level,
+          level: planet_building.level,
           upgrade_cost_formula: building.upgrade_cost_formula
         },
         order_by: [building.list_order]
@@ -556,7 +560,7 @@ defmodule Galaxies.Accounts do
           description_short: building.short_description,
           description_long: building.long_description,
           image_src: building.image_src,
-          current_level: planet_building.current_level,
+          level: planet_building.level,
           upgrade_cost_formula: building.upgrade_cost_formula
         },
         order_by: [building.list_order]
@@ -579,7 +583,7 @@ defmodule Galaxies.Accounts do
           description_short: research.short_description,
           description_long: research.long_description,
           image_src: research.image_src,
-          current_level: player_research.current_level,
+          level: player_research.level,
           upgrade_cost_formula: research.upgrade_cost_formula,
           is_upgrading: player_research.is_upgrading,
           upgrade_finished_at: player_research.upgrade_finished_at

lib/galaxies/application.ex

@@ -14,8 +14,8 @@ defmodule Galaxies.Application do
       {Phoenix.PubSub, name: Galaxies.PubSub},
       # Start the Finch HTTP client for sending emails
       {Finch, name: Galaxies.Finch},
-      # Start a one-off task for loading game entity prerequisites
-      {Task, &Galaxies.Prerequisites.load_static_prerequisites/0},
+      # Start a one-off task for loading static game entities
+      {Task, &load_static_entities/0},
       # Start a worker by calling: Galaxies.Worker.start_link(arg)
       # {Galaxies.Worker, arg},
       # Start to serve requests, typically the last entry
@@ -35,4 +35,14 @@ defmodule Galaxies.Application do
     GalaxiesWeb.Endpoint.config_change(changed, removed)
     :ok
   end
+
+  defp load_static_entities() do
+    tasks = [
+      Task.async(fn -> Galaxies.Prerequisites.load_static_prerequisites() end),
+      Task.async(fn -> Galaxies.Cached.Buildings.load_static_buildings() end)
+    ]
+
+    Task.await_many(tasks, :infinity)
+    :ok
+  end
 end

lib/galaxies/building.ex

@@ -23,7 +23,7 @@ defmodule Galaxies.Building do
 
     field :list_order, :integer
 
-    timestamps(type: :utc_datetime_usec)
+    timestamps(type: :utc_datetime)
   end
 
   def terraformer_extra_fields(level) when rem(level, 2) == 0, do: 6

lib/galaxies/buildings.ex

@@ -4,8 +4,13 @@ defmodule Galaxies.Buildings do
   """
 
   # TODO: Maybe read hardcoded IDs from file or Application.compile_env?
+  @production_building_ids [1, 2, 3, 4, 5]
   @terraformer_building_id 13
 
+  def production_building?(building_id) do
+    building_id in @production_building_ids
+  end
+
   @doc """
   Determines the increase in used fields when upgrading a building.
   An upgrade will increase the number of used fields by 1 while a downgrade
@@ -21,7 +26,7 @@ defmodule Galaxies.Buildings do
   """
   def total_fields_increase(_building_id, _level, true), do: 0
 
-  def total_fields_increase(@terraformer_building_id, level, _demolish) do
+  def total_fields_increase(@terraformer_building_id, level, false) do
     if rem(level, 2) == 0 do
       6
     else

lib/galaxies/cached/buildings.ex

@@ -0,0 +1,25 @@
+defmodule Galaxies.Cached.Buildings do
+  @moduledoc """
+  A local copy of all the game's buildings, which are considered immutable.
+  """
+  alias Galaxies.Repo
+  require Logger
+
+  @cache_name :galaxies_buildings
+
+  def load_static_buildings do
+    started_at = DateTime.utc_now(:millisecond)
+
+    for building <- Repo.all(Galaxies.Building) do
+      :persistent_term.put({@cache_name, building.id}, building)
+    end
+
+    Logger.info(
+      "Loaded static buildings in #{DateTime.diff(DateTime.utc_now(:millisecond), started_at, :millisecond)}ms"
+    )
+  end
+
+  def get_building_by_id(building_id) do
+    :persistent_term.get({@cache_name, building_id})
+  end
+end

lib/galaxies/formulas/buildings.ex

@@ -0,0 +1,36 @@
+defmodule Galaxies.Formulas.Buildings do
+  @moduledoc """
+  Formulas for buildings.
+  """
+
+  @universe_speed 100
+
+  @default_attrs %{
+    universe_speed: @universe_speed
+  }
+
+  def construction_time_seconds(building_id, level, robotics_level, nanites_level) do
+    {metal, crystal, _deuterium, _energy} = upgrade_cost(building_id, level)
+
+    num = metal + crystal
+    denomenator = 2500 * (1 + robotics_level) * :math.pow(2, nanites_level) * @universe_speed
+
+    ceil(num / denomenator)
+  end
+
+  def upgrade_cost(building_id, level) do
+    building = Galaxies.Cached.Buildings.get_building_by_id(building_id)
+
+    [metal_cost, crystal_cost, deuterium_cost, energy_cost] =
+      building.upgrade_cost_formula
+      |> String.split("$")
+      |> Enum.map(fn expression ->
+        {:ok, result} =
+          Abacus.eval(expression, Map.merge(@default_attrs, %{"level" => level}))
+
+        ceil(result)
+      end)
+
+    {metal_cost, crystal_cost, deuterium_cost, energy_cost}
+  end
+end

lib/galaxies/formulas/buildings/terraformer.ex

@@ -0,0 +1,21 @@
+defmodule Galaxies.Formulas.Buildings.Terraformer do
+  @moduledoc """
+  Formulas for the Terraformer building.
+  """
+
+  @doc """
+  Returns the increase in fields when upgrading the Terraformer to a given level.
+  The Terraformer cannot be
+  """
+  def field_increase(level) when level > 0 do
+    trunc(Float.floor(5.5 * level) - Float.floor(5.5 * (level - 1)))
+  end
+
+  def total_fields(planet) do
+    if planet.total_fields < 100 do
+      1
+    else
+      0
+    end
+  end
+end

lib/galaxies/planet_building.ex

@@ -5,7 +5,7 @@ defmodule Galaxies.PlanetBuilding do
 
   @primary_key false
   schema "planet_buildings" do
-    field :current_level, :integer
+    field :level, :integer
 
     belongs_to :planet, Galaxies.Planet, primary_key: true, type: :integer
     belongs_to :building, Galaxies.Building, primary_key: true, type: :integer
@@ -20,6 +20,6 @@ defmodule Galaxies.PlanetBuilding do
 
   def complete_upgrade_changeset(planet_building, attrs) do
     planet_building
-    |> cast(attrs, [:current_level, :is_upgrading, :upgrade_finished_at])
+    |> cast(attrs, [:level, :is_upgrading, :upgrade_finished_at])
   end
 end