object.mli

open Js_of_ocaml
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