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

Comparing deliantra/server/ext/NPC_Dialogue.pm (file contents):
Revision 1.14 by root, Thu Jan 8 19:23:44 2009 UTC vs.
Revision 1.19 by root, Fri Feb 5 01:26:35 2010 UTC

… …
96 96
97=item $flag - A hashref that stores flags associated with the player and 97=item $flag - A hashref that stores flags associated with the player and
98can be seen by all NPCs (so better name your flags uniquely). This is 98can be seen by all NPCs (so better name your flags uniquely). This is
99useful for storing e.g. quest information. See C<@setflag> and C<@ifflag>. 99useful for storing e.g. quest information. See C<@setflag> and C<@ifflag>.
100 100
101=item $find - see @find, below.
102
101=back 103=back
102 104
103The environment is that standard "map scripting environment", which is 105The environment is that standard "map scripting environment", which is
104limited in the type of constructs allowed (no loops, for example). 106limited in the type of constructs allowed (no loops, for example).
105 107
… …
138Like C<@cond>, but proceed regardless of the outcome. 140Like C<@cond>, but proceed regardless of the outcome.
139 141
140=item @msg perl 142=item @msg perl
141 143
142Like C<@cond>, but the return value will be stringified and prepended to 144Like C<@cond>, but the return value will be stringified and prepended to
143the message. 145the reply message.
146
147=item @check match expression
148
149Executes a match expression (see
150http://pod.tst.eu/http://cvs.schmorp.de/deliantra/server/lib/cf/match.pm)
151to see if it matches.
152
153C<self> is the npc object, C<object>, C<source> and C<originator> are the
154player communicating with the NPC.
155
156If the check fails, the match is skipped.
157
158=item @find match expression
159
160Like C<@check> in that it executes a match expression, but instead of
161failing, it gathers all objects into an array and provides a reference to
162the array in the C<$find> variable.
163
164When you want to skip the match when no objects have been found, combine
165C<@find> with C<@cond>:
166
167 @match see my spellbook
168 @find type=SPELLBOOK in inv
169 @cond @$find
170 It looks dirty.
171 @match see my spellbook
172 I can't see any, where do you have it?
144 173
145=item @setstate state value 174=item @setstate state value
146 175
147Sets the named state C<state> to the given C<value>. State values are 176Sets the named state C<state> to the given C<value>. State values are
148associated with a specific player-NPC pair, so each NPC has its own state 177associated with a specific player-NPC pair, so each NPC has its own state
… …
171associated with a specific player and can be seen by all NPCs. with 200associated with a specific player and can be seen by all NPCs. with
172respect to a particular player, which makes them suitable to store quest 201respect to a particular player, which makes them suitable to store quest
173markers and other information (e.g. reputation/alignment). Flags are 202markers and other information (e.g. reputation/alignment). Flags are
174persistent over the lifetime of a player, so be careful :) 203persistent over the lifetime of a player, so be careful :)
175 204
205Perversely enough, using C<@setfflag> without a C<value> clears the flag
206as if it was never set, so always provide a flag value (e.g. C<1>) when
207you want to set the flag.
208
176See C<@ifflag> for an example. 209See C<@ifflag> for an example.
177 210
178=item @ifflag flag value 211=item @ifflag flag value
179 212
180Requires that the named C<flag> has the given C<value>, otherwise this 213Requires that the named C<flag> has the given C<value>, otherwise this
181topic is skipped. For more complex comparisons, see C<@cond> with 214topic is skipped. For more complex comparisons, see C<@cond> with
182C<$flag>. Example: 215C<$flag>.
216
217If no C<value> is given, then the ifflag succeeds when the flag is true.
218
219Example:
183 220
184 @match I want to do the quest! 221 @match I want to do the quest!
185 @setflag kings_quest 1 222 @setflag kings_quest 1
186 Then seek out Bumblebee in Navar, he will tell you... 223 Then seek out Bumblebee in Navar, he will tell you...
187 @match I did the quest 224 @match I did the quest
… …
245 my @replies; 282 my @replies;
246 my @match; # @match/@parse command results 283 my @match; # @match/@parse command results
247 284
248 my $state = $self->{npc}{$self->{ob}->name}{dialog_state} ||= {}; 285 my $state = $self->{npc}{$self->{ob}->name}{dialog_state} ||= {};
249 my $flag = $self->{ob}{dialog_flag} ||= {}; 286 my $flag = $self->{ob}{dialog_flag} ||= {};
287
288 my @find;
250 289
251 my %vars = ( 290 my %vars = (
252 who => $self->{ob}, 291 who => $self->{ob},
253 npc => $self->{npc}, 292 npc => $self->{npc},
254 state => $state, 293 state => $state,
255 flag => $flag, 294 flag => $flag,
256 msg => $msg, 295 msg => $msg,
257 match => \@match, 296 match => \@match,
297 find => \@find,
258 ); 298 );
259 299
260 local $self->{ob}{record_replies} = \@replies; 300 local $self->{ob}{record_replies} = \@replies;
261 301
262 # now execute @-commands (which can result in a no-match) 302 # now execute @-commands (which can result in a no-match)
… …
283 323
284 } elsif ($cmd eq "eval") { 324 } elsif ($cmd eq "eval") {
285 cf::safe_eval $args, %vars; 325 cf::safe_eval $args, %vars;
286 warn "\@eval evaluation error: $@\n" if $@; 326 warn "\@eval evaluation error: $@\n" if $@;
287 327
328 } elsif ($cmd eq "check") {
329 eval {
330 cf::match::match $args, $self->{ob}, $self->{npc}, $self->{ob}
331 or next topic;
332 };
333 warn "\@check evaluation error: $@\n" if $@;
334
335 } elsif ($cmd eq "find") {
336 @find = eval {
337 cf::match::match $args, $self->{ob}, $self->{npc}, $self->{ob}
338 };
339 warn "\@find evaluation error: $@\n" if $@;
340
288 } elsif ($cmd eq "msg") { 341 } elsif ($cmd eq "msg") {
289 push @replies, [$self->{npc}, (scalar cf::safe_eval $args, %vars)]; 342 push @replies, [$self->{npc}, (scalar cf::safe_eval $args, %vars)];
290 343
291 } elsif ($cmd eq "setflag") { 344 } elsif ($cmd eq "setflag") {
292 my ($name, $value) = split /\s+/, $args, 2; 345 my ($name, $value) = split /\s+/, $args, 2;
293 $value ? $flag->{$name} = $value 346 defined $value ? $flag->{$name} = $value
294 : delete $flag->{$name}; 347 : delete $flag->{$name};
295 348
296 } elsif ($cmd eq "setstate") { 349 } elsif ($cmd eq "setstate") {
297 my ($name, $value) = split /\s+/, $args, 2; 350 my ($name, $value) = split /\s+/, $args, 2;
298 $value ? $state->{$name} = $value 351 defined $value ? $state->{$name} = $value
299 : delete $state->{$name}; 352 : delete $state->{$name};
300 353
301 } elsif ($cmd eq "ifflag") { 354 } elsif ($cmd eq "ifflag") {
302 my ($name, $value) = split /\s+/, $args, 2; 355 my ($name, $value) = split /\s+/, $args, 2;
303 $flag->{$name} eq $value 356 defined $value ? $flag->{$name} eq $value
357 : $flag->{$name}
304 or next topic; 358 or next topic;
305 359
306 } elsif ($cmd eq "ifstate") { 360 } elsif ($cmd eq "ifstate") {
307 my ($name, $value) = split /\s+/, $args, 2; 361 my ($name, $value) = split /\s+/, $args, 2;
308 $state->{$name} eq $value 362 $state->{$name} eq $value

Diff Legend

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