60c60 < $BUBBLE_SIZE = 32; --- > $BUBBLE_SIZE = 21; 62c62 < $BUBBLE_SPEED = 10; # speed of movement of launched bubbles --- > $BUBBLE_SPEED = 6; # speed of movement of launched bubbles 77,85c77,85 < %POS_1P = ( p1 => { left_limit => 190, right_limit => 446, pinguin => { x => 168, 'y' => 437 }, scores_x => 180 }, < init_top_limit => 44, < 'initial_bubble_y' => 390, < next_bubble => { x => 112, 'y' => 440 }, < 'malus_y' => 408, < hurry => { x => 10, 'y' => 265 }, < centerpanel => { x => 153, 'y' => 190 }, < 'scores_y' => 432, < compressor_xpos => 321, --- > %POS_1P = ( p1 => { left_limit => 44, right_limit => 215, pinguin => { x => 112, 'y' => 291 }, scores_x => 39 }, > init_top_limit => 29, > 'initial_bubble_y' => 260, > next_bubble => { x => 74, 'y' => 293 }, > 'malus_y' => 272, > hurry => { x => 6, 'y' => 176 }, > centerpanel => { x => 9, 'y' => 126 }, > 'scores_y' => 286, > compressor_xpos => 129, 600,601c600,601 < ($POS{$::p}{left_limit}+$POS{$::p}{right_limit})/2 - 50 + $canon{data}{$num}->[0], < $POS{'initial_bubble_y'} + 16 - 50 + $canon{data}{$num}->[1] ); #- 50/50 stand for half width/height of gfx/shoot/base.png --- > ($POS{$::p}{left_limit}+$POS{$::p}{right_limit})/2 - 33 + $canon{data}{$num}->[0]*2/3, > $POS{'initial_bubble_y'} + 10 - 33 + $canon{data}{$num}->[1]*2/3 ); #- 50/50 stand for half width/height of gfx/shoot/base.png 604,605c604,605 < ($POS{$::p}{left_limit}+$POS{$::p}{right_limit})/2 - 1 + 60*cos($angle{$::p}), #- 1 for $shooter->width/2 < $POS{'initial_bubble_y'} + 16 - 1 - 60*sin($angle{$::p})); #- 1/1 stand for half width/height of gfx/shoot/shooter.png --- > ($POS{$::p}{left_limit}+$POS{$::p}{right_limit})/2 - 1 + 40*cos($angle{$::p}), #- 1 for $shooter->width/2 > $POS{'initial_bubble_y'} + 10 - 1 - 40*sin($angle{$::p})); #- 1/1 stand for half width/height of gfx/shoot/shooter.png 749c749 < my $drect = new SDL::Rect(-width => 120, -height => 30, -x => 260, '-y' => 428); --- > my $drect = new SDL::Rect(-width => 80, -height => 20, -x => 173, '-y' => 285); 1019c1019 < push @$falling_end, $b if $b->{'y'} > 470; --- > push @$falling_end, $b if $b->{'y'} > 313; 1028c1028 < push @$exploding_end, $b if $b->{'y'} > 470; --- > push @$exploding_end, $b if $b->{'y'} > 313; 1051c1051 < $app = new SDL::App(-flags => $sdl_flags | ($fullscreen ? SDL_FULLSCREEN : 0), -title => 'Frozen-Bubble', -width => 640, -height => 480); --- > $app = new SDL::App(-flags => $sdl_flags | ($fullscreen ? SDL_FULLSCREEN : 0), -title => 'Frozen-Bubble', -width => 240, -height => 320); 1058c1058 < put_image($imgbin{loading_step}, 100 + $step*12, 10); --- > put_image($imgbin{loading_step}, 66 + $step*8, 6); 1076,1077c1076,1078 < put_image($imgbin{loading}, 10, 10); < $app->print(30, 60, uc("tip! use '-h' on command-line to get more options")); --- > put_image($imgbin{loading}, 6, 6); > $app->print(6, 40, uc("tip! use '-h' on command-line")); > $app->print(6, 60, uc("to get more options")); 1227c1228 < my ($high_posx, $high_posy) = (85, 80); --- > my ($high_posx, $high_posy) = (35, 50); 1233,1234c1234,1235 < $app->print($x+($imgbin{hiscore_frame}->width-SDL_TEXTWIDTH(uc($txt)))/2 - 6, < $y+$imgbin{hiscore_frame}->height - 8, uc($txt)); --- > $app->print($x+($imgbin{hiscore_frame}->width-SDL_TEXTWIDTH(uc($txt)))/2 - 4, > $y+$imgbin{hiscore_frame}->height - 4, uc($txt)); 1246c1247 < put_image($imgbin{hiscore_frame}, $high_posx - 7, $high_posy - 6); --- > put_image($imgbin{hiscore_frame}, $high_posx - 4, $high_posy - 4); 1249c1250 < $centered_print->($high_posx, $high_posy+20, $high->{level} eq 'WON' ? "WON!" : "LVL-".$high->{level}); --- > $centered_print->($high_posx, $high_posy+13, $high->{level} eq 'WON' ? "WON!" : "LVL-".$high->{level}); 1252,1255c1253,1256 < $centered_print->($high_posx, $high_posy+40, "$min'$sec''"); < $high_posx += 100; < $high_posx > 550 and $high_posx = 85, $high_posy += 190; < $high_posy > 440 and last; --- > $centered_print->($high_posx, $high_posy+26, "$min'$sec''"); > $high_posx += 66; > $high_posx > 200 and $high_posx = 35, $high_posy += 120; > $high_posy > 260 and last; 1273,1274c1274,1275 < my $xpos_panel = (640-$imgbin{void_panel}->width)/2; < my $ypos_panel = (480-$imgbin{void_panel}->height)/2; --- > my $xpos_panel = (240-$imgbin{void_panel}->width)/2; > my $ypos_panel = (320-$imgbin{void_panel}->height)/2; 1278c1279 < my $ypos = $ypos_panel + 5; --- > my $ypos = $ypos_panel + 3; 1282c1283 < my $xpos = (640-SDL_TEXTWIDTH($i))/2; --- > my $xpos = (240-SDL_TEXTWIDTH($i))/2; 1285c1286 < $ypos += 22; --- > $ypos += 14; 1288c1289 < $ypos += 3; --- > $ypos += 2; 1293c1294 < $xpos = (640-$imgbin{void_panel}->width)/2 + 120 - SDL_TEXTWIDTH($entry->{'q'})/2; --- > $xpos = (240-$imgbin{void_panel}->width)/2 + 80 - SDL_TEXTWIDTH($entry->{'q'})/2; 1296,1299c1297,1300 < my $srect_mulchar_redraw = new SDL::Rect(-width => $imgbin{void_panel}->width, -height => 30, < -x => $xpos + 140 - $xpos_panel, '-y' => $ypos - $ypos_panel); < my $drect_mulchar_redraw = new SDL::Rect(-width => $imgbin{void_panel}->width, -height => 30, < -x => $xpos + 140, '-y' => $ypos); --- > my $srect_mulchar_redraw = new SDL::Rect(-width => $imgbin{void_panel}->width, -height => 20, > -x => $xpos + 93 - $xpos_panel, '-y' => $ypos - $ypos_panel); > my $drect_mulchar_redraw = new SDL::Rect(-width => $imgbin{void_panel}->width, -height => 20, > -x => $xpos + 93, '-y' => $ypos); 1306c1307 < my $x_echo = (640-$imgbin{void_panel}->width)/2 + 230; --- > my $x_echo = (240-$imgbin{void_panel}->width)/2 + 153; 1322c1323 < $ypos += 22; --- > $ypos += 14; 1327,1328c1328,1329 < $xpos = (640-SDL_TEXTWIDTH($w->{outro}))/2; < $ypos = (480+$imgbin{void_panel}->height)/2 - 33; --- > $xpos = (240-SDL_TEXTWIDTH($w->{outro}))/2; > $ypos = (320+$imgbin{void_panel}->height)/2 - 22; 1625c1626 < $b->{kill} = $b->{'y'} > 470; --- > $b->{kill} = $b->{'y'} > 313; 1740,1747c1741,1748 < my ($MENU_FIRSTY, $SPACING, $CATEGORIES_SPACING) = (50, 52, 15); < my %menupos = ( '1pgame' => { 'x' => 58, 'y' => $MENU_FIRSTY }, < '2pgame' => { 'x' => 58, 'y' => $MENU_FIRSTY + $SPACING }, < 'fullscreen' => { 'x' => 58, 'y' => $MENU_FIRSTY + 2 * $SPACING + $CATEGORIES_SPACING }, < 'graphics' => { 'x' => 58, 'y' => $MENU_FIRSTY + 3 * $SPACING + $CATEGORIES_SPACING }, < 'sound' => { 'x' => 58, 'y' => $MENU_FIRSTY + 4 * $SPACING + $CATEGORIES_SPACING }, < 'keys' => { 'x' => 58, 'y' => $MENU_FIRSTY + 5 * $SPACING + $CATEGORIES_SPACING }, < 'highscores' => { 'x' => 58, 'y' => $MENU_FIRSTY + 6 * $SPACING + $CATEGORIES_SPACING }, --- > my ($MENU_FIRSTY, $SPACING, $CATEGORIES_SPACING) = (33, 34, 10); > my %menupos = ( '1pgame' => { 'x' => 38, 'y' => $MENU_FIRSTY }, > '2pgame' => { 'x' => 38, 'y' => $MENU_FIRSTY + $SPACING }, > 'fullscreen' => { 'x' => 38, 'y' => $MENU_FIRSTY + 2 * $SPACING + $CATEGORIES_SPACING }, > 'graphics' => { 'x' => 38, 'y' => $MENU_FIRSTY + 3 * $SPACING + $CATEGORIES_SPACING }, > 'sound' => { 'x' => 38, 'y' => $MENU_FIRSTY + 4 * $SPACING + $CATEGORIES_SPACING }, > 'keys' => { 'x' => 38, 'y' => $MENU_FIRSTY + 5 * $SPACING + $CATEGORIES_SPACING }, > 'highscores' => { 'x' => 38, 'y' => $MENU_FIRSTY + 6 * $SPACING + $CATEGORIES_SPACING }, 1782c1783 < my ($BANNER_START, $BANNER_SPACING) = (720, 80); --- > my ($BANNER_START, $BANNER_SPACING) = (480, 53); 1786,1788c1787,1789 < my ($BANNER_MINX, $BANNER_MAXX, $BANNER_Y) = (39, 296, 445); < my $banners_max = $banners{cpucontrol} - (640 - ($BANNER_MAXX - $BANNER_MINX)) + $BANNER_SPACING; < my $banner_rect = new SDL::Rect(-width => $BANNER_MAXX-$BANNER_MINX, -height => 30, '-x' => $BANNER_MINX, '-y' => $BANNER_Y); --- > my ($BANNER_MINX, $BANNER_MAXX, $BANNER_Y) = (26, 197, 296); > my $banners_max = $banners{cpucontrol} - (240 - ($BANNER_MAXX - $BANNER_MINX)) + $BANNER_SPACING; > my $banner_rect = new SDL::Rect(-width => $BANNER_MAXX-$BANNER_MINX, -height => 20, '-x' => $BANNER_MINX, '-y' => $BANNER_Y); 1844c1845 < $banner_pos ||= 670; --- > $banner_pos ||= 446;