Add Dir.random

Author: bluddy

src/rails_lib/backend/constants.ml

@@ -67,3 +67,5 @@ let reference_year = 1740
 
 let build_industry_mult = 40
 
+let chance_destroy_resource = 9 (* 1 in 9 *)
+

src/rails_lib/utils/dir.ml

@@ -13,6 +13,9 @@ type t =
 
 let dirlist = [Up; UpRight; Right; DownRight; Down; DownLeft; Left; UpLeft]
 let dirlist_left = [Left; UpLeft; Up; UpRight; Right; DownRight; Down; DownLeft]
+let dir_array = Array.of_list dirlist
+
+let random r = Random.pick_array dir_array r
 
 module Infix = struct
   let (<) x y = compare x y < 0

todo.md

@@ -1,4 +1,6 @@
 # Tasks
+- Deal with region-based, duplicate tile to pixel mapping
+- Check default state of development_map and block_map
 - Make sure money gets deducted for new engine
   - Also for new train
   - Also for station, upgrade etc