Hallo,
ab an zu spiele ich mal Frozen-Bubble in der Version 0.9.3 von der Knoppix 3.1 CD.
Die neueren Versionen sagen mir nicht zu, wegen 100 Level dauert das über eine Stunde und die Abschussrichtung ist zu grob zu erkennen.
Da ich Knoppix 5.1 installiert habe, wollte ich das Perl-Script überschreiben und dachte, dann die alte Version zu haben. Leider nicht.
Wenn ich perl frozen-bubble in der Konsole eingebe, kommt der Fehler, der schon in
http://www.linuxforen.de/forums/archive/index.php/t-…
beschrieben ist.
Damals gabs keine Lösung, heute vielleicht ?
Hier der Anfang des Codes ab Zeile 39
use vars qw($TARGET\_ANIM\_SPEED $BUBBLE\_SIZE $ROW\_SIZE $LAUNCHER\_SPEED $BUBBLE\_SPEED $MALUS\_BUBBLE\_SPEED $TIME\_APPEARS\_NEW\_ROOT %POS %POS\_1P %POS\_2P $KEYS %actions %angle %pdata $app $font %apprects $event %rects %sticked\_bubbles %root\_bubbles $background $background\_orig @bubbles\_images $gcwashere %bubbles\_anim %launched\_bubble %tobe\_launched %next\_bubble $shooter $sdl\_flags $mixer $mixer\_enabled $music\_disabled $sfx\_disabled @playlist %sound %music %pinguin %canon $graphics\_level @update\_rects $CANON\_ROTATIONS\_NB %malus\_bubble %falling\_bubble %exploding\_bubble %malus\_gfx %sticking\_bubble $version $time %imgbin $TIME\_HURRY\_WARN $TIME\_HURRY\_MAX $TIMEOUT\_PINGUIN\_SLEEP $FREE\_FALL\_CONSTANT $direct @PLAYERS %levels $display\_on\_app\_disabled $total\_time $time\_1pgame $fullscreen $rcfile $hiscorefile $HISCORES $PI $FPATH $lev\_number $colourblind);
use Data::smiley:umper;
use fbmdkcommon; #- should be MDK::Common;
use SDL::App;
use SDL::Surface;
use SDL::Event;
use SDL::Cursor;
use SDL::Font;
use SDL::Mixer;
use fb\_c\_stuff;
use fbsyms;
$FPATH = '/usr/share/games/frozen-bubble/';
$| = 1;
$TARGET\_ANIM\_SPEED = 20; # number of milliseconds that should last between two animation frames
$BUBBLE\_SIZE = 32;
$LAUNCHER\_SPEED = 0.03; # speed of rotation of launchers
$BUBBLE\_SPEED = 10; # speed of movement of launched bubbles
$MALUS\_BUBBLE\_SPEED = 30; # speed of movement of "malus" launched bubbles
$CANON\_ROTATIONS\_NB = 40; # number of rotations of images for canon (should be consistent with gfx/shoot/Makefile)
%POS\_2P = ( p1 =\> { left\_limit =\> 30, right\_limit =\> 286, pinguin =\> { x =\> 168, 'y' =\> 437 }, malus\_x =\> 305, scores\_x =\> 293 },
p2 =\> { left\_limit =\> 354, right\_limit =\> 610, pinguin =\> { x =\> 32, 'y' =\> 437 }, malus\_x =\> 328, scores\_x =\> 341 },
top\_limit =\> 40,