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