Major rewrite of scripting support:
[supertux.git] / src / trigger / scripttrigger.cpp
1 //  $Id$\r
2 // \r
3 //  SuperTux\r
4 //  Copyright (C) 2005 Matthias Braun <matze@braunis.de>\r
5 //\r
6 //  This program is free software; you can redistribute it and/or\r
7 //  modify it under the terms of the GNU General Public License\r
8 //  as published by the Free Software Foundation; either version 2\r
9 //  of the License, or (at your option) any later version.\r
10 //\r
11 //  This program is distributed in the hope that it will be useful,\r
12 //  but WITHOUT ANY WARRANTY; without even the implied warranty of\r
13 //  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
14 //  GNU General Public License for more details.\r
15 // \r
16 //  You should have received a copy of the GNU General Public License\r
17 //  along with this program; if not, write to the Free Software\r
18 //  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA\r
19 //  02111-1307, USA.\r
20 //\r
21 #include <config.h>\r
22 \r
23 #include <sstream>\r
24 #include <stdexcept>\r
25 #include <memory>\r
26 \r
27 #include "scripttrigger.hpp"\r
28 #include "game_session.hpp"\r
29 #include "lisp/lisp.hpp"\r
30 #include "lisp/writer.hpp"\r
31 #include "object_factory.hpp"\r
32 #include "sector.hpp"\r
33 \r
34 ScriptTrigger::ScriptTrigger(const lisp::Lisp& reader)\r
35 {\r
36   bool must_activate = false;\r
37   \r
38   reader.get("x", bbox.p1.x);\r
39   reader.get("y", bbox.p1.y);\r
40   float w = 0, h = 0;\r
41   reader.get("width", w);\r
42   reader.get("height", h);\r
43   bbox.set_size(w, h);\r
44   reader.get("script", script);\r
45   reader.get("button", must_activate);\r
46   if(script == "") {\r
47     throw std::runtime_error("Need to specify a script for trigger object");\r
48   }\r
49   \r
50   if (must_activate)\r
51     triggerevent = EVENT_ACTIVATE;\r
52   else\r
53     triggerevent = EVENT_TOUCH;\r
54 }\r
55 \r
56 ScriptTrigger::ScriptTrigger(const Vector& pos, const std::string& script)\r
57 {\r
58   bbox.set_pos(pos);\r
59   bbox.set_size(32, 32);\r
60   this->script = script;\r
61   triggerevent = EVENT_TOUCH;\r
62 }\r
63 \r
64 ScriptTrigger::~ScriptTrigger()\r
65 {\r
66 }\r
67 \r
68 void\r
69 ScriptTrigger::write(lisp::Writer& writer)\r
70 {\r
71   writer.start_list("scripttrigger");\r
72 \r
73   writer.write_float("x", bbox.p1.x);\r
74   writer.write_float("y", bbox.p1.y);\r
75   writer.write_float("width", bbox.get_width());\r
76   writer.write_float("height", bbox.get_height());\r
77   writer.write_string("script", script);\r
78   writer.write_bool("button", (triggerevent == EVENT_ACTIVATE) ? true : false);\r
79 \r
80   writer.end_list("scripttrigger");\r
81 }\r
82 \r
83 void\r
84 ScriptTrigger::event(Player& , EventType type)\r
85 {\r
86   if(type != triggerevent)\r
87     return;\r
88 \r
89   std::istringstream stream(script);\r
90   Sector::current()->run_script(stream, "ScriptTrigger");\r
91 }\r
92 \r
93 IMPLEMENT_FACTORY(ScriptTrigger, "scripttrigger");\r
94 \r