Add delivery message on station

Author: bluddy

src/rails_lib/backend/priority_shipment.ml

@@ -118,3 +118,9 @@ let delivery_text shipment region stations money =
 
 let get_freight v = v.freight
 
+let station_waiting_delivery_text priority ~loc =
+  Option.bind priority (fun priority ->
+    if Utils.equal_loc loc priority.dst_loc then
+      Some(Freight.show priority.freight)
+    else None)
+

src/rails_lib/ui/station_report.ml

@@ -189,6 +189,17 @@ let render win (s:State.t) loc ~show_demand =
       info.demand
       10
     in
+    (* Priority shipment *)
+    let goods_s = Backend.get_player s.backend C.player
+      |> Player.get_priority
+      |> Priority_shipment.station_waiting_delivery_text ~loc
+    in
+    Option.iter
+      (fun goods ->
+        let str = "PRIORITY\nDELIVERY:\n" ^ goods in
+        Fonts.Render.write_shadow win s.fonts ~color:Ega.white ~idx:4 ~x:210 ~y:104 str)
+      goods_s;
+
     (* name with shadow *)
     write_name ~shadow:true ~x:8 ~y:104 ~color:Ega.white;
     ()