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

Comparing deliantra/server/ext/chat.ext (file contents):
Revision 1.2 by root, Thu Dec 21 22:41:34 2006 UTC vs.
Revision 1.7 by pippijn, Wed Feb 28 19:32:56 2007 UTC

… …
29 on_login => sub { 29 on_login => sub {
30 my ($pl) = @_; 30 my ($pl) = @_;
31 31
32 clean_timeouts $pl->ob; 32 clean_timeouts $pl->ob;
33 }, 33 },
34
35 1
34); 36);
35 37
36cf::register_command listen => sub { 38cf::register_command listen => sub {
37 my ($who, $msg) = @_; 39 my ($who, $msg) = @_;
38 my $player = cf::player::find $who->name; 40 my $player = cf::player::find_active $who->name;
39 41
40 if ($msg ne "") { 42 if ($msg ne "") {
41 my $prev_listen = $player->listening; 43 my $prev_listen = $player->listening;
42 $player->listening ($msg); 44 $player->listening ($msg);
43 if ($prev_listen == $player->listening) { 45 if ($prev_listen == $player->listening) {
… …
46 $who->message ("Your verbose level is now " . $player->listening . ". (previously: $prev_listen)", cf::NDI_UNIQUE); 48 $who->message ("Your verbose level is now " . $player->listening . ". (previously: $prev_listen)", cf::NDI_UNIQUE);
47 } 49 }
48 } else { 50 } else {
49 $who->message ("Your verbose level is " . $player->listening . ".", cf::NDI_UNIQUE); 51 $who->message ("Your verbose level is " . $player->listening . ".", cf::NDI_UNIQUE);
50 } 52 }
53
54 1
51}; 55};
56
57my $emotes = {
58 growl => {
59 noparams => {
60 other => "<self> growls.",
61 self => "Grrrrrrrrr....",
62 },
63 params => {
64 },
65 self => {
66 },
67 },
68 giggle => {
69 noparams => {
70 other => "<self> giggles.",
71 self => "You giggle.",
72 },
73 params => {
74 },
75 self => {
76 },
77 },
78 shiver => {
79 noparams => {
80 other => "<self> shivers uncomfortably.",
81 self => "Brrrrrrrrr.",
82 },
83 params => {
84 },
85 self => {
86 },
87 },
88 chuckle => {
89 noparams => {
90 other => "<self> chuckles politely.",
91 self => "You chuckle politely",
92 },
93 params => {
94 },
95 self => {
96 },
97 },
98 sigh => {
99 noparams => {
100 other => "<self> sighs loudly.",
101 self => "You sigh.",
102 },
103 params => {
104 },
105 self => {
106 },
107 },
108 scream => {
109 noparams => {
110 other => "<self> screams at the top of his lungs!",
111 self => "ARRRRRRRRRRGH!!!!!",
112 },
113 params => {
114 },
115 self => {
116 },
117 },
118 puke => {
119 noparams => {
120 other => "<self> pukes.",
121 self => "Bleaaaaaghhhhhhh!",
122 },
123 params => {
124 target => "<self> pukes on your clothes!",
125 other => "<self> pukes on <other>.",
126 self => "You puke on <other>.",
127 },
128 self => {
129 other => "<self> pukes on his clothes.",
130 self => "You puke on yourself.",
131 },
132 },
133 strut => {
134 noparams => {
135 other => "<self> struts proudly.",
136 self => "Strut your stuff.",
137 },
138 params => {
139 },
140 self => {
141 },
142 },
143 cringe => {
144 noparams => {
145 other => "<self> cringes in terror!",
146 self => "You cringe in terror.",
147 },
148 params => {
149 target => "<self> cringes away from <other> in mortal terror.",
150 self => "You cringe away from <other>.",
151 },
152 self => {
153 },
154 },
155 hiccup => {
156 noparams => {
157 other => "<self> hiccups.",
158 self => "*HIC*",
159 },
160 params => {
161 },
162 self => {
163 },
164 },
165 clap => {
166 noparams => {
167 other => "<self> gives a round of applause.",
168 self => "Clap, clap, clap.",
169 },
170 params => {
171 },
172 self => {
173 },
174 },
175 kiss => {
176 noparams => {
177 other => "<self> makes a weird facial contortion",
178 self => "All the lonely people..",
179 },
180 params => {
181 target => "<self> kisses you.",
182 other => "<self> kisses <other>.",
183 self => "You kiss <other>.",
184 },
185 self => {
186 },
187 },
188 wink => {
189 noparams => {
190 other => "<self> winks suggestively.",
191 self => "Have you got something in your eye?",
192 },
193 params => {
194 target => "<self> winks at <other>.",
195 self => "You wink suggestively at <other>.",
196 },
197 self => {
198 other => "<self> winks at himself - something strange is going on...",
199 self => "You wink at yourself?? What are you up to?",
200 },
201 },
202 pout => {
203 noparams => {
204 other => "<self> pouts.",
205 self => "Aww, don't take it so hard.",
206 },
207 params => {
208 },
209 self => {
210 },
211 },
212 cackle => {
213 noparams => {
214 other => "<self> throws back his head and cackles with insane glee!",
215 self => "You cackle gleefully.",
216 },
217 params => {
218 },
219 self => {
220 },
221 },
222 sniff => {
223 noparams => {
224 other => "<self> sniffs sadly.",
225 self => "You sniff sadly. *SNIFF*",
226 },
227 params => {
228 target => "<self> sniffs you.",
229 other => "<self> sniffs <other>",
230 self => "You sniff <other>.",
231 },
232 self => {
233 other => "<self> sniffs himself.",
234 self => "You sniff yourself.",
235 },
236 },
237 nod => {
238 noparams => {
239 other => "<self> nods solemnly.",
240 self => "You nod solemnly.",
241 },
242 params => {
243 target => "<self> nods solemnly to you.",
244 other => "<self> nods solemnly to <other>.",
245 self => "You nod solemnly to <other>.",
246 },
247 self => {
248 },
249 },
250 frown => {
251 noparams => {
252 other => "<self> frowns.",
253 self => "What's bothering you?",
254 },
255 params => {
256 target => "<self> frowns darkly at you.",
257 other => "<self> frowns darkly at <other>.",
258 self => "You frown darkly at <other>.",
259 },
260 self => {
261 other => "<self> frowns at himself.",
262 self => "You frown at yourself.",
263 },
264 },
265 snicker => {
266 noparams => {
267 other => "<self> snickers softly.",
268 self => "You snicker softly.",
269 },
270 params => {
271 },
272 self => {
273 },
274 },
275 shrug => {
276 noparams => {
277 other => "<self> shrugs helplessly.",
278 self => "You shrug.",
279 },
280 params => {
281 target => "<self> shrugs at you.",
282 other => "<self> shrugs at <other>.",
283 self => "You shrug at <other>.",
284 },
285 self => {
286 },
287 },
288 bleed => {
289 noparams => {
290 other => "<self> is bleeding all over the carpet - got a spare tourniquet?",
291 self => "You bleed all over your nice new armour.",
292 },
293 params => {
294 target => "<self> slashes his wrist and bleeds all over <other>.",
295 self => "You slash your wrist and bleed all over <other>",
296 },
297 self => {
298 other => "<self> performs some satanic ritual while wiping his blood on himself.",
299 self => "Very impressive! You wipe your blood all over yourself.",
300 },
301 },
302 twiddle => {
303 noparams => {
304 other => "<self> patiently twiddles his thumbs.",
305 self => "You patiently twiddle your thumbs.",
306 },
307 params => {
308 },
309 self => {
310 },
311 },
312 spit => {
313 noparams => {
314 other => "<self> spits over his left shoulder.",
315 self => "You spit over your left shoulder.",
316 },
317 params => {
318 target => "<self> spits in your face!",
319 other => "<self> spits in <other>'s face.",
320 self => "You spit on <other>.",
321 },
322 self => {
323 other => "<self> drools all over himself.",
324 self => "You drool all over yourself.",
325 },
326 },
327 glare => {
328 noparams => {
329 other => "<self> glares around him.",
330 self => "You glare at nothing in particular.",
331 },
332 params => {
333 target => "<self> glares icily at you, you feel cold to your bones.",
334 other => "<self> glares at <other>.",
335 self => "You glare icily at <other>.",
336 },
337 self => {
338 other => "<self> glares at his feet, what is bothering him?",
339 self => "You glare icily at your feet, they are suddenly very cold.",
340 },
341 },
342 bow => {
343 noparams => {
344 other => "<self> bows deeply.",
345 self => "You bow deeply.",
346 },
347 params => {
348 target => "<self> bows before you.",
349 other => "<self> bows before <other>.",
350 self => "You bow before <other>.",
351 },
352 self => {
353 other => "<self> folds up like a jackknife and kisses his own toes.",
354 self => "You kiss your toes.",
355 },
356 },
357 dance => {
358 noparams => {
359 other => "<self> expresses himself through interpretive dance.",
360 self => "You dance with glee.",
361 },
362 params => {
363 target => "<self> grabs you, and begins dancing!",
364 other => "Yipe! <self> and <other> are doing the Macarena!",
365 self => "You grab <other> and begin doing the Cha-Cha!",
366 },
367 self => {
368 other => "<self> embraces himself and begins to dance!",
369 self => "You skip and dance around by yourself.",
370 },
371 },
372 snore => {
373 noparams => {
374 other => "<self> snores loudly.",
375 self => "Zzzzzzzzzzzzzzz.",
376 },
377 params => {
378 },
379 self => {
380 },
381 },
382 blush => {
383 noparams => {
384 other => "<self> blushes.",
385 self => "Your cheeks are burning.",
386 },
387 params => {
388 },
389 self => {
390 },
391 },
392 snap => {
393 noparams => {
394 other => "<self> snaps his fingers.",
395 self => "PRONTO! you snap your fingers.",
396 },
397 params => {
398 },
399 self => {
400 },
401 },
402 wave => {
403 noparams => {
404 other => "<self> waves happily.",
405 self => "You wave.",
406 },
407 params => {
408 target => "<self> waves goodbye to you. Have a good journey.",
409 other => "<self> waves goodbye to <other>.",
410 self => "You wave goodbye to <other>.",
411 },
412 self => {
413 other => "<self> waves goodbye to himself.",
414 self => "Are you going on adventures as well??",
415 },
416 },
417 smile => {
418 noparams => {
419 other => "<self> smiles happily.",
420 self => "You smile happily.",
421 },
422 params => {
423 target => "<self> smiles at you.",
424 other => "<self> beams a smile at <other>.",
425 self => "You smile at <other>.",
426 },
427 self => {
428 },
429 },
430 sneeze => {
431 noparams => {
432 other => "<self> sneezes.",
433 self => "Gesundheit!",
434 },
435 params => {
436 target => "<self> sneezes on you, you feel the snot cover you. EEEEEEW.",
437 other => "<self> sneezes on <other> and a film of snot covers him.",
438 self => "You sneeze at <other> and a film of snot shoots onto him.",
439 },
440 self => {
441 other => "<self> sneezes, and covers himself in a slimy substance.",
442 self => "You sneeze on yourself, what a mess!",
443 },
444 },
445 bounce => {
446 noparams => {
447 other => "<self> bounces around.",
448 self => "BOIINNNNNNGG!",
449 },
450 params => {
451 target => "<self> bounces around the room with you.",
452 other => "<self> bounces around the room with <other>.",
453 self => "You bounce around the room with <other>.",
454 },
455 self => {
456 },
457 },
458 shake => {
459 noparams => {
460 other => "<self> shakes his head.",
461 self => "You shake your head.",
462 },
463 params => {
464 target => "<self> shakes your hand.",
465 other => "<self> shakes <other>'s hand.",
466 self => "You shake <other>'s hand.",
467 },
468 self => {
469 other => "<self> shakes and quivers like a bowlful of jelly.",
470 self => "You are shaken by yourself.",
471 },
472 },
473 lick => {
474 noparams => {
475 other => "<self> licks his mouth and smiles.",
476 self => "You lick your mouth and smile.",
477 },
478 params => {
479 target => "<self> licks you.",
480 other => "<self> licks <other>.",
481 self => "You lick <other>.",
482 },
483 self => {
484 other => "<self> licks himself - YUCK.",
485 self => "You lick yourself.",
486 },
487 },
488 flip => {
489 noparams => {
490 other => "<self> flips head over heels.",
491 self => "You flip head over heels.",
492 },
493 params => {
494 },
495 self => {
496 },
497 },
498 think => {
499 noparams => {
500 other => "<self> closes his eyes and thinks really hard.",
501 self => "Anything in particular that you'd care to think about?",
502 },
503 params => {
504 },
505 self => {
506 },
507 },
508 yawn => {
509 noparams => {
510 other => "<self> yawns sleepily.",
511 self => "You open up your yap and let out a big breeze of stale air.",
512 },
513 params => {
514 },
515 self => {
516 },
517 },
518 laugh => {
519 noparams => {
520 other => "<self> falls down laughing.",
521 self => "You fall down laughing.",
522 },
523 params => {
524 target => "<self> looks at you and falls down on the ground laughing.",
525 other => "<self> looks at <other> and falls down on the ground laughing.",
526 self => "You take one look at <other> and fall down laughing.",
527 },
528 self => {
529 other => "<self> is laughing at something.",
530 self => "Laugh at yourself all you want, the others won't understand.",
531 },
532 },
533 burp => {
534 noparams => {
535 other => "<self> burps loudly.",
536 self => "You burp loudly.",
537 },
538 params => {
539 },
540 self => {
541 },
542 },
543 gasp => {
544 noparams => {
545 other => "<self> gasps in astonishment.",
546 self => "You gasp in astonishment.",
547 },
548 params => {
549 },
550 self => {
551 },
552 },
553 smirk => {
554 noparams => {
555 other => "<self> smirks.",
556 self => "You smirk.",
557 },
558 params => {
559 },
560 self => {
561 },
562 },
563 cry => {
564 noparams => {
565 other => "<self> bursts into tears.",
566 self => "Waaaaaaahhh..",
567 },
568 params => {
569 target => "<self> cries on your shoulder.",
570 other => "<self> cries on <other>'s shoulder.",
571 self => "You cry on <other>'s shoulder.",
572 },
573 self => {
574 other => "<self> sobs quietly to himself.",
575 self => "You cry to yourself.",
576 },
577 },
578 sulk => {
579 noparams => {
580 other => "<self> sulks in the corner.",
581 self => "You sulk.",
582 },
583 params => {
584 },
585 self => {
586 },
587 },
588 whistle => {
589 noparams => {
590 other => "<self> whistles appreciatively.",
591 self => "You whistle appreciatively.",
592 },
593 params => {
594 target => "<self> whistles at <other>.",
595 self => "You whistle at <other>.",
596 },
597 self => {
598 other => "<self> whistles to himself in boredom.",
599 self => "You whistle while you work.",
600 },
601 },
602 groan => {
603 noparams => {
604 other => "<self> groans loudly.",
605 self => "You groan loudly.",
606 },
607 params => {
608 },
609 self => {
610 },
611 },
612 cough => {
613 noparams => {
614 other => "<self> coughs loudly.",
615 self => "Yuck, try to cover your mouth next time!",
616 },
617 params => {
618 },
619 self => {
620 },
621 },
622 grin => {
623 noparams => {
624 other => "<self> grins evilly.",
625 self => "You grin evilly.",
626 },
627 params => {
628 target => "<self> grins evilly at you.",
629 other => "<self> grins evilly at <other>.",
630 self => "You grin at <other>.",
631 },
632 self => {
633 },
634 },
635};
636
637for my $emotion (keys %$emotes) {
638 cf::register_command $emotion => sub {
639 my ($ob, $tname) = @_;
640
641 cf::async {
642 my $name = $ob->name;
643
644 if ($tname eq $name) {
645 my $emote = $emotes->{$emotion}->{self};
646
647 $emote->{other} = "You look away from <self>."
648 if !$emote->{other};
649 $emote->{self} = "My god! Is that LEGAL?"
650 if !$emote->{self};
651
652 $emote->{other} =~ s/<self>/$name/;
653
654 for my $other ( grep { $ob->on_same_map_as ($_->ob) } cf::player::list ) {
655 next
656 if $other->ob == $ob;
657 $other->ob->message ($emote->{other}, cf::NDI_GREY | cf::NDI_UNIQUE);
658 }
659
660 $ob->message ($emote->{self}, cf::NDI_GREY | cf::NDI_UNIQUE);
661 } elsif ($tname) {
662 my $target = cf::player::find $tname
663 or return $ob->reply (undef, "$tname is not around.");
664
665 my $emote = $emotes->{$emotion}->{params};
666
667 $emote->{other} = "<self> is eyeing <other> quizzically."
668 if !$emote->{other};
669 $emote->{self} = "You are still nuts."
670 if !$emote->{self};
671 $emote->{target} = "You get the distinct feeling that <other> is nuts."
672 if !$emote->{target};
673
674 $emote->{self} =~ s/<other>/$tname/;
675 $emote->{target} =~ s/<self>/$name/;
676 $emote->{other} =~ s/<other>/$tname/;
677 $emote->{other} =~ s/<self>/$name/;
678
679 for my $other ( grep { $ob->on_same_map_as ($_->ob) } cf::player::list ) {
680 next
681 if $other->ob == $ob or $other == $target;
682 $other->ob->message ($emote->{other}, cf::NDI_GREY | cf::NDI_UNIQUE);
683 }
684
685 $target->ob->message ($emote->{target}, cf::NDI_GREY | cf::NDI_UNIQUE);
686 $ob->message ($emote->{self}, cf::NDI_GREY | cf::NDI_UNIQUE);
687 } else {
688 my $emote = $emotes->{$emotion}->{noparams};
689 $emote->{other} =~ s/<self>/$name/;
690
691 $emote->{other} = "<self> dances with glee."
692 if !$emote->{other};
693 $emote->{self} = "You are a nut."
694 if !$emote->{self};
695
696 for my $other ( grep { $ob->on_same_map_as ($_->ob) } cf::player::list ) {
697 next
698 if $other->ob == $ob;
699 $other->ob->message ($emote->{other}, cf::NDI_GREY | cf::NDI_UNIQUE);
700 }
701
702 $ob->message ($emote->{self}, cf::NDI_GREY | cf::NDI_UNIQUE);
703 }
704 };
705 };
706}
52 707
53cf::register_command say => sub { 708cf::register_command say => sub {
54 my ($who, $msg) = @_; 709 my ($who, $msg) = @_;
55 710
56 utf8::decode $msg; 711 utf8::decode $msg;
… …
106 } 761 }
107 762
108 } else { 763 } else {
109 $who->message ("What do you want to say?", cf::NDI_UNIQUE); 764 $who->message ("What do you want to say?", cf::NDI_UNIQUE);
110 } 765 }
766
767 1
111}; 768};
112 769
113cf::register_command chat => sub { 770cf::register_command chat => sub {
114 my ($who, $msg) = @_; 771 my ($who, $msg) = @_;
115 772
… …
129 for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list; 786 for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list;
130 787
131 } else { 788 } else {
132 $who->message ("Chat what?", cf::NDI_UNIQUE); 789 $who->message ("Chat what?", cf::NDI_UNIQUE);
133 } 790 }
791
792 1
134}; 793};
135 794
136cf::register_command shout => sub { 795cf::register_command shout => sub {
137 my ($who, $msg) = @_; 796 my ($who, $msg) = @_;
138 797
… …
153 812
154 } else { 813 } else {
155 $who->message ("Shout what?", cf::NDI_UNIQUE); 814 $who->message ("Shout what?", cf::NDI_UNIQUE);
156 } 815 }
157 816
817 1
158}; 818};
159 819
160cf::register_command tell => sub { 820cf::register_command tell => sub {
161 my ($who, $args) = @_; 821 my ($who, $args) = @_;
162 my ($target, $msg) = split /\s+/, $args, 2; 822 my ($target, $msg) = split /\s+/, $args, 2;
… …
169 829
170 if ($target =~ /irc\//) { 830 if ($target =~ /irc\//) {
171 my (undef, $nick) = split /\//, $target, 2; 831 my (undef, $nick) = split /\//, $target, 2;
172 $who->message ("You tell $target: $args"); 832 $who->message ("You tell $target: $args");
173 ext::schmorp_irc::do_notice (sprintf "(%s) %s: %s\n", $name, $nick, $msg); 833 ext::schmorp_irc::do_notice (sprintf "(%s) %s: %s\n", $name, $nick, $msg);
174 } elsif (my $other = cf::player::find $target) { 834 } elsif (my $other = cf::player::find_active $target) {
175 835
176 if ($msg) { 836 if ($msg) {
177 if ($target eq $name) { 837 if ($target eq $name) {
178 $who->message ("You are talking to yourself, you freak!", cf::NDI_UNIQUE); 838 $who->message ("You are talking to yourself, you freak!", cf::NDI_UNIQUE);
179 } elsif ($other->ob->{ext_ignore_tell}{$name} >= time) { 839 } elsif ($other->ob->{ext_ignore_tell}{$name} >= time) {
… …
191 } 851 }
192 852
193 } else { 853 } else {
194 $who->message ("No such player. Your message: $msg", cf::NDI_UNIQUE); 854 $who->message ("No such player. Your message: $msg", cf::NDI_UNIQUE);
195 } 855 }
856
857 1
196}; 858};
197 859
198cf::register_command reply => sub { 860cf::register_command reply => sub {
199 my ($who, $args) = @_; 861 my ($who, $args) = @_;
200 my $name = $who->name; 862 my $name = $who->name;
… …
205 867
206 if ($who->{ext_last_tell} =~ /irc\//) { 868 if ($who->{ext_last_tell} =~ /irc\//) {
207 my (undef, $nick) = split /\//, $who->{ext_last_tell}, 2; 869 my (undef, $nick) = split /\//, $who->{ext_last_tell}, 2;
208 $who->message ("You tell " . $who->{ext_last_tell} . ": $args"); 870 $who->message ("You tell " . $who->{ext_last_tell} . ": $args");
209 ext::schmorp_irc::do_notice (sprintf "(%s) %s: %s\n", $name, $nick, $args); 871 ext::schmorp_irc::do_notice (sprintf "(%s) %s: %s\n", $name, $nick, $args);
210 } elsif (my $other = cf::player::find $who->{ext_last_tell}) { 872 } elsif (my $other = cf::player::find_active $who->{ext_last_tell}) {
211 873
212 if ($args) { 874 if ($args) {
213 $other->ob->{ext_ignore_tell}{$name} >= time 875 $other->ob->{ext_ignore_tell}{$name} >= time
214 or delete $other->ob->{ext_ignore_tell}{$name}; 876 or delete $other->ob->{ext_ignore_tell}{$name};
215 877
… …
228 } 890 }
229 891
230 } else { 892 } else {
231 $who->message ("Can't reply, player left. Your message: $args".$who->{ext_last_tell}, cf::NDI_UNIQUE); 893 $who->message ("Can't reply, player left. Your message: $args".$who->{ext_last_tell}, cf::NDI_UNIQUE);
232 } 894 }
895
896 1
233}; 897};
234 898
235cf::register_command ignore => sub { 899cf::register_command ignore => sub {
236 my ($who, $args) = @_; 900 my ($who, $args) = @_;
237 my ($target, $type, $timeout) = split /\s+/, $args; 901 my ($target, $type, $timeout) = split /\s+/, $args;
… …
277 $who->message ("Usage: ignore <player> <tell|shout|all> <timeout>\n" 941 $who->message ("Usage: ignore <player> <tell|shout|all> <timeout>\n"
278 . "will ignore a player for <timeout> hours.\n" 942 . "will ignore a player for <timeout> hours.\n"
279 . "Usage: ignore list\n" 943 . "Usage: ignore list\n"
280 . "will show you a list of players currently ignored.", cf::NDI_UNIQUE); 944 . "will show you a list of players currently ignored.", cf::NDI_UNIQUE);
281 } 945 }
946
947 1
282}; 948};
283 949
284cf::register_command unignore => sub { 950cf::register_command unignore => sub {
285 my ($who, $args) = @_; 951 my ($who, $args) = @_;
286 my ($target, $type) = split /\s+/, $args; 952 my ($target, $type) = split /\s+/, $args;
… …
311 } 977 }
312 } else { 978 } else {
313 $who->message ("No such player or ambiguous name: $target", cf::NDI_UNIQUE); 979 $who->message ("No such player or ambiguous name: $target", cf::NDI_UNIQUE);
314 } 980 }
315 } 981 }
982
983 1
316}; 984};
317 985
318cf::register_command seen => sub { 986cf::register_command seen => sub {
319 my ($who, $args) = @_; 987 my ($who, $args) = @_;
320 988
321 if (my ($login) = $args =~ /(\S+)/) { 989 if (my ($login) = $args =~ /(\S+)/) {
322 if ($login eq $who->name) { 990 if ($login eq $who->name) {
323 $who->message ("Very funny, $login. Ha. Ha.", cf::NDI_UNIQUE); 991 $who->message ("Very funny, $login. Ha. Ha.", cf::NDI_UNIQUE);
324 } elsif (cf::player::find $login) { 992 } elsif (cf::player::find_active $login) {
325 $who->message ("$login is right here on this server!", cf::NDI_UNIQUE); 993 $who->message ("$login is right here on this server!", cf::NDI_UNIQUE);
326 } elsif (cf::player::exists $login 994 } elsif (cf::player::exists $login
327 and stat sprintf "%s/%s/%s/%s.pl", cf::localdir, cf::playerdir, ($login) x 2) { 995 and stat sprintf "%s/%s/%s/%s.pl", cf::localdir, cf::playerdir, ($login) x 2) {
328 my $time = (stat _)[9]; 996 my $time = (stat _)[9];
329 997
… …
334 $who->message ("No player named $login is known to me.", cf::NDI_UNIQUE); 1002 $who->message ("No player named $login is known to me.", cf::NDI_UNIQUE);
335 } 1003 }
336 } else { 1004 } else {
337 $who->message ("Usage: seen <player>", cf::NDI_UNIQUE); 1005 $who->message ("Usage: seen <player>", cf::NDI_UNIQUE);
338 } 1006 }
1007
1008 1
339}; 1009};
340 1010

Diff Legend

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