object.mli

open Sprite
open Actors
open Particle

val invuln : int (* # of frames of invulnerability *)
val dampen_jump : float (* Boost to jump when enemy jumped on *)

type aabb = {
  center: xy;
  half: xy;
}

type obj_params = {
  has_gravity: bool;
  speed: float;
}
type obj = {
  params: obj_params;
  pos: xy;
  vel: xy;
  id: int;
  mutable jumping: bool;
  mutable grounded: bool;
  mutable dir: Actors.dir_1d;
  mutable invuln: int;
  mutable kill: bool;
  mutable health: int;
  mutable crouch: bool;
  mutable score: int;
}

type collidable =
  | Player of pl_typ * sprite * obj
  | Enemy of enemy_typ * sprite * obj
  | Item of item_typ * sprite * obj
  | Block of block_typ * sprite * obj


(* Returns the sprite associated with the object *)
val get_sprite : collidable -> Sprite.sprite

val get_obj : collidable -> obj

(* Creates a new object with a given
 * actor type on the the canvas at a given position *)
val spawn : Actors.spawn_typ  -> Dom_html.canvasRenderingContext2D Js.t
          -> float*float -> collidable

val equals : collidable -> collidable -> bool

val is_player : collidable -> bool
val is_enemy : collidable -> bool

val normalize_origin : xy -> Sprite.sprite -> unit

val normalize_pos : xy -> Sprite.sprite_params -> Sprite.sprite_params -> unit

(* Destroys the object, returning a list of destruction effect objects *)
val kill : collidable -> Dom_html.canvasRenderingContext2D Js.t 
                      ->  particle list

val process_obj : obj -> float -> unit

val update_player : obj -> Actors.controls list 
                        -> Dom_html.canvasRenderingContext2D Js.t 
                        -> (pl_typ * sprite) option

(* Checks whether a collision occured between two objects, returning the
 * direction of the collision if one occurred. *)
val check_collision : collidable -> collidable -> Actors.dir_2d option

val evolve_enemy : Actors.dir_1d -> Actors.enemy_typ -> Sprite.sprite -> obj 
        -> Dom_html.canvasRenderingContext2D Js.t -> collidable option

val evolve_block : obj -> Dom_html.canvasRenderingContext2D Js.t -> collidable
val dec_health : obj -> unit

val rev_dir : obj -> Actors.enemy_typ -> Sprite.sprite -> unit

val reverse_left_right : obj -> unit

val collide_block : ?check_x: bool -> Actors.dir_2d -> obj -> unit

val spawn_above : Actors.dir_1d -> obj -> Actors.item_typ 
            -> Dom_html.canvasRenderingContext2D Js.t -> collidable