… | |
… | |
800 | or return; |
800 | or return; |
801 | |
801 | |
802 | my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]} |
802 | my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]} |
803 | or return; |
803 | or return; |
804 | |
804 | |
805 | $SDL_MIXER->play_channel (-1, $chunk, 0, -1); |
805 | $SDL_MIXER->play_channel (-1, $chunk); |
806 | warn "sound $x,$y,$soundnum,$type\n";#d# |
806 | # warn "sound $x,$y,$soundnum,$type\n";#d# |
807 | } |
807 | } |
808 | |
808 | |
809 | sub conn::query { |
809 | sub conn::query { |
810 | my ($self, $flags, $prompt) = @_; |
810 | my ($self, $flags, $prompt) = @_; |
811 | |
811 | |
812 | #TODO |
812 | #TODO, display dialog with relevant information |
813 | warn "<<<<QUERY:$flags:$prompt>>>\n";#d# |
813 | warn "<<<<QUERY:$flags:$prompt>>>\n";#d# |
814 | } |
814 | } |
815 | |
815 | |
816 | sub conn::drawinfo { |
816 | sub conn::drawinfo { |
817 | my ($self, $color, $text) = @_; |
817 | my ($self, $color, $text) = @_; |
… | |
… | |
831 | [0.99, 0.77, 0.26], |
831 | [0.99, 0.77, 0.26], |
832 | [0.74, 0.65, 0.41], |
832 | [0.74, 0.65, 0.41], |
833 | ); |
833 | ); |
834 | |
834 | |
835 | $LOGVIEW->add_paragraph ($color[$color], $text); |
835 | $LOGVIEW->add_paragraph ($color[$color], $text); |
|
|
836 | } |
|
|
837 | |
|
|
838 | sub conn::addspell { |
|
|
839 | my ($self, $spell) = @_; |
|
|
840 | |
|
|
841 | # $MAPWIDGET->add_abbrev ("invoke spell $spell->{name}", |
836 | } |
842 | } |
837 | |
843 | |
838 | %SDL_CB = ( |
844 | %SDL_CB = ( |
839 | SDL_QUIT() => sub { |
845 | SDL_QUIT() => sub { |
840 | Event::unloop -1; |
846 | Event::unloop -1; |