frozen-bubble

[Radoslaw Zielinski]

Lukasz Glebicki <lukaszgl w post.pl> [17-12-2004 17:31]:
> On Friday 17 of December 2004 17:16, kosciej wrote:
>> Ostatni upgrejdnalem system i frozen-bubble mi juz wiecej nie startuje
>> - pisze cos o SDLu...Czy komus rowniez ten blad sie pojawia??
> Tak, mi. 
[...]
> write(2, "Not a HASH reference at /usr/bin"..., 57Not a HASH reference 
[...]
> Tyle pokazał strace odnośnie błędu o którym mówisz. 
[...]

To samo pokazał frozen-bubble bez strace. :-p

Wygląda na to, że interfejs perl-SDL się zmienił.  Częściowy patch
w załączniku.

-- 
Radosław Zieliński <radek w karnet.pl>
[ GPG key: http://radek.karnet.pl/ ]
-------------- następna część ---------
--- /usr/bin/frozen-bubble	2004-07-15 00:14:17.000000000 +0200
+++ frozen-bubble	2004-12-17 17:47:27.911812720 +0100
@@ -191,9 +191,10 @@
 	while ($tryanother->() == 0) {};
     } else {
 	$mus = SDL::Music->new("$FPATH$musics{$name}");
-	$mus->{-data} or print STDERR "Warning, could not create new music from `$FPATH$musics{$name}' (reason: ", $app->error, ").\n";
+#	$mus->{-data} or print STDERR "Warning, could not create new music from `$FPATH$musics{$name}' (reason: ", $app->error, ").\n";
 	if ($pos) {
-	    fb_c_stuff::fade_in_music_position($mus->{-data}, -1, 500, $pos);
+#	    fb_c_stuff::fade_in_music_position($mus->{-data}, -1, 500, $pos);
+		$mixer->fade_in_music($mus, 500, $pos);
 	} else {
 	    $mixer->play_music($mus, -1);
 	}
@@ -212,7 +213,7 @@
     foreach (@sounds) {
 	my $sound_path = "$FPATH/snd/$_.wav";
 	$sound{$_} = SDL::Sound->new($sound_path);
-	if ($sound{$_}{-data}) {
+	if (1 || $sound{$_}{-data}) {
 	    $sound{$_}->volume(80);
 	} else {
 	    print STDERR "Warning, could not create new sound from `$sound_path'.\n";
@@ -307,7 +308,7 @@
 sub add_image($) {
     my $file = "$FPATH/gfx/$_[0]";
     my $img = SDL::Surface->new(-name => $file);
-    $img->{-surface} or die "FATAL: Couldn't load `$file' into a SDL::Surface.\n";
+#   $img->{-surface} or die "FATAL: Couldn't load `$file' into a SDL::Surface.\n";
     add_default_rect($img);
     return $img;
 }
-------------- następna część ---------
Załącznik, który nie był tekstem został usunięty...
Name: nie znany
Type: application/pgp-signature
Size: 189 bytes
Desc: nie znany
Url : /mailman/pipermail/pld-users-pl/attachments/20041217/d3b3fef9/attachment-0001.bin