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.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
92cf::register_command usekeys => sub { 143cf::register_command usekeys => sub {
93 my ($ob, $arg) = @_; 144 my ($ob, $arg) = @_;
94 my @types = ("inventory", "keyrings", "containers"); 145 my @types = ("inventory", "keyrings", "containers");
95 my $mapping = { 146 my $mapping = {
96 inventory => 1, 147 inventory => 1,
… …
102 my $oldtype_name = $types[$oldtype]; 153 my $oldtype_name = $types[$oldtype];
103 154
104 return $ob->reply (undef, "usekeys is set to $oldtype_name") 155 return $ob->reply (undef, "usekeys is set to $oldtype_name")
105 unless $arg; 156 unless $arg;
106 157
107 return $ob->reply (undef, "usekeys: Unknown options '$arg', valid options are inventory, keyrings, containers") 158 return $ob->reply (undef, "usekeys: Unknown options '$arg', valid options are @types")
108 unless $mapping->{$arg}; 159 unless $mapping->{$arg};
109 160
110 $ob->contr->usekeys ($mapping->{$arg} - 1); # HACK: because of the $mapping->{$arg} check before, where $arg should not be 0 161 $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 162 # 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]); 163 $ob->reply (undef, "usekeys" . ($oldtype == $ob->contr->usekeys ? "" : " now") . " set to " . $types[$ob->contr->usekeys]);
164
165 1
113}; 166};
114 167
115cf::register_command afk => sub { 168cf::register_command afk => sub {
116 my ($ob, $arg) = @_; 169 my ($ob, $arg) = @_;
117 170
118 $ob->contr->ns->afk ($ob->contr->ns->afk ? 0 : 1); 171 $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"); 172 $ob->reply (undef, $ob->contr->ns->afk ? "You are now AFK" : "You are no longer AFK");
173
174 1
120}; 175};
121 176
122cf::register_command sound => sub { 177cf::register_command sound => sub {
123 my ($ob, $arg) = @_; 178 my ($ob, $arg) = @_;
124 179
125 $ob->contr->ns->sound ($ob->contr->ns->sound ? 0 : 1); 180 $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..."); 181 $ob->reply (undef, $ob->contr->ns->sound ? "The sounds are enabled." : "Silence is golden...");
182
183 1
127}; 184};
128 185
129cf::register_command brace => sub { 186cf::register_command brace => sub {
130 my ($ob, $arg) = @_; 187 my ($ob, $arg) = @_;
131 188
132 $ob->contr->braced ($ob->contr->braced ? 0 : 1); 189 $ob->contr->braced ($ob->contr->braced ? 0 : 1);
133 $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
134}; 193};
135 194
136# 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
137# 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,
138# but it does get set. 197# but it does get set.
… …
145 204
146 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.")
147 if $arg =~ /^\d+$/ and $arg <= 100; 206 if $arg =~ /^\d+$/ and $arg <= 100;
148 207
149 $ob->reply (undef, "Incorrect parameters for wimpy: $arg"); 208 $ob->reply (undef, "Incorrect parameters for wimpy: $arg");
209
210 1
150}; 211};
151 212
152cf::register_command peaceful => sub { 213cf::register_command peaceful => sub {
153 my ($ob, $arg) = @_; 214 my ($ob, $arg) = @_;
154 215
… …
157 ." if you want to become hostile or in temple of Valriel" 218 ." if you want to become hostile or in temple of Valriel"
158 ." if you want to become peaceful again."); 219 ." if you want to become peaceful again.");
159 220
160 #$ob->contr->peaceful ($ob->contr->peaceful ? 0 : 1); 221 #$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."); 222 #$ob->reply (undef, $ob->contr->peaceful ? "You will attack other players." : "You will not attack other players.");
223
224 1
162}; 225};
163 226
164 227
165cf::register_command rename => sub { 228cf::register_command rename => sub {
166 my ($ob, $arg) = @_; 229 my ($ob, $arg) = @_;

Diff Legend

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