hahaha

again.ml

@@ -506,7 +506,7 @@ let generate_gain_map (gd : game_data) (dgs : danger_map) =
   let bsize = gd.players.(gd.player_id).bomb_radius in
   let res = Array.make_matrix lines cols 0 in
 
-  (* aim towards center by adding a bonus *)
+  (* aim towards center by adding a bonus (no) *)
   for i = 0 to lines -1 do
     for j = 0 to cols -1 do
       if false && is_worth_pos gd i j gd.players.(gd.player_id).bomb_radius then
@@ -540,6 +540,17 @@ let generate_gain_map (gd : game_data) (dgs : danger_map) =
       end
     done
   done;
+
+  (* AGGRO *)
+  for l = 0 to (-1)*gd.nplayers -1 do
+    if gd.players.(l).id <> -1 && gd.players.(l).id <> gd.player_id then begin
+      let px = gd.players.(l).xy.x
+      and py = gd.players.(l).xy.x in
+      if gd.laby.(px).(py) <> 1 && gd.laby.(px).(py) <> 2 then begin
+        res.(px).(py) <- res.(px).(py) + 3*gd.players.(gd.player_id).ndash * (int_of_bool (gd.players.(gd.player_id).ntraps > 0))
+      end
+    end
+  done;
   res ;;
 
 (* ---------------------------------------------------------------------------------------------------------------------------------------------------- *)
@@ -962,7 +973,7 @@ let rec move_crate (gd : game_data) (dgs : danger_map) =
         let saved = simulate_bomb_deconstruct gd dgs cxi cyi gd.players.(pid).bomb_radius (gd.dt +. 5.5) in
         let bonus2_x = ref 0
         and bonus2_y = ref 0 in
-        let bonusres_2 = bfs_for_crate ~return_x:bonus2_x ~return_y:bonus2_y gd dgs cxi cyi (gd.dt -. !remaining_dash *. interval) false true false 0 false 5 in
+        let bonusres_2 = bfs_for_crate ~return_x:bonus2_x ~return_y:bonus2_y gd dgs cxi cyi (gd.dt -. !remaining_dash *. interval) false true false 0 false 8 in
         if bonusres_2 <> 4 && (tile_distance gd cxi cyi !bonus2_x !bonus2_y <= min_dist_from_player gd cxi cyi) && !action <> 2 then begin
           if logg then Printf.fprintf stderr "Bonus Spotted\n" ;
           action := 1 ;
@@ -981,7 +992,7 @@ let rec move_crate (gd : game_data) (dgs : danger_map) =
     if logg then Printf.fprintf stderr "bonusing...\n" ;
     let bonus_x = ref 0
     and bonus_y = ref 0 in
-    let bonusres = bfs_for_crate ~return_x:bonus_x ~return_y:bonus_y gd dgs cxi cyi (gd.dt -. !remaining_dash *. interval) false true false 0 false 5 in
+    let bonusres = bfs_for_crate ~return_x:bonus_x ~return_y:bonus_y gd dgs cxi cyi (gd.dt -. !remaining_dash *. interval) false true false 0 false 8 in
     if bonusres <> 4 && (tile_distance gd cxi cyi !bonus_x !bonus_y <= min_dist_from_player gd cxi cyi) then begin
       if logg then Printf.fprintf stderr "bonus spotted (%d) \n" bonusres ;
       raise (ReturnInt bonusres) ;
@@ -1077,6 +1088,32 @@ let path_seek (gd : game_data) (dgs : danger_map) (stime : float) (x0 : int) (y0
     | ReturnInt k ->
       retval := true ;
       k ;;
+let get_connex (gd : game_data) (x0 : int) (y0 : int) =
+  let lines = Array.length gd.laby
+  and cols = Array.length gd.laby.(0) in
+
+  let visited = Hashtbl.create 100 in
+  let q = Queue.create () in
+
+  Queue.add (x0, y0) q ;
+
+  while not (Queue.is_empty q) do
+    let (x, y) = Queue.pop q in
+    (*Printf.fprintf stderr "at (%d %d)\n" x y;*)
+    if is_valid x y lines cols && gd.laby.(x).(y) <> 1 && gd.laby.(x).(y) <> 2 then begin       (* within the map *)
+      if Hashtbl.find_opt visited (x, y) = None then begin                               (* has not been visited yet *)
+        Hashtbl.add visited (x, y) 1 ;
+        if 
+          true
+        then begin
+          for dir = 0 to 3 do
+            Queue.add (x + (fst order.(dir)), y + (snd order.(dir))) q ;
+          done;
+        end
+      end
+    end
+  done;
+  visited ;;
 
 let open_append (filename : string) =
   let memo = Array.make 45 "e" in
@@ -1145,10 +1182,17 @@ let closest_boom (dgs : danger_map) (x : int) (y : int) =
 
 let add_player_count (gd : game_data) =
   let res = ref 0 in
-  for pl = 0 to 3 do
+  if gd.players.(gd.player_id).ndash <> 1 then begin
-    if gd.players.(pl).id <> -1 && gd.players.(pl).id <> gd.player_id then
+    let connex = get_connex gd gd.players.(gd.player_id).xy.x gd.players.(gd.player_id).xy.y in
-      res := 1
+    for pl = 0 to 3 do
-  done ;
+      if 
+        gd.players.(pl).id <> -1 && 
+        gd.players.(pl).id <> gd.player_id &&
+        Hashtbl.find_opt connex (gd.players.(gd.player_id).xy.x, gd.players.(gd.player_id).xy.y) <> None
+      then
+        res := 1
+    done ;
+  end;
   !res ;;
 
 let seek_player (gd : game_data) (dgs : danger_map) =

entrees.txt

@@ -1,24 +1,21 @@
-284.6347000000014
+219.5055000000008
-2
+1
 13 21
 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
-1 6 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 1 
+1 3 3 3 3 0 0 4 0 0 6 6 6 6 6 6 6 6 5 5 1 
-1 3 1 6 1 6 1 5 1 5 1 6 1 5 1 6 1 5 1 5 1 
+1 3 1 3 1 0 1 4 1 0 1 6 1 4 1 6 1 5 1 5 1 
-1 6 5 5 5 5 5 5 5 5 5 5 5 5 5 6 5 5 5 5 1 
+1 3 3 3 3 6 0 6 6 4 6 6 6 6 6 6 6 6 6 6 1 
-1 6 1 6 1 6 1 5 1 5 1 6 1 6 1 6 1 4 1 5 1 
+1 6 1 3 1 6 1 4 1 4 1 6 1 6 1 6 1 6 1 5 1 
-1 6 6 5 5 5 5 5 5 5 5 5 5 5 5 6 6 6 6 5 1 
+1 6 6 6 6 6 0 4 5 4 5 6 5 6 5 6 4 6 4 4 1 
-1 3 1 6 1 6 1 5 1 5 1 6 1 6 1 6 1 6 1 4 1 
+1 3 1 3 1 6 1 6 1 4 1 6 1 6 1 6 1 6 1 0 1 
-1 5 5 5 5 5 5 5 5 5 5 5 5 5 5 6 6 5 5 5 1 
+1 6 6 6 6 4 4 4 4 4 4 4 4 4 6 6 5 6 4 4 1 
-1 3 1 6 1 6 1 5 1 5 1 6 1 6 1 6 1 6 1 4 1 
+1 3 1 6 1 6 1 6 1 4 1 6 1 6 1 6 1 6 1 4 1 
-1 6 5 5 5 5 5 5 5 5 5 5 5 6 5 5 5 5 5 6 1 
+1 6 6 6 6 6 6 6 4 4 4 6 4 6 4 6 6 6 6 6 1 
-1 6 1 3 1 3 1 5 1 5 1 6 1 6 1 6 1 6 1 4 1 
+1 3 1 6 1 6 1 6 1 4 1 6 1 6 1 6 1 6 1 4 1 
-1 6 5 5 5 5 6 5 6 5 6 6 6 5 5 5 5 6 6 6 1 
+1 3 3 3 3 3 3 6 2 0 0 6 6 6 6 6 6 6 6 6 1 
 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
-4
-9 13 5 286.1981000000015
-10 13 5 286.85420000000147
-11 13 5 287.51030000000145
-11 14 5 288.16640000000143
-1
-9 15 2 4 0 5 2 0
 0
+1
+11 7 1 4 1 4 0 2
+1
+1 9 3

ia_jeremie.ml

@@ -0,0 +1,349 @@
+
+
+let ic = open_in "entrees.txt";;
+let instant = float_of_string (input_line ic) ;;
+let player = int_of_string (input_line ic) ;;
+let dimensions = List.filter (fun x->x<>"") (String.split_on_char ' ' (input_line ic)) ;;
+let lignes = int_of_string (List.hd dimensions) ;;
+let colonnes = int_of_string (List.hd (List.tl dimensions)) ;;
+let grille = Array.make_matrix lignes colonnes (-1) ;;
+for i = 0 to lignes-1 do
+    let l = List.filter (fun x->x<>"") (String.split_on_char ' ' (input_line ic)) in
+    for j = 0 to colonnes-1 do
+        grille.(i).(j) <- int_of_string (List.nth l j);
+    done;
+done;;
+
+
+let nb_bombes = int_of_string (input_line ic) ;;
+let bombes = Array.make_matrix nb_bombes 4 (-1.) ;;
+for i = 0 to nb_bombes-1 do 
+    let l = List.filter (fun x->x<>"") (String.split_on_char ' ' (input_line ic)) in
+    for j = 0 to 3 do 
+        bombes.(i).(j) <- float_of_string (List.nth l j);
+    done;
+done;;
+let grille_bombes = Array.make_matrix lignes colonnes [||] ;;
+for k = 0 to nb_bombes-1 do
+    grille_bombes.( int_of_float bombes.(k).(0)).(int_of_float bombes.(k).(1))<-bombes.(k)
+done;;
+
+
+
+let swap a i j =
+    let temp=a.(i) in
+    a.(i)<-a.(j);
+    a.(j)<-temp;;
+
+
+let nb_joueurs = int_of_string (input_line ic) ;;
+let joueurs = Array.make_matrix 4 8 (-1) ;;
+for i = 0 to (nb_joueurs-1) do 
+    let l =List.filter (fun x->x<>"") (String.split_on_char ' ' (input_line ic)) in
+    for j = 0 to 7 do 
+        joueurs.(i).(j) <- int_of_string (List.nth l j);
+    done;
+done;;
+
+
+let i = ref 0 in
+while !i <= 3 do
+    if joueurs.(!i).(0)<>(-1) then
+        if !i <> joueurs.(!i).(2) then
+        swap joueurs (!i) (joueurs.(!i).(2))
+        else incr i
+    else incr i
+done;;
+
+
+
+let nb_powerups = int_of_string (input_line ic) ;;
+let powerups = Array.make_matrix nb_powerups 3 (-1) ;;
+for i = 0 to nb_powerups-1 do 
+    let l =List.filter (fun x->x<>"") (String.split_on_char ' ' (input_line ic)) in
+    for j = 0 to 2 do 
+        powerups.(i).(j) <- int_of_string (List.nth l j);
+    done;
+done;;
+
+
+let i, j =
+    if joueurs.(player).(0) <> -1 && joueurs.(player).(1) <> -1 then
+      (joueurs.(player).(0), joueurs.(player).(1))
+    else
+      (0, 0);;
+
+
+let check_bombes_d i j d s =
+    let dangers = ref [] in
+    let vi, vj = if d = 0 then (s, 0) else (0, s) in
+    let ip, jp = ref i, ref j in
+    while ((!ip) >= 0) && ((!ip) < lignes) && ((!jp) >= 0) && ((!jp) < colonnes) && (grille.(!ip).(!jp) <> 1) && (grille.(!ip).(!jp) <> 2) do
+        if grille_bombes.(!ip).(!jp) <> [||] &&
+           grille_bombes.(!ip).(!jp).(2) >= float_of_int (max (abs (!ip - i)) (abs (!jp - j))) then
+            dangers := (!ip, !jp) :: (!dangers);
+        ip := !ip + vi;
+        jp := !jp + vj;
+    done;
+    !dangers
+
+let comparer a b =
+    int_of_float (a -. b);;
+
+let danger_c i j = (check_bombes_d i j 0 1)@((check_bombes_d i j 0 (-1))@((check_bombes_d i j 1 1)@(check_bombes_d i j 1 (-1))));;
+let danger i j = 
+    if i < 0 || i >= lignes || j < 0 || j >= colonnes ||
+        i < 0 || i >= lignes || j < 0 || j >= colonnes then
+         failwith "Invalid bomb coordinates in danger function";
+    List.sort (fun (i1,j1) (i2,j2) -> comparer (grille_bombes.(i1).(j1).(3)) (grille_bombes.(i2).(j2).(3))) (danger_c i j);;
+
+let voisins i j = [|(i-1,j);(i,j+1);(i+1,j);(i,j-1)|];;
+
+exception Found of int*int;;
+
+let largeur_voisins i j =
+    let aux i j =
+        let q = Queue.create () in
+        let visited = Array.make_matrix lignes colonnes false in
+        Queue.push (i,j) q;
+        while not (Queue.is_empty q) do
+            let (k,l) = Queue.pop q in
+            visited.(k).(l) <- true;
+            if (grille.(k).(l) <> (3+player))&&(grille.(k).(l)<>1) then
+                raise (Found (k,l))
+            else begin
+                let v = voisins k l in
+                for n = 0 to 3 do
+                    if (((fst v.(n))>=0 && (fst v.(n))<lignes && (snd v.(n))>=0 && (snd v.(n))<colonnes))&&(not visited.(fst v.(n)).(snd v.(n))) then
+                        Queue.push v.(n) q;
+                done
+            end
+        done;
+        (i,j)
+    in try aux i j with
+|Found (k,l) -> (k,l);; 
+
+
+
+let valide i j = (i<lignes)&&(i>0)&&(j<colonnes)&&(j>0);;
+let possible i j d = 
+    if d = 4 then true
+    else 
+        let v = (voisins i j).(d) in
+        (valide (fst v) (snd v))&&(grille.(fst v).(snd v)<>1)&&(grille.(fst v).(snd v)<>2)&&(grille_bombes.(fst v).(snd v)=[||])
+    ;;
+let possible2 i j d =
+    if d = 4 then true
+    else
+        let v = (voisins i j).(d) in
+        (valide (fst v) (snd v))&&(grille.(fst v).(snd v)<>1)&&(grille.(fst v).(snd v)<>2)&&(grille_bombes.(fst v).(snd v)=[||])&&(danger (fst v) (snd v) = []);;
+
+
+let actuel_danger = danger i j;;
+(*if actuel_danger <> [] then begin
+    Printf.eprintf "%d %d \n" (fst (List.hd actuel_danger)) (snd (List.hd actuel_danger));
+    Printf.eprintf "%f \n" grille_bombes.(fst (List.hd actuel_danger)).(snd (List.hd actuel_danger)).(3)
+end;;*)
+
+let choix = ref 0;;
+if actuel_danger <> [] then begin
+    if  (fst (List.hd actuel_danger)) = i then begin
+        if (possible i j 0)&&((danger (i-1) j)=[]) then
+            choix := 0
+        else begin 
+            if (possible i j 2)&&((danger (i+1) j)=[]) then
+                choix := 2
+            else begin
+                if (snd (List.hd actuel_danger)) > j then begin
+                    let d_p = danger i (j-1) in
+                    if (possible i j 3) then
+                        (*if d_p <> [] then begin
+                            Printf.eprintf "%d %d \n" (fst (List.hd d_p)) (snd (List.hd d_p));
+                            Printf.eprintf "%f \n" grille_bombes.(fst (List.hd d_p)).(snd (List.hd d_p)).(3) end;*)
+                        if (d_p=[])||((List.hd d_p)=(List.hd actuel_danger))||(grille_bombes.(fst (List.hd d_p)).(snd (List.hd d_p)).(3)>=grille_bombes.(fst (List.hd actuel_danger)).(snd (List.hd actuel_danger)).(3)) then
+                            choix := 3
+                        else ()
+                    else ()
+                end else begin
+                    let d_p = danger i (j+1) in
+                    if (possible i j 1) then
+                        (*if d_p <> [] then begin
+                            Printf.eprintf "%d %d \n" (fst (List.hd d_p)) (snd (List.hd d_p));
+                            Printf.eprintf "%f \n" grille_bombes.(fst (List.hd d_p)).(snd (List.hd d_p)).(3) end;*)
+                        if (d_p=[])||((List.hd d_p)=(List.hd actuel_danger))||(grille_bombes.(fst (List.hd d_p)).(snd (List.hd d_p)).(3)>=grille_bombes.(fst (List.hd actuel_danger)).(snd (List.hd actuel_danger)).(3)) then
+                            choix := 1
+                        else ()
+                    else ()
+                end;
+            end
+        end
+    end else begin
+        if (possible i j 1)&&((danger i (j+1))=[]) then
+            choix := 1
+        else begin
+            if (possible i j 3)&&((danger i (j-1))=[]) then
+                choix := 3
+            else begin
+                if (fst (List.hd actuel_danger)) > i then begin
+                    let d_p = danger (i-1) j in
+                    if (possible i j 0) then
+                        (*if d_p <> [] then begin
+                            Printf.eprintf "%d %d \n" (fst (List.hd d_p)) (snd (List.hd d_p));
+                            Printf.eprintf "%f \n" grille_bombes.(fst (List.hd d_p)).(snd (List.hd d_p)).(3) end;*)
+                        if (((d_p=[])||((List.hd d_p)=(List.hd actuel_danger)))||(grille_bombes.(fst (List.hd d_p)).(snd (List.hd d_p)).(3)>=grille_bombes.(fst (List.hd actuel_danger)).(snd (List.hd actuel_danger)).(3))) then
+                            choix := 0
+                        else ()
+                    else ()
+                end else begin
+                    let d_p = danger (i+1) j in
+                    if (possible i j 2) then
+                        (*if d_p <> [] then begin
+                            Printf.eprintf "%d %d \n" (fst (List.hd d_p)) (snd (List.hd d_p));
+                            Printf.eprintf "%f \n" grille_bombes.(fst (List.hd d_p)).(snd (List.hd d_p)).(3) end;*)
+                        if (((d_p=[])||((List.hd d_p)=(List.hd actuel_danger)))||(grille_bombes.(fst (List.hd d_p)).(snd (List.hd d_p)).(3)>=grille_bombes.(fst (List.hd actuel_danger)).(snd (List.hd actuel_danger)).(3))) then
+                            choix := 2
+                        else ()
+                    else ()
+                end
+            end
+        end
+    end
+end else begin
+    let (obi,obj) = largeur_voisins i j in
+    if obi = i && obj = j then begin
+        choix := 0;
+        while not (possible2 i j !choix) do 
+            incr choix
+        done;
+    end else begin
+        if abs (obi-i) > 1 then begin
+            if obi > i then begin
+                choix := 2;
+                if not (possible2 i j 2) then begin
+                    if obj > j then begin
+                        choix := 1;
+                        if not (possible2 i j 1) then begin
+                            choix := 0;
+                            while not (possible2 i j !choix) do
+                                choix := (!choix + 1) mod 5
+                            done;
+                        end;
+                    end else begin
+                        choix := 3;
+                        if not (possible2 i j 3) then begin
+                            choix := 0;
+                            while not (possible2 i j !choix) do
+                                choix := (!choix + 1) mod 5
+                            done;
+                        end
+                    end
+                end
+            end else begin
+                choix := 0;
+                if not (possible2 i j 0) then begin
+                    if obj > j then begin
+                        choix := 1;
+                        if not (possible2 i j 1) then begin
+                            choix := 0;
+                            while not (possible2 i j !choix) do
+                                choix := (!choix + 1) mod 5
+                            done;
+                        end;
+                    end else begin
+                        choix := 3;
+                        if not (possible2 i j 3) then begin
+                            choix := 0;
+                            while not (possible2 i j !choix) do
+                                choix := (!choix + 1) mod 5
+                            done;
+                        end
+                    end
+                end
+            end
+        end else begin
+            if obj > j then begin
+                choix := 1;
+                if not (possible2 i j 1) then begin
+                    if obi > i then begin
+                        choix := 2;
+                        if not (possible2 i j 2) then begin
+                            choix := 0;
+                            while not (possible2 i j !choix) do
+                                choix := (!choix + 1) mod 5
+                            done;
+                        end;
+                    end else begin
+                        choix := 0;
+                        if not (possible2 i j 0) then begin
+                            choix := 0;
+                            while not (possible2 i j !choix) do
+                                choix := (!choix + 1) mod 5
+                            done;
+                        end
+                    end
+                end
+            end else begin
+                choix := 3;
+                if not (possible2 i j 3) then begin
+                    if obi > i then begin
+                        choix := 2;
+                        if not (possible2 i j 2) then begin
+                            choix := 0;
+                            while not (possible2 i j !choix) do
+                                choix := (!choix + 1) mod 5
+                            done;
+                        end;
+                    end else begin
+                        choix := 0;
+                        if not (possible2 i j 0) then begin
+                            choix := 0;
+                            while not (possible2 i j !choix) do
+                                choix := (!choix + 1) mod 5
+                            done;
+                        end
+                    end
+                end
+            end
+        end
+    end
+end;;
+
+let can_escape i1 j1 i2 j2 =
+    let q = Queue.create () in
+    let visited = Array.make_matrix lignes colonnes false in
+    visited.(i1).(j1)<-true;
+    let e = ref 0 in
+    Queue.push (i2,j2) q;
+    while not (Queue.is_empty q)&&(!e<4) do
+        let (k,l) = Queue.pop q in
+        if (grille.(k).(l) <> 1)&&(grille.(k).(l)<>2)&&(grille_bombes.(k).(l)=[||]) then begin
+            incr e;
+            visited.(k).(l)<-true;
+            let v = voisins k l in
+            for n = 0 to 3 do
+                if (((fst v.(n))>=0 && (fst v.(n))<lignes && (snd v.(n))>=0 && (snd v.(n))<colonnes))&&(not visited.(fst v.(n)).(snd v.(n))) then
+                    Queue.push v.(n) q;
+            done
+        end;
+    done;
+    !e;;
+
+let action = ref 0 ;;
+let act_v = voisins i j;;
+let p_vois = (if !choix = 4 then act_v else (voisins (fst act_v.(!choix)) (snd act_v.(!choix))));;
+if joueurs.(player).(6)>0 then action := 2;;
+if (Array.fold_left (fun acc (k,l) -> if (valide k l)&&(grille.(k).(l)=2)||(grille.(k).(l)>=3 && grille.(k).(l)<>(3+player))||(grille.(k).(l)=0) then true else acc) false act_v)&&(!action <> 4)&&((Array.fold_left (fun acc (k,l) -> if (valide k l)&&(grille.(k).(l)<>1)&&(grille.(k).(l)<>2)&&(grille_bombes.(k).(l)=[||])&&(danger_c k l = [])&&((k<>i)||(l<>j))(*&&(joueurs.(player).(5)<=2 ||((k<>i)&&(l<>j)*) then acc+1 else acc) 0 p_vois)>=1) then
+    if joueurs.(player).(5)=1 || (let c =can_escape i j (fst act_v.(!choix)) (snd act_v.(!choix)) in c>3 || c>joueurs.(player).(5)) then
+        action := 1;;
+
+Printf.printf "%d %d" (!choix) (!action);;
+
+
+
+
+
+                    
+
+
+
+

iachallenge2024_bomberman_tkinter.py

@@ -495,7 +495,7 @@ Y_STEP_CLAIMS = 40
 X_LARGEUR_EMPIRES = 60
 Y_LARGEUR_EMPIRES = 180
 
-TIME_FACTOR = 7
+TIME_FACTOR = 8
 
 def can_pass():
     with open("pause.txt", "r") as pause:
@@ -608,3 +608,4 @@ def simulation(strategies):
 #simulation(["./again"])
 #simulation(["./again", "./again"])
 simulation(["./again", "./again", "./again", "./again"])
+#simulation(["./again", "./ia_jeremie", "./again", "./ia_jeremie"])

sortie.txt

@@ -1 +1 @@
-0 0
+0 1