updated squirrel version
[supertux.git] / src / badguy / zeekling.cpp
1 //  $Id$
2 // 
3 //  SuperTux
4 //  Copyright (C) 2005 Matthias Braun <matze@braunis.de>
5 //
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.
10 //
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.
15 // 
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
19 //  02111-1307, USA.
20
21 #include <config.h>
22 #include <math.h>
23
24 #include "zeekling.h"
25
26
27 //TODO: Make the Zeekling behave more interesting
28 Zeekling::Zeekling(const lisp::Lisp& reader)
29 {
30   reader.get("x", start_position.x);
31   reader.get("y", start_position.y);
32   bbox.set_size(31.8, 31.8);
33   sprite = sprite_manager->create("zeekling");
34   set_direction = false;
35 }
36
37 Zeekling::Zeekling(float pos_x, float pos_y, Direction d)
38 {
39   start_position.x = pos_x;
40   start_position.y = pos_y;
41   bbox.set_size(63.8, 50.8);
42   sprite = sprite_manager->create("zeekling");
43   set_direction = true;
44   initial_direction = d;
45 }
46
47 void
48 Zeekling::write(lisp::Writer& writer)
49 {
50   writer.start_list("zeekling");
51
52   writer.write_float("x", start_position.x);
53   writer.write_float("y", start_position.y);
54
55   writer.end_list("zeekling");
56 }
57
58 void
59 Zeekling::activate()
60 {
61   speed = 130 + (rand() % 41);
62   if (set_direction) {dir = initial_direction;}
63   physic.set_velocity_x(dir == LEFT ? -speed : speed);
64   physic.enable_gravity(false);
65   sprite->set_action(dir == LEFT ? "left" : "right");
66 }
67
68 bool
69 Zeekling::collision_squished(Player& player)
70 {
71   sprite->set_action(dir == LEFT ? "squished-left" : "squished-right");
72   kill_squished(player);
73   kill_fall();
74   return true;
75 }
76
77 HitResponse
78 Zeekling::collision_solid(GameObject& , const CollisionHit& hit)
79 {
80   if(fabsf(hit.normal.y) > .5) { // hit floor or roof?
81     physic.set_velocity_y(0);
82   } else { // hit right or left
83     dir = (dir == LEFT ? RIGHT : LEFT);
84     sprite->set_action(dir == LEFT ? "left" : "right");
85     physic.set_velocity_x(dir == LEFT ? -speed : speed);
86   }
87
88   return CONTINUE;
89 }
90
91 IMPLEMENT_FACTORY(Zeekling, "zeekling")