1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
--- /usr/games/frozen-bubble 2003-06-13 09:46:09.000000000 -0300
+++ frozen-bubble 2004-05-31 00:46:31.000000000 -0300
@@ -308,7 +308,11 @@
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";
+ if (UNIVERSAL::isa($img, "HASH")) {
+ $img->{-surface} or die "FATAL: Couldn't load `$file' into a SDL::Surface.\n";
+ } else {
+ $img or die "FATAL: Couldn't load `$file' into a SDL::Surface.\n";
+ }
add_default_rect($img);
return $img;
}
@@ -1476,7 +1480,11 @@
}
put_image($imgbin{hiscore_frame}, $high_posx - 7, $high_posy - 6);
- fb_c_stuff::shrink($app->{-surface}, $background->display_format->{-surface}, $high_posx, $high_posy, $high_rect->{-rect}, 4);
+ if (UNIVERSAL::isa($app, "HASH")) {
+ fb_c_stuff::shrink($app->{-surface}, $background->display_format->{-surface}, $high_posx, $high_posy, $high_rect->{-rect}, 4);
+ } else {
+ fb_c_stuff::shrink($$app, ${$background->display_format}, $high_posx, $high_posy, $$high_rect, 4);
+ }
$centered_print->($high_posx, $high_posy, $high->{name});
$centered_print->($high_posx, $high_posy+20, $high->{level} eq 'WON' ? "WON!" : "LVL-".$high->{level});
my $min = int($high->{time}/60);
@@ -1644,8 +1652,10 @@
if ($graphics_level == 1) {
$background->blit($apprects{main}, $app, $apprects{main});
$app->flip;
- } else {
+ } elsif (UNIVERSAL::isa($app, "HASH")) {
fb_c_stuff::effect($app->{-surface}, $background->display_format->{-surface});
+ } else {
+ fb_c_stuff::effect($$app, ${$background->display_format});
}
$display_on_app_disabled = 0;
|
GitWeb
