✨ More time management when boarding a plane

src/Duets.Entities/Types/Effect.Types.fs

@@ -42,6 +42,7 @@ module EffectTypes =
         | ConcertSoundcheckPerformed
         | Drank of item: Item * drink: DrinkableItem
         | Exercised of Item
+        | FlightBoarded of Flight
         | FlightBooked of Flight
         | FlightUpdated of Flight
         | FlightLanded of Flight

src/Duets.Simulation/Flights/Airport.fs

@@ -35,7 +35,9 @@ let boardPlane flight =
 
     let situationEffect = Situations.onboardedInPlane flight
 
-    [ situationEffect; FlightUpdated { flight with AlreadyUsed = true } ],
+    [ situationEffect
+      FlightUpdated { flight with AlreadyUsed = true }
+      FlightBoarded flight ],
     flightTimeInMinutes
 
 /// Passes as many day moments needed for the flight to complete and leaves

src/Duets.Simulation/State/State.fs

@@ -70,6 +70,7 @@ let applyEffect state effect =
     | ConcertSoundcheckPerformed -> state
     | Drank _ -> state
     | Exercised _ -> state
+    | FlightBoarded _ -> state
     | FlightBooked flight -> Flights.addBooking flight state
     | FlightUpdated flight -> Flights.change flight state
     | FlightLanded _ -> state

src/Duets.Simulation/Time/InteractionMinutes.fs

@@ -17,6 +17,7 @@ let effectMinutes =
     | ConcertSoundcheckPerformed -> 45<minute>
     | Drank _ -> 15<minute>
     | Exercised _ -> 15<minute>
+    | FlightBoarded _ -> 25<minute>
     | FlightLanded flight ->
         Queries.Flights.flightTime flight |> Calendar.Seconds.toMinutes
     | GamePlayed _ -> 30<minute>

tests/Simulation.Tests/Airport/BoardPlane.Tests.fs

@@ -53,7 +53,7 @@ let ``passSecurityCheck should drop all drinks from inventory`` () =
 
     let effects = passSecurityCheck state
 
-    effects |> should haveLength 3
+    effects |> should haveLength 4
 
     effects
     |> List.filter (function