mp2i-vms.fr
seek_player now anticipates bombs
This commit is contained in:
parent
8ae37b145e
commit
c9b2b9f392
43
again.ml
43
again.ml
|
|
@ -14,6 +14,7 @@ let debug_all = false ;;
|
|||
let logg = false ;;
|
||||
|
||||
let remaining_dash = ref 0. ;;
|
||||
let cd = ref 0.0 ;;
|
||||
|
||||
(* ---------------------------------------------------------------------------------------------------------------------------------------------------- *)
|
||||
(* ---------------------------------------------------------------------------------------------------------------------------------------------------- *)
|
||||
|
|
@ -973,7 +974,6 @@ let path_seek (gd : game_data) (dgs : danger_map) (stime : float) (x0 : int) (y0
|
|||
let visited = Hashtbl.create 100 in
|
||||
let q = Queue.create () in
|
||||
let interval = Float.pow (0.9) (float_of_int gd.players.(gd.player_id).nspeed) in
|
||||
let pid = gd.player_id in
|
||||
|
||||
Queue.add (x0, y0, stime, 4, 0) q ;
|
||||
|
||||
|
|
@ -1072,6 +1072,14 @@ let direction_after_trap (gd : game_data) (dgs : danger_map) (x0 : int) (y0 : in
|
|||
else
|
||||
raise (ReturnBool false) ;;
|
||||
|
||||
let remove_bombs (dgs : danger_map) (lst : (int * int, float) Hashtbl.t list) =
|
||||
let rec aux = function
|
||||
| [] -> ()
|
||||
| h::t ->
|
||||
reverse_simulate_bomb dgs h ;
|
||||
aux t in
|
||||
aux lst ;;
|
||||
|
||||
let seek_player (gd : game_data) (dgs : danger_map) =
|
||||
(* returns whether or not it found a target, and prints if found *)
|
||||
let pid = gd.player_id in
|
||||
|
|
@ -1086,6 +1094,7 @@ let seek_player (gd : game_data) (dgs : danger_map) =
|
|||
let has_trapped = ref false in
|
||||
let break = ref false in
|
||||
let found = ref false in
|
||||
let simulated_bombs = ref [] in
|
||||
try
|
||||
if gd.players.(pid).ntraps = 0 || gd.players.(pid).bomb_to_place = 0 then begin
|
||||
if logg then Printf.fprintf stderr "No trap/available bomb\n" ;
|
||||
|
|
@ -1122,6 +1131,7 @@ let seek_player (gd : game_data) (dgs : danger_map) =
|
|||
else if abs (destx - !cxi) + abs (desty - !cyi) <= gd.players.(pid).bomb_radius && gd.players.(pid).bomb_to_place > 0 then begin
|
||||
if logg then Printf.fprintf stderr " Bombing\n" ;
|
||||
print_ret "again_dash.sav" directn 1 print_escape ;
|
||||
simulated_bombs := (simulate_bomb_deconstruct gd dgs gd.players.(pid).xy.x gd.players.(pid).xy.y gd.players.(pid).bomb_radius (gd.dt +. 5.5))::(!simulated_bombs) ;
|
||||
cxi := !cxi + fst order.(directn) ;
|
||||
cyi := !cyi + snd order.(directn) ;
|
||||
break := true ;
|
||||
|
|
@ -1146,9 +1156,12 @@ let seek_player (gd : game_data) (dgs : danger_map) =
|
|||
done ;
|
||||
if logg then Printf.fprintf stderr "[%d] Success!\n" pid ;
|
||||
remaining_dash := !remaining_dash +. 1. ;
|
||||
remove_bombs dgs !simulated_bombs ;
|
||||
true
|
||||
with
|
||||
| ReturnBool b -> b ;;
|
||||
| ReturnBool b ->
|
||||
remove_bombs dgs !simulated_bombs ;
|
||||
b ;;
|
||||
|
||||
let read_queue (filename : string) =
|
||||
let strings = Array.make 45 "e" in
|
||||
|
|
@ -1376,13 +1389,31 @@ let exists_crate (gd : game_data) (dgs : danger_map) =
|
|||
(* ---------------------------------------------------------------------------------------------------------------------------------------------------- *)
|
||||
(* ---------------------------------------------------------------------------------------------------------------------------------------------------- *)
|
||||
|
||||
let get_cd (filename : string) =
|
||||
let ptr = open_in filename in
|
||||
cd := Float.of_string (input_line ptr) ;
|
||||
close_in ptr ;;
|
||||
|
||||
let set_cd (nspeed : int) (filename : string) =
|
||||
if !remaining_dash = 0. then begin
|
||||
let ptr = open_out filename in
|
||||
let interval = Float.pow 0.9 (float_of_int nspeed) in
|
||||
Printf.fprintf ptr "%f\n" (max 0. (!cd -. interval)) ;
|
||||
close_out ptr
|
||||
end ;;
|
||||
|
||||
(* ---------------------------------------------------------------------------------------------------------------------------------------------------- *)
|
||||
(* ---------------------------------------------------------------------------------------------------------------------------------------------------- *)
|
||||
|
||||
let __start = Unix.gettimeofday() ;;
|
||||
let game_map = parse_input "entrees.txt" ;;
|
||||
if debug_all then print_game_data game_map ;;
|
||||
let danger_data = build_danger_map game_map ;;
|
||||
let gain_map = generate_gain_map game_map danger_data ;;
|
||||
|
||||
get_rem_dash ("again"^(string_of_int game_map.player_id)^".sav") ;;
|
||||
(* ("again"^(string_of_int game_map.player_id)^".sav") *)
|
||||
get_rem_dash "again_rem.sav" ;;
|
||||
get_cd "again_cooldown.sav" ;;
|
||||
|
||||
(*Printf.fprintf stderr "\n" ;;*)
|
||||
if game_map.player_id = 4 then begin
|
||||
|
|
@ -1408,7 +1439,7 @@ end
|
|||
else begin
|
||||
let direction = ref 4 in
|
||||
|
||||
if not (seek_player game_map danger_data) then begin
|
||||
if !cd >= 0.01 || not (seek_player game_map danger_data) then begin
|
||||
if exists_crate game_map danger_data then begin
|
||||
if logg then Printf.fprintf stderr "Crates\n" ;
|
||||
direction := move_crate game_map danger_data
|
||||
|
|
@ -1422,11 +1453,13 @@ else begin
|
|||
if logg then Printf.fprintf stderr "[player %d] %d %d (at time %f - with %d dash potential)\n" game_map.player_id !direction !action game_map.dt (int_of_float !remaining_dash);
|
||||
end
|
||||
else begin
|
||||
cd := (Float.pow 0.9 (float_of_int game_map.players.(game_map.player_id).nspeed)) *. 1.9 ;
|
||||
ignore (read_queue "again_dash.sav")
|
||||
end
|
||||
end;;
|
||||
(*Printf.printf "\n4 0" ;;*)
|
||||
set_rem_dash ("again"^(string_of_int game_map.player_id)^".sav") ;;
|
||||
set_rem_dash "again_rem.sav" ;;
|
||||
set_cd game_map.players.(game_map.player_id).nspeed "again_cooldown.sav" ;;
|
||||
(*set_meta_info game_map.player_id ;;*)
|
||||
let __end = Unix.gettimeofday() ;;
|
||||
if logg then Printf.fprintf stderr "Time : %f\n\n" (__end -. __start) ;;
|
||||
|
|
|
|||
|
|
@ -0,0 +1 @@
|
|||
0.000000
|
||||
44
entrees.txt
44
entrees.txt
|
|
@ -1,26 +1,28 @@
|
|||
150.1250000000006
|
||||
1
|
||||
144.63000000000028
|
||||
0
|
||||
13 21
|
||||
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
||||
1 3 3 3 3 3 3 3 3 0 2 2 2 0 5 5 5 5 5 5 1
|
||||
1 3 1 3 1 3 1 0 1 2 1 2 1 2 1 5 1 5 1 5 1
|
||||
1 3 3 3 3 3 3 3 3 0 2 2 2 2 2 5 5 5 5 4 1
|
||||
1 3 1 6 1 3 1 4 1 2 1 2 1 2 1 2 1 5 1 4 1
|
||||
1 3 3 6 6 4 4 4 4 4 2 2 2 2 2 4 2 0 0 4 1
|
||||
1 0 1 6 1 3 1 4 1 2 1 2 1 2 1 4 1 5 1 4 1
|
||||
1 3 6 6 6 6 6 4 2 2 2 2 2 0 0 4 4 4 4 4 1
|
||||
1 6 1 6 1 3 1 0 1 2 1 0 1 4 1 4 1 5 1 5 1
|
||||
1 6 6 6 6 6 6 6 6 6 0 6 4 4 4 4 4 4 5 5 1
|
||||
1 6 1 6 1 6 1 0 1 0 1 6 1 4 1 4 1 5 1 5 1
|
||||
1 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 4 5 4 4 1
|
||||
1 3 3 3 3 3 3 3 0 2 2 2 2 0 5 5 5 5 5 5 1
|
||||
1 3 1 3 1 3 1 0 1 0 1 2 1 2 1 5 1 5 1 5 1
|
||||
1 3 3 3 3 3 6 6 6 6 0 2 2 2 0 5 5 5 5 5 1
|
||||
1 3 1 3 1 3 1 3 1 0 1 2 1 2 1 0 1 4 1 5 1
|
||||
1 3 3 3 3 3 3 3 3 0 2 2 2 2 2 2 2 4 0 5 1
|
||||
1 3 1 3 1 3 1 3 1 2 1 2 1 2 1 2 1 5 1 5 1
|
||||
1 3 3 3 3 3 3 3 0 2 2 2 2 2 2 0 0 5 0 5 1
|
||||
1 3 1 3 1 3 1 3 1 2 1 2 1 0 1 4 1 5 1 4 1
|
||||
1 3 3 3 3 3 6 6 0 2 0 4 4 4 4 5 5 5 5 5 1
|
||||
1 3 1 3 1 3 1 0 1 0 1 2 1 0 1 4 1 5 1 4 1
|
||||
1 3 3 3 3 3 3 3 3 3 0 2 2 2 0 4 4 5 4 4 1
|
||||
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
||||
3
|
||||
1 8 2 151.25100000000052
|
||||
9 13 4 151.90400000000037
|
||||
7 14 4 154.82000000000042
|
||||
9 7 5 145.02700000000019
|
||||
5 7 3 145.20000000000041
|
||||
7 7 3 147.00000000000043
|
||||
2
|
||||
4 7 1 3 3 2 1 0
|
||||
8 15 3 3 0 4 0 0
|
||||
2
|
||||
3 9 4
|
||||
8 11 2
|
||||
7 8 0 3 3 5 0 0
|
||||
7 7 3 1 3 3 2 0
|
||||
4
|
||||
3 14 2
|
||||
4 15 0
|
||||
1 13 2
|
||||
1 8 4
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
0
|
||||
1
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
0 0
|
||||
4 0
|
||||
Loading…
Reference in New Issue