| … | |
… | |
| 781 | } |
781 | } |
| 782 | |
782 | |
| 783 | sub event_owner_left { |
783 | sub event_owner_left { |
| 784 | my ($self) = @_; |
784 | my ($self) = @_; |
| 785 | |
785 | |
| 786 | sound::play 2, "info"; |
|
|
| 787 | $self->{chat}->append_text ("\n<infoblock><header>Owner left</header>" |
786 | $self->{chat}->append_text ("\n<infoblock><header>Owner left</header>" |
| 788 | . "\nThe owner of this game left.</infoblock>"); |
787 | . "\nThe owner of this game left.</infoblock>"); |
| 789 | } |
788 | } |
| 790 | |
789 | |
| 791 | sub event_teacher_left { |
790 | sub event_teacher_left { |
| 792 | my ($self) = @_; |
791 | my ($self) = @_; |
| 793 | |
792 | |
| 794 | sound::play 2, "info"; |
|
|
| 795 | $self->{chat}->append_text ("\n<infoblock><header>Teacher left</header>" |
793 | $self->{chat}->append_text ("\n<infoblock><header>Teacher left</header>" |
| 796 | . "\nThe teacher left the game.</infoblock>"); |
794 | . "\nThe teacher left the game.</infoblock>"); |
| 797 | } |
795 | } |
| 798 | |
796 | |
| 799 | sub event_done { |
797 | sub event_done { |
