| … | |
… | |
| 785 | my ($self, $player) = @_; |
785 | my ($self, $player) = @_; |
| 786 | |
786 | |
| 787 | sound::play 3, "resign"; |
787 | sound::play 3, "resign"; |
| 788 | $self->{chat}->append_text ("\n<infoblock><header>Resign</header>" |
788 | $self->{chat}->append_text ("\n<infoblock><header>Resign</header>" |
| 789 | . "\n<user>" |
789 | . "\n<user>" |
| 790 | . (util::toxml $self->{user}[1 - $msg->{player}]->as_string) |
790 | . (util::toxml $self->{user}[$player]->as_string) |
| 791 | . "</user> resigned." |
791 | . "</user> resigned." |
| 792 | . "\n<user>" |
792 | . "\n<user>" |
| 793 | . (util::toxml $self->{user}[$msg->{player}]->as_string) |
793 | . (util::toxml $self->{user}[1 - $player]->as_string) |
| 794 | . "</user> wins the game." |
794 | . "</user> wins the game." |
| 795 | . "</infoblock>"); |
795 | . "</infoblock>"); |
| 796 | } |
796 | } |
| 797 | |
797 | |
| 798 | sub event_time_win { |
798 | sub event_time_win { |
