/*
  call-seq: new
            new(tilesets)
            new(tile, tile2, tile3, tileset, ...)

  Creates a new map, either from an array containing tilesets' name,
  or from arguments being either a tileset's name or tiles.
*/
VALUE wrap<GameMap>(int argc, VALUE *argv, VALUE info)
{
   GameMap *ptr = new GameMap;
   if (argc >= 1)
   {
      if (TYPE(argv[0]) == T_ARRAY)
      {
         int size = RARRAY_LEN(argv[0]);
         for (int i = 0; i < size; ++i)
         {
            VALUE val = rb_ary_entry(argv[0], i);
            ptr->addTileset(StringValuePtr(val));
         }
      }
      else
      {
         for (int i = 0; i < argc; ++i) {
            argv[i] = rb_obj_as_string(argv[i]);
            ptr->addTileset(StringValuePtr(argv[i]));
         }
      }
   }
   
   VALUE tdata = Data_Wrap_Struct(info, 0, wrapped_free<GameMap>, ptr);
   return tdata;
}

/*
  call-seq: absToRel(x, y)
            abs2rel(x, y)

  Converts absolute coordinates into relative ones.
*/
VALUE GameMap_absToRel(VALUE self, VALUE x, VALUE y)
{
   GameMap &ref = getRef<GameMap>(self);
   Point ret = ref.absToRel(FIX2INT(x), FIX2INT(y));

   return createObject(getClass("Point"), ret);
}

/*
  call-seq: addBetween(obj)

  Adds a drawable drawn between the map's tiles.
*/
VALUE GameMap_addBetween(VALUE self, VALUE obj) 

/*
  call-seq: addElem(tileset_id, tile_x, tile_y, x, y)
            addElem(tiles)

  Adds one or more tiles to the map.
*/
VALUE GameMap_addElem(int argc, VALUE *argv, VALUE self)
{
   if (argc == 5)
   {
      GameMap &ref = getRef<GameMap>(self);
      int tileset = FIX2INT(argv[0]);
      int tX = FIX2INT(argv[1]);
      int tY = FIX2INT(argv[2]);
      int x = FIX2INT(argv[3]);
      int y = FIX2INT(argv[4]);

      ref.addElem(tileset, tX, tY, x, y);
   }
   else
      GameMap_push(self, argv[0]);
   return self;
}

/*
  call-seq: addTileset(tileset)
            add_tileset(tileset)

  Adds a tileset to the map.
*/
VALUE GameMap_addTileset(VALUE self, VALUE name)
{
   GameMap &ref = getRef<GameMap>(self);

   name = rb_obj_as_string(name);
   ref.addTileset(StringValuePtr(name));
   return Qnil;
}

/*
  call-seq: centerOn(x, y)

  Centers the map on a point.
*/
VALUE GameMap_centerOn(VALUE self, VALUE x, VALUE y)
{
   GameMap &ref = getRef<GameMap>(self);
   ref.centerOn(FIX2INT(x), FIX2INT(y));

   return Qnil;
}

/*
  Clears the map.
*/
VALUE GameMap_clear(VALUE self)
{
   GameMap &ref = getRef<GameMap>(self);
   ref.clear();

   return Qnil;
}

/*
  Clears the map's tiles.
*/
VALUE GameMap_clearTiles(VALUE self)
{
   GameMap &ref = getRef<GameMap>(self);
   ref.clearTiles();

   return Qnil;
}

/*
  Clears the list of drawables drawn when drawing the map.
*/
VALUE GameMap_clearBetween(VALUE self)
{
   GameMap &ref = getRef<GameMap>(self);
   ref.clearBetween();

   return Qnil;
}

/*
  Returns the map's collisionH.
*/
VALUE GameMap_collisionH(VALUE self)
{
   GameMap &ref = getRef<GameMap>(self);
   return INT2FIX(ref.getCollisionH());
}

/*
  call-seq: collisionH=(val)

  Sets the height where collisions are checked. Pixels which have a greater
  height are ignored.
*/
VALUE GameMap_setCollisionH(VALUE self, VALUE val)
{
   GameMap &ref = getRef<GameMap>(self);
   ref.setCollisionH(FIX2INT(val));

   return val;
}

/*
  Yields each tile.
*/
VALUE GameMap_each_tile(VALUE self)
{
   GameMap &ref = getRef<GameMap>(self);
   ref.rbEachTile();

   return Qnil;
}

/*
  Yields each tileset.
*/
VALUE GameMap_each_tileset(VALUE self)
{
   GameMap &ref = getRef<GameMap>(self);
   ref.rbEachTileset();
   
   return Qnil;
}

/*
  Removes some tiles from the map if they fit to a condition.
*/
VALUE GameMap_reject_tiles(VALUE self)
{
   GameMap &ref = getRef<GameMap>(self);
   ref.rbRejectTiles();

   return Qnil;
}

/*
  call-seq: relToAbs(x, y)
            rel2abs(x, y)

  Converts relative coordinates into absolute ones.
*/
VALUE GameMap_relToAbs(VALUE self, VALUE x, VALUE y)
{
   GameMap &ref = getRef<GameMap>(self);
   Point ret = ref.relToAbs(FIX2INT(x), FIX2INT(y));

   return createObject(getClass("Point"), ret);
}

/*
  call-seq: setTileSize(w, h)
            set_tile_size(w, h)

  Sets the size of each tile in the map.
*/
VALUE GameMap_setTileSize(VALUE self, VALUE w, VALUE h)
{
   GameMap &ref = getRef<GameMap>(self);
   int _w = FIX2INT(w);
   int _h = FIX2INT(h);

   ref.setTileSize(_w, _h);
   return Qnil;
}

/*
  Returns the height of a tile.
*/
VALUE GameMap_tileHeight(VALUE self)
{
   GameMap &ref = getRef<GameMap>(self);
   return INT2FIX(ref.getTileH());
}

/*
  Returns the width of a tile.
*/
VALUE GameMap_tileWidth(VALUE self)
{
   GameMap &ref = getRef<GameMap>(self);
   return INT2FIX(ref.getTileW());
}

/*
  Returns an array containing the map's tiles.
*/
VALUE GameMap_tiles(VALUE self)
{
   GameMap &ref = getRef<GameMap>(self);
   return ref.rbTiles();
}

/*
  Returns an array containing all the map's tilesets (as Sprite).
*/
VALUE GameMap_tilesets(VALUE self)
{
   GameMap &ref = getRef<GameMap>(self);
   return ref.rbTilesets();
}