module prova.core.scene;

import derelict.openal.al,
       prova,
       std.algorithm,
       std.math;

///
class Scene
{
  ///
  public Camera camera;
  package LinkedList!(AudioSource) audioSources;
  package SpacialMap2D collider2DMap;
  package Game _game;
  package bool isSetup;
  private LinkedList!(Entity) entities;

  ///
  this()
  {
    camera = new Camera();
    collider2DMap = new SpacialMap2D();
    entities = new LinkedList!(Entity);
    audioSources = new LinkedList!(AudioSource);
  }

  ///
  final @property Game game()
  {
    if(!_game)
      throw new Exception("Scene is not attached to a game");
    return _game;
  }

  ///
  final @property Input input()
  {
    return game.input;
  }

  ///
  final Entity[] getEntities()
  {
    Entity[] clonedArray;
    clonedArray.length = entities.length;
    int i = 0;

    foreach(Node!Entity node; entities)
      clonedArray[i++] = node.value;

    return clonedArray;
  }

  ///
  final void addEntity(Entity entity)
  {
    if(entity._scene == this)
      throw new Exception("Entity was already added to the scene");

    entities.insertBack(entity);
    entity._scene = this;

    foreach(Entity child; entity.children)
      if(!entities.contains(entity))
        addEntity(entity);

    foreach(AudioSource source; entity.audioSources)
      audioSources.insertBack(source);

    collider2DMap.add(entity.colliders2d);

    if(!entity.isSetup) {
      entity.setup();
      entity.isSetup = true;
    }

    entity.start();
  }

  ///
  final void removeEntity(Entity entity)
  {
    if(entity._scene != this)
      throw new Exception("Entity was not added to the scene");

    disassociateEntity(entity);

    // detach from parent to not be drawn
    if(entity.parent)
      entity.parent.detach(entity);
  }

  package void disassociateEntity(Entity entity)
  {
    foreach(Entity child; entity.children)
      disassociateEntity(entity);

    foreach(AudioSource source; entity.audioSources)
      audioSources.remove(source);

    collider2DMap.remove(entity.colliders2d);

    entities.remove(entity);
    entity._scene = null;
  }

  /// Finds the closest entity to this entity
  Entity findClosestEntity(Entity entity)
  {
    return findClosestEntity(entity, 0, false);
  }

  /// Finds the closest entity with the matching tag
  Entity findClosestEntity(Entity entity, int tag)
  {
    return findClosestEntity(entity, tag, true);
  }

  private Entity findClosestEntity(Entity entity, int tag, bool needsTag)
  {
    float closestDistance = -1;
    Entity closestEntity = null;

    foreach(Entity other; entities)
    {
      // make sure we aren't matching with self
      if(other == entity)
        continue;

      // make sure tag matches
      if(needsTag && !other.hasTag(tag))
        continue;

      const float distance = other.position.distanceTo(entity.position);

      if(distance < closestDistance || closestDistance == -1) {
        closestDistance = distance;
        closestEntity = other;
      }
    }

    return closestEntity;
  }

  /// Called when attached to a scene for the first time
  void setup() { }
  /// Called when attached to a scene
  void start() { }

  /// Call super.update() to update entities if overridden
  void update()
  {
    updateEntities();
    updateCollisions();
  }

  /// Called by Scene.update()
  void updateEntities()
  {
    foreach(Entity entity; entities) {
      entity.update();
      entity.position += entity.velocity;
      entity.velocity *= 1 - entity.friction;
    }
  }

  /// Called by Scene.update()
  void updateCollisions()
  {
    collider2DMap.mapColliders();
    collider2DMap.markCollisions();
    collider2DMap.resolveCollisions();
  }

  package void updateAudio()
  {
    Vector3 position = camera.getWorldPosition() / Audio.scale;
    Quaternion rotation = camera.getWorldRotation();

    Vector3[] orientation = [
      rotation * Vector3(0, 0, -1), // forward
      rotation * Vector3(0, 1, 0) // up
    ];

    alListener3f(AL_POSITION, position.x, position.y, position.z);
    alListenerfv(AL_ORIENTATION, cast(float*) orientation.ptr);

    foreach(AudioSource source; audioSources)
      source.update();
  }

  /**
   * All draw operations performed here will be affected by the camera
   *
   * Call super.draw(renderTarget) to render entities if overridden
   */
  void draw(RenderTarget renderTarget)
  {
    Entity[][float] distanceMappedEntities;

    foreach(Entity entity; entities)
    {
      // skip entities with parents
      // the parent entity will handle rendering
      if(entity.parent)
        continue;

      float distance;

      if(camera.sortingMethod == SortingMethod.Distance)
        distance = entity.position.distanceTo(camera.position);
      else
        distance = camera.position.z - entity.position.z;

      distanceMappedEntities[distance] ~= entity;
    }

    foreach_reverse(float key; sort(distanceMappedEntities.keys))
      foreach(Entity entity; distanceMappedEntities[key])
        entity.draw(renderTarget, entity.getLocalTransformMatrix());
  }

  /**
   * All draw operations here will be affected by a static orthographic perspective
   *
   * Origin is moved to the bottom left of the window
   */
  void drawStatic(RenderTarget renderTarget) { }
}