| … | |
… | |
| 57 | if $ev->{play}; |
57 | if $ev->{play}; |
| 58 | }); |
58 | }); |
| 59 | |
59 | |
| 60 | $self->connect_ext (capabilities => sub { |
60 | $self->connect_ext (capabilities => sub { |
| 61 | my (%cap) = @_; |
61 | my (%cap) = @_; |
|
|
62 | |
|
|
63 | #$self->send ("setup sound 0"); # we use a different protocol |
| 62 | |
64 | |
| 63 | $self->send_exti_msg (fx_want => { |
65 | $self->send_exti_msg (fx_want => { |
| 64 | 3 => !!$::CFG->{bgm_enable}, # FT_MUSIC |
66 | 3 => !!$::CFG->{bgm_enable}, # FT_MUSIC |
| 65 | 5 => !!$::CFG->{audio_enable}, # FT_SOUND |
67 | 5 => !!$::CFG->{audio_enable}, # FT_SOUND |
| 66 | }); |
68 | }); |
| … | |
… | |
| 814 | } |
816 | } |
| 815 | } |
817 | } |
| 816 | |
818 | |
| 817 | sub sound_play { |
819 | sub sound_play { |
| 818 | my ($self, $x, $y, $soundnum, $type) = @_; |
820 | my ($self, $x, $y, $soundnum, $type) = @_; |
|
|
821 | warn "sound play <@_>\n";#d# |
| 819 | |
822 | |
| 820 | $self->{sound_play}->($x, $y, $soundnum, $type); |
823 | #$self->{sound_play}->($x, $y, $soundnum, $type); |
| 821 | } |
824 | } |
| 822 | |
825 | |
| 823 | my $LAST_QUERY; # server is stupid, stupid, stupid |
826 | my $LAST_QUERY; # server is stupid, stupid, stupid |
| 824 | |
827 | |
| 825 | sub query { |
828 | sub query { |
