… | |
… | |
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->{player}]->as_string) |
809 | . (util::toxml $self->{user}[$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}[1 - $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>"); |
815 | } |
815 | } |
816 | |
816 | |
817 | sub event_owner_left { |
817 | sub event_owner_left { |