[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/bin/pclient

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.197 by root, Fri May 5 19:05:47 2006 UTC vs.
Revision 1.198 by root, Fri May 5 19:10:16 2006 UTC

 }
 my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
 my $bgmusic;#TODO#hack#d#
+sub audio_channel_finished {
+   my ($channel) = @_;
+   warn "channel $channel finished\n";#d#
+}
 sub audio_music_finished {
    return unless $CFG->{bgm_enable};
    # TODO: hack, do play loop and mood music
    $bgmusic = new_from_file CFClient::MixMusic CFClient::find_rcfile "music/$bgmusic[0]";
          video_init;
       } else {
          CFClient::UI::feed_sdl_key_down_event ($_[0]);
       }
    },
-   CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,
+   CFClient::SDL_KEYUP           => \&CFClient::UI::feed_sdl_key_up_event,
-   CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,
+   CFClient::SDL_MOUSEMOTION     => \&CFClient::UI::feed_sdl_motion_event,
    CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,
-   CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,
+   CFClient::SDL_MOUSEBUTTONUP   => \&CFClient::UI::feed_sdl_button_up_event,
-   CFClient::SDL_USEREVENT => \&audio_music_finished,
+   CFClient::SDL_USEREVENT       => sub {
+      if ($_[0]{code} == 1) {
+         audio_channel_finished $_[0]{data1};
+      } elsif ($_[0]{code} == 0) {
+         audio_music_finished;
+      }
+   },
 );
 #############################################################################
 $SIG{INT} = $SIG{TERM} = sub { exit };

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines