In ferie uno non si può occupare di cose serie, bisogna rilassarsi e così oggi mi sono messo a leggere senza impegnarmi troppo (perchè d'impegno ce ne vorrebbe) il codice di Frozen Bubble un arcade game presente oramai in quasi ogni distribuzione Linux.

Ora siccome so della presenza nella nostra comunità di non pochi patiti di "Video Game" e siccome Frozen Bubble è una delle applicazione che meglio dimostra come Perl può essere utilizzato veramente in molteplici campi ho pensato: lanciamo un piccolo sassolino nello stagno e rimaniamo a guardare.

Ecco il mio sassolino:
67c67
< $BUBBLE_SPEED = 20; # speed of movement of launched bubbles
---
> $BUBBLE_SPEED = 10; # speed of movement of launched bubbles
478c478
< $_->{speedx} = rand(3)-11.5;
---
> $_->{speedx} = rand(3)-1.5;
507c507
< if (@will_destroy < 0) {
---
> if (@will_destroy <= 1) {

Buone vacanze!

LucaS

Inviato da [Lucas] il 26.08.07 16:45
Ti è piaciuto questo articolo? Iscriviti al feed!