ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/commands.ext
(Generate patch)

Comparing deliantra/server/ext/commands.ext (file contents):
Revision 1.20 by pippijn, Fri Mar 2 10:15:38 2007 UTC vs.
Revision 1.23 by pippijn, Fri Mar 2 10:54:59 2007 UTC

… …
87 $ob->reply (undef, (join "\n", who_listing $ob->may ("extended_who")), cf::NDI_UNIQUE | cf::NDI_DK_ORANGE); 87 $ob->reply (undef, (join "\n", who_listing $ob->may ("extended_who")), cf::NDI_UNIQUE | cf::NDI_DK_ORANGE);
88 88
89 1 89 1
90}; 90};
91 91
92cf::register_command applymode => sub {
93 my ($ob, $arg) = @_;
94 my @types = ("nochoice", "never", "always");
95 my $mapping = {
96 nochoice => 1,
97 never => 2,
98 always => 3,
99 };
100
101 my $oldmode = $ob->contr->unapply;
102 my $oldmode_name = $types[$oldmode];
103
104 return $ob->reply (undef, "applymode is set to $oldmode_name")
105 unless $arg;
106
107 return $ob->reply (undef, "applymode: Unknown options '$arg', valid options are @types")
108 unless $mapping->{$arg};
109
110 $ob->contr->unapply ($mapping->{$arg} - 1); # HACK: because of the $mapping->{$arg} check before, where $arg should not be 0
111 # but $arg would be 0 if a user enters an incorrect value
112 $ob->reply (undef, "applymode" . ($oldmode == $ob->contr->unapply ? "" : " now") . " set to " . $types[$ob->contr->unapply]);
113
114 1
115};
116
117cf::register_command petmode => sub {
118 my ($ob, $arg) = @_;
119 my @types = ("normal", "sad", "defend", "arena");
120 my $mapping = {
121 normal => 1,
122 sad => 2,
123 defend => 3,
124 arena => 4,
125 };
126
127 my $oldtype = $ob->contr->petmode;
128 my $oldtype_name = $types[$oldtype];
129
130 return $ob->reply (undef, "petmode is set to $oldtype_name")
131 unless $arg;
132
133 return $ob->reply (undef, "petmode: Unknown options '$arg', valid options are @types")
134 unless $mapping->{$arg};
135
136 $ob->contr->petmode ($mapping->{$arg} - 1); # HACK: because of the $mapping->{$arg} check before, where $arg should not be 0
137 # but $arg would be 0 if a user enters an incorrect value
138 $ob->reply (undef, "petmode" . ($oldtype == $ob->contr->petmode ? "" : " now") . " set to " . $types[$ob->contr->petmode]);
139
140 1
141};
142
143cf::register_command usekeys => sub {
144 my ($ob, $arg) = @_;
145 my @types = ("inventory", "keyrings", "containers");
146 my $mapping = {
147 inventory => 1,
148 keyrings => 2,
149 containers => 3,
150 };
151
152 my $oldtype = $ob->contr->usekeys;
153 my $oldtype_name = $types[$oldtype];
154
155 return $ob->reply (undef, "usekeys is set to $oldtype_name")
156 unless $arg;
157
158 return $ob->reply (undef, "usekeys: Unknown options '$arg', valid options are @types")
159 unless $mapping->{$arg};
160
161 $ob->contr->usekeys ($mapping->{$arg} - 1); # HACK: because of the $mapping->{$arg} check before, where $arg should not be 0
162 # but $arg would be 0 if a user enters an incorrect value
163 $ob->reply (undef, "usekeys" . ($oldtype == $ob->contr->usekeys ? "" : " now") . " set to " . $types[$ob->contr->usekeys]);
164
165 1
166};
167
92cf::register_command afk => sub { 168cf::register_command afk => sub {
93 my ($ob, $arg) = @_; 169 my ($ob, $arg) = @_;
94 170
95 $ob->contr->ns->afk ($ob->contr->ns->afk ? 0 : 1); 171 $ob->contr->ns->afk ($ob->contr->ns->afk ? 0 : 1);
96 $ob->reply (undef, $ob->contr->ns->afk ? "You are now AFK" : "You are no longer AFK"); 172 $ob->reply (undef, $ob->contr->ns->afk ? "You are now AFK" : "You are no longer AFK");
173
174 1
175};
176
177cf::register_command sound => sub {
178 my ($ob, $arg) = @_;
179
180 $ob->contr->ns->sound ($ob->contr->ns->sound ? 0 : 1);
181 $ob->reply (undef, $ob->contr->ns->sound ? "The sounds are enabled." : "Silence is golden...");
182
183 1
97}; 184};
98 185
99cf::register_command brace => sub { 186cf::register_command brace => sub {
100 my ($ob, $arg) = @_; 187 my ($ob, $arg) = @_;
101 188
102 $ob->contr->braced ($ob->contr->braced ? 0 : 1); 189 $ob->contr->braced ($ob->contr->braced ? 0 : 1);
103 $ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced."); 190 $ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced.");
191
192 1
104}; 193};
105 194
106# XXX: This has a bug. After one sets his wimpy level to 0 and resets it to 195# XXX: This has a bug. After one sets his wimpy level to 0 and resets it to
107# some other level (which may also be 0), this does not get echoed, 196# some other level (which may also be 0), this does not get echoed,
108# but it does get set. 197# but it does get set.
… …
115 204
116 return $ob->run_away ($arg) && $ob->reply (undef, "Your new wimpy level is $arg.") 205 return $ob->run_away ($arg) && $ob->reply (undef, "Your new wimpy level is $arg.")
117 if $arg =~ /^\d+$/ and $arg <= 100; 206 if $arg =~ /^\d+$/ and $arg <= 100;
118 207
119 $ob->reply (undef, "Incorrect parameters for wimpy: $arg"); 208 $ob->reply (undef, "Incorrect parameters for wimpy: $arg");
209
210 1
120}; 211};
121 212
122cf::register_command peaceful => sub { 213cf::register_command peaceful => sub {
123 my ($ob, $arg) = @_; 214 my ($ob, $arg) = @_;
124 215
… …
127 ." if you want to become hostile or in temple of Valriel" 218 ." if you want to become hostile or in temple of Valriel"
128 ." if you want to become peaceful again."); 219 ." if you want to become peaceful again.");
129 220
130 #$ob->contr->peaceful ($ob->contr->peaceful ? 0 : 1); 221 #$ob->contr->peaceful ($ob->contr->peaceful ? 0 : 1);
131 #$ob->reply (undef, $ob->contr->peaceful ? "You will attack other players." : "You will not attack other players."); 222 #$ob->reply (undef, $ob->contr->peaceful ? "You will attack other players." : "You will not attack other players.");
223
224 1
132}; 225};
133 226
134 227
135cf::register_command rename => sub { 228cf::register_command rename => sub {
136 my ($ob, $arg) = @_; 229 my ($ob, $arg) = @_;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines