Use PlanetAction to encode game logic for upgrading building

Author: goncalotomas

lib/galaxies/accounts.ex

@@ -4,6 +4,8 @@ defmodule Galaxies.Accounts do
   """
 
   import Ecto.Query, warn: false
+  alias Galaxies.Planets.Actions.EnqueueBuilding
+  alias Galaxies.Planets.PlanetAction
   alias Galaxies.Planets
   alias Galaxies.Planet
   alias Galaxies.Repo
@@ -19,14 +21,17 @@ defmodule Galaxies.Accounts do
   @doc """
   Tries to upgrade a planet building.
   """
-  def upgrade_planet_building(planet, building_id, level) do
+  def upgrade_planet_building(player, planet, building_id, demolish) do
     # TODO maybe wrap in transaction
     now = DateTime.utc_now()
 
-    with {:prerequisites_ok, true} <-
-           {:prerequisites_ok, Planets.can_build_building?(planet, building_id)},
-         :ok <- Planets.enqueue_building(planet.id, building_id, level),
-         :ok <- Planets.process_planet_events(planet.id, now) do
+    action = %PlanetAction{
+      type: :enqueue_building,
+      data: %{planet_id: planet.id, data: %{building_id: building_id, demolish: demolish}}
+    }
+
+    with {:ok, result} <- EnqueueBuilding.perform(player, action) do
+      dbg(result)
       :ok
     else
       {:prerequisites_ok, false} ->

lib/galaxies/planet.ex

@@ -31,10 +31,21 @@ defmodule Galaxies.Planet do
 
     has_many :buildings, Galaxies.PlanetBuilding
     has_many :units, Galaxies.PlanetUnit
+    has_many :events, Galaxies.Planets.PlanetEvent
 
     timestamps(type: :utc_datetime_usec)
   end
 
+  def update_resources_changeset(planet, attrs) do
+    planet
+    |> cast(attrs, [
+      :metal_units,
+      :crystal_units,
+      :deuterium_units,
+      :updated_at
+    ])
+  end
+
   def building_construction_complete_changeset(planet, attrs) do
     planet
     |> cast(attrs, [

lib/galaxies_web/live/facilities_live.ex

@@ -81,17 +81,14 @@ defmodule GalaxiesWeb.FacilitiesLive do
   end
 
   def handle_event("upgrade_building:" <> building_id, _value, socket) do
-    building =
-      Enum.find(socket.assigns.planet_buildings, fn building ->
-        "#{building.id}" == building_id
-      end)
-
-    level = building.level + 1
+    # TODO implement demolish feature
+    demolish = false
 
     case Accounts.upgrade_planet_building(
+           socket.assigns.current_player,
            socket.assigns.current_planet,
            String.to_integer(building_id),
-           level
+           demolish
          ) do
       :ok ->
         {:noreply, load_build_queue(socket)}

lib/galaxies_web/live/resources_live.ex

@@ -81,17 +81,14 @@ defmodule GalaxiesWeb.ResourcesLive do
   end
 
   def handle_event("upgrade_building:" <> building_id, _value, socket) do
-    building =
-      Enum.find(socket.assigns.planet_buildings, fn building ->
-        "#{building.id}" == building_id
-      end)
-
-    level = building.level + 1
+    # TODO implement demolish feature
+    demolish = false
 
     case Accounts.upgrade_planet_building(
+           socket.assigns.current_player,
            socket.assigns.current_planet,
            String.to_integer(building_id),
-           level
+           demolish
          ) do
       :ok ->
         {:noreply, load_build_queue(socket)}