| … | |
… | |
| 804 | my ($self, $player) = @_; |
804 | my ($self, $player) = @_; |
| 805 | |
805 | |
| 806 | sound::play 3, "timewin"; |
806 | sound::play 3, "timewin"; |
| 807 | $self->{chat}->append_text ("\n<infoblock><header>Out of Time</header>" |
807 | $self->{chat}->append_text ("\n<infoblock><header>Out of Time</header>" |
| 808 | . "\n<user>" |
808 | . "\n<user>" |
| 809 | . (util::toxml $self->{user}[$msg->{1 - player}]->as_string) |
809 | . (util::toxml $self->{user}[1 - $msg->{1 - player}]->as_string) |
| 810 | . "</user> ran out of time and lost." |
810 | . "</user> ran out of time and lost." |
| 811 | . "\n<user>" |
811 | . "\n<user>" |
| 812 | . (util::toxml $self->{user}[$msg->{player}]->as_string) |
812 | . (util::toxml $self->{user}[$msg->{player}]->as_string) |
| 813 | . "</user> wins the game." |
813 | . "</user> wins the game." |
| 814 | . "</infoblock>"); |
814 | . "</infoblock>"); |
