lmame

#!/usr/bin/perl
# vim:ft=perl:
# abstract: mame frontend using ratmenu
use strict;

my $font = '7x13';
my $mame = 'mame';
my $rat  = "ratmenu -font $font -label mame";


my %games = (
  cninja          => 'Cavemen Ninja (Platform, 1991)',
  pacmania        => 'Pacmania (1991)',
  ladybugg        => 'Ladybug  (1983)',
  macrossp        => 'Macross Plus (Shmup, 1991)',
  macross         => 'Macross (Shmup, 1988)',
  pacman          => 'Pacman (1982)',
  mspacman        => 'Ms. Pacman (1984)',
  donpachi        => 'Don Pachi (Shmup, 1998)',
  ddonpach        => 'Don Donpachi (Shmup, 2001)',
  tokib           => 'Toki',
  mrdo            => 'Mr. Do (1981)',
  sfa3            => 'Street Fighter 3 Alpha',
  sfiii3          => 'Street Fighter 3: Third Strike - Fight The Future',
  vasara          => 'Vasara 1 (Shmup, 2000)',
  raiden          => 'Raiden 1 (Shmup, 1985)',
  jumppop         => 'Jumping Pop (Platform, 2000)',
  uballoon        => 'Ultra Baloon (Platform, 2000)',
  cairblad        => 'Change Air Blade (Shmup, 2000)',
  avspirit        => 'Avengin Spirit (Platform, 1990)',
  psychic5a       => 'Psychic (Platform)',
  mgcrystl        => 'Magical Crystals (Platform, 2000)',
  spelunk2        => 'Spelunker 2 (Platform, 1985)',
  gunforce        => 'Gunforce (Shooter) [Contra-Style]',
  dariusg         => 'Darius Gaiden (Shmup, 1991)',
  esprade         => 'ESP Ra.De (Shmup, 1998)',
  rtypeleo        => 'Rtype Leo (Shmup, 1991)',
  drgnblaze       => 'Dragon Blaze (Shmup, 2000)',
  prehisle        => 'Prehistoric Tale (Shmup, 1989) [SNK]',
  preisle2        => 'Prehistoric Tale 2 (Shmup, 1999) [SNK]',
  oscar           => 'Psycho-Nics Oscar (Platform, 1988)',
  spf2t           => 'Super Puzzle Fighter 2 Turbo (Puzzle, 1996)',
  bhswstl         => 'Bells & Whistles (Shmup, 1991) [Konami]',
  progear         => 'Pro Gear (Shmup, 2001)  [BEST FUCKING GAME EVER]',
  bonzeadv        => 'Bonze Adventure (Platform, 1988) [Taito]',
  pacmanf         => 'Pacman (speedup hack)',
);

my @games;
for my $shname(sort {$games{$a} cmp $games{$b}} keys(%games)) {
  push(@games, "\"$games{$shname}\" $mame\\ $shname");

}
print "$_\n" for @games;
system("$rat @games");