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.21 by pippijn, Fri Mar 2 10:43:01 2007 UTC vs.
Revision 1.25 by pippijn, Fri Mar 2 11:13:50 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 whereami => sub {
93 my ($ob) = @_;
94
95 my $reg = $ob->region;
96 $ob->reply (undef, (sprintf "You are %s.\n%s", $reg->longname, $reg->msg));
97
98 1
99};
100
101cf::register_command applymode => sub {
102 my ($ob, $arg) = @_;
103 my @types = ("nochoice", "never", "always");
104 my $mapping = {
105 nochoice => 1,
106 never => 2,
107 always => 3,
108 };
109
110 my $oldmode = $ob->contr->unapply;
111 my $oldmode_name = $types[$oldmode];
112
113 return $ob->reply (undef, "applymode is set to $oldmode_name")
114 unless $arg;
115
116 return $ob->reply (undef, "applymode: Unknown options '$arg', valid options are @types")
117 unless $mapping->{$arg};
118
119 $ob->contr->unapply ($mapping->{$arg} - 1); # HACK: because of the $mapping->{$arg} check before, where $arg should not be 0
120 # but $arg would be 0 if a user enters an incorrect value
121 $ob->reply (undef, "applymode" . ($oldmode == $ob->contr->unapply ? "" : " now") . " set to " . $types[$ob->contr->unapply]);
122
123 1
124};
125
126cf::register_command petmode => sub {
127 my ($ob, $arg) = @_;
128 my @types = ("normal", "sad", "defend", "arena");
129 my $mapping = {
130 normal => 1,
131 sad => 2,
132 defend => 3,
133 arena => 4,
134 };
135
136 my $oldtype = $ob->contr->petmode;
137 my $oldtype_name = $types[$oldtype];
138
139 return $ob->reply (undef, "petmode is set to $oldtype_name")
140 unless $arg;
141
142 return $ob->reply (undef, "petmode: Unknown options '$arg', valid options are @types")
143 unless $mapping->{$arg};
144
145 $ob->contr->petmode ($mapping->{$arg} - 1); # HACK: because of the $mapping->{$arg} check before, where $arg should not be 0
146 # but $arg would be 0 if a user enters an incorrect value
147 $ob->reply (undef, "petmode" . ($oldtype == $ob->contr->petmode ? "" : " now") . " set to " . $types[$ob->contr->petmode]);
148
149 1
150};
151
92cf::register_command usekeys => sub { 152cf::register_command usekeys => sub {
93 my ($ob, $arg) = @_; 153 my ($ob, $arg) = @_;
94 my @types = ("inventory", "keyrings", "containers"); 154 my @types = ("inventory", "keyrings", "containers");
95 my $mapping = { 155 my $mapping = {
96 inventory => 1, 156 inventory => 1,
… …
102 my $oldtype_name = $types[$oldtype]; 162 my $oldtype_name = $types[$oldtype];
103 163
104 return $ob->reply (undef, "usekeys is set to $oldtype_name") 164 return $ob->reply (undef, "usekeys is set to $oldtype_name")
105 unless $arg; 165 unless $arg;
106 166
107 return $ob->reply (undef, "usekeys: Unknown options '$arg', valid options are inventory, keyrings, containers") 167 return $ob->reply (undef, "usekeys: Unknown options '$arg', valid options are @types")
108 unless $mapping->{$arg}; 168 unless $mapping->{$arg};
109 169
110 $ob->contr->usekeys ($mapping->{$arg} - 1); # HACK: because of the $mapping->{$arg} check before, where $arg should not be 0 170 $ob->contr->usekeys ($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 171 # but $arg would be 0 if a user enters an incorrect value
112 $ob->reply (undef, "usekeys" . ($oldtype == $ob->contr->usekeys ? "" : " now") . " set to " . $types[$ob->contr->usekeys]); 172 $ob->reply (undef, "usekeys" . ($oldtype == $ob->contr->usekeys ? "" : " now") . " set to " . $types[$ob->contr->usekeys]);
173
174 1
113}; 175};
114 176
115cf::register_command afk => sub { 177cf::register_command afk => sub {
116 my ($ob, $arg) = @_; 178 my ($ob, $arg) = @_;
117 179
118 $ob->contr->ns->afk ($ob->contr->ns->afk ? 0 : 1); 180 $ob->contr->ns->afk ($ob->contr->ns->afk ? 0 : 1);
119 $ob->reply (undef, $ob->contr->ns->afk ? "You are now AFK" : "You are no longer AFK"); 181 $ob->reply (undef, $ob->contr->ns->afk ? "You are now AFK" : "You are no longer AFK");
182
183 1
120}; 184};
121 185
122cf::register_command sound => sub { 186cf::register_command sound => sub {
123 my ($ob, $arg) = @_; 187 my ($ob, $arg) = @_;
124 188
125 $ob->contr->ns->sound ($ob->contr->ns->sound ? 0 : 1); 189 $ob->contr->ns->sound ($ob->contr->ns->sound ? 0 : 1);
126 $ob->reply (undef, $ob->contr->ns->sound ? "The sounds are enabled." : "Silence is golden..."); 190 $ob->reply (undef, $ob->contr->ns->sound ? "The sounds are enabled." : "Silence is golden...");
191
192 1
127}; 193};
128 194
129cf::register_command brace => sub { 195cf::register_command brace => sub {
130 my ($ob, $arg) = @_; 196 my ($ob, $arg) = @_;
131 197
132 $ob->contr->braced ($ob->contr->braced ? 0 : 1); 198 $ob->contr->braced ($ob->contr->braced ? 0 : 1);
133 $ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced."); 199 $ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced.");
200
201 1
202};
203
204cf::register_command 'output-count' => sub {
205 my ($ob, $arg) = @_;
206
207 return $ob->reply (undef, "Output count is presently " . $ob->contr->outputs_count)
208 unless $arg > 0;
209
210 $ob->contr->outputs_count ($arg);
211 $ob->reply (undef, "Output count now set to " . $ob->contr->outputs_count);
212
213 1
214};
215
216cf::register_command 'output-sync' => sub {
217 my ($ob, $arg) = @_;
218
219 return $ob->reply (undef, "Output sync time is presently " . $ob->contr->outputs_sync)
220 unless $arg > 0;
221
222 $ob->contr->outputs_sync ($arg);
223 $ob->reply (undef, "Output sync time now set to " . $ob->contr->outputs_sync);
224
225 1
134}; 226};
135 227
136# XXX: This has a bug. After one sets his wimpy level to 0 and resets it to 228# XXX: This has a bug. After one sets his wimpy level to 0 and resets it to
137# some other level (which may also be 0), this does not get echoed, 229# some other level (which may also be 0), this does not get echoed,
138# but it does get set. 230# but it does get set.
… …
145 237
146 return $ob->run_away ($arg) && $ob->reply (undef, "Your new wimpy level is $arg.") 238 return $ob->run_away ($arg) && $ob->reply (undef, "Your new wimpy level is $arg.")
147 if $arg =~ /^\d+$/ and $arg <= 100; 239 if $arg =~ /^\d+$/ and $arg <= 100;
148 240
149 $ob->reply (undef, "Incorrect parameters for wimpy: $arg"); 241 $ob->reply (undef, "Incorrect parameters for wimpy: $arg");
242
243 1
150}; 244};
151 245
152cf::register_command peaceful => sub { 246cf::register_command peaceful => sub {
153 my ($ob, $arg) = @_; 247 my ($ob, $arg) = @_;
154 248
… …
157 ." if you want to become hostile or in temple of Valriel" 251 ." if you want to become hostile or in temple of Valriel"
158 ." if you want to become peaceful again."); 252 ." if you want to become peaceful again.");
159 253
160 #$ob->contr->peaceful ($ob->contr->peaceful ? 0 : 1); 254 #$ob->contr->peaceful ($ob->contr->peaceful ? 0 : 1);
161 #$ob->reply (undef, $ob->contr->peaceful ? "You will attack other players." : "You will not attack other players."); 255 #$ob->reply (undef, $ob->contr->peaceful ? "You will attack other players." : "You will not attack other players.");
162};
163 256
257 1
258};
164 259
165cf::register_command rename => sub { 260cf::register_command rename => sub {
166 my ($ob, $arg) = @_; 261 my ($ob, $arg) = @_;
167 262
168 $ob->speed_left ($ob->speed_left - 0.25); 263 $ob->speed_left ($ob->speed_left - 0.25);

Diff Legend

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