| … | |
… | |
| 383 | $important{$self->{black}{name}}++; |
383 | $important{$self->{black}{name}}++; |
| 384 | $important{$self->{white}{name}}++; |
384 | $important{$self->{white}{name}}++; |
| 385 | $important{$self->{owner}{name}}++; |
385 | $important{$self->{owner}{name}}++; |
| 386 | |
386 | |
| 387 | if (my @users = grep $important{$_->{name}}, @$add) { |
387 | if (my @users = grep $important{$_->{name}}, @$add) { |
| 388 | $self->{chat}->append_text ("\n<leader>Joins: </leader>"); |
388 | $self->{chat}->append_text ("\n<leader>Joins:</leader>"); |
| 389 | $self->{chat}->append_text ("<user>" . $_->as_string . "</user>") for @users; |
389 | $self->{chat}->append_text (" <user>" . $_->as_string . "</user>") for @users; |
| 390 | } |
390 | } |
| 391 | if (my @users = grep $important{$_->{name}}, @$remove) { |
391 | if (my @users = grep $important{$_->{name}}, @$remove) { |
| 392 | $self->{chat}->append_text ("\n<leader>Parts:</leader>"); |
392 | $self->{chat}->append_text ("\n<leader>Parts:</leader>"); |
| 393 | $self->{chat}->append_text ("<user>" . $_->as_string . "</user>") for @users; |
393 | $self->{chat}->append_text (" <user>" . $_->as_string . "</user>") for @users; |
| 394 | } |
394 | } |
| 395 | } |
395 | } |
| 396 | |
396 | |
| 397 | ### GAME INFO ############################################################### |
397 | ### GAME INFO ############################################################### |
| 398 | |
398 | |
