4 // Copyright (C) 2006 Christoph Sommer <christoph.sommer@2006.expires.deltadevelopment.de>
6 // This program is free software; you can redistribute it and/or
7 // modify it under the terms of the GNU General Public License
8 // as published by the Free Software Foundation; either version 2
9 // of the License, or (at your option) any later version.
11 // This program is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 // GNU General Public License for more details.
16 // You should have received a copy of the GNU General Public License
17 // along with this program; if not, write to the Free Software
18 // Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
23 #include "video/drawing_context.hpp"
24 #include "object/player.hpp"
25 #include "object_factory.hpp"
26 #include "random_generator.hpp"
28 #include "particles.hpp"
29 #include "scripting/wind.hpp"
30 #include "scripting/squirrel_util.hpp"
32 Wind::Wind(const lisp::Lisp& reader) : name(""), blowing(true), acceleration(100), elapsed_time(0)
34 reader.get("x", bbox.p1.x);
35 reader.get("y", bbox.p1.y);
37 reader.get("width", w);
38 reader.get("height", h);
41 reader.get("name", name);
42 reader.get("blowing", blowing);
44 float speed_x = 0, speed_y = 0;
45 reader.get("speed-x", speed_x);
46 reader.get("speed-y", speed_y);
47 speed = Vector(speed_x, speed_y);
49 reader.get("acceleration", acceleration);
51 set_group(COLGROUP_TOUCHABLE);
55 Wind::update(float elapsed_time)
57 this->elapsed_time = elapsed_time;
61 // TODO: nicer, configurable particles for wind?
62 if (systemRandom.rand(0, 100) < 20) {
64 Vector ppos = Vector(systemRandom.randf(bbox.p1.x+8, bbox.p2.x-8), systemRandom.randf(bbox.p1.y+8, bbox.p2.y-8));
65 Vector pspeed = Vector(speed.x, speed.y);
66 Sector::current()->add_object(new Particles(ppos, 44, 46, pspeed, Vector(0,0), 1, Color(.4, .4, .4), 3, .1, LAYER_BACKGROUNDTILES+1));
71 Wind::draw(DrawingContext& )
76 Wind::collision(GameObject& other, const CollisionHit& )
78 if (!blowing) return ABORT_MOVE;
80 Player* player = dynamic_cast<Player*> (&other);
82 if (!player->on_ground()) {
83 player->add_velocity(speed * acceleration * elapsed_time, speed);
91 Wind::expose(HSQUIRRELVM vm, SQInteger table_idx)
93 if (name == "") return;
94 Scripting::Wind* interface = new Scripting::Wind(this);
95 expose_object(vm, table_idx, interface, name, true);
99 Wind::unexpose(HSQUIRRELVM vm, SQInteger table_idx)
101 if (name == "") return;
102 Scripting::unexpose_object(vm, table_idx, name);
117 IMPLEMENT_FACTORY(Wind, "wind");