View | Details | Raw Unified
Collapse All | Expand All

(-) /usr/games/frozen-bubble-client (-3 / +13 lines)
 Lines 316-322    Link Here  
sub add_image($) {
sub add_image($) {
    my $file = "$FPATH/gfx/$_[0]";
    my $file = "$FPATH/gfx/$_[0]";
    my $img = SDL::Surface->new(-name => $file);
    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);
    add_default_rect($img);

        
    return $img;
    return $img;

        
}
}

  

    

    

       Lines 1492-1498
       
    
  Link Here 
    

  

        
	}
	}

        

        
	put_image($imgbin{hiscore_frame}, $high_posx - 7, $high_posy - 6);
	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,    $high->{name});

        
	$centered_print->($high_posx, $high_posy+20, $high->{level} eq 'WON' ? "WON!" : "LVL-".$high->{level});
	$centered_print->($high_posx, $high_posy+20, $high->{level} eq 'WON' ? "WON!" : "LVL-".$high->{level});

        
	my $min = int($high->{time}/60);
	my $min = int($high->{time}/60);

  

    

    

       Lines 1660-1667
       
    
  Link Here 
    

  

        
    if ($graphics_level == 1) {
    if ($graphics_level == 1) {

        
	$background->blit($apprects{main}, $app, $apprects{main});
	$background->blit($apprects{main}, $app, $apprects{main});

        
	$app->flip;
	$app->flip;

            

              
    } else {

              
    } elsif (UNIVERSAL::isa($app, "HASH")) {

            

        
	fb_c_stuff::effect($app->{-surface}, $background->display_format->{-surface});
	fb_c_stuff::effect($app->{-surface}, $background->display_format->{-surface});

            

              
              
    } else {

            

            

              
              
	fb_c_stuff::effect($$app, ${$background->display_format});

            

        
    }
    }

        

        
    $display_on_app_disabled = 0;
    $display_on_app_disabled = 0;