prolo.pas 3.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677
  1. function turn_number : integer; external; c ;
  2. function turn_counter : integer; external; c ;
  3. function time_get_left : integer; external ; c ;
  4. function score_get : integer; external ; c ;
  5. function error_get : integer; external ; c ;
  6. function r4d2_get_team(r4d2_id : integer) : integer; external ; c ;
  7. function r4d2_get_pos_x(r4d2_id : integer) : single; external ; c ;
  8. function r4d2_get_pos_y(r4d2_id : integer) : single; external ; c ;
  9. function r4d2_get_status(r4d2_id : integer) : integer; external ; c ;
  10. function r4d2_get_speed : single; external; c ;
  11. function r4d2_get_destroy_speed : single; external; c ;
  12. function r4d2_turn_take_r4d2 : integer; external; c ;
  13. function r4d2_turn_untake_r4d2 : integer; external; c ;
  14. function r4d2_turn_take_akx : integer; external; c ;
  15. function r4d2_turn_untake_akx : integer ; external; c ;
  16. function r4d2_move(r4d2_id : integer; dx, dy : single) : boolean; external ; c ;
  17. function r4d2_take_akx(r4d2_id, target_id : integer) : boolean; external ; c ;
  18. function r4d2_take_r4d2(r4d2_id, target_id : integer) : boolean; external ; c ;
  19. function akx_get_team(r4d2_id : integer) : integer; external ; c ;
  20. function akx_get_pos_x(r4d2_id : integer) : single; external ; c ;
  21. function akx_get_pos_y(r4d2_id : integer) : single; external ; c ;
  22. function akx_get_status(r4d2_id : integer) : integer; external ; c ;
  23. function akx_pulse_angle(r4d2_id : integer) : single; external ; c ;
  24. function akx_pulse_destx(r4d2_id : integer) : single; external ; c ;
  25. function akx_pulse_desty(r4d2_id : integer) : single; external ; c ;
  26. function akx_get_speed : single; external ; c ;
  27. function akx_get_power : single; external ; c ;
  28. function akx_get_pulse_coef : single; external ; c ;
  29. function akx_get_see_power : single; external ; c ;
  30. function akx_move(r4d2_id : integer; dx, dy : single) : boolean; external ; c ;
  31. function akx_pulse(r4d2_id : integer; dx, dy, angle : single) : boolean; external ; c ;
  32. function akx_link(r4d2_id, target_id : integer) : boolean; external ; c ;
  33. function map_get_size_x : single; external ; c ;
  34. function map_get_size_y : single; external; c ;
  35. function map_get_pulse(team_id : integer; x, y : single) : single; external ; c ;
  36. function map_get_pulse_id(akx_id : integer; x, y : single) : single; external ; c ;
  37. function map_count_akx : integer; external ; c ;
  38. function map_count_r4d2 : integer; external ; c ;
  39. function map_count_my_akx : integer; external ; c ;
  40. function map_count_my_r4d2 : integer; external ; c ;
  41. function map_get_nearest_akx_plot(x, y : single; team_id : integer) : integer; external ; c ;
  42. function map_get_nearest_r4d2_plot(x, y : single ; team_id : integer) : integer; external ; c ;
  43. function map_get_nearest_akx(id, team_id : integer) : integer; external ; c ;
  44. function map_get_nearest_r4d2(id, team_id : integer ): integer; external ; c ;
  45. (* Vous devez coder: *)
  46. procedure player_init(team_id : integer) ;
  47. begin
  48. end;
  49. procedure player_new_turn(turn_number : integer) ;
  50. begin
  51. end;
  52. procedure player_akx_turn(akx_id : integer) ;
  53. begin
  54. end;
  55. procedure player_r4d2_turn(r4d2_id : integer) ;
  56. begin
  57. end;
  58. begin
  59. end.