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.19 by pippijn, Thu Mar 1 13:27:52 2007 UTC vs.
Revision 1.24 by pippijn, Fri Mar 2 11:07: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
184};
185
186cf::register_command brace => sub {
187 my ($ob, $arg) = @_;
188
189 $ob->contr->braced ($ob->contr->braced ? 0 : 1);
190 $ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced.");
191
192 1
193};
194
195cf::register_command 'output-count' => sub {
196 my ($ob, $arg) = @_;
197
198 return $ob->reply (undef, "Output count is presently " . $ob->contr->outputs_count)
199 unless $arg > 0;
200
201 $ob->contr->outputs_count ($arg);
202 $ob->reply (undef, "Output count now set to " . $ob->contr->outputs_count);
203
204 1
205};
206
207cf::register_command 'output-sync' => sub {
208 my ($ob, $arg) = @_;
209
210 return $ob->reply (undef, "Output sync time is presently " . $ob->contr->outputs_sync)
211 unless $arg > 0;
212
213 $ob->contr->outputs_sync ($arg);
214 $ob->reply (undef, "Output sync time now set to " . $ob->contr->outputs_sync);
215
216 1
217};
218
219# XXX: This has a bug. After one sets his wimpy level to 0 and resets it to
220# some other level (which may also be 0), this does not get echoed,
221# but it does get set.
222cf::register_command wimpy => sub {
223 my ($ob, $arg) = @_;
224
225 my $wimpy = $ob->run_away;
226 return $ob->reply (undef, "Your current wimpy level is $wimpy.")
227 if $arg eq "";
228
229 return $ob->run_away ($arg) && $ob->reply (undef, "Your new wimpy level is $arg.")
230 if $arg =~ /^\d+$/ and $arg <= 100;
231
232 $ob->reply (undef, "Incorrect parameters for wimpy: $arg");
233
234 1
235};
236
237cf::register_command peaceful => sub {
238 my ($ob, $arg) = @_;
239
240 $ob->reply (undef, "You cannot change your peaceful setting with this command."
241 ." Please speak to the priest in the temple of Gorokh"
242 ." if you want to become hostile or in temple of Valriel"
243 ." if you want to become peaceful again.");
244
245 #$ob->contr->peaceful ($ob->contr->peaceful ? 0 : 1);
246 #$ob->reply (undef, $ob->contr->peaceful ? "You will attack other players." : "You will not attack other players.");
247
248 1
97}; 249};
98 250
99cf::register_command rename => sub { 251cf::register_command rename => sub {
100 my ($ob, $arg) = @_; 252 my ($ob, $arg) = @_;
101 253

Diff Legend

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