2 // Copyright (C) 2006 Christoph Sommer <christoph.sommer@2006.expires.deltadevelopment.de>
4 // This program is free software: you can redistribute it and/or modify
5 // it under the terms of the GNU General Public License as published by
6 // the Free Software Foundation, either version 3 of the License, or
7 // (at your option) any later version.
9 // This program is distributed in the hope that it will be useful,
10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 // GNU General Public License for more details.
14 // You should have received a copy of the GNU General Public License
15 // along with this program. If not, see <http://www.gnu.org/licenses/>.
17 #include "math/random_generator.hpp"
18 #include "object/candle.hpp"
19 #include "object/sprite_particle.hpp"
20 #include "scripting/candle.hpp"
21 #include "scripting/squirrel_util.hpp"
22 #include "supertux/object_factory.hpp"
23 #include "supertux/sector.hpp"
24 #include "util/reader.hpp"
26 Candle::Candle(const Reader& lisp)
27 : MovingSprite(lisp, "images/objects/candle/candle.sprite", LAYER_BACKGROUNDTILES+1, COLGROUP_DISABLED), burning(true),
28 candle_light_1(Surface::create("images/objects/candle/candle-light-1.png")),
29 candle_light_2(Surface::create("images/objects/candle/candle-light-2.png"))
31 lisp.get("name", name);
32 lisp.get("burning", burning);
35 sprite->set_action("on");
37 sprite->set_action("off");
43 Candle::draw(DrawingContext& context)
45 // draw regular sprite
46 sprite->draw(context, get_pos(), layer);
50 Vector pos = get_pos() + (bbox.get_size() - candle_light_1->get_size()) / 2;
51 context.push_target();
52 context.set_target(DrawingContext::LIGHTMAP);
53 // draw approx. 1 in 10 frames darker. Makes the candle flicker
54 if (systemRandom.rand(10) != 0) {
55 context.draw_surface(candle_light_1, pos, layer);
57 context.draw_surface(candle_light_2, pos, layer);
64 Candle::collision(GameObject&, const CollisionHit& )
70 Candle::expose(HSQUIRRELVM vm, SQInteger table_idx)
72 if (name.empty()) return;
73 scripting::Candle* _this = new scripting::Candle(this);
74 expose_object(vm, table_idx, _this, name, true);
78 Candle::unexpose(HSQUIRRELVM vm, SQInteger table_idx)
80 if (name.empty()) return;
81 scripting::unexpose_object(vm, table_idx, name);
87 Vector ppos = bbox.get_middle();
88 Vector pspeed = Vector(0, -150);
89 Vector paccel = Vector(0,0);
90 Sector::current()->add_object(new SpriteParticle("images/objects/particles/smoke.sprite", "default", ppos, ANCHOR_MIDDLE, pspeed, paccel, LAYER_BACKGROUNDTILES+2));
100 Candle::set_burning(bool burning)
102 if (this->burning == burning) return;
103 this->burning = burning;
105 sprite->set_action("on");
108 sprite->set_action("off");