1 | #! perl |
1 | #! perl |
|
|
2 | |
|
|
3 | # |
|
|
4 | # This file is part of Deliantra, the Roguelike Realtime MMORPG. |
|
|
5 | # |
|
|
6 | # Copyright (©) 2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team |
|
|
7 | # |
|
|
8 | # Deliantra is free software: you can redistribute it and/or modify it under |
|
|
9 | # the terms of the Affero GNU General Public License as published by the |
|
|
10 | # Free Software Foundation, either version 3 of the License, or (at your |
|
|
11 | # option) any later version. |
|
|
12 | # |
|
|
13 | # This program is distributed in the hope that it will be useful, |
|
|
14 | # but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
15 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
16 | # GNU General Public License for more details. |
|
|
17 | # |
|
|
18 | # You should have received a copy of the Affero GNU General Public License |
|
|
19 | # and the GNU General Public License along with this program. If not, see |
|
|
20 | # <http://www.gnu.org/licenses/>. |
|
|
21 | # |
|
|
22 | # The authors can be reached via e-mail to <support@deliantra.net> |
|
|
23 | # |
2 | |
24 | |
3 | =head1 NAME |
25 | =head1 NAME |
4 | |
26 | |
5 | cf::mapscript |
27 | cf::mapscript |
6 | |
28 | |
… | |
… | |
20 | |
42 | |
21 | =cut |
43 | =cut |
22 | |
44 | |
23 | package safe::mapscript; |
45 | package safe::mapscript; |
24 | |
46 | |
25 | use strict qw(subs vars); |
47 | use common::sense; |
26 | |
48 | |
27 | =item $self |
49 | =item $self |
28 | |
50 | |
29 | The mapscript object itself |
51 | The mapscript object itself. |
30 | |
52 | |
31 | =item $state |
53 | =item $state |
32 | |
54 | |
33 | The state value (0 means release, <>0 means push/trigger/enable) that |
55 | The state value (0 means release, <>0 means push/trigger/enable) that |
34 | triggered the map script. |
56 | triggered the map script. |