| … | |
… | |
| 158 | $self->{anim}[$num] = \@faces; |
158 | $self->{anim}[$num] = \@faces; |
| 159 | |
159 | |
| 160 | $self->anim_update ($num); |
160 | $self->anim_update ($num); |
| 161 | } |
161 | } |
| 162 | |
162 | |
| 163 | =item $conn->play_sound ($x, $y, $soundnum, $type) |
163 | =item $conn->sound_play ($x, $y, $soundnum, $type) |
| 164 | |
164 | |
| 165 | =cut |
165 | =cut |
| 166 | |
166 | |
| 167 | sub sound_play { } |
167 | sub sound_play { } |
| 168 | |
168 | |
| 169 | sub feed_sound { |
169 | sub feed_sound { |
| 170 | my ($self, $data) = @_; |
170 | my ($self, $data) = @_; |
| 171 | |
171 | |
| 172 | $self->sound_play (unpack "CCnC", $data); |
172 | $self->sound_play (unpack "ccnC", $data); |
| 173 | } |
173 | } |
| 174 | |
174 | |
| 175 | =item $conn->query ($flags, $prompt) |
175 | =item $conn->query ($flags, $prompt) |
| 176 | |
176 | |
| 177 | =cut |
177 | =cut |
