- added support for variable width fonts (not fully finished, needs some more cleanup...
[supertux.git] / src / sector.cpp
index a8ba209..3b3cbc8 100644 (file)
@@ -27,6 +27,8 @@
 #include <stdexcept>
 #include <float.h>
 #include <math.h>
+#include <limits>
+#include <physfs.h>
 
 #include "sector.hpp"
 #include "object/player.hpp"
@@ -54,6 +56,8 @@
 #include "object/coin.hpp"
 #include "object/block.hpp"
 #include "object/invisible_block.hpp"
+#include "object/light.hpp"
+#include "object/pulsing_light.hpp"
 #include "object/bullet.hpp"
 #include "object/text_object.hpp"
 #include "object/portable.hpp"
@@ -63,6 +67,7 @@
 #include "scripting/squirrel_util.hpp"
 #include "script_interface.hpp"
 #include "log.hpp"
+#include "main.hpp"
 
 Sector* Sector::_current = 0;
 
@@ -71,7 +76,7 @@ bool Sector::draw_solids_only = false;
 
 Sector::Sector(Level* parent)
   : level(parent), currentmusic(LEVEL_MUSIC),
-  ambient_light( 1.0f, 1.0f, 1.0f, 1.0f ), gravity(10), player(0), camera(0) 
+  ambient_light( 1.0f, 1.0f, 1.0f, 1.0f ), gravity(10.0), player(0), camera(0)
 {
   add_object(new Player(player_status, "Tux"));
   add_object(new DisplayEffect("Effect"));
@@ -189,7 +194,11 @@ Sector::parse(const lisp::Lisp& sector)
     } else if(token == "ambient-light") {
       std::vector<float> vColor;
       sector.get_vector( "ambient-light", vColor );
-      ambient_light = Color( vColor );
+      if(vColor.size() < 3) {
+        log_warning << "(ambient-light) requires a color as argument" << std::endl;
+      } else {
+        ambient_light = Color( vColor );
+      }
     } else {
       GameObject* object = parse_object(token, *(iter.lisp()));
       if(object) {
@@ -219,7 +228,17 @@ Sector::parse_old_format(const lisp::Lisp& reader)
   reader.get("gravity", gravity);
 
   std::string backgroundimage;
-  reader.get("background", backgroundimage);
+  if (reader.get("background", backgroundimage) && (backgroundimage != "")) {
+    if (backgroundimage == "arctis.png") backgroundimage = "arctis.jpg";
+    if (backgroundimage == "arctis2.jpg") backgroundimage = "arctis.jpg";
+    if (backgroundimage == "ocean.png") backgroundimage = "ocean.jpg";
+    backgroundimage = "images/background/" + backgroundimage;
+    if (!PHYSFS_exists(backgroundimage.c_str())) {
+      log_warning << "Background image \"" << backgroundimage << "\" not found. Ignoring." << std::endl;
+      backgroundimage = "";
+    }
+  }
+
   float bgspeed = .5;
   reader.get("bkgd_speed", bgspeed);
   bgspeed /= 100;
@@ -242,8 +261,7 @@ Sector::parse_old_format(const lisp::Lisp& reader)
 
   if(backgroundimage != "") {
     Background* background = new Background();
-    background->set_image(
-            std::string("images/background/") + backgroundimage, bgspeed);
+    background->set_image(backgroundimage, bgspeed);
     add_object(background);
   } else {
     Gradient* gradient = new Gradient();
@@ -270,7 +288,10 @@ Sector::parse_old_format(const lisp::Lisp& reader)
   spawnpoints.push_back(spawn);
 
   music = "chipdisko.ogg";
+  // skip reading music filename. It's all .ogg now, anyway
+  /*
   reader.get("music", music);
+  */
   music = "music/" + music;
 
   int width = 30, height = 15;
@@ -282,18 +303,33 @@ Sector::parse_old_format(const lisp::Lisp& reader)
       || reader.get_vector("tilemap", tiles)) {
     TileMap* tilemap = new TileMap();
     tilemap->set(width, height, tiles, LAYER_TILES, true);
+
+    // replace tile id 112 (old invisible tile) with 1311 (new invisible tile)
+    for(size_t x=0; x < tilemap->get_width(); ++x) {
+      for(size_t y=0; y < tilemap->get_height(); ++y) {
+        const Tile* tile = tilemap->get_tile(x, y);
+        if(tile->getID() == 112) tilemap->change(x, y, 1311);
+      }
+    }
+
+    if (height < 19) tilemap->resize(width, 19);
     add_object(tilemap);
   }
 
   if(reader.get_vector("background-tm", tiles)) {
     TileMap* tilemap = new TileMap();
     tilemap->set(width, height, tiles, LAYER_BACKGROUNDTILES, false);
+    if (height < 19) tilemap->resize(width, 19);
     add_object(tilemap);
   }
 
   if(reader.get_vector("foreground-tm", tiles)) {
     TileMap* tilemap = new TileMap();
     tilemap->set(width, height, tiles, LAYER_FOREGROUNDTILES, false);
+
+    // fill additional space in foreground with tiles of ID 2035 (lightmap/black)
+    if (height < 19) tilemap->resize(width, 19, 2035);
+
     add_object(tilemap);
   }
 
@@ -373,6 +409,38 @@ Sector::fix_old_tiles()
       }
     }
   }
+
+  // add lights for special tiles
+  for(GameObjects::iterator i = gameobjects.begin(); i != gameobjects.end(); i++) {
+    TileMap* tm = dynamic_cast<TileMap*>(*i);
+    if (!tm) continue;
+    for(size_t x=0; x < tm->get_width(); ++x) {
+      for(size_t y=0; y < tm->get_height(); ++y) {
+       const Tile* tile = tm->get_tile(x, y);
+       Vector pos(tm->get_x_offset() + x*32, tm->get_y_offset() + y*32);
+       Vector center(pos.x + 16, pos.y + 16);
+
+       // torch
+       if (tile->getID() == 1517) {
+         float pseudo_rnd = (float)((int)pos.x % 10) / 10;
+         add_object(new PulsingLight(center, 1.0f + pseudo_rnd, 0.9f, 1.0f, Color(1.0f, 1.0f, 0.6f, 1.0f)));
+       }
+       // lava or lavaflow
+       if ((tile->getID() == 173) || (tile->getID() == 1700) || (tile->getID() == 1705) || (tile->getID() == 1706)) {
+         // space lights a bit
+         if (((tm->get_tile(x-1, y)->getID() != tm->get_tile(x,y)->getID())
+             && (tm->get_tile(x, y-1)->getID() != tm->get_tile(x,y)->getID()))
+             || ((x % 3 == 0) && (y % 3 == 0))) {
+           float pseudo_rnd = (float)((int)pos.x % 10) / 10;
+           add_object(new PulsingLight(center, 1.0f + pseudo_rnd, 0.8f, 1.0f, Color(1.0f, 0.3f, 0.0f, 1.0f)));
+         }
+       }
+
+      }
+    }
+  }
+
+
 }
 
 void
@@ -506,8 +574,23 @@ Sector::activate(const Vector& player_pos)
       try_expose(object);
     }
   }
+  try_expose_me();
+
+  // spawn smalltux below spawnpoint
+  if (!player->is_big()) {
+    player->move(player_pos + Vector(0,32));
+  } else {
+    player->move(player_pos);
+  }
+
+  // spawning tux in the ground would kill him
+  if(!is_free_of_tiles(player->get_bbox())) {
+    log_warning << "Tried spawning Tux in solid matter. Compensating." << std::endl;
+    Vector npos = player->get_bbox().p1;
+    npos.y-=32;
+    player->move(npos);
+  }
 
-  player->move(player_pos);
   camera->reset(player->get_pos());
   update_game_objects();
 
@@ -539,6 +622,7 @@ Sector::deactivate()
     try_unexpose(object);
   }
 
+  try_unexpose_me();
   _current = NULL;
 }
 
@@ -547,7 +631,7 @@ Sector::get_active_region()
 {
   return Rect(
     camera->get_translation() - Vector(1600, 1200),
-    camera->get_translation() + Vector(1600, 1200));
+    camera->get_translation() + Vector(1600, 1200) + Vector(SCREEN_WIDTH,SCREEN_HEIGHT));
 }
 
 void
@@ -643,6 +727,13 @@ Sector::before_object_add(GameObject* object)
     this->player = player;
   }
 
+  UsesPhysic *physic_object = dynamic_cast<UsesPhysic *>(object);
+  if(physic_object)
+  {
+    physic_object->physic.set_gravity(gravity);
+  }
+
+
   if(_current == this) {
     try_expose(object);
   }
@@ -663,6 +754,16 @@ Sector::try_expose(GameObject* object)
 }
 
 void
+Sector::try_expose_me()
+{
+  HSQUIRRELVM vm = Scripting::global_vm;
+  sq_pushobject(vm, sector_table);
+  Scripting::SSector* interface = static_cast<Scripting::SSector*> (this);
+  expose_object(vm, -1, interface, "settings", false);
+  sq_pop(vm, 1);
+}
+
+void
 Sector::before_object_remove(GameObject* object)
 {
   Portable* portable = dynamic_cast<Portable*> (object);
@@ -678,7 +779,7 @@ Sector::before_object_remove(GameObject* object)
     moving_objects.erase(
         std::find(moving_objects.begin(), moving_objects.end(), moving_object));
   }
-          
+
   if(_current == this)
     try_unexpose(object);
 }
@@ -701,6 +802,19 @@ Sector::try_unexpose(GameObject* object)
 }
 
 void
+Sector::try_unexpose_me()
+{
+  HSQUIRRELVM vm = Scripting::global_vm;
+  SQInteger oldtop = sq_gettop(vm);
+  sq_pushobject(vm, sector_table);
+  try {
+    Scripting::unexpose_object(vm, -1, "settings");
+  } catch(std::exception& e) {
+    log_warning << "Couldn't unregister object: " << e.what() << std::endl;
+  }
+  sq_settop(vm, oldtop);
+}
+void
 Sector::draw(DrawingContext& context)
 {
   context.set_ambient_color( ambient_light );
@@ -724,7 +838,7 @@ Sector::draw(DrawingContext& context)
   }
 
   if(show_collrects) {
-    Color col(0.2, 0.2, 0.2, 0.7);
+    Color col(0.2f, 0.2f, 0.2f, 0.7f);
     for(MovingObjects::iterator i = moving_objects.begin();
             i != moving_objects.end(); ++i) {
       MovingObject* object = *i;
@@ -808,7 +922,7 @@ void check_collisions(collision::Constraints* constraints,
   }
 }
 
-static const float DELTA = .001;
+static const float DELTA = .001f;
 
 void
 Sector::collision_tilemap(collision::Constraints* constraints,
@@ -981,6 +1095,7 @@ void
 Sector::collision_static_constrains(MovingObject& object)
 {
   using namespace collision;
+  float infinity = (std::numeric_limits<float>::has_infinity ? std::numeric_limits<float>::infinity() : std::numeric_limits<float>::max());
 
   Constraints constraints;
   Vector movement = object.get_movement();
@@ -994,7 +1109,7 @@ Sector::collision_static_constrains(MovingObject& object)
       break;
 
     // apply calculated horizontal constraints
-    if(constraints.bottom < INFINITY) {
+    if(constraints.bottom < infinity) {
       float height = constraints.bottom - constraints.top;
       if(height < oheight) {
         // we're crushed, but ignore this for now, we'll get this again
@@ -1003,7 +1118,7 @@ Sector::collision_static_constrains(MovingObject& object)
       }
       dest.p2.y = constraints.bottom - DELTA;
       dest.p1.y = dest.p2.y - oheight;
-    } else if(constraints.top > -INFINITY) {
+    } else if(constraints.top > -infinity) {
       dest.p1.y = constraints.top + DELTA;
       dest.p2.y = dest.p1.y + oheight;
     }
@@ -1026,7 +1141,7 @@ Sector::collision_static_constrains(MovingObject& object)
       break;
 
     // apply calculated vertical constraints
-    if(constraints.right < INFINITY) {
+    if(constraints.right < infinity) {
       float width = constraints.right - constraints.left;
       if(width + SHIFT_DELTA < owidth) {
         printf("Object %p crushed horizontally... L:%f R:%f\n", &object,
@@ -1040,7 +1155,7 @@ Sector::collision_static_constrains(MovingObject& object)
         dest.p2.x = constraints.right - DELTA;
         dest.p1.x = dest.p2.x - owidth;
       }
-    } else if(constraints.left > -INFINITY) {
+    } else if(constraints.left > -infinity) {
       dest.p1.x = constraints.left + DELTA;
       dest.p2.x = dest.p1.x + owidth;
     }
@@ -1056,7 +1171,7 @@ Sector::collision_static_constrains(MovingObject& object)
   // an extra pass to make sure we're not crushed horizontally
   constraints = Constraints();
   collision_static(&constraints, movement, dest, object);
-  if(constraints.bottom < INFINITY) {
+  if(constraints.bottom < infinity) {
     float height = constraints.bottom - constraints.top;
     if(height + SHIFT_DELTA < oheight) {
       printf("Object %p crushed vertically...\n", &object);
@@ -1238,7 +1353,7 @@ Sector::is_free_of_movingstatics(const Rect& rect, const MovingObject* ignore_ob
     const MovingObject* moving_object = *i;
     if (moving_object == ignore_object) continue;
     if (!moving_object->is_valid()) continue;
-    if ((moving_object->get_group() == COLGROUP_MOVING) 
+    if ((moving_object->get_group() == COLGROUP_MOVING)
       || (moving_object->get_group() == COLGROUP_MOVING_STATIC)
       || (moving_object->get_group() == COLGROUP_STATIC)) {
       if(intersects(rect, moving_object->get_bbox())) return false;
@@ -1254,9 +1369,12 @@ Sector::add_bullet(const Vector& pos, float xm, Direction dir)
   // TODO remove this function and move these checks elsewhere...
 
   Bullet* new_bullet = 0;
-  if((int)bullets.size() >= player_status->max_fire_bullets)
+  if((player_status->bonus == FIRE_BONUS &&
+      (int)bullets.size() >= player_status->max_fire_bullets) ||
+     (player_status->bonus == ICE_BONUS &&
+      (int)bullets.size() >= player_status->max_ice_bullets))
     return false;
-  new_bullet = new Bullet(pos, xm, dir);
+  new_bullet = new Bullet(pos, xm, dir, player_status->bonus);
   add_object(new_bullet);
 
   sound_manager->play("sounds/shoot.wav");
@@ -1353,3 +1471,30 @@ Sector::change_solid_tiles(uint32_t old_tile_id, uint32_t new_tile_id)
     solids->change_all(old_tile_id, new_tile_id);
   }
 }
+
+
+void
+Sector::set_ambient_light(float red, float green, float blue)
+{
+  ambient_light.red = red;
+  ambient_light.green = green;
+  ambient_light.blue = blue;
+}
+
+float
+Sector::get_ambient_red()
+{
+  return ambient_light.red;
+}
+
+float
+Sector::get_ambient_green()
+{
+  return ambient_light.green;
+}
+
+float
+Sector::get_ambient_blue()
+{
+  return ambient_light.blue;
+}