| … | |
… | |
| 810 | my ($self, $rules) = @_; |
810 | my ($self, $rules) = @_; |
| 811 | |
811 | |
| 812 | $self->{userpanel}[$_]->configure ($self->{user}[$_], $rules) |
812 | $self->{userpanel}[$_]->configure ($self->{user}[$_], $rules) |
| 813 | for BLACK, WHITE; |
813 | for BLACK, WHITE; |
| 814 | |
814 | |
|
|
815 | sound::play 3, "gamestart"; |
|
|
816 | |
| 815 | my $text = "\n<header>Game Rules</header>"; |
817 | my $text = "\n<header>Game Rules</header>"; |
| 816 | |
818 | |
| 817 | $text .= "\nRuleset: " . $ruleset{$rules->{ruleset}}; |
819 | $text .= "\nRuleset: " . $ruleset{$rules->{ruleset}}; |
| 818 | |
820 | |
| 819 | $text .= "\nTime: "; |
821 | $text .= "\nTime: "; |
| … | |
… | |
| 835 | } |
837 | } |
| 836 | |
838 | |
| 837 | sub inject_resign_game { |
839 | sub inject_resign_game { |
| 838 | my ($self, $msg) = @_; |
840 | my ($self, $msg) = @_; |
| 839 | |
841 | |
|
|
842 | sound::play 3, "resign"; |
|
|
843 | |
| 840 | $self->{text}->append_text ("\n<infoblock><header>Resign</header>" |
844 | $self->{text}->append_text ("\n<infoblock><header>Resign</header>" |
| 841 | . "\n<user>" |
845 | . "\n<user>" |
| 842 | . (util::toxml $self->{user}[$msg->{player}]->as_string) |
846 | . (util::toxml $self->{user}[$msg->{player}]->as_string) |
| 843 | . "</user> resigned.</infoblock>"); |
847 | . "</user> resigned.</infoblock>"); |
| 844 | } |
848 | } |
