view release on metacpan or  search on metacpan

spaceinvaders/spaceInvaders.pl  view on Meta::CPAN

          $t::y+=$alienmove*4 if ($downrow);
          $_->{sprite}->place($t::x,$t::y);
          $a=$_->{sprite}->collide;
          if ($a=~/right|left/) {
              $collisions=1; last;
          }
          if ($a=~/missle/) {
              $_->{dead}=$deathdelay;
              $score+=10;
          }
          if (rand(1000)<5) {
              my $gun=new Sprite($c);
              $gun->image($img{"bomb.gif"});
              $gun->names("bomb","weapon");
              $gun->place($t::x, $t::y);
              push(@missles, { direction => 1, sprite => $gun, });
          }
      }
      $downrow=0;
      if ($collisions) {
          for(@badguys) {
              next if $_->{dead};
              next unless $_->{oldloc};
              $_->{sprite}->place(@{$_->{oldloc}});
          }
          $downrow=$direction*=-1;
      }
  }
  mkbadguys();
  $c->after(100, \&maint);
  $mw->MainLoop;

__DATA__
begin ship1.gif
R0lGODlhFAAUAPcAAAAAADH/796l9/echPf/GP8pEP//////////////////////////////////
N12N
/////////////////////////////////////////////////////ywAAAAAFAAUAAAIcwABCBw4
0ADBgwgLCjCYsKEBARAZNjz4MOJEihAzSpxYcaHGiwAqGggg8qIBkSQjbsQYMaXFhB0Xnsy4EGFM
mjhXdjz5kOdHhRYLEBBAoEDIn0drAhggtMAAgSWTbmT6FKjBngirEsR6EuTWlV7Dih0rMCAAOw==
begin alien.gif
R0lGODlhFAAUAPcAAAAAAADWEBiECKX37/9KGP//EP//////////////////////////////////
N12N
/////////////////////////////////////////////////////ywAAAAAFAAUAAAIfAABCAQw
YMDAgwQNIiwoUOFBhQwHOiT4sCJCAQUzahwgAGFDAAIEEChAsgCBkBQfkiTAsqTJlgUmDnBJk6ZM
lwEKBMiZs+TEhCV79oz5U+JMm0U9bkzqMaHGpkoNMowINWNDiFQXPpTZNKvXoj+zpjS6MCxWs2I3
lr1aNiAAOw==
begin bomb.gif
R0lGODlhCgAKAPcAAAAAAP//////////////////////////////////////////////////////
N12N
/////////////////////////////////////////////////////ywAAAAACgAKAAAIJAABAAgg
cGDBgwQPCkxoEKFBhg4VNpxYkCDEhgkvWpTIkGFAAAA7
begin missle.gif
R0lGODlhCgAKAPcAAAAAAKXn9/8pEP//GP//////////////////////////////////////////
N12N
/////////////////////////////////////////////////////ywAAAAACgAKAAAIMAABCAQQ
IMDAgwYJHhSYMCFChgsLMnRosKHCghgzJhQwQABHAQc7euS4EMCAAQcDAgA7
begin splat.gif
R0lGODlhCgAKAPcAAAAAAOfvAP9CAP/GSv/nEP//////////////////////////////////////
N12N
/////////////////////////////////////////////////////ywAAAAACgAKAAAIQAABCAxA
AMCAAAEAJBRgEEBBhRAFDJA4oCBCAgIkMnzocKLGiA4lWkw4oOJEAAwhJiQ4wKHAhwcRCpzZcqbA
gAAAOw==